factory.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

unit Factory;

interface

uses
  UMQDPStockOutOrder,
  UQMedicineStockDetail,
  UMADApproach,
  UMADArea,
  UMADBed,
  UMADBedCatalog,
  UMADBedChargeItem,
  UMADBloodType,
  UMADChargeCatalog,
  UMADChargeItem,
  UMADCheckInMethod,
  UMADCheckOutMethod,
  UMADCountry,
  UMADDAMaterial,
  UMADDAMedicine,
  UMADDAOperation,
  UMADDAService,
  UMADDATemplate,
  UMADDATMaterial,
  UMADDATMedicine,
  UMADDATOperation,
  UMADDATService,
  UMADDepartment,
  UMADDiagnose,
  UMADDoctor,
  UMADDoctorAdvice,
  UMADDoctorAdviceType,
  UMADDoctorCatalog,
  UMADDose,
  UMADEmployee,
  UMADFood,
  UMADFrequencyWeek,
  UMADInpatient,
  UMADJob,
  UMADManufacturer,
  UMADMaterial,
  UMADMaterialCatalog,
  UMADMaterialStock,
  UMADMaterialStockDetail,
  UMADMedicine,
  UMADMedicineCatalog,
  UMADMedicineStock,
  UMADMedicineStockDetail,
  UMADNation,
  UMADNativePlace,
  UMADOperation,
  UMADOperationCatalog,
  UMADPaobject,
  UMADPaymentMethod,
  UMADPCOMaterial,
  UMADPCOMedicine,
  UMADPersonrelation,
  UMADPOMaterialDetail,
  UMADPOMedicineDetail,
  UMADPrepayHistory,
  UMADProfession,
  UMADProvider,
  UMADPSCOMedicine,
  UMADPsiodetail,
  UMADPsoodetail,
  UMADPstockInorder,
  UMADPstockmedicine,
  UMADPstockoutorder,
  UMADPurchaseMethod,
  UMADPURChaseOrder,
  UMADPurview,
  UMADRecipe,
  UMADReckoning,
  UMADRmaterial,
  UMADRmedicine,
  UMADRoperation,
  UMADRservice,
  UMADSCOMaterial,
  UMADSCOMedicine,
  UMADSectionOffice,
  UMADSectionOfficeChargeItem,
  UMADService,
  UMADServiceCatalog,
  UMADSick,
  UMADSickness,
  UMADSickNesscatalog,
  UMADSickNesshistory,
  UMADSickNessLevel,
  UMADSickNessState,
  UMADSickRoom,
  UMadSickType,
  UMADSIOMATERIALDETAIL,
  UMADSIOMedicineDetail,
  UMADSOOMATERIALDETAIL,
  UMADSOOMedicineDetail,
  UMADStockInOrder,
  UMADStockoutorder,
  UMADTendLevel,
  UMADTimes,
  UMADTollStation,
  UMADTollStationCharge,
  UMADUnits,
  UMADUseMethod,
  UMADWedlock,
  UMQDAccessObject,
  UMDAPrepayMehtod,
  UMDASickroomChargeItem,
  UMADPOMaterialDetailNotCheckIn,
  UMADPOMedicineDetailNotCheckIn,
  UMADMedicineStockGTZ,
  UMADSOOMedicineDetailNOTApprove,
  UMQDTollStation,
  UMQDPrepayHistory,
  UMADVPStockMedicine,
  UMADPSCOMedicineHistory,
  UMADPStockOutOrderHistory,
  UMADPstockInorderHistory,
  UMADVRMedicine,
  UMADVRecipeToday,
  UMADVRecipeTodayApprove,
  UMADVRMedicineApprove,
  UMADDepartMentStockOut,
  UMADDepartMentStockOutBack,
  UMQDEmployeeFind,
  UMQMedicineStock,
  UMQDRMedicine;

