xygl.dpr

来自「本系统为演示Delphi的功能而开发设计」· DPR 代码 · 共 91 行

program xygl;

uses
  Forms,
  Mainform in 'Mainform.pas' {XyglMainForm},
  ChangIdNumber in 'ChangIdNumber.pas' {ChangIdNumberForm},
  Xinyong in 'Xinyong.pas' {XinyongForm},
  HeiMingDanWei in 'HeiMingDanWei.pas' {HeiMingDanWeiForm},
  xuzu in 'xuzu.pas' {XuzuForm},
  GonggaoFaBu in 'GonggaoFaBu.pas' {GonggaoFabuForm},
  PassWord in 'PassWord.pas' {PassWordForm},
  DanWei in 'DanWei.pas' {DanWeiForm},
  FindHit in 'FindHit.pas' {FindForm},
  huanche in 'huanche.pas' {huancheForm},
  ShenfenInput in 'ShenfenInput.pas' {ShenfenInputForm},
  Genghuan in 'Genghuan.pas' {GengHuanForm},
  HuaXia in 'HuaXia.pas' {HuaXiaData: TDataModule},
  YuQiChuLi in 'YuQiChuLi.pas' {YuQiChuLiForm},
  UBuLiang in 'UBuLiang.pas' {UBuLiangForm},
  Gonggao in 'Gonggao.pas' {GonggaoForm},
  LoginData in 'LoginData.pas' {SystemData: TDataModule},
  login in 'login.pas' {LoginForm},
  Shuaka in 'Shuaka.pas' {ShuakaForm},
  ErrorHit in 'ErrorHit.pas' {ErrorForm},
  AddUser in 'AddUser.pas' {FormUser},
  yuqi in 'yuqi.pas' {YuqiForm},
  brush in 'brush.pas' {brushinfoForm},
  DataError in 'DataError.pas' {DataErrorForm},
  Zulin in 'Zulin.pas' {ZulinForm},
  cheliang in 'cheliang.pas' {CheLiangForm},
  BuLiang in 'BuLiang.pas' {BuLiangForm},
  Zonghe in 'Zonghe.pas' {FormZongHe},
  reyuqi in 'reyuqi.pas' {yuqireport},
  xiangguan in 'xiangguan.pas' {XiangguanForm},
  HeiMingDan in 'HeiMingDan.pas' {HeiMingDanForm},
  DanWeiChaXun in 'DanWeiChaXun.pas' {Formdanwei},
  GeRenChaXun in 'GeRenChaXun.pas' {FormGeRen},
  Splash in 'Splash.pas' {SplashForm},
  Shenfen in 'Shenfen.pas' {ShenfenForm};

{$R *.RES}

begin
  LoginForm:=TLoginForm.Create(Application);
  LoginForm.ShowModal;
  If LoginFlag=1 Then
  Begin
  SplashForm := TSplashForm.Create(Application);
  SplashForm.Show;
  SplashForm.Update;
  Application.Initialize;
  Application.CreateForm(TXyglMainForm, XyglMainForm);
  Application.CreateForm(TXuzuForm, XuzuForm);
  Application.CreateForm(TGonggaoFabuForm, GonggaoFabuForm);
  Application.CreateForm(TPassWordForm, PassWordForm);
  Application.CreateForm(ThuancheForm, huancheForm);
  Application.CreateForm(TYuQiChuLiForm, YuQiChuLiForm);
  Application.CreateForm(TUBuLiangForm, UBuLiangForm);
  Application.CreateForm(TGonggaoForm, GonggaoForm);
  Application.CreateForm(TXinyongForm, XinyongForm);
  Application.CreateForm(THeiMingDanWeiForm, HeiMingDanWeiForm);
  Application.CreateForm(TDanWeiForm, DanWeiForm);
  Application.CreateForm(TFindForm, FindForm);
  Application.CreateForm(TShenfenInputForm, ShenfenInputForm);
  Application.CreateForm(TGengHuanForm, GengHuanForm);
  Application.CreateForm(THuaXiaData, HuaXiaData);
  Application.CreateForm(TChangIdNumberForm, ChangIdNumberForm);
  Application.CreateForm(TShuakaForm, ShuakaForm);
  Application.CreateForm(TErrorForm, ErrorForm);
  Application.CreateForm(TFormUser, FormUser);
  Application.CreateForm(TYuqiForm, YuqiForm);
  Application.CreateForm(TbrushinfoForm, brushinfoForm);
  Application.CreateForm(TDataErrorForm, DataErrorForm);
  Application.CreateForm(TZulinForm, ZulinForm);
  Application.CreateForm(TCheLiangForm, CheLiangForm);
  Application.CreateForm(TBuLiangForm, BuLiangForm);
  Application.CreateForm(TFormZongHe, FormZongHe);
  Application.CreateForm(Tyuqireport, yuqireport);
  Application.CreateForm(TXiangguanForm, XiangguanForm);
  Application.CreateForm(THeiMingDanForm, HeiMingDanForm);
  Application.CreateForm(TFormdanwei, Formdanwei);
  Application.CreateForm(TFormGeRen, FormGeRen);
  Application.CreateForm(TShenfenForm, ShenfenForm);
  SplashForm.Hide;
  SplashForm.Free;
  Application.Run;
  End
  Else
  Application.Terminate;
end.