wenju.dpr

来自「文具仓库管理系统2.0（源码）delphi+access main in M」· DPR 代码 · 共 49 行

program WenJu;

uses
  Forms,
  main in 'Main\main.pas' {FrmMain},
  Login in 'Login\Login.pas' {FrmLogin},
  Logo in 'Login\Logo.pas' {FrmLogo},
  Global in 'Share\Global.pas',
  BaseSetup in 'BaseSetup\BaseSetup.pas' {FrmBaseSetup},
  dm in 'Share\dm.pas' {DM_Wjckgl: TDataModule},
  About in 'Help\About.pas' {FrmAbout},
  InputGoods in 'Input\InputGoods.pas' {FrmInputGoods},
  DataManage in 'DataManage\DataManage.pas' {FrmDataManage},
  GetGoods in 'DataManage\GetGoods.pas' {FrmGetGoods},
  Stat in 'DataManage\Stat.pas' {FrmStat},
  SystemMgr in 'SystemManage\SystemMgr.pas' {FrmSystemMgr};

{$R *.res}

begin
  Application.Initialize;
  if not DataBaseIsExist then  //如果数据库文件不存在
    begin
      ExportNewDatabase;
      Application.Terminate;
    end;
  if ConnectionDB then
      if CheckPassword then
        begin
          FrmLogo:=TFrmLogo.Create(Application);
          FrmLogo.Show;
          FrmLogo.Update;
          Application.CreateForm(TFrmMain, FrmMain);
  Application.CreateForm(TDM_Wjckgl, DM_Wjckgl);
  Application.CreateForm(TFrmBaseSetup, FrmBaseSetup);
  Application.CreateForm(TFrmAbout, FrmAbout);
  Application.CreateForm(TFrmInputGoods, FrmInputGoods);
  Application.CreateForm(TFrmDataManage, FrmDataManage);
  Application.CreateForm(TFrmGetGoods, FrmGetGoods);
  Application.CreateForm(TFrmStat, FrmStat);
  Application.CreateForm(TFrmSystemMgr, FrmSystemMgr);
  Application.Run;
          FrmLogo.Hide;
          FrmLogo.Free;
        end
    else
      Application.Terminate;
end.