var
  AccessObjectFactory: TAccessObjectFactory;
  QRMedicineFactory: TQRMedicineFactory;
  ApproachFactory: TApproachFactory;
  AreaFactory: TAreaFactory;
  BedCatalogFactory: TBedCatalogFactory;
  BedChargeItemFactory: TBedChargeItemFactory;
  BedFactory: TBedFactory;
  BloodTypeFactory: TBloodTypeFactory;
  ChargeCatalogFactory: TChargeCatalogFactory;
  ChargeItemFactory: TChargeItemFactory;
  CheckInMethodFactory: TCheckInMethodFactory;
  CheckOutMethodFactory: TCheckOutMethodFactory;
  CountryFactory: TCountryFactory;
  DAMaterialFactory: TDAMaterialFactory;
  DAMedicineFactory: TDAMedicineFactory;
  DAOperationFactory: TDAOperationFactory;
  DAServiceFactory: TDAServiceFactory;
  DATemplateFactory: TDATemplateFactory;
  DATMaterialFactory: TDATMaterialFactory;
  DATMedicineFactory: TDATMedicineFactory;
  DATOperationFactory: TDATOperationFactory;
  DATServiceFactory: TDATServiceFactory;
  DepartmentFactory: TDepartmentFactory;
  DiagnoseFactory: TDiagnoseFactory;
  DoctorAdviceFactory: TDoctorAdviceFactory;
  DoctorAdviceTypeFactory: TDoctorAdviceTypeFactory;
  DoctorCatalogFactory: TDoctorCatalogFactory;
  DoctorFactory: TDoctorFactory;
  DoseFactory: TDoseFactory;
  EmployeeFactory: TEmployeeFactory;
  FoodFactory : TFoodFactory;
  FrequencyWeekFactory: TFrequencyWeekFactory;
  InpatientFactory: TInpatientFactory;
  JobFactory: TJobFactory;
  ManufacturerFactory: TManufacturerFactory;
  MaterialCatalogFactory: TMaterialCatalogFactory;
  MaterialFactory: TMaterialFactory;
  MaterialStockDetailFactory: TMaterialStockDetailFactory;
  MaterialStockFactory: TMaterialStockFactory;
  QMedicineStockDetailFactory: TQMedicineStockDetailFactory;
  MedicineCatalogFactory: TMedicineCatalogFactory;
  MedicineFactory: TMedicineFactory;
  MedicineStockDetailFactory: TMedicineStockDetailFactory;
  MedicineStockFactory: TMedicineStockFactory;
  NationFactory: TNationFactory;
  NativePlaceFactory: TNativePlaceFactory;
  OperationCatalogFactory: TOperationCatalogFactory;
  OperationFactory: TOperationFactory;
  PaobjectFactory: TPaobjectFactory;
  PaymentMethodFactory: TPaymentMethodFactory;
  PCOMaterialFactory: TPCOMaterialFactory;
  PCOMedicineFactory: TPCOMedicineFactory;
  PersonrelationFactory: TPersonrelationFactory;
  POMaterialDetailFactory: TPOMaterialDetailFactory;
  POMedicineDetailFactory: TPOMedicineDetailFactory;
  PrepayHistoryFactory: TPrepayHistoryFactory;
  ProfessionFactory: TProfessionFactory;
  ProviderFactory: TProviderFactory;
  PscomedicineFactory: TPscomedicineFactory;
  PsiodetailFactory: TPsiodetailFactory;
  PsoodetailFactory: TPsoodetailFactory;
  PstockInorderFactory: TPstockInorderFactory;
  PstockmedicineFactory: TPstockmedicineFactory;
  PstockoutorderFactory: TPstockoutorderFactory;
  PurchaseMethodFactory: TPurchaseMethodFactory;
  PURChaseOrderFactory: TPURChaseOrderFactory;
  PURViewFactory: TPURViewFactory;
  RecipeFactory: TRecipeFactory;
  ReckoningFactory: TReckoningFactory;
  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;
  SIOMedicineDetailFactory: TSIOMedicineDetailFactory;
  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;
  VPStockmedicineFactory: TVPStockmedicineFactory;
  PSCOMedicineHistoryFactory: TPSCOMedicineHistoryFactory;
  PStockOutOrderHistoryFactory: TPStockOutOrderHistoryFactory;
  PStockInorderHistoryFactory: TPStockInorderHistoryFactory;
  VRmedicineFactory: TVRmedicineFactory;
  VRecipeTodayFactory: TVRecipeTodayFactory;
  VRecipeTodayApproveFactory: TVRecipeTodayApproveFactory;
  VRmedicineApproveFactory: TVRmedicineApproveFactory;
  DepartMentStockOutFactory: TDepartMentStockOutFactory;
  DepartMentStockOutBackFactory: TDepartMentStockOutBackFactory;
  EmployeeFindFactory: TEmployeeFindFactory;
  QMedicineStockFactory: TQMedicineStockFactory;
  QPStockOutOrderFactory: TQPStockOutOrderFactory;

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;
  PURViewFactory := TPURViewFactory.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;
  SIOMedicineDetailFactory := TSIOMedicineDetailFactory.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;
  VPStockmedicineFactory := TVPStockmedicineFactory.Create;
  PSCOMedicineHistoryFactory := TPSCOMedicineHistoryFactory.Create;
  PStockOutOrderHistoryFactory := TPStockOutOrderHistoryFactory.Create;
  PStockInorderHistoryFactory := TPStockInorderHistoryFactory.Create;
  VRmedicineFactory := TVRmedicineFactory.Create;
  VRecipeTodayFactory := TVRecipeTodayFactory.Create;
  VRecipeTodayApproveFactory := TVRecipeTodayApproveFactory.Create;
  VRmedicineApproveFactory := TVRmedicineApproveFactory.Create;
  DepartMentStockOutFactory := TDepartMentStockOutFactory.Create;
  DepartMentStockOutBackFactory := TDepartMentStockOutBackFactory.Create;
  EmployeeFindFactory := TEmployeeFindFactory.Create;
  QMedicineStockDetailFactory := TQMedicineStockDetailFactory.Create;
  QMedicineStockFactory := TQMedicineStockFactory.Create;
  QRMedicineFactory := TQRMedicineFactory.Create;
  QPStockOutOrderFactory := TQPStockOutOrderFactory.Create;
end;

end.