factory.pas

Delphi6开发的HIS程序

  RmaterialFactory: TRmaterialFactory;
  RmedicineFactory: TRmedicineFactory;
  RoperationFactory: TRoperationFactory;
  RserviceFactory: TRserviceFactory;
  SCOMaterialFactory: TSCOMaterialFactory;
  SCOMedicineFactory: TSCOMedicineFactory;
  SectionOfficeChargeItemFactory: TSectionOfficeChargeItemFactory;
  SectionOfficeFactory: TSectionOfficeFactory;
  ServiceCatalogFactory: TServiceCatalogFactory;
  ServiceFactory: TServiceFactory;
  SickFactory: TSickFactory;
  SickNesscatalogFactory: TSickNesscatalogFactory;
  SicknessFactory: TSicknessFactory;
  SickNesshistoryFactory: TSickNesshistoryFactory;
  SickNessLevelFactory: TSickNessLevelFactory;
  SickNessStateFactory: TSickNessStateFactory;
  SickroomChargeItemFactory: TSickroomChargeItemFactory;
  SickRoomFactory: TSickRoomFactory;
  SickTypeFactory: TSickTypeFactory;
  SIOMaterialDetailFactory: TSIOMaterialDetailFactory;
  SIOMedicineDetailCleanFactory: TSIOMedicineDetailCleanFactory;
  SOOMaterialDetailFactory: TSOOMaterialDetailFactory;
  SOOMedicineDetailFactory: TSOOMedicineDetailFactory;
  StockInOrderFactory: TStockinorderFactory;
  StockOutOrderFactory: TStockoutorderFactory;
  TendLevelFactory: TTendLevelFactory;
  TimesFactory: TTimesFactory;
  TollStationChargeFactory: TTollStationChargeFactory;
  TollStationFactory: TTollStationFactory;
  UnitsFactory: TUnitsFactory;
  UseMethodFactory: TUseMethodFactory;
  WedlockFactory: TWedlockFactory;
  PrepayMehtodFactory: TPrepayMehtodFactory;
  POMaterialDetailNotCheckInFactory: TPOMaterialDetailNotCheckInFactory;
  POMedicineDetailNotCheckInFactory: TPOMedicineDetailNotCheckInFactory;
  MedicineStockGTZFactory: TMedicineStockGTZFactory;
  SOOMedicineDetailNOTApproveFactory: TSOOMedicineDetailNOTApproveFactory;
  QTollStationFactory: TQTollStationFactory;
  QPrepayHistoryFactory: TQPrepayHistoryFactory;
  SCOMedicineHistoryFactory: TSCOMedicineHistoryFactory;
  PURChaseOrderApproveFactory: TPURChaseOrderApproveFactory;
  PURChaseOrderHistoryFactory: TPURChaseOrderHistoryFactory;
  PCOMedicineHistoryFactory: TPCOMedicineHistoryFactory;
  StockinorderHistoryFactory: TStockinorderHistoryFactory;
  StockoutorderHistoryFactory: TStockoutorderHistoryFactory;
  StockinorderApproveFactory: TStockinorderApproveFactory;
  StockoutorderApproveFactory: TStockoutorderApproveFactory;
  SIOMedicineDetailFactory: TSIOMedicineDetailFactory;
  POMedicineDetailROFactory: TPOMedicineDetailROFactory;
  PURChaseOrderReferFactory: TPURChaseOrderReferFactory;
  EmployeeFindFactory: TEmployeeFindFactory;
  QMedicineStockFactory: TQMedicineStockFactory;
  QMedicineStockDetailFactory: TQMedicineStockDetailFactory;
  SIOMedicineDetailByPKFactory: TSIOMedicineDetailByPKFactory;
  PStockInOrderByNotApproveFactory: TPStockInOrderByNotApproveFactory;
  MedicineStockDetail2Factory: TMedicineStockDetail2Factory;

procedure MyInitialize;

implementation

uses
  Dialogs;

