smallstruct.dpr

Delphi6开发的HIS程序

  UVADGNativePlace in 'App\View\NativePlace\UVADGNativePlace.pas' {VADGNativePlace: TFrame},
  UVADGOperation in 'App\View\Operation\UVADGOperation.pas' {VADGOperation: TFrame},
  UVADGOperationCatalog in 'App\View\OperationCatalog\UVADGOperationCatalog.pas' {VADGOperationCatalog: TFrame},
  UVADGPaymentMethod in 'App\View\PaymentMethod\UVADGPaymentMethod.pas' {VADGPaymentMethod: TFrame},
  UVADGPersonrelation in 'App\View\PersonRelation\UVADGPersonrelation.pas' {VADGPersonrelation: TFrame},
  UVADGPrepayHistory in 'App\View\PrepayHistory\UVADGPrepayHistory.pas' {VADGPrepayHistory: TFrame},
  UVADGPrepayMehtod in 'App\View\PrepayMehtod\UVADGPrepayMehtod.pas' {VADGPrepayMehtod: TFrame},
  UVADGProfession in 'App\View\Profession\UVADGProfession.pas' {VADGProfession: TFrame},
  UVADGProvider in 'App\View\Provider\UVADGProvider.pas' {VADGProvider: TFrame},
  UVADGPsiodetail in 'App\View\PSIOdetail\UVADGPSiodetail.pas' {VADGPSIODetail: TFrame},
  UVADGPsoodetail in 'App\View\PSOODetail\UVADGPSOODetail.pas' {VADGPSOODetail: TFrame},
  UVADGPstockmedicine in 'App\View\PStockMedicine\UVADGPStockMedicine.pas' {VADGPstockmedicine: TFrame},
  UVADGPurchaseMethod in 'App\View\PurchaseMethod\UVADGPurchaseMethod.pas' {VADGPurchaseMethod: TFrame},
  UVADGReckoning in 'App\View\Reckoning\UVADGReckoning.pas' {VADGReckoning: TFrame},
  UVADGRmaterial in 'App\View\RMaterial\UVADGRmaterial.pas' {VADGRmaterial: TFrame},
  UVADGRMedicine in 'App\View\RMedicine\UVADGRMedicine.pas' {VADGRmedicine: TFrame},
  UVADGRoperation in 'App\View\ROperation\UVADGRoperation.pas' {VADGRoperation: TFrame},
  UVADGRservice in 'App\View\RService\UVADGRservice.pas' {VADGRservice: TFrame},
  UVADGSectionOffice in 'App\View\SectionOffice\UVADGSectionOffice.pas' {VADGSectionOffice: TFrame},
  UVADGSectionOfficeChargeItem in 'App\View\SectionOfficeChargeItem\UVADGSectionOfficeChargeItem.pas' {VADGSectionOfficeChargeItem: TFrame},
  UVADGService in 'App\View\Service\UVADGService.pas' {VADGService: TFrame},
  UVADGServiceCatalog in 'App\View\ServiceCatalog\UVADGServiceCatalog.pas' {VADGServiceCatalog: TFrame},
  UVADGSickness in 'App\View\Sickness\UVADGSickness.pas' {VADGSickness: TFrame},
  UVADGSickNesscatalog in 'App\View\SickNessCatalog\UVADGSickNesscatalog.pas' {VADGSickNesscatalog: TFrame},
  UVADGSickNesshistory in 'App\View\SickNesshistory\UVADGSickNesshistory.pas' {VADGSickNesshistory: TFrame},
  UVADGSickNessLevel in 'App\View\SickNessLevel\UVADGSickNessLevel.pas' {VADGSickNessLevel: TFrame},
  UVADGSickNessState in 'App\View\SicknessState\UVADGSickNessState.pas' {VADGSickNessState: TFrame},
  UVADGSickRoom in 'App\View\SickRoom\UVADGSickRoom.pas' {VADGSickRoom: TFrame},
  UVADGSickroomChargeItem in 'App\View\SickroomChargeItem\UVADGSickroomChargeItem.pas' {VADGSickroomChargeItem: TFrame},
  UVADGSickType in 'App\View\SickType\UVADGSickType.pas' {VADGSickType: TFrame},
  UVADGSOOMaterialDetail in 'App\View\SOOMaterialDetail\UVADGSOOMaterialDetail.pas' {VADGSOOMaterialDetail: TFrame},
  UVADGSOOMedicineDetail in 'App\View\SOOMedicineDetail\UVADGSOOMedicineDetail.pas' {VADGSOOMedicineDetail: TFrame},
  UVADGTendLevel in 'App\View\TendLevel\UVADGTendLevel.pas' {VADGTendLevel: TFrame},
  UVADGTimes in 'App\View\Times\UVADGTimes.pas' {VADGTimes: TFrame},
  UVADGTollStation in 'App\View\TollStation\UVADGTollStation.pas' {VADGTollStation: TFrame},
  UVADGTollStationCharge in 'App\View\TollStaionCharge\UVADGTollStationCharge.pas' {VADGTollStationCharge: TFrame},
  UVADGUnits in 'App\View\Units\UVADGUnits.pas' {VADGUnits: TFrame},
  UVADGUseMethod in 'App\View\UseMethod\UVADGUseMethod.pas' {VADGUseMethod: TFrame},
  UVADGWedlock in 'App\View\WedLock\UVADGWedlock.pas' {VADGWedlock: TFrame},
  UVADIDAMaterial in 'App\View\DAMaterial\UVADIDAMaterial.pas' {VADIDAMaterial: TFrame},
  UVADIDAMedicine in 'App\View\DAMedicine\UVADIDAMedicine.pas' {VADIDAMedicine: TFrame},
  UVADIDATMaterial in 'App\View\DATMaterial\UVADIDATMaterial.pas' {VADIDATMaterial: TFrame},
  UVADIDATMedicine in 'App\View\DATMedicine\UVADIDATMedicine.pas' {VADIDATMedicine: TFrame},
  UVADIDATOperation in 'App\View\DATOperation\UVADIDATOperation.pas' {VADIDATOperation: TFrame},
  UVADIDoctorAdvice in 'App\View\DoctorAdvice\UVADIDoctorAdvice.pas' {VADIDoctorAdvice: TFrame},
  UVADIInpatient in 'App\View\Inpatient\UVADIInpatient.pas' {VADIInpatient: TFrame},
  UVADIMaterial in 'App\View\Material\UVADIMaterial.pas',
  UVADIMedicine in 'App\View\Medicine\UVADIMedicine.pas',
  UVADIPCOMaterial in 'App\View\PCOMaterial\UVADIPCOMaterial.pas' {VADIPCOMaterial: TFrame},
  UVADIPCOMedicine in 'App\View\PCOMedicine\UVADIPCOMedicine.pas' {VADIPCOMedicine: TFrame},
  UVADIPOMaterialDetail in 'App\View\POMaterialDetail\UVADIPOMaterialDetail.pas',
  UVADIPOMedicineDetail in 'App\View\POMedicineDetail\UVADIPOMedicineDetail.pas',
  UVADIPSCOMedicine in 'App\View\PSCOMedicine\UVADIPSCOMedicine.pas' {VADIPSCOMedicine: TFrame},
  UVADIPStockInOrde in 'App\View\PStockInorder\UVADIPStockInOrde.pas' {VADIPStockInOrde: TFrame},
  UVADIPStockOutOrder in 'App\View\PStockOutOrder\UVADIPStockOutOrder.pas' {VADIPStockOutOrder: TFrame},
  UVADIPURChaseOrder in 'App\View\PURChaseOrder\UVADIPURChaseOrder.pas' {VADIPURChaseOrder: TFrame},
  UVADIRecipe in 'App\View\Recipe\UVADIRecipe.pas' {VADIRecipe: TFrame},
  UVADIRegister in 'App\View\Register\UVADIRegister.pas' {VADIRegister: TFrame},
  UVADISCOMaterial in 'App\View\SCOMaterial\UVADISCOMaterial.pas' {VADISCOMaterial: TFrame},
  UVADISCOMedicine in 'App\View\SCOMedicine\UVADISCOMedicine.pas' {VADISCOMedicine: TFrame},
  UVADISick in 'App\View\Sick\UVADISick.pas',
  UVADISIOMaterialDetail in 'App\View\SIOMaterialDetail\UVADISIOMaterialDetail.pas',
  UVADISIOMedicineDetail in 'App\View\SIOMedicineDetail\UVADISIOMedicineDetail.pas',
  UVADIStockInOrder in 'App\View\StockInOrder\UVADIStockInOrder.pas' {VADIStockInOrder: TFrame},
  UVADIStockOutOrder in 'App\View\StockOutOrder\UVADIStockOutOrder.pas' {VADIStockOutOrder: TFrame},
  UVMADGDAMaterial in 'App\View\DAMaterial\UVMADGDAMaterial.pas' {VMADGDAMaterial: TFrame},
  UVMADGDAMedicine in 'App\View\DAMedicine\UVMADGDAMedicine.pas' {VMADGDAMedicine: TFrame},
  UVMADGDATMaterial in 'App\View\DATMaterial\UVMADGDATMaterial.pas' {VMADGDATMaterial: TFrame},
  UVMADGDATMedicine in 'App\View\DATMedicine\UVMADGDATMedicine.pas' {VMADGDATMedicine: TFrame},
  UVMADGDATOperation in 'App\View\DATOperation\UVMADGDATOperation.pas' {VMADGDATOperation: TFrame},
  UVMADGDoctorAdvice in 'App\View\DoctorAdvice\UVMADGDoctorAdvice.pas' {VMADGDoctorAdvice: TFrame},
  UVMADGInpatient in 'App\View\Inpatient\UVMADGInpatient.pas' {VMADGInpatient: TFrame},
  UVMADGMaterial in 'App\View\Material\UVMADGMaterial.pas' {VMADGMaterial: TFrame},
  UVMADGMedicine in 'App\View\Medicine\UVMADGMedicine.pas' {VMADGMedicine: TFrame},
  UVMADGPCOMaterial in 'App\View\PCOMaterial\UVMADGPCOMaterial.pas' {VMADGPCOMaterial: TFrame},
  UVMADGPCOMedicine in 'App\View\PCOMedicine\UVMADGPCOMedicine.pas' {VMADGPCOMedicine: TFrame},
  UVMADGPOMaterialDetail in 'App\View\POMaterialDetail\UVMADGPOMaterialDetail.pas' {VMADGPOMaterialDetail: TFrame},
  UVMADGPOMedicineDetail in 'App\View\POMedicineDetail\UVMADGPOMedicineDetail.pas' {VMADGPOMedicineDetail: TFrame},
  UVMADGPSCOMedicine in 'App\View\PSCOMedicine\UVMADGPSCOMedicine.pas' {VMADGPSCOMedicine: TFrame},
  UVMADGPStockInOrder in 'App\View\PStockInorder\UVMADGPStockInOrder.pas' {VMADGPStockInOrder: TFrame},
  UVMADGPStockOutOrder in 'App\View\PStockOutOrder\UVMADGPStockOutOrder.pas' {VMADGPStockOutOrder: TFrame},
  UVMADGPURChaseOrder in 'App\View\PURChaseOrder\UVMADGPURChaseOrder.pas' {VMADGPURChaseOrder: TFrame},
  UVMADGRecipe in 'App\View\Recipe\UVMADGRecipe.pas' {VMADGRecipe: TFrame},
  UVMADGRegister in 'App\View\Register\UVMADGRegister.pas' {VMADGRegister: TFrame},
  UVMADGSCOMaterial in 'App\View\SCOMaterial\UVMADGSCOMaterial.pas' {VMADGSCOMaterial: TFrame},
  UVMADGSCOMedicine in 'App\View\SCOMedicine\UVMADGSCOMedicine.pas' {VMADGSCOMedicine: TFrame},
  UVMADGSick in 'App\View\Sick\UVMADGSick.pas' {VMADGSick: TFrame},
  UVMADGSIOMaterialDetail in 'App\View\SIOMaterialDetail\UVMADGSIOMaterialDetail.pas' {VMADGSIOMaterialDetail: TFrame},
  UVMADGSIOMedicineDetail in 'App\View\SIOMedicineDetail\UVMADGSIOMedicineDetail.pas' {VMADGSIOMedicineDetail: TFrame},
  UVMADGStockInOrder in 'App\View\StockInOrder\UVMADGStockInOrder.pas' {VMADGStockInOrder: TFrame},
  UVMADGStockOutOrder in 'App\View\StockOutOrder\UVMADGStockOutOrder.pas' {VMADGStockOutOrder: TFrame},
  UMADPOMaterialDetailNotCheckIn in 'App\Model\POMaterialDetail\UMADPOMaterialDetailNotCheckIn.pas' {MADPOMaterialDetailNotCheckIn: TDataModule},
  UMADPOMedicineDetailNotCheckIn in 'App\Model\POMedicineDetail\UMADPOMedicineDetailNotCheckIn.pas' {MADPOMedicineDetailNotCheckIn: TDataModule},
  UDialogDataItemsView in 'SmallStruct\Dialog\UDialogDataItemsView.pas' {DialogDataItemsView},
  UMADMedicineStockGNZ in 'App\Model\MedicineStock\UMADMedicineStockGNZ.pas' {MADMedicineStockGNZ: TDataModule},
  UMADMedicineStockGTZ in 'App\Model\MedicineStock\UMADMedicineStockGTZ.pas' {MADMedicineStockGTZ: TDataModule},
  UMADSOOMedicineDetailNOTApprove in 'App\Model\SOOMedicineDetail\UMADSOOMedicineDetailNOTApprove.pas' {MADSOOMedicineDetailNOTApprove: TDataModule},
  UVADGSOOMedicineDetailApproving in 'App\View\SOOMedicineDetail\UVADGSOOMedicineDetailApproving.pas' {VADGSOOMedicineDetailApproving: TFrame},
  UVADISOOMedicineDetail in 'App\View\SOOMedicineDetail\UVADISOOMedicineDetail.pas' {VADISOOMedicineDetail: TFrame},
  UVMADGStockOutOrderApproving in 'App\View\StockOutOrder\UVMADGStockOutOrderApproving.pas' {VMADGStockOutOrderApproving: TFrame},
  UMQDTollStation in 'App\Model\TollStation\UMQDTollStation.pas' {MQDTollStation: TDataModule},
  UVMADGInpatientPrepay in 'App\View\Inpatient\UVMADGInpatientPrepay.pas' {VMADGInpatientPrepay: TFrame},
  UMQDPrepayHistory in 'App\Model\PrepayHistory\UMQDPrepayHistory.pas' {MQDPrepayHistory: TDataModule},
  UMainForm in 'SmallStruct\Test\UMainForm.pas' {MainForm},
  UFMain in 'SmallStruct\Test\UFMain.pas' {FMain},
  UVADIInpatientIN in 'App\View\Inpatient\UVADIInpatientIN.pas' {VADIInpatientIN: TFrame},
  UQDMSickStation in 'App\Model\Sick\UQDMSickStation.pas' {QDMSickStation: TDataModule},
  UVADISickNesshistory in 'App\View\SickNesshistory\UVADISickNesshistory.pas' {VADISickNesshistory: TFrame},
  UMADDoctorToll in 'App\Model\Doctor\UMADDoctorToll.pas' {MADDoctorToll: TDataModule},
  UMADInpatientStation in 'App\Model\Inpatient\UMADInpatientStation.pas' {MADInpatientStation: TDataModule},
  UMADDoctorStation in 'App\Model\Doctor\UMADDoctorStation.pas' {MADDoctorStation: TDataModule},
  UMADInpatientStationOut in 'App\Model\Inpatient\UMADInpatientStationOut.pas' {MADInpatientStationOut: TDataModule},
  UVADGInpatientStationOut in 'App\View\Inpatient\UVADGInpatientStationOut.pas' {VADGInpatientStationOut: TFrame},
  UVADIInpatientOut in 'App\View\Inpatient\UVADIInpatientOut.pas' {VADIInpatientOut: TFrame},
  UVADGSickNessHistoryModify in 'App\View\Inpatient\UVADGSickNessHistoryModify.pas' {VADGSickNessHistoryModify: TFrame},
  UMADSickNessHistoryModify in 'App\Model\Inpatient\UMADSickNessHistoryModify.pas' {MADSickNessHistoryModify: TDataModule},
  UVADIInpatientHistoryModify in 'App\View\Inpatient\UVADIInpatientHistoryModify.pas' {VADIInpatientHistoryModify: TFrame},
  UVADGSickNessHistoryQuery in 'App\View\Inpatient\UVADGSickNessHistoryQuery.pas' {VADGSickNessHistoryQuery: TFrame},
  UVADGSickNesshistoryDetail in 'App\View\SickNesshistory\UVADGSickNesshistoryDetail.pas' {VADGSickNesshistoryDetail: TFrame},
  UVADIInpatientHistoryQuery in 'App\View\Inpatient\UVADIInpatientHistoryQuery.pas' {VADIInpatientHistoryQuery: TFrame},
  UMADDAInput in 'App\Model\Inpatient\UMADDAInput.pas' {MADDAInput: TDataModule},
  UVADGDAInput in 'App\View\Inpatient\UVADGDAInput.pas' {VADGDAInput: TFrame},
  UMADDAExecuted in 'App\Model\Inpatient\UMADDAExecuted.pas' {MADDAExecuted: TDataModule},
  UVADGDAExecuted in 'App\View\Inpatient\UVADGDAExecuted.pas' {VADGDAExecuted: TFrame},
  UVADGDAServiceReadOnly in 'App\View\DAService\UVADGDAServiceReadOnly.pas' {VADGDAServiceReadOnly: TFrame},
  UVMADGDAMedicineReadOnly in 'App\View\DAMedicine\UVMADGDAMedicineReadOnly.pas' {VMADGDAMedicineReadOnly: TFrame},
  UMADDAQuery in 'App\Model\Inpatient\UMADDAQuery.pas' {MADDAQuery: TDataModule},
  UVADGDAQuery in 'App\View\Inpatient\UVADGDAQuery.pas' {VADGDAQuery: TFrame},
  UMQDSickTollQuery in 'App\Model\Sick\UMQDSickTollQuery.pas' {MQDSickTollQuery: TDataModule},
  UVADGSickTollQuery in 'App\View\Sick\UVADGSickTollQuery.pas' {VADGSickTollQuery: TFrame},
  UVADGRmedicineReadOnly in 'App\View\RMedicine\UVADGRmedicineReadOnly.pas' {VADGRmedicineReadOnly: TFrame},
  UVADGRserviceReadOnly in 'App\View\RService\UVADGRserviceReadOnly.pas' {VADGRserviceReadOnly: TFrame},
  UMADVPStockMedicine in 'App\Model\PStockMedicine\UMADVPStockMedicine.pas' {MADVPStockMedicine: TDataModule},
  UVADIRmedicine in 'App\View\RMedicine\UVADIRmedicine.pas' {VADIRmedicine: TFrame},
  UVADGVPStockMedicine in 'App\View\PStockMedicine\UVADGVPStockMedicine.pas' {VADGVPStockMedicine: TFrame},
  UMADPrepayOperation in 'App\Model\Inpatient\UMADPrepayOperation.pas' {MADPrepayOperation: TDataModule},
  UVADGPrepayOp in 'App\View\Inpatient\UVADGPrepayOp.pas' {VADGPrepayOp: TFrame},
  UVADISInpatientCharge in 'App\View\Inpatient\UVADISInpatientCharge.pas' {VADISInpatientCharge: TFrame},
  UMADInpatientCharge in 'App\Model\Inpatient\UMADInpatientCharge.pas' {MADInpatientCharge: TDataModule},
  UMQDChargeInpatient in 'App\Model\Inpatient\UMQDChargeInpatient.pas' {MQDChargeInpatient: TDataModule};

var
  EmployeeKey: IIntegerKey;
  DoctorID: IIntegerKey;
  SectionOfficeID: IIntegerKey;

begin
  Application.Initialize;
  Application.Title := '名科医院管理系统 3.0';
  Application.CreateForm(TMPDatabase, MPDatabase);
  Application.CreateForm(TMPSysEnv, MPSysEnv);
  MyInitialize;

  DoctorID := TIntegerKey.Create;
  SectionOfficeID := TIntegerKey.Create;
  EmployeeKey := TIntegerKey.Create;

  DoctorID.SetKey(32);
  SectionOfficeID.SetKey(23);
  EmployeeKey.SetKey(1);
  
  MPSysEnv.EmployeeKey := EmployeeKey;
  MPSysEnv.DoctorID := DoctorID;
  MPSysEnv.SectionOfficeID := SectionOfficeID; 

  Application.CreateForm(TFMain, FMain);
  try
    Application.Run;
  finally
    MPDatabase.Free;
  end;
end.