delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
关于设置登陆窗口,新手 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiBase/html/delphi_20061205143722283.html
怎样实现系统设计时,用不同的帐户登陆~~简言之实现登陆窗口设计的代码该怎么写?我是新手

有多种方案,我这种算是抛砖引玉了:  
  创建一个工程Project1,两个窗体Form1,Form2。其中form2是登陆窗体,form1是主窗体。(窗体名字我没有改,就用form1,form2,勿笑)  
  --------------------  
  在form2上放一个按钮“登陆”:  
  procedure   TForm2.Button1Click(Sender:   TObject);  
  begin  
        //if   验证信息通过   then  
                  form2.ModalResult:=mrok;//关闭登陆窗,显示主窗体  
  end;  
  -------------------  
  修改工程文件如下:  
  program   Project1;  
   
  uses  
      Forms,  
      Unit1   in   'Unit1.pas'   {Form1},   //Form1   ==   主窗体  
      Unit2   in   'Unit2.pas'   {Form2};   //Form2   ==   登陆窗体  
   
  {$R   *.res}  
   
  begin  
      Application.Initialize;  
      form2:=tform2.Create(application);  
      form2.ShowModal;  
      Application.CreateForm(TForm1,   Form1);  
      form2.Hide   ;  
      form2.Release;  
      Application.Run;  
  end.  
  -------------------------------  
  以上你测试通过后,即可以丰富一下form2的身份验证处理部分了。关于身份验证部分,我就不回答了。

非常感谢~再冒昧地问下.身份验证是不是最初在数据库中要设置身份用户和密码的?

可以,你完全可以按你自己的设想去搞,逐渐积累经验,逐步找到更好的办法...

posted on 2009-04-22 10:43 delphi2007 阅读(186) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。