smallstruct.dpr

Delphi6开发的HIS程序

  UVADGMedicineStock in 'App\View\MedicineStock\UVADGMedicineStock.pas' {VADGMedicineStock: TFrame},
  UVADGMedicineStockDetail in 'App\View\MedicineStockDetail\UVADGMedicineStockDetail.pas' {VADGMedicineStockDetail: TFrame},
  UVADGNation in 'App\View\Nation\UVADGNation.pas' {VADGNation: TFrame},
  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},
  UVADGPAObject in 'App\View\PAObject\UVADGPAObject.pas' {VADGPAObject: 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},
  UVADGPURView in 'App\View\PURView\UVADGPURView.pas' {VADGPURView: 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},
  UVDGAccessObject in 'App\View\AccessObject\UVDGAccessObject.pas' {VDGAccessObject: 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},
  UVADIPStockMedicine in 'App\View\PStockMedicine\UVADIPStockMedicine.pas' {VADIPStockMedicine: TFrame},
  UMADVPStockMedicine in 'App\Model\PStockMedicine\UMADVPStockMedicine.pas' {MADVPStockMedicine: TDataModule},
  UVADGVPStockMedicine in 'App\View\PStockMedicine\UVADGVPStockMedicine.pas' {VADGVPStockMedicine: TFrame},
  UVADIPSCOMedicineRO in 'App\View\PSCOMedicine\UVADIPSCOMedicineRO.pas' {VADIPSCOMedicineRO: TFrame},
  UVMADGPSCOMedicineApprove in 'App\View\PSCOMedicine\UVMADGPSCOMedicineApprove.pas' {VMADGPSCOMedicineApprove: TFrame},
  UVMADGPSCOMedicineHistory in 'App\View\PSCOMedicine\UVMADGPSCOMedicineHistory.pas' {VMADGPSCOMedicineHistory: TFrame},
  UMADPSCOMedicineHistory in 'App\Model\PSCOMedicine\UMADPSCOMedicineHistory.pas' {MADPSCOMedicineHistory: TDataModule},
  UMADPStockOutOrderHistory in 'App\Model\PStockOutOrder\UMADPStockOutOrderHistory.pas' {MADPStockOutOrderHistory: TDataModule},
  UVADIPStockOutOrderRO in 'App\View\PStockOutOrder\UVADIPStockOutOrderRO.pas' {VADIPStockOutOrderRO: TFrame},
  UVMADGPStockOutOrderApprove in 'App\View\PStockOutOrder\UVMADGPStockOutOrderApprove.pas' {VMADGPStockOutOrderApprove: TFrame},
  UVMADGPStockOutOrderHistory in 'App\View\PStockOutOrder\UVMADGPStockOutOrderHistory.pas' {VMADGPStockOutOrderHistory: TFrame},
  UMADPstockInorderHistory in 'App\Model\PStockInorder\UMADPstockInorderHistory.pas' {MADPstockInorderHistory: TDataModule},
  UVADIPStockInOrdeRO in 'App\View\PStockInorder\UVADIPStockInOrdeRO.pas' {VADIPStockInOrdeRO: TFrame},
  UVMADGPStockInOrderApprove in 'App\View\PStockInorder\UVMADGPStockInOrderApprove.pas' {VMADGPStockInOrderApprove: TFrame},
  UVMADGPStockInOrderHistory in 'App\View\PStockInorder\UVMADGPStockInOrderHistory.pas' {VMADGPStockInOrderHistory: TFrame},
  UMADVRMedicine in 'App\Model\RMedicine\UMADVRMedicine.pas' {MADVRMedicine: TDataModule},
  UVADGVRMedicine in 'App\View\RMedicine\UVADGVRMedicine.pas' {VADGVRMedicine: TFrame},
  UMADVRecipeToday in 'App\Model\Recipe\UMADVRecipeToday.pas' {MADVRecipeToday: TDataModule},
  UVADGVRecipeToday in 'App\View\Recipe\UVADGVRecipeToday.pas' {VADGVRecipeToday: TFrame},
  UVADGVRecipeTodayApprove in 'App\View\Recipe\UVADGVRecipeTodayApprove.pas' {VADGVRecipeTodayApprove: TFrame},
  UMADVRecipeTodayApprove in 'App\Model\Recipe\UMADVRecipeTodayApprove.pas' {MADVRecipeTodayApprove: TDataModule},
  UVADGVRMedicineApprove in 'App\View\RMedicine\UVADGVRMedicineApprove.pas' {VADGVRMedicineApprove: TFrame},
  UVMADGRecipeApprove in 'App\View\Recipe\UVMADGRecipeApprove.pas' {VMADGRecipeApprove: TFrame},
  UMADVRMedicineApprove in 'App\Model\RMedicine\UMADVRMedicineApprove.pas' {MADVRMedicineApprove: TDataModule},
  UVAGDepartMentStockOut in 'App\View\Department\UVAGDepartMentStockOut.pas' {VADGDepartMentStockOut: TFrame},
  UMADDepartMentStockOut in 'App\Model\Department\UMADDepartMentStockOut.pas' {MADDepartMentStockOut: TDataModule},
  UVADGDepartmentList in 'App\View\Department\UVADGDepartmentList.pas' {VADGDepartmentList: TFrame},
  UMADDepartMentStockOutBack in 'App\Model\Department\UMADDepartMentStockOutBack.pas' {MADDepartMentStockOutBack: TDataModule},
  UVADGDepartmentBack in 'App\View\Department\UVADGDepartmentBack.pas' {VADGDepartmentBack: TFrame},
  ULDialog in 'SmallStruct\Dialog\ULDialog.pas' {LDialog},
  UMQDEmployeeFind in 'App\Model\Employee\UMQDEmployeeFind.pas' {MQDEmployeeFind: TDataModule},
  UMQMedicineStock in 'App\Model\Medicine\UMQMedicineStock.pas' {MQMedicineStock: TDataModule},
  UVADIMedicineStock in 'App\View\MedicineStock\UVADIMedicineStock.pas' {VADIMedicineStock: TFrame},
  UQMedicineStockDetail in 'App\Model\MedicineStockDetail\UQMedicineStockDetail.pas' {QMedicineStockDetail: TDataModule},
  UMQDRMedicine in 'App\Model\RMedicine\UMQDRMedicine.pas' {MQDRMedicine: TDataModule},
  UMQDPStockOutOrder in 'App\Model\PStockOutOrder\UMQDPStockOutOrder.pas' {MQDPStockOutOrder: TDataModule};

var
  EmployeeKey: IIntegerKey;
  EmployeeID: Integer;

begin
  Application.Initialize;
  Application.CreateForm(TMPDatabase, MPDatabase);
  Application.CreateForm(TMPSysEnv, MPSysEnv);
  MyInitialize;

  EmployeeID := Login;

  if EmployeeID < 0 then Exit;

  EmployeeKey := TIntegerKey.Create;
  EmployeeKey.SetKey(EmployeeID);
  MPSysEnv.EmployeeKey := EmployeeKey;

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