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

llmiss llmiss 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
有个问题请教下,做某个管理系统的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;?
...全文

相关推荐

评论 7
收藏 已收藏
分享
返回顶部
llmiss
数据库相关 2,508 成员 88,437 内容