xtgl.dpr

本系统为演示Delphi的功能而开发设计

program xtgl;

uses
  Forms,
  Mainform in 'Mainform.pas' {XtglMainForm},
  WorkFlag in 'WorkFlag.pas' {WorkFlagForm},
  GonggaoLiuLan in 'GonggaoLiuLan.pas' {GonggaoLiuLanForm},
  PassWord in '..\xygl\PassWord.pas' {PassWordForm},
  GeRen in 'GeRen.pas' {GeRenForm},
  AddUser in 'AddUser.pas' {FormUser},
  HuaXia in 'HuaXia.pas' {HuaXiaData: TDataModule},
  LoginData in 'LoginData.pas' {SystemData: TDataModule},
  LoginError in 'LoginError.pas' {FormError},
  heimingdanwei in 'heimingdanwei.pas' {HeiMingDanWeiForm},
  GonggaoFaBu in 'GonggaoFaBu.pas' {GonggaoFabuForm},
  login in 'login.pas' {LoginForm},
  comp in 'comp.pas' {FormCompSetup},
  Site in 'Site.pas' {FormSiteSetup},
  kong in 'kong.pas' {KongForm},
  DataError in '..\xygl\DataError.pas' {DataErrorForm},
  xukezheng in 'xukezheng.pas' {XukeForm},
  ErrorHit in 'ErrorHit.pas' {ErrorForm},
  LoginHit in 'LoginHit.pas' {FormHit},
  DanWei in 'DanWei.pas' {DanWeiForm},
  Restore in 'Restore.pas' {RestoreForm},
  heimingdan in 'heimingdan.pas' {HeiMingDanForm},
  BackUp in 'BackUp.pas' {BackUpForm};

{$R *.RES}

begin
  SystemData:=TSystemData.Create(Application);
  FormHit:=TFormHit.Create(Application);
  FormError:=TFormError.Create(Application);
  LoginForm := TLoginForm.Create(Application);
  LoginForm.ShowModal;
  If LoginFlag=1 Then
  Begin
  Application.Initialize;
  Application.CreateForm(TXtglMainForm, XtglMainForm);
  Application.CreateForm(TGonggaoLiuLanForm, GonggaoLiuLanForm);
  Application.CreateForm(TPassWordForm, PassWordForm);
  Application.CreateForm(TGeRenForm, GeRenForm);
  Application.CreateForm(THuaXiaData, HuaXiaData);
  Application.CreateForm(THeiMingDanWeiForm, HeiMingDanWeiForm);
  Application.CreateForm(TGonggaoFabuForm, GonggaoFabuForm);
  Application.CreateForm(TFormCompSetup, FormCompSetup);
  Application.CreateForm(TFormSiteSetup, FormSiteSetup);
  Application.CreateForm(TFormUser, FormUser);
  Application.CreateForm(TWorkFlagForm, WorkFlagForm);
  Application.CreateForm(TKongForm, KongForm);
  Application.CreateForm(TDataErrorForm, DataErrorForm);
  Application.CreateForm(TXukeForm, XukeForm);
  Application.CreateForm(TErrorForm, ErrorForm);
  Application.CreateForm(TFormHit, FormHit);
  Application.CreateForm(TDanWeiForm, DanWeiForm);
  Application.CreateForm(TRestoreForm, RestoreForm);
  Application.CreateForm(THeiMingDanForm, HeiMingDanForm);
  Application.CreateForm(TBackUpForm, BackUpForm);
  Application.Run;
  End
  Else
  Application.Terminate;
end.