fhe2.dpr

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

program fhE2;

uses
  Forms,
  Ufhmrp in 'Ufhmrp.pas' {MainForm},
  Unitmb in 'Unitmb.pas' {mbForm},
  datamodule1 in 'datamodule1.pas' {DataE2: TDataModule},
  ITear in 'ITear.pas' {ITearForm},
  report2 in 'report2.pas' {FormRpt1},
  search in 'search.pas' {schConditionForm},
  edit in 'edit.pas' {edtForm},
  information in 'information.pas' {infoForm},
  warehouse in 'warehouse.pas' {wareForm},
  client in 'client.pas' {clientForm},
  department in 'department.pas' {deptForm},
  DataBack in 'DataBack.pas' {Backupform},
  SelectDir in 'SelectDir.pas' {SelectDirform},
  unittype in 'unittype.pas' {unitForm},
  store in 'store.pas' {goodsForm},
  subarea in 'subarea.pas' {areaForm},
  vendor_D in 'vendor_D.pas' {vend_DForm},
  vendor in 'vendor.pas' {vendorForm},
  employee in 'employee.pas' {empForm},
  ClientType in 'ClientType.pas' {ClientTypeForm},
  VendorTYPE in 'VendorTYPE.pas' {vdTypeForm},
  selVC in 'selVC.pas' {dlgSelVC},
  selBill in 'selBill.pas' {dlgSelBill},
  IInStore in 'IInStore.pas' {IInStoreForm},
  IOrder in 'IOrder.pas' {IOrderForm},
  IReturn in 'IReturn.pas' {IReturnForm},
  Dcheck in 'Dcheck.pas' {DcheckForm},
  Dmove in 'Dmove.pas' {DmoveForm},
  Ipay in 'Ipay.pas' {IPayForm},
  selPaytype in 'selPaytype.pas' {dlgSelPaytype},
  DInOut in 'DInOut.pas' {DInOutForm},
  bank in 'bank.pas' {bankForm},
  iotype in 'iotype.pas' {iotypeForm},
  IEType in 'IEType.pas' {IETypeForm},
  PayType in 'PayType.pas' {PayTypeForm},
  Rights in 'Rights.pas' {RightsForm},
  ChgPwd in 'ChgPwd.pas' {ChgPwdForm},
  EventLog in 'EventLog.pas' {EventLogForm},
  GoodType in 'GoodType.pas' {GoodTypeForm},
  infoType in 'infoType.pas' {infoTypeForm},
  sysParam in 'sysParam.pas' {sysParamForm},
  About in 'about.pas' {AboutBox},
  splash1 in 'splash1.pas' {SplashForm},
  login in 'Login.pas' {loginform},
  Operator in 'Operator.pas' {OperatorForm},
  DataClear in 'DataClear.pas' {ClearForm},
  DataDelete in 'DataDelete.pas' {DeleteForm},
  selIoBill in 'selIoBill.pas' {dlgSelIOBill},
  DMaterial in 'DMaterial.pas' {DMaterialForm},
  InfoSch in 'InfoSch.pas' {InfoSchForm},
  selBill1 in 'selBill1.pas' {dlgSelBill1},
  DelphiHtmlHelp in 'DelphiHtmlHelp.pas',
  DInCome in 'DInCome.pas' {DInComeForm},
  PosSch in 'PosSch.pas' {PosSchForm},
  setFields in 'setFields.pas' {DlgSetFields},
  RegCode in 'RegCode.pas' {RegCodeForm},
  BasicData in 'BasicData.pas' {BasicDataForm},
  VIPCards in 'VIPCards.pas' {VIPCardsForm},
  PosMachine in 'PosMachine.pas' {PosMachineForm},
  VIPbatch in 'VIPbatch.pas' {VIPbatchForm},
  TreeEditBase in 'TreeEditBase.pas' {TreeEditBaseForm},
  SelectGoods in 'SelectGoods.pas' {SelectGoodsForm},
  Account in 'Account.pas' {AccountForm},
  flash in 'flash.pas' {FlashForm},
  infoNew in 'infoNew.pas' {InfoNewForm},
  DRepair in 'DRepair.pas' {DRepairForm},
  CusFile in 'CusFile.pas' {CusFileForm},
  TreeGoodsType in 'TreeGoodsType.pas' {TreeGoodsTypeFrm},
  TreeIEType in 'TreeIEType.pas' {TreeIETypefrm},
  Audit in 'Audit.pas' {AuditFrm},
  PosRight in 'PosRight.pas' {PosRightfrm},
  BankInOut in 'BankInOut.pas' {BankInOutFrm},
  ioGas in 'ioGas.pas' {IOGasForm};

