登录窗口(求助!)

Question

我用ADO连接Access数据库，可以登录,但启动时登录窗体和主窗体一起显示，不知在工程启动中如何调。

Answer 1

//在项目单元文件中.
LoginFrm:= TLoginFrm.Create;
IF LoginFrm.ShowModal = mrOK Then Begin
  LoginFrm.Free;
  Application.Initialize;
  Application.Title := '我的程序';
  Application.CreateForm(TMainFrm, MainFrm);
  Application.MainForm.Caption := TmpStr;
  Application.Run;
End
Else
  LoginFrm.Free;

Answer 2

LoginFrm.ShowModal = mrOK
mrOK总是提示没有这个值

Answer 3

在MainForm的FormShow中调用LoginFormif not Assigned(LoginForm) then
  Applicaiton.CreateForm(TLoginForm, LoginForm);
if LoginForm.ShowModal = mrOK then
  begin
     //your code    
     LoginForm.Hide;
  end;

Answer 4

在登錄窗口中，設置登錄按鈕的ModalResult屬性為mrOK

Answer 5

登录成功后，隐藏登录窗体，在创建主窗体，在工程文件的begin
end 中间

Answer 6

谢谢，我终于搞定了。不过要在登录时判断Loginfrm.ModalResult:=mrOk，
再创建主窗体。如何给分撒...