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]


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