如何制作登陆窗口？

Question

在mis中如何制作登陆窗口？既检验用户名和密码是否正确，通过后显示主窗口，登陆窗口释放？

Answer 1

可以用SQL语句传递到后台检查是否有查询结果,如有记录则表示该用户存在,否则用户密码错误,如用户存在则显示主窗口.如:
if not dset.emperty then
begin
   loging.close;
   main.showmadol;
   main.free;
end;

Answer 2

Application.Initialize;
  with Tlogin.Create(forms.application) do 
      try
        show;
        update;
        Application.Title := '********系统';
        Application.CreateForm(Tmainform, mainform);
  Application.CreateForm(TcpcDataModule, cpcDataModule);
  Application.CreateForm(Tdatalogin, datalogin);
  Application.CreateForm(Tkcform, kcform);
  Application.CreateForm(TAbout, About);
  Application.CreateForm(Tsys_init, sys_init);
  finally
         free;
  end;
   if Tlogin.modalresult=mrok then
      Application.Run
else
   about;

Answer 3

错了:
Application.Initialize;
  with Tlogin.Create(forms.application) do 
      try
        if tlogin.showmodal<>mrok then halt;
        update;
        Application.Title := '********系统';
        Application.CreateForm(Tmainform, mainform);
  Application.CreateForm(TcpcDataModule, cpcDataModule);
  Application.CreateForm(Tdatalogin, datalogin);
  Application.CreateForm(Tkcform, kcform);
  Application.CreateForm(TAbout, About);
  Application.CreateForm(Tsys_init, sys_init);
  finally
         free;
  end;
    Application.Run
else
   halt;
   在登陆窗口中返回模态值...
应该是这样吧...