我要在主窗体显示前显示登陆窗体。请问登陆窗体和主窗体应该怎么设置?
解决方案 »
- GDI++ 创建TIF文件问题 200分献上!
- 关于画矩形-----这个代码如何改?
- 关于调查问卷小程序
- Tchart FastLine 显示不连续的线.
- WinSock问题:写了一个自定义超时连接的function.可不知道问题出在哪?走过路过不要错过阿,可能是很简单的问题
- 求delphi自带一简单函数,解决马上给分!
- TChart控件上添加的Series,如何在程序中控制Series是否显示,用什么属性进行控制????高分求教!!!!
- 如何在SpeedButton上使用图标?
- 请教:如何在delphi中获取网卡的MAC地址???
- 很急,请帮帮我!!!
- 难提~~~~~~~~~?????
- delphi 在2000下设计的程序界面到98就变了?怎么办
登陆窗体设置为true;
当登陆窗体回车或者按下确定后,确认登陆用户的合法性,也就是登陆用户是否与数据库中设置的用户名和密码相匹配:
a.匹配的话触发主窗体的visible属性为true;
b.不匹配则保持主窗体visible属性为false,登陆窗体visible属性设置为true;
等待用户重新输入,进入下一个验证......
begin
Application.Initialize;
ULogin := TULogin.Create(Application);
ULogin.ShowModal;
Application.CreateForm(TMainform, Mainform);
Application.Run;
end.然后在uLogin窗体里写验证事件如:
begin
If (UserName = '...') and (Password = '...') then
Self.Close
else
ShowMessage('用户名或密码错误');
end;注意要在uLogin里的OnCloseQuery事件里加上一句
Application.Terminate;
否则就主窗体visible属性设为false,登陆窗体visible属性设为ture。