smallstruct.dpr

Delphi6开发的HIS程序

  UVADGDepartment in 'App\View\Department\UVADGDepartment.pas' {VADGDepartment: TFrame},
  UVADGDiagnose in 'App\View\Diagnose\UVADGDiagnose.pas',
  UVADGDoctor in 'App\View\Doctor\UVADGDoctor.pas' {VADGDoctor: TFrame},
  UVADGDoctorAdviceType in 'App\View\DoctorAdviceType\UVADGDoctorAdviceType.pas' {VADGDoctorAdviceType: TFrame},
  UVADGDoctorCatalog in 'App\View\DoctorCatalog\UVADGDoctorCatalog.pas' {VADGDoctorCatalog: TFrame},
  UVADGDose in 'App\View\Dose\UVADGDose.pas' {VADGDose: TFrame},
  UVADGEmployee in 'App\View\Employee\UVADGEmployee.pas' {VADGEmployee: TFrame},
  UVADGFood in 'App\View\Food\UVADGFood.pas' {VADGFood: TFrame},
  UVADGFrequencyWeek in 'App\View\FrequencyWeek\UVADGFrequencyWeek.pas' {VADGFrequencyWeek: TFrame},
  UVADGInpatientStationOut in 'App\View\Inpatient\UVADGInpatientStationOut.pas' {VADGInpatientStationOut: TFrame},
  UVADGJob in 'App\View\JOb\UVADGJob.pas' {VADGJob: TFrame},
  UVADGManufacturer in 'App\View\Manufacturer\UVADGManufacturer.pas' {VADGManufacturer: TFrame},
  UVADGMaterialCatalog in 'App\View\MaterialCatalog\UVADGMaterialCatalog.pas' {VADGMaterialCatalog: TFrame},
  UVADGMaterialStock in 'App\View\MaterialStock\UVADGMaterialStock.pas' {VADGMaterialStock: TFrame},
  UVADGMaterialStockDetail in 'App\View\MaterialStockDetail\UVADGMaterialStockDetail.pas' {VADGMaterialStockDetail: TFrame},
  UVADGMedicineCatalog in 'App\View\MedicineCatalog\UVADGMedicineCatalog.pas' {VADGMedicineCatalog: TFrame},
  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},
  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},
  UVADGRmedicineReadOnly in 'App\View\RMedicine\UVADGRmedicineReadOnly.pas' {VADGRmedicineReadOnly: TFrame},
  UVADGRoperation in 'App\View\ROperation\UVADGRoperation.pas' {VADGRoperation: TFrame},
  UVADGRservice in 'App\View\RService\UVADGRservice.pas' {VADGRservice: TFrame},
  UVADGRserviceReadOnly in 'App\View\RService\UVADGRserviceReadOnly.pas' {VADGRserviceReadOnly: 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},
  UVADGSickNesshistoryDetail in 'App\View\SickNesshistory\UVADGSickNesshistoryDetail.pas' {VADGSickNesshistoryDetail: TFrame},
  UVADGSickNessHistoryModify in 'App\View\Inpatient\UVADGSickNessHistoryModify.pas' {VADGSickNessHistoryModify: TFrame},
  UVADGSickNessHistoryQuery in 'App\View\Inpatient\UVADGSickNessHistoryQuery.pas' {VADGSickNessHistoryQuery: 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},
  UVADGSickTollQuery in 'App\View\Sick\UVADGSickTollQuery.pas' {VADGSickTollQuery: 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},
  UVADGSOOMedicineDetailApproving in 'App\View\SOOMedicineDetail\UVADGSOOMedicineDetailApproving.pas' {VADGSOOMedicineDetailApproving: 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},
  UVADGVPStockMedicine in 'App\View\PStockMedicine\UVADGVPStockMedicine.pas' {VADGVPStockMedicine: 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},
  UVADIInpatientHistoryModify in 'App\View\Inpatient\UVADIInpatientHistoryModify.pas' {VADIInpatientHistoryModify: TFrame},
  UVADIInpatientHistoryQuery in 'App\View\Inpatient\UVADIInpatientHistoryQuery.pas' {VADIInpatientHistoryQuery: TFrame},
  UVADIInpatientIN in 'App\View\Inpatient\UVADIInpatientIN.pas' {VADIInpatientIN: TFrame},
  UVADIInpatientOut in 'App\View\Inpatient\UVADIInpatientOut.pas' {VADIInpatientOut: 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},
  UVADIRmedicine in 'App\View\RMedicine\UVADIRmedicine.pas' {VADIRmedicine: 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',
  UVADISickNesshistory in 'App\View\SickNesshistory\UVADISickNesshistory.pas' {VADISickNesshistory: TFrame},
  UVADISIOMaterialDetail in 'App\View\SIOMaterialDetail\UVADISIOMaterialDetail.pas',
  UVADISIOMedicineDetail in 'App\View\SIOMedicineDetail\UVADISIOMedicineDetail.pas',
  UVADISOOMedicineDetail in 'App\View\SOOMedicineDetail\UVADISOOMedicineDetail.pas' {VADISOOMedicineDetail: TFrame},
  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},
  UVMADGDAMedicineReadOnly in 'App\View\DAMedicine\UVMADGDAMedicineReadOnly.pas' {VMADGDAMedicineReadOnly: 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},
  UVMADGInpatientPrepay in 'App\View\Inpatient\UVMADGInpatientPrepay.pas' {VMADGInpatientPrepay: 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},
  UVMADGStockOutOrderApproving in 'App\View\StockOutOrder\UVMADGStockOutOrderApproving.pas' {VMADGStockOutOrderApproving: TFrame},
  UMADInpatientCharge in 'App\Model\Inpatient\UMADInpatientCharge.pas' {MADInpatientCharge: TDataModule};

var
  DoctorID: Integer;
  DoctorKey: IIntegerKey;
  EmployeeID: Integer;
  EmployeeKey: IIntegerKey;
  SectionOfficeID: Integer;
  SectionOfficeKey: IIntegerKey;

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

  EmployeeID := Login;
  
  if EmployeeID < 0 then Exit;

  DoctorID := TMADDoctor(DoctorFactory.GetModel).FindDoctory(EmployeeID);

  if DoctorID < 0 then
  begin
    DoctorFactory.Free;
    EmployeeFindFactory.Free;
    MPDatabase.Free;
    ShowMessage('你不是医生,不能登录!');
    Exit;
  end;

  SectionOfficeID := TDataModel(DoctorFactory.GetModel).GetDataSet.FieldByName('SectionOfficeID').AsInteger;

  DoctorKey := TIntegerKey.Create;
  SectionOfficeKey := TIntegerKey.Create;
  EmployeeKey := TIntegerKey.Create;

  DoctorKey.SetKey(DoctorID);
  SectionOfficeKey.SetKey(SectionOfficeID);
  EmployeeKey.SetKey(EmployeeID);

  MPSysEnv.EmployeeKey := EmployeeKey;
  MPSysEnv.DoctorKey := DoctorKey;
  MPSysEnv.SectionOfficeKey := SectionOfficeKey;

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