easy_gasdpr.dpr

EasyGasDpr 瓶装液化气 钢瓶 SQL,用户名：SYSTEM 密码：空

program EASY_GASDPR;

uses
  Forms,
  Sysutils,
  EASY_GASMAIN in 'EASY_GASMAIN.pas' {MAINFORM},
  BUSINESS_RESTOR in 'BUSINESS_RESTOR.pas' {restoredlg},
  BUSINESS_PREFORM in 'BUSINESS_PREFORM.pas' {PREFORM},
  EASYGAS_GUI in 'EASYGAS_GUI.pas' {SYSGUI},
  EASYGAS_BOTTLE in 'EASYGAS_BOTTLE.pas' {BUTTLEDlg},
  BUSINESS_AREA in 'BUSINESS_AREA.pas' {AREADlg},
  EASYGAS_BOTTLEEDIT in 'EASYGAS_BOTTLEEDIT.pas' {ButtleEditor},
  BOTTLE_TYPE in 'BOTTLE_TYPE.pas' {BOTTLETYPE},
  EASYGAS_MANGTICK in 'EASYGAS_MANGTICK.pas' {MANGTICK},
  EASYGAS_MANGTYPE in 'EASYGAS_MANGTYPE.pas' {MANGTYPESET},
  EASYGAS_REPORT in 'EASYGAS_REPORT.pas' {ReportDlg},
  EASYGAS_BUTTLELIST in 'EASYGAS_BUTTLELIST.pas' {BUTTLELIST},
  EASYGAS_CLIENTTYPE in 'EASYGAS_CLIENTTYPE.pas' {ClientDlg},
  EASYGAS_SELL in 'EASYGAS_SELL.pas' {SellDlg},
  EASYGAS_PNTFORMAT in 'EASYGAS_PNTFORMAT.pas' {PNT_SET},
  DATETIMESEL in 'DATETIMESEL.pas' {TimeSel},
  Loginpas in 'Loginpas.pas' {LoginDlg},
  EASY_GASSETGRID in 'EASY_GASSETGRID.pas' {GridDlg},
  EASYGAS_BANKS in 'EASYGAS_BANKS.pas' {BANKDLG},
  CheckListPas in 'CheckListPas.pas' {CheckListDlg},
  WaitPas in 'WaitPas.pas' {WaitDlg},
  USERPAS in 'USERPAS.pas' {USERDlg},
  ImgPas in 'ImgPas.pas' {ImgDlg};

{$R *.res}

var I:Integer;
begin
  Application.Initialize;
  PREFORM:=TPREFORM.CREATE(APPLICATION);
  PREFORM.SHOW;
  PREFORM.UPDATE;
  Application.Title := 'EASYSOFT 煤气钢瓶管理系统 V1.0';
  if Paramcount>0 then
  Begin
  For I:=1 to Paramcount  do
  begin
    if lowercase(ParamStr(I)) = '-restore' then
    begin
      Application.CreateForm(TRestoreDlg, RestoreDlg);
    end;
  end;
  end else
  Begin
    Begin
      Application.CreateForm(TMAINFORM, MAINFORM);
      Application.CreateForm(TSYSGUI, SYSGUI);
    end;
  end;
  PREFORM.HIDE;
  PREFORM.FREE;
  Application.Run;
end.