关于设置登陆窗口,新手

Question

怎样实现系统设计时,用不同的帐户登陆~~简言之实现登陆窗口设计的代码该怎么写?我是新手

Answer 1

有多种方案,我这种算是抛砖引玉了:
创建一个工程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的身份验证处理部分了。关于身份验证部分，我就不回答了。