登录窗体问题请教,谢谢,在线等
有个问题请教下,做某个管理系统的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;?
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;?
...全文
相关推荐
C#在线购物窗体组件项目源码
**在线购物**"这个文件可能是项目的主要源代码或数据文件,包含了实现在线购物功能的各个模块,例如商品展示、用户登录注册、购物车逻辑、订单处理等。
ATM在线自助系统(C#窗体应用程序)
本项目采用C#编程语言开发了一款基于Windows窗体的应用程序,旨在模拟真实的ATM机操作流程,实现包括开户、登录以及系统管理等多种功能。
c#窗体编写的简单的聊天室系统
**用户登录与注册**:用户需要有身份才能参与聊天,所以系统会包含用户账户的创建和验证过程。2.
简单C#窗体设计
此外,不断学习和参考MSDN文档或其他在线资源,将有助于你解决遇到的问题,进一步提升编程技能。总之,“简单C#窗体设计”这个主题涵盖了C#语言的基本用法,窗体控件的使用,以及简单的网络编程和文件操作。
qq简易窗体应用程序
**用户界面设计**:在开发QQ简易窗体应用程序时,会涉及到登录界面、聊天界面的设计,以及可能的联系人列表、消息发送等功能的实现。这些都需要对控件布局、事件处理和数据绑定有深入理解。9.


数据库相关
