请问验证用户身分的对话框应该在何时创建?,怎么创建?
解决方案 »
- Excel导入SQL时Excel工作表名称不能以数字开头的问题
- (紧急求救)DBLookupComboBox就不能象TComboBox那样自己定义ItemIndex吗?
- 心情有点郁,大家讲笑话给我听,讲的最好的50分!!
- 那里有网络版的数据库程序
- 哪位朋友可以share一下playicq的帐号啊?我没有手机,注册不了...
- 我想“英化”我程序的操作界面,可是执行了下面的代码后,没什么反应,向高手请教!!
- 问两个关于报表显示的问题?
- 一个关于线程运行的问题。如果答案满意问题解决了可以另外再加分。
- 我是一名新手,请问一下listbox中怎么样引用当前选中的值
- IIs5.0中InternetExpress程序出错
- 插入一个表的同时更新其他表
- 问题1
Application.Initialize;
Application.CreateForm(TFrmLogin, FrmLogin);
if FrmLogin.ShowModal = mrCancel then
Application.Terminate;
Application.CreateForm(TFrmMain, FrmMain);
Application.Run;
....
1、建立一个新窗体文件。
2、连接数据库。
3、查询相关的USER和PWD,成功则调用主窗体,否则就退出。。(同时也可以新增等设置,SQL语句执行即可)
if fmdl.ShowModal <>2 then
begin
splash:=Tsplash.Create(splash);
splash.Show;
splash.Refresh;
splash.pb_splash.position:=splash.pb_splash.position+i; //1
Application.CreateForm(Tfmdl_unlock, fmdl_unlock);
splash.pb_splash.position:=splash.pb_splash.position+i; //45
Application.CreateForm(Tfm_sendmessage, fm_sendmessage);
Application.CreateForm(Tfm_message_history, fm_message_history);
splash.Close;
splash.free;
fmdl.Free;
Application.Run;
end
else
begin
fmdl.Free;
DM.Free;
splash.free;
Application.Terminate;
end;
end.
写在工程文件中更专业些:)