关于设置登陆窗口,新手 Delphi / Windows SDK/APIhttp://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的身份验证处理部分了。关于身份验证部分,我就不回答了。
非常感谢~再冒昧地问下.身份验证是不是最初在数据库中要设置身份用户和密码的?
可以,你完全可以按你自己的设想去搞,逐渐积累经验,逐步找到更好的办法...