⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 winsale.dpr

📁 进销存管理 编译环境Delphi7+Win2000 用到的控件 ReportMachine2.6 InfoPower4000Pro_vcl7 RxLib2.7 SkinEngine 3
💻 DPR
字号:
program WinSale;

{$R 'Resource.res' 'Resource.rc'}

uses
  Forms,
  BaseForm in 'Unit\BaseForm.pas' {frmBaseForm},
  DBData in 'Unit\DBData.pas' {frmData: TDataModule},
  EditForm in 'Unit\EditForm.pas' {frmEditForm},
  Base2InfoEmp in 'Unit\Base2InfoEmp.pas' {frmBase2InfoEmp},
  Base2InfoUnit in 'Unit\Base2InfoUnit.pas' {frmBase2InfoUnit},
  Base2InfoWare in 'Unit\Base2InfoWare.pas' {frmBase2InfoWare},
  BaseBillEdit in 'Unit\BaseBillEdit.pas' {frmBaseBillEdit},
  Base1InfoEdit in 'Unit\Base1InfoEdit.pas' {frmBase1InfoEdit},
  BillEdit in 'Unit\BillEdit.pas' {frmBillEdit},
  ListForm in 'Unit\ListForm.pas' {frmListForm},
  LoginForm in 'Unit\LoginForm.pas' {frmLoginForm},
  LoginFromEdit in 'Unit\LoginFromEdit.pas' {frmLoginFromEdit},
  LoginFromPass in 'Unit\LoginFromPass.pas' {frmLoginFromPass},
  ListBoxForm in 'Unit\ListBoxForm.pas' {frmListBoxForm},
  Base1Info in 'Unit\Base1Info.pas' {frmBase1Info},
  BillQuery in 'Unit\BillQuery.pas' {frmBillQuery},
  SysPublic in 'Unit\SysPublic.pas',
  TableCreate in 'Unit\TableCreate.pas',
  MainWindow in 'Unit\MainWindow.pas' {frmMainWindow},
  BillSetup in 'Unit\BillSetup.pas' {frmBillSetup},
  BillSetupEdit in 'Unit\BillSetupEdit.pas' {frmBillSetupEdit},
  Base2InfoFixAdd in 'Unit\Base2InfoFixAdd.pas' {frmBase2InfoFixAdd},
  Base2InfoFixDec in 'Unit\Base2InfoFixDec.pas' {frmBase2InfoFixDec},
  FindPublic in 'Unit\FindPublic.pas' {frmFindPublic},
  FilterPublic in 'Unit\FilterPublic.pas' {frmFilterPublic},
  PrintForm in 'Unit\PrintForm.pas' {frmPrintForm},
  LoginFace in 'Unit\LoginFace.pas' {frmLoginFace},
  Base2InfoSubject in 'Unit\Base2InfoSubject.pas' {frmBase2InfoSubject},
  ReadQuery in 'Unit\ReadQuery.pas' {frmReadQuery},
  Base2Info in 'Unit\Base2Info.pas' {frmBase2Info},
  SysReset in 'Unit\SysReset.pas' {frmSysReset},
  RadioGroupForm in 'Unit\RadioGroupForm.pas' {frmRadioGroupForm},
  DateForm in 'Unit\DateForm.pas' {frmDateForm},
  DelphiHtmlHelp in 'Unit\DelphiHtmlHelp.pas',
  SetFormStyle in 'Unit\SetFormStyle.pas' {frmSetFormStyle},
  Base2InfoDepot in 'Unit\Base2InfoDepot.pas' {frmBase2InfoDepot},
  BaseAccountVoucher in 'Unit\BaseAccountVoucher.pas' {frmBaseAccountVoucher},
  AccountVoucher in 'Unit\AccountVoucher.pas' {frmAccountVoucher},
  SQLExecuteForm in 'Unit\SQLExecuteForm.pas' {frmSQLExecuteForm},
  AccountQuery in 'Unit\AccountQuery.pas' {frmAccountQuery},
  ColSetupForm in 'Unit\ColSetupForm.pas' {frmColSetup},
  IMCode in 'Unit\IMCode.pas',
  UserLimitForm in 'Unit\UserLimitForm.pas' {frmUserLimit},
  Base2InfoWageProcedure in 'Unit\Base2InfoWageProcedure.pas' {frmBase2InfoWageProcedure},
  ExpressionForm in 'Unit\ExpressionForm.pas' {frmExpression},
  Base2InfoWageItem in 'Unit\Base2InfoWageItem.pas' {frmBase2InfoWageItem},
  ChangePassForm in 'Unit\ChangePassForm.pas' {frmChangePass},
  AboutForm in 'Unit\AboutForm.pas' {frmAboutForm},
  GridSaveAsForm in 'Unit\GridSaveAsForm.pas' {frmGridSaveAs},
  UpdateSD3000 in 'Unit\UpdateSD3000.pas' {frmUpdateSD3000},
  Compile_Calc in 'Unit\Compile_Calc.pas',
  GB2312ToBIG5 in 'Unit\GB2312ToBIG5.pas',
  BackupAccountForm in 'Unit\BackupAccountForm.pas' {frmBackupAccount},
  AccountInfoForm in 'Unit\AccountInfoForm.pas' {frmAccountInfo},
  SoftRegisterForm in 'Unit\SoftRegisterForm.pas' {frmSoftRegister},
  DiskSerialNumber in 'Unit\DiskSerialNumber.pas',
  PrintChartSetup in 'Unit\PrintChartSetup.pas' {frmPrintChartSetup},
  GridRowEdit in 'Unit\GridRowEdit.pas' {frmGridRowEdit},
  ExistBillEdit in 'Unit\ExistBillEdit.pas' {frmExistBillEdit},
  FixDepDlg in 'Unit\FixDepDlg.pas' {frmFixDepDlg},
  AgentDialog in 'Unit\AgentDialog.pas' {frmAgentDialog},
  BaseInfo in 'Unit\BaseInfo.pas' {frmBaseInfo},
  BaseInfoEdit in 'Unit\BaseInfoEdit.pas' {frmBaseInfoEdit},
//  RM_chart in 'VCL\ReportMachineSource5,6\Source\RM_chart.pas' {RMChartForm};
  RM_chart in 'Unit\RM_chart.pas' {RMChartForm};

{$R *.Res}

begin
  Application.Initialize;
  Application.Title := 'XXX财务进销存';
  frmLoginFace := TfrmLoginFace.Create(Application);
  frmLoginFace.Show;
  frmLoginFace.Update;
  Application.CreateForm(TfrmData, frmData);
  Application.CreateForm(TfrmMainWindow, frmMainWindow);
  frmLoginFace.Free;
  Application.Run;
end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -