登陆程序

Question

其实很好做的,在主程序SHOW时调用登陆界面,用户名和密码与数据库连起来,如果正确则进入运行,否则...

Answer 1

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1); //主窗体
  Application.CreateForm(TForm2, Form2); // 可以是登录对话框  // 显示登录对话框，并对用户名和密码进行判断
  Form2.showmodal;
  ......
  ......  // 显示主窗体
  Application.Run
end;