登录窗体问题请教,谢谢,在线等

llmiss 2008-11-04 04:10:44
有个问题请教下,做某个管理系统的application的源码如下
Application.Initialize;
Application.CreateForm(TFm_Main, Fm_Main);
Application.CreateForm(TDMd_Public, DMd_Public);
Application.CreateForm(TFm_Splash, Fm_Splash);
//打开初始化界面
Fm_Splash.Lbl_Splash.Caption:= '连接数据库中,请稍候';
Fm_Splash.Show;
if DMd_Public.OpenADOConn then //如果连接成功则创建窗体
begin
Fm_Splash.Lbl_Splash.Caption:= '系统初始化中,请稍候';
Application.CreateForm(TFm_Login, Fm_Login);
{这里创建所有窗体}
Fm_Splash.Free;
Fm_Login.Show;<----------
Application.Run;
end
else //如果连接失败则关闭初始化界面和数据模块,系统退出
begin
Fm_Splash.Free;
DMd_Public.Free;
end;
end.
主窗体是fm_main,问题是打箭头的语句执行完后登录窗体弹出来了,但是程序自动执行下去,也弹出了主窗体,有没有办法弹出登录窗体后暂时不执行,等输入了正确的用户名和密码后再执行 Application.Run;?
...全文
108 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
gwhdaxia 2008-11-04
  • 打赏
  • 举报
回复
if Fm_Login.ShowModal=mrOk then
...
else
...
yuqianyi1974 2008-11-04
  • 打赏
  • 举报
回复
[Quote=引用 5 楼 yuqianyi1974 的回复:]
这是我以前写的程序

begin
Application.Initialize;
Application.Title := 'ELEVATOR DETECTOR 1.0';
application.ShowMainForm:=false;
Application.CreateForm(Tfrmmain, frmmain);
Application.CreateForm(Tfrmlogin, frmlogin);
frmlogin.Show;
Application.Run;
end.
[/Quote]
在frmlogin中进行判断,出错 则直接使用 application.Terminate;退出
yuqianyi1974 2008-11-04
  • 打赏
  • 举报
回复
这是我以前写的程序

begin
Application.Initialize;
Application.Title := 'ELEVATOR DETECTOR 1.0';
application.ShowMainForm:=false;
Application.CreateForm(Tfrmmain, frmmain);
Application.CreateForm(Tfrmlogin, frmlogin);
frmlogin.Show;
Application.Run;
end.

fangsp 2008-11-04
  • 打赏
  • 举报
回复
在登陆窗体中
输入用户名 用户密码
验证成功后 主窗体显示
llmiss 2008-11-04
  • 打赏
  • 举报
回复
哦,那ShowModal完了以后什么情况下才开始继续执行?
fangsp 2008-11-04
  • 打赏
  • 举报
回复
[Quote=引用 1 楼 Corn1 的回复:]
Fm_Login.ShowModal;
[/Quote]
对 改为 ShowModal试一下
Corn1 2008-11-04
  • 打赏
  • 举报
回复
Fm_Login.ShowModal;

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