procedure MyInitialize;
begin
  AccessObjectFactory := TAccessObjectFactory.Create;
  ApproachFactory := TApproachFactory.Create;
  AreaFactory := TAreaFactory.Create;
  BedCatalogFactory := TBedCatalogFactory.Create;
  BedChargeItemFactory := TBedChargeItemFactory.Create;
  BedFactory := TBedFactory.Create;
  BloodTypeFactory := TBloodTypeFactory.Create;
  ChargeCatalogFactory := TChargeCatalogFactory.Create;
  ChargeitemFactory := TChargeitemFactory.Create;          
  CheckInMethodFactory := TCheckInMethodFactory.Create;
  CheckOutMethodFactory := TCheckOutMethodFactory.Create;
  CountryFactory := TCountryFactory.Create;
  DAMaterialFactory := TDAMaterialFactory.Create;
  DAMedicineFactory := TDAMedicineFactory.Create;
  DAOperationFactory := TDAOperationFactory.Create;
  DAServiceFactory := TDAServiceFactory.Create;
  DATemplateFactory := TDATemplateFactory.Create;
  DATMaterialFactory := TDATMaterialFactory.Create;
  DATMedicineFactory := TDATMedicineFactory.Create;
  DATOperationFactory := TDATOperationFactory.Create;
  DATServiceFactory := TDATServiceFactory.Create;
  DepartmentFactory := TDepartmentFactory.Create;
  DiagnoseFactory := TDiagnoseFactory.Create;
  DoctorAdviceFactory := TDoctorAdviceFactory.Create;
  DoctorAdviceTypeFactory := TDoctorAdviceTypeFactory.Create;
  DoctorCatalogFactory := TDoctorCatalogFactory.Create;
  DoctorFactory := TDoctorFactory.Create;
  DoseFactory := TDoseFactory.Create;
  EmployeeFactory := TEmployeeFactory.Create;
  FoodFactory := TFoodFactory.Create;
  FrequencyWeekFactory := TFrequencyWeekFactory.Create;
  InpatientFactory := TInpatientFactory.Create;
  JobFactory := TJobFactory.Create;
  ManufacturerFactory := TManufacturerFactory.Create;
  MaterialCatalogFactory := TMaterialCatalogFactory.Create;
  MaterialFactory := TMaterialFactory.Create;
  MaterialStockDetailFactory := TMaterialStockDetailFactory.Create;
  MaterialStockFactory := TMaterialStockFactory.Create;
  MedicineCatalogFactory := TMedicineCatalogFactory.Create;
  MedicineFactory := TMedicineFactory.Create;
  MedicineStockDetailFactory := TMedicineStockDetailFactory.Create;
  MedicineStockFactory := TMedicineStockFactory.Create;
  NationFactory := TNationFactory.Create;
  NativePlaceFactory := TNativePlaceFactory.Create;
  OperationCatalogFactory := TOperationCatalogFactory.Create;
  OperationFactory := TOperationFactory.Create;
  PaobjectFactory := TPaobjectFactory.Create;
  PaymentmethodFactory := TPaymentmethodFactory.Create;
  PCOMaterialFactory := TPCOMaterialFactory.Create;
  PCOMedicineFactory := TPCOMedicineFactory.Create;
  PersonrelationFactory := TPersonrelationFactory.Create;
  POMaterialDetailFactory := TPOMaterialDetailFactory.Create;
  POMedicineDetailFactory := TPOMedicineDetailFactory.Create;
  PrepayHistoryFactory := TPrepayHistoryFactory.Create;
  PrepayHistoryFactory := TPrepayHistoryFactory.Create;
  ProfessionFactory := TProfessionFactory.Create;
  ProviderFactory := TProviderFactory.Create;
  PscomedicineFactory := TPscomedicineFactory.Create;
  PsiodetailFactory := TPsiodetailFactory.Create;
  PsoodetailFactory := TPsoodetailFactory.Create;
  PstockInorderFactory := TPstockInorderFactory.Create;
  PstockmedicineFactory := TPstockmedicineFactory.Create;
  PstockoutorderFactory := TPstockoutorderFactory.Create;
  PurchaseMethodFactory := TPurchaseMethodFactory.Create;
  PURChaseOrderFactory := TPURChaseOrderFactory.Create;
  RecipeFactory := TRecipeFactory.Create;
  ReckoningFactory := TReckoningFactory.Create;
  RmaterialFactory := TRmaterialFactory.Create;
  RmedicineFactory := TRmedicineFactory.Create;
  RoperationFactory := TRoperationFactory.Create;
  RserviceFactory := TRserviceFactory.Create;
  SCOMaterialFactory := TSCOMaterialFactory.Create;
  SCOMedicineFactory := TSCOMedicineFactory.Create;
  SectionOfficeChargeItemFactory := TSectionOfficeChargeItemFactory.Create;
  SectionOfficeFactory := TSectionOfficeFactory.Create;
  ServiceCatalogFactory := TServiceCatalogFactory.Create;
  ServiceFactory := TServiceFactory.Create;
  SickFactory := TSickFactory.Create;
  SickNesscatalogFactory := TSickNesscatalogFactory.Create;
  SicknessFactory := TSicknessFactory.Create;
  SickNesshistoryFactory := TSickNesshistoryFactory.Create;
  SickNessLevelFactory := TSickNessLevelFactory.Create;
  SickNessStateFactory := TSickNessStateFactory.Create;
  SickroomChargeItemFactory := TSickroomChargeItemFactory.Create;
  SickRoomFactory := TSickRoomFactory.Create;
  SickTypeFactory := TSickTypeFactory.Create;
  SIOMaterialDetailFactory := TSIOMaterialDetailFactory.Create;
  SIOMedicineDetailCleanFactory := TSIOMedicineDetailCleanFactory.Create;
  SOOMaterialDetailFactory := TSOOMaterialDetailFactory.Create;
  SOOMedicineDetailFactory := TSOOMedicineDetailFactory.Create;
  StockInOrderFactory := TStockinorderFactory.Create;
  StockoutorderFactory := TStockoutorderFactory.Create;
  TendLevelFactory := TTendLevelFactory.Create;
  TimesFactory := TTimesFactory.Create;
  TollStationChargeFactory := TTollStationChargeFactory.Create;
  TollStationFactory := TTollStationFactory.Create;
  UnitsFactory := TUnitsFactory.Create;
  UseMethodFactory := TUseMethodFactory.Create;
  WedlockFactory := TWedlockFactory.Create;
  PrepayMehtodFactory := TPrepayMehtodFactory.Create;
  POMaterialDetailNotCheckInFactory := TPOMaterialDetailNotCheckInFactory.Create;
  POMedicineDetailNotCheckInFactory := TPOMedicineDetailNotCheckInFactory.Create;
  MedicineStockGTZFactory := TMedicineStockGTZFactory.Create;
  SOOMedicineDetailNOTApproveFactory := TSOOMedicineDetailNOTApproveFactory.Create;
  QTollStationFactory := TQTollStationFactory.Create;
  QPrepayHistoryFactory := TQPrepayHistoryFactory.Create;
  SCOMedicineHistoryFactory := TSCOMedicineHistoryFactory.Create;
  PURChaseOrderApproveFactory := TPURChaseOrderApproveFactory.Create;
  PURChaseOrderHistoryFactory := TPURChaseOrderHistoryFactory.Create;
  PCOMedicineHistoryFactory := TPCOMedicineHistoryFactory.Create;
  StockinorderHistoryFactory := TStockinorderHistoryFactory.Create;
  StockoutorderHistoryFactory := TStockoutorderHistoryFactory.Create;
  StockinorderApproveFactory := TStockinorderApproveFactory.Create;
  StockoutorderApproveFactory := TStockoutorderApproveFactory.Create;
  SIOMedicineDetailFactory := TSIOMedicineDetailFactory.Create;
  POMedicineDetailROFactory := TPOMedicineDetailROFactory.Create;
  PURChaseOrderReferFactory := TPURChaseOrderReferFactory.Create;
  MedicineStockViewFactory := TMedicineStockViewFactory.Create;
  EmployeeFindFactory := TEmployeeFindFactory.Create;
  QMedicineStockFactory := TQMedicineStockFactory.Create;
  QMedicineStockDetailFactory := TQMedicineStockDetailFactory.Create;
  SIOMedicineDetailByPKFactory := TSIOMedicineDetailByPKFactory.Create;
  PStockInOrderByNotApproveFactory := TPStockInOrderByNotApproveFactory.Create;
  MedicineStockDetail2Factory := TMedicineStockDetail2Factory.Create;
end;

end.