uvmadgdoctoradvice.pas

来自「一整套的源代码」· PAS 代码 · 共 89 行

unit UVMADGDoctorAdvice;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMasterAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, RzCommon, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, jpeg, RzBckgnd, ExtCtrls,
  RzPanel, cxDBLookupComboBox, Uview,
  UCloneDataModel, cxCheckBox;

type
  TVMADGDoctorAdvice = class(TMasterAdapterDataGridView)
    GridDBTableViewDOCTORADVICEID: TcxGridDBColumn;
    GridDBTableViewISACTIVE: TcxGridDBColumn;
    GridDBTableViewISTEMPORARY: TcxGridDBColumn;
    GridDBTableViewISVALID: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    GridDBTableViewDOCTORID: TcxGridDBColumn;
    GridDBTableViewINPATIENTID: TcxGridDBColumn;
    GridDBTableViewDOCTORADVICETYPEID: TcxGridDBColumn;
    InpatientId: TDataSource;
    DoctorAdviceTypeId: TDataSource;
    CreateBy: TDataSource;
    UpdateBy: TDataSource;
    DoctorId: TDataSource;
  private
    InpatientModel: TCloneDataModel;
    DoctorAdviceTypeModel: TCloneDataModel;
    CreateModel: TCloneDataModel;
    UpdateModel: TCloneDataModel;
    DoctorMOdel: TCloneDataModel;
  protected
     procedure InitModel; override;
  public
    function GetCaption : String; override;
    Function GetDetailView: Tview; override;
  end;

implementation

uses UMADDoctorAdvice, Factory, UPrimaryDataModel, UMADInpatient, UMADDoctorAdviceType,
     UVADIDoctorAdvice, UMADDoctor, UDataView;

{$R *.dfm}

function TVMADGDoctorAdvice.GetCaption: String;
begin
  Result := '医嘱';
end;

function TVMADGDoctorAdvice.GetDetailView: Tview;
var
  View: TVADIDoctorAdvice;
begin
  View := TVADIDoctorAdvice.Create(Self, GetModelFactory);
  View.SetModel(GetModel);
  Result := View;

end;

procedure TVMADGDoctorAdvice.InitModel;
begin
  inherited;
  InpatientModel := GetCloneDataModel(TPrimaryDataModel(InpatientFactory.GetModel));
  InpatientID.DataSet := InpatientModel.GetDataSet;

  DoctorAdviceTypeModel := GetCloneDataModel(TPrimaryDataModel(DoctorAdviceTypeFactory.GetModel));
  DoctorAdviceTypeID.DataSet := DoctorAdviceTypeModel.GetDataSet;

  CreateModel := GetCloneDataModel(TPrimaryDataModel(EmployeeFactory.GetModel));
  CreateBy.DataSet := CreateModel.GetDataSet;

  UpdateModel := GetCloneDataModel(TPrimaryDataModel(EmployeeFactory.GetModel));
  UpdateBy.DataSet := UpdateModel.GetDataSet ;

  DoctorMOdel := GetCloneDataModel(TPrimaryDataModel(DoctorFactory.GetModel));
  DoctorId.DataSet := DoctorMOdel.GetDataSet;
end;

end.