uvadiinpatient.pas

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

unit UVADIInpatient;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataItemView, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
  dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
  dxPSEdgePatterns, DB, dxPSCore, RzCommon, RzButton, jpeg, RzBckgnd,
  ExtCtrls, RzPanel, DBCtrls, RzDBCmbo, RzDBEdit, StdCtrls, Mask, RzEdit,
  RzLabel, Uview, UCloneDataModel;

type
  TVADIInpatient = class(TAdapterDataItemView)
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzLabel9: TRzLabel;
    RzLabel10: TRzLabel;
    RzLabel13: TRzLabel;
    RzLabel14: TRzLabel;
    RzLabel15: TRzLabel;
    RzLabel16: TRzLabel;
    RzLabel17: TRzLabel;
    RzLabel18: TRzLabel;
    RzLabel19: TRzLabel;
    RzLabel20: TRzLabel;
    RzLabel21: TRzLabel;
    RzLabel22: TRzLabel;
    RzLabel23: TRzLabel;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBEdit7: TRzDBEdit;
    RzDBEdit8: TRzDBEdit;
    RzDBEdit9: TRzDBEdit;
    RzDBEdit10: TRzDBEdit;
    RzDBEdit11: TRzDBEdit;
    RzDBEdit12: TRzDBEdit;
    RzDBEdit13: TRzDBEdit;
    RzDBLookupComboBox1: TRzDBLookupComboBox;
    RzDBLookupComboBox2: TRzDBLookupComboBox;
    RzDBLookupComboBox3: TRzDBLookupComboBox;
    RzDBLookupComboBox4: TRzDBLookupComboBox;
    RzDBLookupComboBox5: TRzDBLookupComboBox;
    RzDBLookupComboBox6: TRzDBLookupComboBox;
    RzDBLookupComboBox7: TRzDBLookupComboBox;
    FoodID: TDataSource;
    SickNessLevel: TDataSource;
    Bed: TDataSource;
    PERSONRELATION: TDataSource;
    BloodType: TDataSource;
    Country: TDataSource;
    SickType: TDataSource;
  private
    FoodModel : TCloneDataModel;
    SickNessLevelModel : TCloneDataModel;
    BedModel : TCloneDataModel;
    SICKTYPEModel:   TCloneDataModel;
    CountryModel:    TCloneDataModel;
    BloodTypeModel:  TCloneDataModel;
    PERSONRELATIONModel:  TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption : string; override;
  end;


implementation

  uses
     UMADInpatient, Factory, UPrimaryDataModel;
{$R *.dfm}

{ TVADIInpatient }

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

procedure TVADIInpatient.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.