smallstruct.dpr

Delphi6开发的HIS程序

program SmallStruct;

uses
  Forms,
  Dialogs,
  Factory in 'SmallStruct\Test\Factory.pas',
  MyController in 'SmallStruct\Interface\MyController.pas',
  MyException in 'SmallStruct\Exception\MyException.pas',
  MyFactory in 'SmallStruct\Model\MyFactory.pas',
  MyModel in 'SmallStruct\Interface\MyModel.pas',
  MySecurity in 'SmallStruct\Interface\MySecurity.pas',
  MySystem in 'SmallStruct\Interface\MySystem.pas',
  MyTools in 'SmallStruct\Tools\MyTools.pas',
  MyView in 'SmallStruct\Interface\MyView.pas',
  UAdapterDataGridView in 'SmallStruct\View\UAdapterDataGridView.pas' {AdapterDataGridView: TFrame},
  UAdapterDataItemsView in 'SmallStruct\View\UAdapterDataItemsView.pas' {AdapterDataItemsView: TFrame},
  UAdapterDataItemView in 'SmallStruct\View\UAdapterDataItemView.pas' {AdapterDataItemView: TFrame},
  UAdapterDataModel in 'SmallStruct\Model\UAdapterDataModel.pas' {AdapterDataModel: TDataModule},
  UAdapterDataPagesView in 'SmallStruct\Controller\UAdapterDataPagesView.pas' {AdapterDataPagesView: TFrame},
  UAdapterDataView in 'SmallStruct\View\UAdapterDataView.pas' {AdapterDataView: TFrame},
  UCloneDataModel in 'SmallStruct\Model\UCloneDataModel.pas' {CloneDataModel: TDataModule},
  UControllerView in 'SmallStruct\Controller\UControllerView.pas' {ControllerView: TFrame},
  UDataGridView in 'SmallStruct\View\UDataGridView.pas' {DataGridView: TFrame},
  UDataItemsView in 'SmallStruct\View\UDataItemsView.pas' {DataItemsView: TFrame},
  UDataItemView in 'SmallStruct\View\UDataItemView.pas' {DataItemView: TFrame},
  UDataModel in 'SmallStruct\Model\UDataModel.pas' {DataModel: TDataModule},
  UDataView in 'SmallStruct\View\UDataView.pas' {DataView: TFrame},
  UDialogDataItemsView in 'SmallStruct\Dialog\UDialogDataItemsView.pas' {DialogDataItemsView},
  UDialogDataItemView in 'SmallStruct\Dialog\UDialogDataItemView.pas' {DialogDataItemView},
  UFMain in 'SmallStruct\Test\UFMain.pas' {FMain},
  ULDialog in 'SmallStruct\Dialog\ULDialog.pas' {LDialog},
  UMasterAdapterDataGridView in 'SmallStruct\View\UMasterAdapterDataGridView.pas' {MasterAdapterDataGridView: TFrame},
  UModel in 'SmallStruct\Model\UModel.pas' {Model: TDataModule},
  UMPDatabase in 'SmallStruct\Test\UMPDatabase.pas' {MPDatabase: TDataModule},
  UMPSysEnv in 'SmallStruct\Test\UMPSysEnv.pas' {MPSysEnv: TDataModule},
  UMyDialog in 'SmallStruct\Dialog\UMyDialog.pas' {MyDialog},
  UMyForm in 'SmallStruct\Form\UMyForm.pas' {MyForm},
  UPagesView in 'SmallStruct\Controller\UPagesView.pas' {PagesView: TFrame},
  UPersistModel in 'SmallStruct\Model\UPersistModel.pas' {PersistModel: TDataModule},
  UPrimaryDataModel in 'SmallStruct\Model\UPrimaryDataModel.pas' {PrimaryDataModel: TDataModule},
  UQueryDataModel in 'SmallStruct\Model\UQueryDataModel.pas' {QueryDataModel: TDataModule},
  USurrogateAdapterDataView in 'SmallStruct\View\USurrogateAdapterDataView.pas' {SurrogateAdapterDataView: TFrame},
  USurrogateDataView in 'SmallStruct\View\USurrogateDataView.pas' {SurrogateDataView: TFrame},
  USurrogateView in 'SmallStruct\View\USurrogateView.pas' {SurrogateView: TFrame},
  UView in 'SmallStruct\View\UView.pas' {View: TFrame},
  UMADApproach in 'App\Model\Approach\UMADApproach.pas' {MADApproach: TDataModule},
  UMADArea in 'App\Model\Area\UMADArea.pas' {MADArea: TDataModule},
  UMADBed in 'App\Model\Bed\UMADBed.pas' {MADBed: TDataModule},
  UMADBedCatalog in 'App\Model\BedCatalog\UMADBedCatalog.pas' {MADBedCatalog: TDataModule},
  UMADBedChargeItem in 'App\Model\BedChargeItem\UMADBedChargeItem.pas' {MADBedChargeItem: TDataModule},
  UMADBloodType in 'App\Model\BloodType\UMADBloodType.pas' {MADBloodType: TDataModule},
  UMADChargeCatalog in 'App\Model\ChargeCatalog\UMADChargeCatalog.pas' {MADChargeCatalog: TDataModule},
  UMADChargeItem in 'App\Model\ChargeItem\UMADChargeItem.pas' {MADChargeItem: TDataModule},
  UMADCheckInMethod in 'App\Model\CheckInMethod\UMADCheckInMethod.pas' {MADCheckInMethod: TDataModule},
  UMADCheckOutMethod in 'App\Model\CheckOutMethod\UMADCheckOutMethod.pas' {MADCheckOutMethod: TDataModule},
  UMADCountry in 'App\Model\Country\UMADCountry.pas' {MADCountry: TDataModule},
  UMADDAExecuted in 'App\Model\Inpatient\UMADDAExecuted.pas' {MADDAExecuted: TDataModule},
  UMADDAInput in 'App\Model\Inpatient\UMADDAInput.pas' {MADDAInput: TDataModule},
  UMADDAMaterial in 'App\Model\DAMaterial\UMADDAMaterial.pas' {MADDAMaterial: TDataModule},
  UMADDAMedicine in 'App\Model\DAMedicine\UMADDAMedicine.pas' {MADDAMedicine: TDataModule},
  UMADDAOperation in 'App\Model\DAOperation\UMADDAOperation.pas' {MADDAOperation: TDataModule},
  UMADDAQuery in 'App\Model\Inpatient\UMADDAQuery.pas' {MADDAQuery: TDataModule},
  UMADDAService in 'App\Model\DAService\UMADDAService.pas' {MADDAService: TDataModule},
  UMADDATemplate in 'App\Model\DATemplate\UMADDATemplate.pas' {MADDATemplate: TDataModule},
  UMADDATMaterial in 'App\Model\DATMaterial\UMADDATMaterial.pas' {MADDATMaterial: TDataModule},
  UMADDATMedicine in 'App\Model\DATMedicine\UMADDATMedicine.pas' {MADDATMedicine: TDataModule},
  UMADDATOperation in 'App\Model\DATOperation\UMADDATOperation.pas' {MADDATOperation: TDataModule},
  UMADDATService in 'App\Model\DATService\UMADDATService.pas' {MADDATService: TDataModule},
  UMADDepartment in 'App\Model\Department\UMADDepartment.pas' {MADDepartment: TDataModule},
  UMADDiagnose in 'App\Model\Diagnose\UMADDiagnose.pas' {MADDiagnose: TDataModule},
  UMADDoctor in 'App\Model\Doctor\UMADDoctor.pas' {MADDoctor: TDataModule},
  UMADDoctorAdvice in 'App\Model\DoctorAdvice\UMADDoctorAdvice.pas' {MADDoctorAdvice: TDataModule},
  UMADDoctorAdviceType in 'App\Model\DoctorAdviceType\UMADDoctorAdviceType.pas' {MADDoctorAdviceType: TDataModule},
  UMADDoctorCatalog in 'App\Model\DoctorCatalog\UMADDoctorCatalog.pas' {MADDoctorCatalog: TDataModule},
  UMADDoctorStation in 'App\Model\Doctor\UMADDoctorStation.pas' {MADDoctorStation: TDataModule},
  UMADDoctorToll in 'App\Model\Doctor\UMADDoctorToll.pas' {MADDoctorToll: TDataModule},
  UMADDose in 'App\Model\Dose\UMADDose.pas' {MADDose: TDataModule},
  UMADEmployee in 'App\Model\Employee\UMADEmployee.pas' {MADEmployee: TDataModule},
  UMADFood in 'App\Model\Food\UMADFood.pas' {MADFood: TDataModule},
  UMADFrequencyWeek in 'App\Model\FrequencyWeek\UMADFrequencyWeek.pas' {MADFrequencyWeek: TDataModule},
  UMADInpatient in 'App\Model\Inpatient\UMADInpatient.pas' {MADInpatient: TDataModule},
  UMADInpatientStation in 'App\Model\Inpatient\UMADInpatientStation.pas' {MADInpatientStation: TDataModule},
  UMADInpatientStationOut in 'App\Model\Inpatient\UMADInpatientStationOut.pas' {MADInpatientStationOut: TDataModule},
  UMADJob in 'App\Model\JOb\UMADJob.pas' {MADJob: TDataModule},
  UMADManufacturer in 'App\Model\Manufacturer\UMADManufacturer.pas' {MADManufacturer: TDataModule},
  UMADMaterial in 'App\Model\Material\UMADMaterial.pas' {MADMaterial: TDataModule},
  UMADMaterialCatalog in 'App\Model\MaterialCatalog\UMADMaterialCatalog.pas' {MADMaterialCatalog: TDataModule},
  UMADMaterialStock in 'App\Model\MaterialStock\UMADMaterialStock.pas' {MADMaterialStock: TDataModule},
  UMADMaterialStockDetail in 'App\Model\MaterialStockDetail\UMADMaterialStockDetail.pas' {MADMaterialStockDetail: TDataModule},
  UMADMedicine in 'App\Model\Medicine\UMADMedicine.pas' {MADMedicine: TDataModule},
  UMADMedicineCatalog in 'App\Model\MedicineCatalog\UMADMedicineCatalog.pas' {MADMedicineCatalog: TDataModule},
  UMADMedicineStock in 'App\Model\MedicineStock\UMADMedicineStock.pas' {MADMedicineStock: TDataModule},
  UMADMedicineStockDetail in 'App\Model\MedicineStockDetail\UMADMedicineStockDetail.pas' {MADMedicineStockDetail: TDataModule},
  UMADMedicineStockGNZ in 'App\Model\MedicineStock\UMADMedicineStockGNZ.pas' {MADMedicineStockGNZ: TDataModule},
  UMADMedicineStockGTZ in 'App\Model\MedicineStock\UMADMedicineStockGTZ.pas' {MADMedicineStockGTZ: TDataModule},
  UMADNation in 'App\Model\Nation\UMADNation.pas' {MADNation: TDataModule},
  UMADNativePlace in 'App\Model\NativePlace\UMADNativePlace.pas' {MADNativePlace: TDataModule},
  UMADOperation in 'App\Model\Operation\UMADOperation.pas' {MADOperation: TDataModule},
  UMADOperationCatalog in 'App\Model\OperationCatalog\UMADOperationCatalog.pas' {MADOperationCatalog: TDataModule},
  UMADPaymentMethod in 'App\Model\PaymentMethod\UMADPaymentMethod.pas' {MADPaymentMethod: TDataModule},
  UMADPCOMaterial in 'App\Model\PCOMaterial\UMADPCOMaterial.pas' {MADPCOMaterial: TDataModule},
  UMADPCOMedicine in 'App\Model\PCOMedicine\UMADPCOMedicine.pas' {MADPCOMedicine: TDataModule},
  UMADPersonrelation in 'App\Model\PersonRelation\UMADPersonrelation.pas' {MADPersonrelation: TDataModule},
  UMADPOMaterialDetail in 'App\Model\POMaterialDetail\UMADPOMaterialDetail.pas' {MADPOMaterialDetail: TDataModule},
  UMADPOMaterialDetailNotCheckIn in 'App\Model\POMaterialDetail\UMADPOMaterialDetailNotCheckIn.pas' {MADPOMaterialDetailNotCheckIn: TDataModule},
  UMADPOMedicineDetail in 'App\Model\POMedicineDetail\UMADPOMedicineDetail.pas' {MADPOMedicineDetail: TDataModule},
  UMADPOMedicineDetailNotCheckIn in 'App\Model\POMedicineDetail\UMADPOMedicineDetailNotCheckIn.pas' {MADPOMedicineDetailNotCheckIn: TDataModule},
  UMADPrepayHistory in 'App\Model\PrepayHistory\UMADPrepayHistory.pas' {MADPrepayHistory: TDataModule},
  UMADProfession in 'App\Model\Profession\UMADProfession.pas' {MADProfession: TDataModule},
  UMADProvider in 'App\Model\Provider\UMADProvider.pas' {MADProvider: TDataModule},
  UMADPSCOMedicine in 'App\Model\PSCOMedicine\UMADPSCOMedicine.pas' {MADPSCOMedicine: TDataModule},
  UMADPsiodetail in 'App\Model\PSIOdetail\UMADPSiodetail.pas' {MADPsiodetail: TDataModule},
  UMADPSOODetail in 'App\Model\PSOODetail\UMADPSOODetail.pas' {MADPSOODetail: TDataModule},
  UMADPStockInOrder in 'App\Model\PStockInorder\UMADPStockInorder.pas' {MADPstockInorder: TDataModule},
  UMADPstockmedicine in 'App\Model\PStockMedicine\UMADPStockMedicine.pas' {MADPstockmedicine: TDataModule},
  UMADPStockOutOrder in 'App\Model\PStockOutOrder\UMADPStockOutOrder.pas' {MADPStockOutOrder: TDataModule},
  UMADPurchaseMethod in 'App\Model\PurchaseMethod\UMADPurchaseMethod.pas' {MADPurchaseMethod: TDataModule},
  UMADPURChaseOrder in 'App\Model\PURChaseOrder\UMADPURChaseOrder.pas' {MADPURChaseOrder: TDataModule},
  UMADRecipe in 'App\Model\Recipe\UMADRecipe.pas' {MADRecipe: TDataModule},
  UMADReckoning in 'App\Model\Reckoning\UMADReckoning.pas' {MADReckoning: TDataModule},
  UMADRegister in 'App\Model\Register\UMADRegister.pas' {MADRegister: TDataModule},
  UMADRmaterial in 'App\Model\RMaterial\UMADRmaterial.pas' {MADRmaterial: TDataModule},
  UMADRmedicine in 'App\Model\RMedicine\UMADRMedicine.pas' {MADRmedicine: TDataModule},
  UMADRoperation in 'App\Model\ROperation\UMADROperation.pas' {MADRoperation: TDataModule},
  UMADRservice in 'App\Model\RService\UMADRService.pas' {MADRservice: TDataModule},
  UMADSCOMaterial in 'App\Model\SCOMaterial\UMADSCOMaterial.pas' {MADSCOMaterial: TDataModule},
  UMADSCOMedicine in 'App\Model\SCOMedicine\UMADSCOMedicine.pas' {MADSCOMedicine: TDataModule},
  UMADSectionOffice in 'App\Model\SectionOffice\UMADSectionOffice.pas' {MADSectionOffice: TDataModule},
  UMADSectionOfficeChargeItem in 'App\Model\SectionOfficeChargeItem\UMADSectionOfficeChargeItem.pas' {MADSectionOfficeChargeItem: TDataModule},
  UMADService in 'App\Model\Service\UMADService.pas' {MADService: TDataModule},
  UMADServiceCatalog in 'App\Model\ServiceCatalog\UMADServiceCatalog.pas' {MADServiceCatalog: TDataModule},
  UMADSick in 'App\Model\Sick\UMADSick.pas' {MADSick: TDataModule},
  UMADSickness in 'App\Model\Sickness\UMADSickness.pas' {MADSickness: TDataModule},
  UMADSickNesscatalog in 'App\Model\SickNessCatalog\UMADSickNesscatalog.pas' {MADSickNesscatalog: TDataModule},
  UMADSickNesshistory in 'App\Model\SickNesshistory\UMADSickNesshistory.pas' {MADSickNesshistory: TDataModule},
  UMADSickNessHistoryModify in 'App\Model\Inpatient\UMADSickNessHistoryModify.pas' {MADSickNessHistoryModify: TDataModule},
  UMADSickNessLevel in 'App\Model\SickNessLevel\UMADSickNessLevel.pas' {MADSickNessLevel: TDataModule},
  UMADSickNessState in 'App\Model\SicknessState\UMADSickNessState.pas' {MADSickNessstate: TDataModule},
  UMADSickRoom in 'App\Model\SickRoom\UMADSickRoom.pas' {MADSickRoom: TDataModule},
  UMadSickType in 'App\Model\SickType\UMADSickType.pas' {MADSickType: TDataModule},
  UMADSIOMaterialDetail in 'App\Model\SIOMaterialDetail\UMADSIOMaterialDetail.pas' {MADSIOMaterialDetail: TDataModule},
  UMADSIOMedicineDetail in 'App\Model\SIOMedicineDetail\UMADSIOMedicineDetail.pas' {MADSIOMedicineDetail: TDataModule},
  UMADSOOMaterialDetail in 'App\Model\SOOMaterialDetail\UMADSOOMaterialDetail.pas' {MADSOOMaterialDetail: TDataModule},
  UMADSOOMedicineDetail in 'App\Model\SOOMedicineDetail\UMADSOOMedicineDetail.pas' {MADSOOMedicineDetail: TDataModule},
  UMADSOOMedicineDetailNOTApprove in 'App\Model\SOOMedicineDetail\UMADSOOMedicineDetailNOTApprove.pas' {MADSOOMedicineDetailNOTApprove: TDataModule},
  UMADStockInOrder in 'App\Model\StockInOrder\UMADStockInOrder.pas' {MADStockInOrder: TDataModule},
  UMADStockoutorder in 'App\Model\StockOutOrder\UMADStockOutOrder.pas' {MADStockOutOrder: TDataModule},
  UMADTendLevel in 'App\Model\TendLevel\UMADTendLevel.pas' {MADTendLevel: TDataModule},
  UMADTimes in 'App\Model\Times\UMADTimes.pas' {MADTimes: TDataModule},
  UMADTollStation in 'App\Model\TollStation\UMADTollStation.pas' {MADTollStation: TDataModule},
  UMADTollStationCharge in 'App\Model\TollStaionCharge\UMADTollStationCharge.pas' {MADTollStationCharge: TDataModule},
  UMADUnits in 'App\Model\Units\UMADUnits.pas' {MADUnits: TDataModule},
  UMADUseMethod in 'App\Model\UseMethod\UMADUseMethod.pas' {MADUseMethod: TDataModule},
  UMADVPStockMedicine in 'App\Model\PStockMedicine\UMADVPStockMedicine.pas' {MADVPStockMedicine: TDataModule},
  UMADWedlock in 'App\Model\WedLock\UMADWedlock.pas' {MADWedlock: TDataModule},
  UMainForm in 'SmallStruct\Test\UMainForm.pas' {MainForm},
  UMDAPrepayMehtod in 'App\Model\PrepayMehtod\UMDAPrepayMehtod.pas' {MDAPrepayMehtod: TDataModule},
  UMDASickroomChargeItem in 'App\Model\SickroomChargeItem\UMDASickroomChargeItem.pas' {MDASickroomChargeItem: TDataModule},
  UMQDEmployeeFind in 'App\Model\Employee\UMQDEmployeeFind.pas' {MQDEmployeeFind: TDataModule},
  UMQDPrepayHistory in 'App\Model\PrepayHistory\UMQDPrepayHistory.pas' {MQDPrepayHistory: TDataModule},
  UMQDSickTollQuery in 'App\Model\Sick\UMQDSickTollQuery.pas' {MQDSickTollQuery: TDataModule},
  UMQDTollStation in 'App\Model\TollStation\UMQDTollStation.pas' {MQDTollStation: TDataModule},
  UQDMSickStation in 'App\Model\Sick\UQDMSickStation.pas' {QDMSickStation: TDataModule},
  UVADGApproach in 'App\View\Approach\UVADGApproach.pas' {VADGApproach: TFrame},
  UVADGArea in 'App\View\Area\UVADGArea.pas' {VADGArea: TFrame},
  UVADGBed in 'App\View\Bed\UVADGBed.pas' {VADGBed: TFrame},
  UVADGBedCatalog in 'App\View\BedCatalog\UVADGBedCatalog.pas' {VADGBedCatalog: TFrame},
  UVADGBedChargeItem in 'App\View\BedChargeItem\UVADGBedChargeItem.pas' {VADGBedChargeItem: TFrame},
  UVADGBloodType in 'App\View\BloodType\UVADGBloodType.pas' {VADGBloodType: TFrame},
  UVADGChargeCatalog in 'App\View\ChargeCatalog\UVADGChargeCatalog.pas' {VADGChargeCatalog: TFrame},
  UVADGChargeItem in 'App\View\ChargeItem\UVADGChargeItem.pas' {VADGChargeItem: TFrame},
  UVADGCheckInMethod in 'App\View\CheckInMethod\UVADGCheckInMethod.pas' {VADGCheckInMethod: TFrame},
  UVADGCheckOutMethod in 'App\View\CheckOutMethod\UVADGCheckOutMethod.pas' {VADGCheckOutMethod: TFrame},
  UVADGCountry in 'App\View\Country\UVADGCountry.pas' {VADGCountry: TFrame},
  UVADGDAExecuted in 'App\View\Inpatient\UVADGDAExecuted.pas' {VADGDAExecuted: TFrame},
  UVADGDAInput in 'App\View\Inpatient\UVADGDAInput.pas' {VADGDAInput: TFrame},
  UVADGDAOperation in 'App\View\DAOperation\UVADGDAOperation.pas' {VADGDAOperation: TFrame},
  UVADGDAQuery in 'App\View\Inpatient\UVADGDAQuery.pas' {VADGDAQuery: TFrame},
  UVADGDAService in 'App\View\DAService\UVADGDAService.pas' {VADGDAService: TFrame},
  UVADGDAServiceReadOnly in 'App\View\DAService\UVADGDAServiceReadOnly.pas' {VADGDAServiceReadOnly: TFrame},
  UVADGDATemplate in 'App\View\DATemplate\UVADGDATemplate.pas' {VADGDATemplate: TFrame},
  UVADGDATService in 'App\View\DATService\UVADGDATService.pas' {VADGDATService: TFrame},