To kisber
不好意思,请问一下你有试过这种吗?我在试的时候好像没有你说的情况,就是不输入密码是不能进入的啊
当然要在FRMLOGIN窗口中做些限制了,因为FRMLOGIN是SHOWMODAL的吧。其实有些地方也是有用的吧。。。说的不对请指教。
我现在用的登录一般都在工程文件中实现的,请问一下这有什么不好吗?多谢指教!
to jlbios:
嘿,我来凑凑热闹~
你的思路是对的,但是代码却没有处理ShowModal的其它返回值,除非你限制了Login Form的系统菜单,并且ShowModal没有返回其它值的可能,否则,照样可以进入系统...
改为这样应该会安全一点:
procedure TfrmMain.FormCreate(Sender: TObject);
begin
Application.CreateForm(TfrmLogin, frmLogin);
if frmLogin.ShowModal =mrok then
freeAndnil(frmLogin)
else
Application.Terminate;
end;