ddis.dpr

航空人身保险信息管理系统使用SQL和DELHPI开发

program ddis;

uses
  Forms,
  Unit_Addorg in 'Unit_Addorg.pas' {FrmAddorg},
  Unit_Large in 'Unit_Large.pas' {FrmLarge},
  Unit_Login in 'Unit_Login.pas' {FrmLogin},
  Unit_Lstatics in 'Unit_Lstatics.pas' {FrmLstatics},
  Unit_Main in 'Unit_Main.pas' {FrmMain},
  Unit_Maintain in 'Unit_Maintain.pas' {FrmMaintain},
  Unit_Small in 'Unit_Small.pas' {FrmSmall},
  Unit_Sstatics in 'Unit_Sstatics.pas' {FrmSstatics},
  Unit_Common in 'Unit_Common.pas',
  unit_DataM in 'unit_DataM.pas' {Dtm: TDataModule},
  Unit_config in 'Unit_config.pas' {FrmConfig},
  Unit_Modify in 'Unit_Modify.pas' {FrmModify},
  Unit_Adduser in 'Unit_Adduser.pas' {FrmAddUser};

{$R *.res}

begin
  Application.Initialize;

  GetSysInfo;

  Application.Title := '民航人身意外伤害保险系统';
  Application.CreateForm(TDtm, Dtm);
  Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TFrmAddorg, FrmAddorg);
  Application.CreateForm(TFrmLarge, FrmLarge);
  Application.CreateForm(TFrmLogin, FrmLogin);
  Application.CreateForm(TFrmLstatics, FrmLstatics);
  Application.CreateForm(TFrmMaintain, FrmMaintain);
  Application.CreateForm(TFrmSmall, FrmSmall);
  Application.CreateForm(TFrmStatics, FrmStatics);
  Application.CreateForm(TFrmConfig, FrmConfig);
  Application.CreateForm(TFrmModify, FrmModify);
  Application.CreateForm(TFrmAddUser, FrmAddUser);
  FrmLogin.ShowModal;
  if f=0 then   Application.Terminate;
  Application.Run;

  end.