uvmadgdoctoradvice.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

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.