BCB登录后全局对象以及权限分配

建立全局对象：

class GetUser
{
public:
	GetUserInfo(AnsiString userid);  
	String szQXList;   //权限列表
	String szUserID;   //用户ID
	String szUserName; //用户名
	String szPassWord; //密码
	String szRole;     //角色
};
extern PACKAGE GetUser UserInfo; //全局对象class GetUser
{
public:
	GetUserI