factory.pas

Delphi6开发的HIS程序

unit Factory;

interface

uses
  UMADMedicineStockView,
  UMADMedicineStockDetail2,
  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,
  UMADRecipe,
  UMADReckoning,
  UMADRmaterial,
  UMADRmedicine,
  UMADRoperation,
  UMADRservice,
  UMADSCOMaterial,
  UMADSCOMedicine,
  UMADSectionOffice,
  UMADSectionOfficeChargeItem,
  UMADService,
  UMADServiceCatalog,
  UMADSick,
  UMADSickness,
  UMADSickNesscatalog,
  UMADSickNesshistory,
  UMADSickNessLevel,
  UMADSickNessState,
  UMADSickRoom,
  UMadSickType,
  UMADSIOMATERIALDETAIL,
  UMADSIOMedicineDetailClean,
  UMADSOOMATERIALDETAIL,
  UMADSOOMedicineDetail,
  UMADStockInOrder,
  UMADStockoutorder,
  UMADTendLevel,
  UMADTimes,
  UMADTollStation,
  UMADTollStationCharge,
  UMADUnits,
  UMADUseMethod,
  UMADWedlock,
  UMQDAccessObject,
  UMDAPrepayMehtod,
  UMDASickroomChargeItem,
  UMADPOMaterialDetailNotCheckIn,
  UMADPOMedicineDetailNotCheckIn,
  UMADMedicineStockGTZ,
  UMADSOOMedicineDetailNOTApprove,
  UMQDTollStation,
  UMQDPrepayHistory,
  UMADSCOMedicineHistory,
  UMADPURChaseOrderHistory,
  UMADPURChaseOrderApprove,
  UMADPCOMedicineHistory,
  UMADStockInOrderHistory,
  UMADStockOutOrderHistory,
  UMADStockInOrderApprove,
  UMADStockOutOrderApprove,
  UMADSIOMedicineDetail,
  UMADPOMedicineDetailRO,
  UMADPURChaseOrderRefer,
  UMQDEmployeeFind,
  UMQMedicineStock,
  UQMedicineStockDetail,
  UMQDSIOMedicineDetailByPK,
  UMQDPStockInOrderByNotApprove;

var
  MedicineStockViewFactory: TMedicineStockViewFactory;
  AccessObjectFactory: TAccessObjectFactory;
  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;
  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;
  RecipeFactory: TRecipeFactory;
  ReckoningFactory: TReckoningFactory;