54SA.COM|专注于系统亚博体育官方网址管理,为中国SA提供动力!
Getting online shouldn't be tough. $7.99 .COMs
系统管理员之家Banner
当前位置: 主页 > 编程开发 > Dephi >

Delphi登陆设计,登陆后关闭登陆窗体

时间:2011-05-10 14:33来源:未知 编辑:admin

最近在做一个资讯终端,需要登陆验证客户的全新然后进入软件。

开始的时候,没有注意直接把登陆窗体作为主窗体了,登陆成功后无法关闭close登陆窗体,只能hide。

但是从资源和程序安全性考虑,需要登陆成功后关闭登陆窗体,其实可以这样设计:

工程project动态创建登陆窗体,设置登陆后的窗体为主窗体。

工程project--view--source:

  1. program?QQQQ; ?
  2. ?
  3. uses ?
  4. ??Forms, ?
  5. ??Unit1?in?'Unit1.pas'?{Form1}, ?
  6. ??Unit3?in?'Unit3.pas'?{Form3}, ?
  7. ?
  8. {$R?*.res} ?
  9. ?
  10. begin ?
  11. ??Application.Initialize; ?
  12. ??form1?:=?tform1.Create(application); ?
  13. ??form1.ShowModal; ?
  14. ??if?form1.frm_show?=?1?then ?
  15. ????Application.CreateForm(Tform3,?form3); ?
  16. ???Application.Run; ?
  17. end.?
?

登陆窗体form1设计:

  1. ??public ?
  2. ????????frm_show?:?integer;//设置变量,控制form3启动 ?
  3. ??end; ?
  4. procedure?TForm1.Button1Click(Sender:?TObject); ?
  5. var ?
  6. begin ?
  7. if???//登陆成功 ?
  8. frm_show:=1; ?
  9. else??// ?
  10. frm_show:=0;?
  11. form1.close;
?
?

?

[责任编辑:admin]


------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
用户名: 匿名?
最新评论 进入详细评论页>>