gsgl.dpr

有需要的同仁载回去慢慢研究

program GsGl;

uses
  Forms,
  DGSDM in 'DGSDM.pas' {DM_GSGL: TDataModule},
  GSGRHB in 'GSGRHB.pas' {FrmGrhb},
  BMGZXM in 'BMGZXM.pas' {FrmBmGzxm},
  GSMAIN in 'GSMAIN.pas' {FrmGsMain},
  UserLogIn in 'UserLogIn.pas' {FrmLogin},
  UserChgPwd in 'UserChgPwd.pas' {FrmChgPwd},
  GSTTHB in 'GSTTHB.pas' {FrmTthb},
  GSXZRY in 'GSXZRY.pas' {FrmXzRy},
  BMGZXMTJ in 'BMGZXMTJ.pas' {FrmBmGzxmTj},
  GsGzxm in 'GsGzxm.pas' {FrmGsGzxm},
  GsTodayByBm in 'GsTodayByBm.pas' {FrmToday},
  GSGSZX in 'GSGSZX.pas' {FrmGsZx},
  BMFZGZXMTJ in 'BMFZGZXMTJ.pas' {FrmBmFzGzxmTj},
  mycommon in 'mycommon.pas',
  server in 'server.pas' {FrmServer},
  LoadingForm in 'LoadingForm.pas' {FrmLoading},
  UserAuthor in 'UserAuthor.pas' {frmAuthor},
  BMXX in 'BMXX.pas' {FrmBmxx},
  YGXX in 'YGXX.pas' {FrmYgxx},
  LBXX in 'LBXX.pas' {FrmLbxx},
  LBFZ in 'LBFZ.pas' {FrmLbfz},
  RYFZ in 'RYFZ.pas' {FrmRyFz},
  BMZXTJ in 'BMZXTJ.pas' {FrmBmZxTj},
  GSGSGZXM in 'GSGSGZXM.pas' {FrmGsGzxmTj};

{$R *.RES}

begin
  Application.Initialize;
  CheckServer;
  if CheckUser then
  begin
    with TFrmLoading.Create(nil) do
    begin
      Show;
      Update;
      Application.CreateForm(TDM_GSGL, DM_GSGL);
  Application.CreateForm(TFrmGsMain, FrmGsMain);
  Free;
    end;
    Application.Run;
  end
  else
    Application.Terminate;
end.