很菜的问题，做登录界面

Question

做登录界面，登录成功后显示主窗体，想关闭登录界面，只出现主窗体，如何做？
望赐教，在线等.......

Answer 1

将登录界面在主窗体前创建显示,并且用ShowModal方式

Answer 2

多用户使用可以连接一个数据库表，存储用户名和密码；在用户登录时以此为根据判断用户是否合法如果合法
loginform.close;
mainform.showmodal;反之
loginform.close;
application.Terminate;
....
具体的请搜以前的帖子

Answer 3

在你的登陆界面中加个Timer,设置time为5000,Enable:=true;双击打开它填写代码,登陆界面.Colse();登陆界面5秒后自动关闭.

Answer 4

或者在你登陆界面后，在show主界面的同时，hide你的登陆界面，然后在主界面的onclose事件中退出你的登陆界面（close 你的登陆界面；）

Answer 5

在主窗体的SHOW里SHOW登陆界面

Answer 6

在你的工程文件中写silverwonder的代码

Answer 7

program mAppTemplateChs;uses
  Forms,
  Controls,
  wFlash,
  wLogon,
  AppInfo in 'AppInfo.pas',
  untMaindb in 'untMaindb.pas' {dmMaindb: TDataModule},
  untMain in 'untMain.pas' {frmMain},
  wmaindb in '..\source\wmaindb.pas' {MainDataModule: TDataModule},
  untOption in 'untOption.pas' {frmOption};{$R *.res}begin
  Application.Initialize;
  Application.Title := '梦湘工作室软件-数据库应用程序模板';
  frmflash:=Tfrmflash.Create(Application);
  {$ifndef debug}
    frmflash.Show;
    frmflash.Refresh;
  {$endif}
  //初始化数据库
  dmMainDB:=TdmMainDB.Create(Application);
  if not dmMainDB.OpenDatabase then
  begin
    dmMainDB.Free;
    Application.Terminate;
    exit;
  end;
  //连接数据库成功,开始登录
  frmLogon:=TfrmLogon.Create(Application);
  if frmLogon.ShowModal<>mrOK then  //登录失败
  begin
    dmMainDB.Free;
    Application.Terminate;
    exit;
  end;
  frmLogon.Free;
  //建立主窗口
  Application.CreateForm(TfrmMain, frmMain);
  frmflash.Free;
  //开始循环
  Application.Run;
end.