uvadiinpatienthistoryquery.pas

来自「医院信息管理系统 后台采用ORACLE」· PAS 代码 · 共 132 行

unit UVADIInpatientHistoryQuery;

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, RzDBEdit, DBCtrls, RzDBCmbo, StdCtrls, Mask, RzEdit,
  RzLabel, RzBorder, MyTools, UCloneDataModel;

type
  TVADIInpatientHistoryQuery = class(TAdapterDataItemView)
    RzBorder1: TRzBorder;
    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;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel12: TRzLabel;
    RzLabel11: TRzLabel;
    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;
    RzDBLookupComboBox8: TRzDBLookupComboBox;
    RzDBLookupComboBox9: TRzDBLookupComboBox;
    RzDBDateTimeEdit1: TRzDBDateTimeEdit;
    RzDBDateTimeEdit2: TRzDBDateTimeEdit;
    PERSONRELATION: TDataSource;
    BloodType: TDataSource;
    Country: TDataSource;
    Doctor: TDataSource;
    SickType: TDataSource;
    SectionOffice: TDataSource;
    FoodID: TDataSource;
    SickNessLevel: TDataSource;
    Bed: TDataSource;
  private
    FoodModel : TCloneDataModel;
    SickNessLevelModel : TCloneDataModel;
    BedModel : TCloneDataModel;
    SICKTYPEModel:   TCloneDataModel;
    CountryModel:    TCloneDataModel;
    BloodTypeModel:  TCloneDataModel;
    PERSONRELATIONModel:  TCloneDataModel;
    DoctorModel : TCloneDataModel;
    SectionOfficeModel : TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption : string; override;
  end;

implementation
uses
  UMADSickNessHistoryModify, Factory, UPrimaryDataModel, UMADDoctorStation,
  UMADSectionOffice, UDataView, UMADSickNessLevel, UVADGDoctor, UDialogDataItemsView;
{$R *.dfm}

{ TVADIInpatientHistoryQuery }

function TVADIInpatientHistoryQuery.GetCaption: string;
begin
  Result := '入院病人历史';
end;

procedure TVADIInpatientHistoryQuery.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;

  DoctorModel := GetCloneDataModel(TPrimaryDataModel(DoctorStationFactory.GetModel));
  Doctor.DataSet := DoctorModel.GetDataSet;

  SectionOfficeModel := GetCloneDataModel(TPrimaryDataModel(SectionOfficeFactory.GetModel));
  SectionOffice.DataSet := SectionOfficeModel.GetDataSet;
end;

end.