smallstruct.dpr

Delphi6开发的HIS程序

  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},
  UVADISOOMedicineDetail in 'App\View\SOOMedicineDetail\UVADISOOMedicineDetail.pas' {VADISOOMedicineDetail: 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},
  UMADSCOMedicineHistory in 'App\Model\SCOMedicine\UMADSCOMedicineHistory.pas' {MADSCOMedicineHistory: TDataModule},
  UVADISCOMedicineHistory in 'App\View\SCOMedicine\UVADISCOMedicineHistory.pas' {VADISCOMedicineHistory: TFrame},
  UVMADGSCOMedicineApprove in 'App\View\SCOMedicine\UVMADGSCOMedicineApprove.pas' {VMADGSCOMedicineApprove: TFrame},
  UVADGPURchaseOrderRefer in 'App\View\PURChaseOrder\UVADGPURchaseOrderRefer.pas' {VADGPURchaseOrderRefer: TFrame},
  UVADGPURchaseOrderApprove in 'App\View\PURChaseOrder\UVADGPURchaseOrderApprove.pas' {VADGPURchaseOrderApprove: TFrame},
  UVADGPURchaseOrderHistory in 'App\View\PURChaseOrder\UVADGPURchaseOrderHistory.pas' {VADGPURchaseOrderHistory: TFrame},
  UMADPURChaseOrderHistory in 'App\Model\PURChaseOrder\UMADPURChaseOrderHistory.pas' {MADPURChaseOrderHistory: TDataModule},
  UMADPURChaseOrderApprove in 'App\Model\PURChaseOrder\UMADPURChaseOrderApprove.pas' {MADPURChaseOrderApprove: TDataModule},
  UMADPCOMedicineHistory in 'App\Model\PCOMedicine\UMADPCOMedicineHistory.pas' {MADPCOMedicineHistory: TDataModule},
  UVADGPCOMedicineApprove in 'App\View\PCOMedicine\UVADGPCOMedicineApprove.pas' {VADGPCOMedicineApprove: TFrame},
  UVMADGPCOMedicineHistory in 'App\View\PCOMedicine\UVMADGPCOMedicineHistory.pas' {VMADGPCOMedicineHistory: TFrame},
  UVADIPCOMedicineHistory in 'App\View\PCOMedicine\UVADIPCOMedicineHistory.pas' {VADIPCOMedicineHistory: TFrame},
  UVADIMedicineStock in 'App\View\MedicineStock\UVADIMedicineStock.pas' {VADIMedicineStock: TFrame},
  UVADIMedicineStockDetail in 'App\View\MedicineStockDetail\UVADIMedicineStockDetail.pas' {VADIMedicineStockDetail: TFrame},
  UMADStockInOrderHistory in 'App\Model\StockInOrder\UMADStockInOrderHistory.pas' {MADStockInOrderHistory: TDataModule},
  UVADGStockInOrderApprove in 'App\View\StockInOrder\UVADGStockInOrderApprove.pas' {VADGStockInOrderApprove: TFrame},
  UVMADGStockInOrderHistory in 'App\View\StockInOrder\UVMADGStockInOrderHistory.pas' {VMADGStockInOrderHistory: TFrame},
  UVADIStockInOrderHistory in 'App\View\StockInOrder\UVADIStockInOrderHistory.pas' {VADIStockInOrderHistory: TFrame},
  UVADGStockInOrderDetail in 'App\View\StockInOrder\UVADGStockInOrderDetail.pas' {VADGStockInOrderDetail: TFrame},
  UVADGStockOutOrderDetail in 'App\View\StockOutOrder\UVADGStockOutOrderDetail.pas' {VADGStockOutOrderDetail: TFrame},
  UVADGStockOutOrderApprove in 'App\View\StockOutOrder\UVADGStockOutOrderApprove.pas' {VADGStockOutOrderApprove: TFrame},
  UVMADGStockOutOrderHistory in 'App\View\StockOutOrder\UVMADGStockOutOrderHistory.pas' {VMADGStockOutOrderHistory: TFrame},
  UMADStockOutOrderHistory in 'App\Model\StockOutOrder\UMADStockOutOrderHistory.pas' {MADStockOutOrderHistory: TDataModule},
  UVADISOOMedicineDetailHistory in 'App\View\SOOMedicineDetail\UVADISOOMedicineDetailHistory.pas' {VADISOOMedicineDetailHistory: TFrame},
  UVMADGSOOMedicineDetailHistory in 'App\View\SOOMedicineDetail\UVMADGSOOMedicineDetailHistory.pas' {VMADGSOOMedicineDetailHistory: TFrame},
  UMADStockInOrderApprove in 'App\Model\StockInOrder\UMADStockInOrderApprove.pas' {MADStockInOrderApprove: TDataModule},
  UMADStockOutOrderApprove in 'App\Model\StockOutOrder\UMADStockOutOrderApprove.pas' {MADStockOutOrderApprove: TDataModule},
  UVMADGSIOMedicineDetailHistory in 'App\View\SIOMedicineDetail\UVMADGSIOMedicineDetailHistory.pas' {VMADGSIOMedicineDetailHistory: TFrame},
  UVADISIOMedicineDetailHistory in 'App\View\SIOMedicineDetail\UVADISIOMedicineDetailHistory.pas' {VADISIOMedicineDetailHistory: TFrame},
  UVADGStockInOrderDetailCheck in 'App\View\StockInOrder\UVADGStockInOrderDetailCheck.pas' {VADGStockInOrderDetailCheck: TFrame},
  UMADSIOMedicineDetail in 'App\Model\SIOMedicineDetail\UMADSIOMedicineDetail.pas' {MADSIOMedicineDetail: TDataModule},
  UVMADGSIOMedicineDetailClean in 'App\View\SIOMedicineDetail\UVMADGSIOMedicineDetailClean.pas' {VMADGSIOMedicineDetailClean: TFrame},
  UVADISIOMedicineDetailClean in 'App\View\SIOMedicineDetail\UVADISIOMedicineDetailClean.pas' {VADISIOMedicineDetailClean: TFrame},
  UVADGPURChaseOrderDetail in 'App\View\PURChaseOrder\UVADGPURChaseOrderDetail.pas' {VADGPURChaseOrderDetail: TFrame},
  UMADPURChaseOrderRefer in 'App\Model\PURChaseOrder\UMADPURChaseOrderRefer.pas' {MADPURChaseOrderRefer: TDataModule},
  UMADPOMedicineDetailRO in 'App\Model\POMedicineDetail\UMADPOMedicineDetailRO.pas' {MADPOMedicineDetailRO: TDataModule},
  UVADIPOMedicineDetailRO in 'App\View\POMedicineDetail\UVADIPOMedicineDetailRO.pas' {VADIPOMedicineDetailRO: TFrame},
  UVMADGPOMedicineDetailRO in 'App\View\POMedicineDetail\UVMADGPOMedicineDetailRO.pas' {VMADGPOMedicineDetailRO: TFrame},
  UMADMedicineStockView in 'App\Model\MedicineStockDetail\UMADMedicineStockView.pas' {MADMedicineStockView: TDataModule},
  UVADGMedicineStockDetailView in 'App\View\MedicineStockDetail\UVADGMedicineStockDetailView.pas' {VADGMedicineStockDetailView: 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},
  UQMedicineStockDetail in 'App\Model\MedicineStockDetail\UQMedicineStockDetail.pas' {QMedicineStockDetail: TDataModule},
  UMQDSIOMedicineDetailByPK in 'App\Model\SIOMedicineDetail\UMQDSIOMedicineDetailByPK.pas' {MQDSIOMedicineDetailByPK: TDataModule},
  UMQDPStockInOrder in 'App\Model\PStockInorder\UMQDPStockInOrder.pas' {MQDPStockInOrder: 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},
  UMQDPStockInOrderByNotApprove in 'App\Model\PStockInorder\UMQDPStockInOrderByNotApprove.pas' {MQDPStockInOrderByNotApprove: TDataModule},
  UMADMedicineStockDetail2 in 'App\Model\MedicineStockDetail\UMADMedicineStockDetail2.pas' {MADMedicineStockDetail2: TDataModule},
  UVMADGSCOMedicineHistory in 'App\View\SCOMedicine\UVMADGSCOMedicineHistory.pas' {VMADGSCOMedicineHistory: TFrame};

var
  EmployeeKey: IIntegerKey;
  EmployeeID: Integer;
  
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;

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

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