Screen.Cursor := StartCursor;
if EditUser.Text = '' then
Application.MessageBox('用户名不能为空。', MessageTitle, WARNING_ICON + MB_OK)
else
begin
Create_Connection(DataModule1.SocketConnection1);
StrUserName := EditUser.Text;
StrPassword := EditPassword.Text;
LoginResult := JX_Get_Login_Result(StrUserName, StrPassword, '节目单管理', DataModule1.ClientDataSet1);
if LoginResult.Login = True then
begin
//SortBool := True;
CookieBool := False;
with FormMain do
begin
Init_QQButton(Panel_TreeView, Notebook_TreeView);
with DataModule1 do
begin
Init_TreeView_Channel(TreeView_Channel, DataModule1.ClientDataSet1);
Init_TreeView_VBCContent(TreeView_VBCContent, DataModule1.ClientDataSet1, DataModule1.ClientDataSet2);
Init_TreeView_Content(TreeView_Content, DataModule1.ClientDataSet1, DataModule1.ClientDataSet2);
end;
end;
ModalResult:= mrOK;
end
else
Application.MessageBox(PChar(LoginResult.ErrMsg), MessageTitle, WARNING_ICON + MB_OK);
end;
Screen.Cursor := EndCursor;
