warehousemanage.dpr

仓库管理系统 貌似是ACCESS的数据库

program WarehouseManage;

uses
  Forms,
  Controls,
  sysutils,
  Main_Unit in '..\Units\Main_Unit.pas' {frmWarehouseMain},
  DM_Unit in '..\Units\DM_Unit.pas' {DM: TDataModule},
  Splash_Unit in '..\Units\Splash_Unit.pas' {frmSplash},
  OperatorLogin_Unit in '..\Units\OperatorLogin_Unit.pas' {frmOperatorLogin},
  About_Unit in '..\Units\About_Unit.pas' {frmAbout},
  Operators_Unit in '..\Units\Operators_Unit.pas' {frmOperators},
  OPwdAlter_Unit in '..\Units\OPwdAlter_Unit.pas' {frmOPwdAlter},
  MaterialType_Unit in '..\Units\MaterialType_Unit.pas' {frmMaterialType},
  MaterialInfo_Unit in '..\Units\MaterialInfo_Unit.pas' {frmMaterialInfo},
  WareInfo_Unit in '..\Units\WareInfo_Unit.pas' {frmWareInfo},
  Vendor_Unit in '..\Units\Vendor_Unit.pas' {frmVendor},
  Customer_Unit in '..\Units\Customer_Unit.pas' {frmCustomer},
  WarehouseInSearch_Unit in '..\Units\WarehouseInSearch_Unit.pas' {frmWarehouseInSearch},
  WarehouseOutSearch_Unit in '..\Units\WarehouseOutSearch_Unit.pas' {frmWarehouseOutSearch},
  WarehouseSearch_Unit in '..\Units\WarehouseSearch_Unit.pas' {frmWarehouseSearch},
  SpellInputUnit in '..\Units\SpellInputUnit.pas' {frmSpellInput},
  SpellInputDMUnit in '..\Units\SpellInputDMUnit.pas' {SpellInputDM: TDataModule},
  WarehouseInUnit in '..\Units\WarehouseInUnit.pas' {frmWarehouseIn},
  MaterialInfoSearchUnit in '..\Units\MaterialInfoSearchUnit.pas' {frmMaterialSearch},
  MaterialSearchDMUnit in '..\Units\MaterialSearchDMUnit.pas' {DMMaterial: TDataModule},
  WarehouseOutUnit in '..\Units\WarehouseOutUnit.pas' {frmWarehouseOut},
  CheckInfoUnit in '..\Units\CheckInfoUnit.pas' {frmCheckInfo},
  WarehouseInPrint in '..\Units\WarehouseInPrint.pas' {WarehouseInQRP: TQuickRep},
  WarehouseOutPrintUnit in '..\Units\WarehouseOutPrintUnit.pas' {WarehouseOutQRP: TQuickRep};

{$R *.res}

begin
  Application.Initialize;
  frmSplash := TfrmSplash.Create(Application);
  frmSplash.Show;
  Application.ProcessMessages;
  frmSplash.Update;
  Application.CreateForm(TfrmWarehouseMain, frmWarehouseMain);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TSpellInputDM, SpellInputDM);
  Application.CreateForm(TDMMaterial, DMMaterial);
  Application.CreateForm(TfrmMaterialSearch, frmMaterialSearch);
  if Assigned(frmSplash) then
    frmSplash.Free;
  frmOperatorLogin := TfrmOperatorLogin.Create(Application);
  frmOperatorLogin.ShowModal;
  Application.Run;
end.