uvmadginpatient.pas

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

unit UVMADGInpatient;

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, UCloneDataModel, cxDBLookupComboBox, Uview;

type
  TVMADGInpatient = class(TMasterAdapterDataGridView)
    FoodID: TDataSource;
    SickNessLevel: TDataSource;
    Bed: TDataSource;
    SickType: TDataSource;
    Country: TDataSource;
    BloodType: TDataSource;
    PERSONRELATION: TDataSource;
    GridDBTableViewINPATIENTID: TcxGridDBColumn;
    GridDBTableViewLINKMANPHONE: TcxGridDBColumn;
    GridDBTableViewLINKMANADDRESS: TcxGridDBColumn;
    GridDBTableViewLINKMANNAME: TcxGridDBColumn;
    GridDBTableViewRPRPOSTCODE: TcxGridDBColumn;
    GridDBTableViewRPRADDRESS: TcxGridDBColumn;
    GridDBTableViewWORKDEPTPOSTCODE: TcxGridDBColumn;
    GridDBTableViewIDCARDCODE: TcxGridDBColumn;
    GridDBTableViewPHONE: TcxGridDBColumn;
    GridDBTableViewWORKDEPATCAPTION: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewMEMO: TcxGridDBColumn;
    GridDBTableViewPREPAY: TcxGridDBColumn;
    GridDBTableViewBLANCE: TcxGridDBColumn;
    GridDBTableViewFOODID: TcxGridDBColumn;
    GridDBTableViewSICKNESSLEVELID: TcxGridDBColumn;
    GridDBTableViewBEDID: TcxGridDBColumn;
    GridDBTableViewSICKTYPEID: TcxGridDBColumn;
    GridDBTableViewCOUNTRYID: TcxGridDBColumn;
    GridDBTableViewBLOODTYPEID: TcxGridDBColumn;
    GridDBTableViewPERSONRELATIONID: TcxGridDBColumn;
  private
    FoodModel : TCloneDataModel;
    SickNessLevelModel : TCloneDataModel;
    BedModel : TCloneDataModel;
    SICKTYPEModel:   TCloneDataModel;
    CountryModel:    TCloneDataModel;
    BloodTypeModel:  TCloneDataModel;
    PERSONRELATIONModel:  TCloneDataModel;

  protected
    procedure InitModel; override;
  public
    function GetCaption : string; override;
    function GetDetailView: TView; override;
  end;

implementation

uses UMADInpatient, Factory, UPrimaryDataModel, UMADSickNessLevel, UMADBed,
     UMADFood, UMADSICKTYPE, UMADCountry, UMADBloodType, UMADPERSONRELATION,  UDataView, UVADIInpatient;

{$R *.dfm}

{ TVMADGInpatient }

function TVMADGInpatient.GetCaption: string;
begin
    Result := '住院病人信息';
end;

function TVMADGInpatient.GetDetailView: TView;
var
  View: TVADIInpatient;
begin
  View := TVADIInpatient.Create(Self, GetModelFactory);
  View.SetModel(GetModel);
  Result := View;
end;

procedure TVMADGInpatient.InitModel;
begin
  inherited;
  FoodModel := GetCloneDataModel(TPrimaryDataModel(FoodFactory.GetModel));
  FoodID.DataSet := FoodModel.GetDataSet;

  SickNessLevelModel := GetCloneDataModel(TPrimaryDataModel(SickNessLevelFactory.GetModel));
  SickNessLevel.DataSet := SickNessLevelModel.GetDataSet;

  BedModel := GetCloneDataModel(TPrimaryDataModel(BedFactory.GetModel));
  Bed.DataSet := BedModel.GetDataSet;

  SICKTYPEModel := GetCloneDataModel(TPrimaryDataModel(SICKTYPEFactory.GetModel));
  Bed.DataSet := BedModel.GetDataSet;

  CountryModel := GetCloneDataModel(TPrimaryDataModel(CountryFactory.GetModel));
  Bed.DataSet := BedModel.GetDataSet;

  BloodTypeModel := GetCloneDataModel(TPrimaryDataModel(BloodTypeFactory.GetModel));
  Bed.DataSet := BedModel.GetDataSet;

  PERSONRELATIONModel := GetCloneDataModel(TPrimaryDataModel(PERSONRELATIONFactory.GetModel));
  Bed.DataSet := BedModel.GetDataSet;
end;

end.