主程序为MID界面窗口，如何在进入主程序窗口之前显示密码校验窗口。

Question

主程序为MID界面窗口，如何在进入主程序窗口之前显示密码校验窗口。

Answer 1

在工程的dpr文件中这样写：
begin
 fstart:=TFstart.Create(application);
  fstart.Show;
  fstart.Update;
  Application.Initialize;
  Application.CreateForm(TFmain, Fmain);
  fstart.Hide;
  fstart.Free;
  Application.Run;fstart为启动界面，你把它改成密码窗体，然后判断一下就可以拉

Answer 2

还是给你个例子吧
program Project1;uses
  Forms,
  main_try in 'main_try.pas' {main},
  wait_sys in 'wait_sys.pas' {wait},
  about_sys in 'about_sys.pas' {about},
  login_zj in 'login_zj.pas' {login},
  db_zj in 'db_zj.pas' {cldbf: TDataModule};{$R *.res}begin
  Application.Initialize;
  wait:=Twait.create(application);
  wait.ProgressBar1.Max:=100;  wait.Show;
  application.ProcessMessages;     ///////////
  wait.Update;
//  wait.name_lbl.Caption:='读取参数...';
  wait.company_lbl.Caption:='正在初始化...';
  wait.update;
  Application.CreateForm(Tmain, main);
  wait.ProgressBar1.StepBy(25);
  wait.company_lbl.Caption:='正在建立数据库连接...';
  wait.update;
  Application.CreateForm(Tcldbf, cldbf);
  wait.ProgressBar1.StepBy(50);
  if main.door then
  begin
    wait.company_lbl.Caption:='数据库连接成功！';
    wait.update;
    Application.CreateForm(Tabout, about);    login:=Tlogin.Create(application);   //输入用户名密码窗体
    wait.ProgressBar1.StepBy(25);
    wait.hide;
    wait.free;    login.ShowModal;
    if login.con then
    begin
      Application.Run;
    end;
  end
  else Application.Terminate;
end.

Answer 3

在主窗体产生时产生一个窗体，
form1:=tform1.create(self);
form1.showmodel;
窗体产生后输入用户名，密码按button后
showmedel属性有一个返回值
根据返回值来判断是否产生主窗体
说的比较笼统
楼主试着来，我就是这样做的，呵呵。

Answer 4

同志，请帮我看一下这个DPR文件吧，如何修改。
program crm;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  datamodule in 'datamodule.pas' {DataModule5: TDataModule},
  sysfun in 'sysfun.pas',
  about in 'about.pas' {AboutBox},
  Unit16 in 'Unit16.pas' {Form16},
  Unit5 in 'Unit5.pas' {Form5},
  Unit18 in 'Unit18.pas' {Form18},
  w_password in 'w_password.pas' {PasswordDlg};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TPasswordDlg, PasswordDlg);  //用户名密码窗体
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TDataModule5, DataModule5);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TForm16, Form16);
  Application.CreateForm(TForm18, Form18);
  Application.Run;
end.

Answer 5

//我自己搞定了；
//在工程文件中修改，如下：program crm;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4},
  datamodule in 'datamodule.pas' {DataModule5: TDataModule},
  sysfun in 'sysfun.pas',
  about in 'about.pas' {AboutBox},
  Unit16 in 'Unit16.pas' {Form16},
  Unit5 in 'Unit5.pas' {Form5},
  Unit18 in 'Unit18.pas' {Form18},
  w_password in 'w_password.pas' {PasswordDlg};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TDataModule5, DataModule5);
  Application.CreateForm(TAboutBox, AboutBox);
  Application.CreateForm(TForm16, Form16);
  Application.CreateForm(TForm18, Form18);  PasswordDlg:=TPasswordDlg.Create(application);  //密码窗体名称
  PasswordDlg.ShowModal;
  if PasswordDlg.ModalResult=1 then
  begin
    PasswordDlg.close;
    Application.Run;
  end;
end.