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},
  UDialogDataItemView in 'SmallStruct\Dialog\UDialogDataItemView.pas' {DialogDataItemView},
  UMasterAdapterDataGridView in 'SmallStruct\View\UMasterAdapterDataGridView.pas' {MasterAdapterDataGridView: TFrame},
  UModel in 'SmallStruct\Model\UModel.pas' {Model: TDataModule},
  UMPDatabase in 'SmallStruct\Test\UMPDatabase.pas' {MPDatabase: 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},
  UMPSysEnv in 'SmallStruct\Test\UMPSysEnv.pas' {MPSysEnv: TDataModule},
  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},
  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},
  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},
  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},
  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},
  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},
  UMADPaobject in 'App\Model\PAObject\UMADPaobject.pas' {MADPaobject: 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},
  UMADPOMedicineDetail in 'App\Model\POMedicineDetail\UMADPOMedicineDetail.pas' {MADPOMedicineDetail: 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},