关于一个应用系统的登录问题

Question

  LoginForm:=TLoginForm.Create(Application);
  LoginForm.ShowModal;//TloginForm为登陆窗体
  if LoginForm.ModalResult=1 then begin
  Application.Initialize;
  Application.CreateForm(TMenuForm, MenuForm); 
  Application.Run;
  end;

Answer 1

我提到的登录窗体是自制窗体，并不是TLoginForm，它所验证的USER,password为应用系统中自定义的，并不是数据库系统的user/password

Answer 2

我说的TloginForm正是自定义的，不过要将LoginForm设置为Available froms；
然后再XXX.dpr,添入如上代码！

Answer 3

例如：program MAIN;uses
  Forms,
  TMenu in 'TMenu.pas' {MenuForm},
  TLogin in 'TLogin.pas' {LoginForm},
  TPass in 'TPass.pas' {PassForm},
  TNMEN in 'TNMEN.pas' {NMenForm},
  TDept in 'TDept.pas' {DeptForm},
  TQuery in 'TQuery.pas' {QueryForm},
  TReport in 'TReport.pas' {Form1},{$R *.RES}begin
  LoginForm:=TLoginForm.Create(Application);
  LoginForm.ShowModal;
  if LoginForm.ModalResult=1 then begin
  Application.Initialize;
  Application.CreateForm(TMenuForm, MenuForm);
  Application.CreateForm(TPassForm, PassForm);
  Application.CreateForm(TNMenForm, NMenForm);
  Application.CreateForm(TDeptForm, DeptForm);
  Application.CreateForm(TQueryForm, QueryForm);
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  end;
end.