怎么注销自己做的系统？？/

Question

要求 关闭主界面！  打开登陆界面！！
试过  mainform.hide;/close/free
      login.show;我主窗体是login
都不行！！ 急！！
或者当把mainform设为主窗体时 怎么实现login窗体首先运行  
然后才登陆到mainform

Answer 1

Application.Initialize;  Login := TLogin.Create(Application);
  Application.CreateForm(TMain, Main);
  if Login.ShowModal = mrOK then
  begin
    Application.Run;
  else
    Application.Terminate;

Answer 2

这是当把 mainform设为主窗体时 实现login窗体首先运行  
然后才登陆到mainform 的代码吗？

Answer 3

program Project1;uses
  Forms,Controls,
  Unit1 in 'Unit1.pas' {Main},
  Unit2 in 'Unit2.pas' {Login};{$R *.RES}begin
  Application.Initialize;  Login := TLogin.Create(Application);
  Application.CreateForm(TMain, Main);
  if Login.ShowModal = mrOK then
    Application.Run
  else
    Application.Terminate;
end.

Answer 4

没错!在Login窗体里,例如有一个BtnLogin
按钮事件,你可以这样写
if 登成功 then
  ModalResult := mrOK;
else
  if 登录次数 >=3 then 
    ModalResult := mrCancel
  else
    ShowMessage('登录失败,用户名或密码错误!');

Answer 5

{$R *.res}begin
  Application.Initialize;
  Login := TLogin.Create(Application);
  Application.CreateForm(TMainForm, MainForm);
  if Login.ShowModal=mrOK then
    Application.Run
  else
    Application.Terminate;
  end.我的代码  报错[Error] BXKHXXGL.dpr(24): Undeclared identifier: 'mrOK'

Answer 6

对的啊！要调用controls类  我搞忘了！！
谢谢！