pmisdba.dpr

来自「以多个信息系统为例」· DPR 代码 · 共 36 行

program PMISDBA;

uses
  Forms,
  u_login in 'u_login.pas' {F_login},
  u_data in 'u_data.pas' {DM_main: TDataModule},
  u_main in 'u_main.pas' {F_main},
  u_about in 'u_about.pas' {F_about},
  u_operator in 'u_operator.pas' {F_operator},
  u_code in 'u_code.pas' {F_code},
  u_add in 'u_add.pas' {F_add},
  u_modify in 'u_modify.pas' {F_modify},
  u_stat in 'u_stat.pas' {F_stat},
  crypt in 'crypt.pas';

{$R *.RES}

begin
  Application.Initialize;
  Application.HelpFile := '.\help\PMISDBA.HLP';
  Application.Title := '客房管理-后台数据库管理';
  Application.CreateForm(TF_login, F_login);
  Application.CreateForm(TDM_main, DM_main);
  DM_main.Database.Connected:=False;
  F_login.ShowModal;//显示登录对话框
  if DM_main.Database.Connected then //判断是否通过认证
  begin //认证通过，继续执行
    F_login.Free;
    Application.CreateForm(TF_main, F_main);
    Application.CreateForm(TF_about, F_about);
    Application.Run;
  end
  else
    Application.Terminate; //认证失败退出应用程序
end.