uvmadginpatient.pas

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

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.