{$R *.RES}
var
  i:integer;
begin
  Application.Initialize;
  SplashForm := TSplashForm.Create(Application);
  SplashForm.show;
  SplashForm.update;

  SplashForm.Progress1.position:=3;
  Application.CreateForm(TDataE2, DataE2);
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TOperatorForm, OperatorForm);
  Application.CreateForm(TClearForm, ClearForm);
  Application.CreateForm(TDeleteForm, DeleteForm);
  Application.CreateForm(TdlgSelIOBill, dlgSelIOBill);
  Application.CreateForm(TDMaterialForm, DMaterialForm);
  Application.CreateForm(TInfoSchForm, InfoSchForm);
  Application.CreateForm(TdlgSelBill1, dlgSelBill1);
  Application.CreateForm(TDlgSetFields, DlgSetFields);
  Application.CreateForm(TRegCodeForm, RegCodeForm);
  Application.CreateForm(TTreeEditBaseForm, TreeEditBaseForm);
  Application.CreateForm(TSelectGoodsForm, SelectGoodsForm);
  Application.CreateForm(TAccountForm, AccountForm);
  Application.CreateForm(TFlashForm, FlashForm);
  Application.CreateForm(TInfoNewForm, InfoNewForm);
  Application.CreateForm(TTreeGoodsTypeFrm, TreeGoodsTypeFrm);
  Application.CreateForm(TTreeIETypefrm, TreeIETypefrm);
  Application.CreateForm(TIOGasForm, IOGasForm);
  SplashForm.Progress1.position:=10;
  Application.CreateForm(TBasicDataForm, BasicDataForm);
  Application.CreateForm(TVIPCardsForm, VIPCardsForm);
  Application.CreateForm(TCusFileForm, CusFileForm);
  SplashForm.Progress1.position:=20;
  Application.CreateForm(TFormRpt1, FormRpt1);
  Application.CreateForm(TschconditionForm, schconditionForm);
  Application.CreateForm(TedtForm, edtForm);
  SplashForm.Progress1.position:=30;
  Application.CreateForm(TinfoForm, infoForm);
  Application.CreateForm(TwareForm, wareForm);
  Application.CreateForm(TclientForm, clientForm);
  SplashForm.Progress1.position:=40;
  Application.CreateForm(TdeptForm, deptForm);
  Application.CreateForm(TBackupform, Backupform);
  Application.CreateForm(TSelectDirform, SelectDirform);
  SplashForm.Progress1.position:=50;
  Application.CreateForm(TunitForm, unitForm);
  Application.CreateForm(TgoodsForm, goodsForm);
  Application.CreateForm(TareaForm, areaForm);
  Application.CreateForm(Tvend_DForm, vend_DForm);
  SplashForm.Progress1.position:=60;
  Application.CreateForm(TvendorForm, vendorForm);
  Application.CreateForm(TempForm, empForm);
  Application.CreateForm(TClientTypeForm, ClientTypeForm);
  Application.CreateForm(TvdTypeForm, vdTypeForm);
  SplashForm.Progress1.position:=70;
  Application.CreateForm(TdlgSelVC, dlgSelVC);
  Application.CreateForm(TdlgSelBill, dlgSelBill);
  Application.CreateForm(TdlgSelPaytype, dlgSelPaytype);
  Application.CreateForm(TbankForm, bankForm);
  SplashForm.Progress1.position:=80;
  Application.CreateForm(TiotypeForm, iotypeForm);
  Application.CreateForm(TIETypeForm, IETypeForm);
  Application.CreateForm(TPayTypeForm, PayTypeForm);
  //Application.CreateForm(TRightsForm, RightsForm);
  Application.CreateForm(TChgPwdForm, ChgPwdForm);
  SplashForm.Progress1.position:=90;
  Application.CreateForm(TEventLogForm, EventLogForm);
  Application.CreateForm(TGoodTypeForm, GoodTypeForm);
  Application.CreateForm(TinfoTypeForm, infoTypeForm);
  Application.CreateForm(TsysParamForm, sysParamForm);
  Application.CreateForm(TAboutBox, AboutBox);
  SplashForm.Progress1.position:=100;
  SplashForm.Hide;
  SplashForm.free;

  try //当窗体绘制的时候，弹出登陆对话框
    Application.CreateForm(TAccountform, Accountform);
    i:=Accountform.ShowModal; //mrCancel
    if i<>2 then
    begin
      Application.CreateForm(Tloginform, loginform);
      loginform.ShowModal;
    end;
  finally
    //Loginform.Free;
  end;

  if i<>2 then
    Application.Run;
end.