kings.dpr

电子充值系统:全球通的充值卡通过POS机传到销售点.

program Kings;

uses
  Forms,
  Splash in 'Pubilc\Splash.pas' {fmSplash},
  PublicFunction in 'Pubilc\PublicFunction.pas',
  Loading in 'Pubilc\Loading.pas' {fmLoading},
  Password in 'sys\Password.pas' {fmPassword},
  BaseDialog in 'Pubilc\BaseDialog.pas' {fmBaseDialog},
  Logout in 'Pubilc\Logout.pas' {fmLogout},
  Progress in 'Pubilc\Progress.pas' {fmProgress},
  PRI030 in 'pri\PRI030.pas' {fmPRI030},
  Procress in 'Pubilc\Procress.pas' {fmProcess},
  ChinaCalculator in 'Pubilc\ChinaCalculator.PAS' {fmCalculator},
  About in 'Pubilc\About.pas' {fmAbout},
  CheckData in 'Pubilc\CheckData.pas',
  Simple in 'Pubilc\Simple.pas' {fmSimple},
  Single in 'Pubilc\Single.pas' {fmSingle},
  MasterDetail in 'Pubilc\MasterDetail.pas' {fmMasterDetail},
  SingleTemplete in 'Templete\SingleTemplete.pas' {fmSingleTemplete},
  MasterDetailTemplete in 'Templete\MasterDetailTemplete.pas' {fmMasterDetailTemplete},
  GetData in 'Pubilc\GetData.pas',
  SimpleTemplete in 'Templete\SimpleTemplete.pas' {fmSimpleTemplete},
  BaseSearch in 'Pubilc\BaseSearch.pas' {fmBaseSearch},
  DataSearch in 'Pubilc\DataSearch.pas' {fmDataSearch},
  DataModule in 'Pubilc\DataModule.pas' {DM: TDataModule},
  SYS030 in 'sys\SYS030.pas' {fmSYS030},
  PaperPrint in 'pri\PaperPrint.pas' {frmPaperPrint: TQuickRep},
  BaseDialogCustomer in 'Pubilc\BaseDialogCustomer.pas' {fmBaseDialogCustomer},
  BaseReportDlgWarehouseID in 'Pubilc\BaseReportDlgWarehouseID.pas' {fmBaseReportDlgWarehouseID},
  BaseReportDlgProductID in 'Pubilc\BaseReportDlgProductID.pas' {fmBaseReportDlgProductID},
  BaseReportDlgDate in 'Pubilc\BaseReportDlgDate.pas' {fmBaseReportDlgDate},
  BaseReportDlgChangeCode in 'Pubilc\BaseReportDlgChangeCode.pas' {fmBaseReportDlgChangeCode},
  BaseReportDlgSupplierID in 'Pubilc\BaseReportDlgSupplierID.pas' {fmBaseReportDlgSupplierID},
  BaseDialogSupplier in 'Pubilc\BaseDialogSupplier.pas' {fmBaseDialogSupplier},
  BaseDialogSupplierYear in 'Pubilc\BaseDialogSupplierYear.pas' {fmBaseDialogSupplierYear},
  BaseReportDlgCustomerID in 'Pubilc\BaseReportDlgCustomerID.pas' {fmBaseReportDlgCustomerID},
  BaseDialogCustomerYear in 'Pubilc\BaseDialogCustomerYear.pas' {fmBaseDialogCustomerYear},
  BaseDialogCustomerDate in 'Pubilc\BaseDialogCustomerDate.pas' {fmBaseDialogCustomerDate},
  BaseDialogCustomerYearMonth in 'Pubilc\BaseDialogCustomerYearMonth.pas' {fmBaseDialogCustomerYearMonth},
  BaseDialogSupplierDate in 'Pubilc\BaseDialogSupplierDate.pas' {fmBaseDialogSupplierDate},
  BaseDialogSupplierYearMonth in 'Pubilc\BaseDialogSupplierYearMonth.pas' {fmBaseDialogSupplierYearMonth},
  Main in 'Main.pas' {fmMain},
  CA020 in 'ca\CA020.pas' {fmCA020},
  BaseReportDlgDepartmentID in 'Pubilc\BaseReportDlgDepartmentID.pas' {fmBaseReportDlgDepartmentID},
  ChinaCalendar in 'Pubilc\ChinaCalendar.PAS' {fmCalendar},
  LeftBar in 'LeftBar.pas' {FrmLeftBar: TFrame},
  PA010 in 'pa\PA010.pas' {fmPA010},
  SYS040 in 'sys\SYS040.pas' {fmSYS040},
  SYS020 in 'sys\SYS020.pas' {fmSYS020},
  CA010 in 'ca\CA010.pas' {fmCA010},
  CA030 in 'ca\CA030.pas' {fmCA030},
  BaseReport in 'Pubilc\BaseReport.pas' {QuickReport: TQuickRep},
  SUM020 in 'sum\SUM020.pas' {fmSUM020},
  PRI020 in 'pri\PRI020.pas' {fmPRI020},
  SYS010 in 'sys\SYS010.pas' {fmSYS010},
  PRI010 in 'pri\PRI010.pas' {fmPRI010},
  SUM040 in 'sum\SUM040.pas' {fmSUM040},
  SUM100 in 'sum\SUM100.pas' {fmSUM100},
  SUM030 in 'sum\SUM030.pas' {fmSUM030},
  SUM010 in 'sum\SUM010.pas' {fmSUM010},
  SUM060Report in 'sum\SUM060Report.pas' {qrSUM060: TQuickRep},
  SUM050 in 'sum\SUM050.pas' {fmSUM050},
  SUM100Report in 'sum\SUM100Report.pas' {qrSUM100: TQuickRep},
  SUM060 in 'sum\SUM060.pas' {fmSUM060},
  SUM050Report in 'sum\SUM050Report.pas' {qrSUM050: TQuickRep},
  SUM090 in 'sum\SUM090.pas' {fmSUM090},
  SUM070 in 'sum\SUM070.pas' {fmSUM070},
  SUM070Report in 'sum\SUM070Report.pas' {qrSUM070: TQuickRep},
  SUM090Report in 'sum\SUM090Report.pas' {qrSUM090: TQuickRep},
  SUM080 in 'sum\SUM080.pas' {fmSUM080},
  SUM080Report in 'sum\SUM080Report.pas' {qrSUM080: TQuickRep};

{$R *.RES}

begin
  Application.Initialize;
  fmSplash := TfmSplash.Create(Application);
  //fmSplash.CreateOdbc;
  fmSplash.Show;
  fmSplash.Update;
  Application.Title := '密码纸卷管理系统';
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TfmMain, fmMain);
  Application.CreateForm(TfrmPaperPrint, frmPaperPrint);
  Application.CreateForm(TqrSUM060, qrSUM060);
  Application.CreateForm(TqrSUM100, qrSUM100);
  Application.CreateForm(TqrSUM050, qrSUM050);
  Application.CreateForm(TqrSUM070, qrSUM070);
  Application.CreateForm(TqrSUM090, qrSUM090);
  Application.CreateForm(TqrSUM080, qrSUM080);
  fmSplash.Hide;
  fmSplash.Update;
  fmSplash.Free;
  Application.Run;
end.