uvadiinpatient.pas

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

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, RzBorder, UDataItemsView, MyTools;

type
  TVADIInpatient = class(TAdapterDataItemView)
    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;
    RzLabel23: TRzLabel;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBEdit5: TRzDBEdit;
    RzDBEdit6: TRzDBEdit;
    RzDBEdit7: TRzDBEdit;
    RzDBEdit8: TRzDBEdit;
    RzDBEdit9: TRzDBEdit;
    RzDBEdit10: TRzDBEdit;
    RzDBEdit11: 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;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzDBLookupComboBox8: TRzDBLookupComboBox;
    RzLabel12: TRzLabel;
    RzDBLookupComboBox9: TRzDBLookupComboBox;
    Doctor: TDataSource;
    SectionOffice: TDataSource;
    RzDBDateTimeEdit1: TRzDBDateTimeEdit;
    RzBitBtn1: TRzBitBtn;
    procedure RzBitBtn1Click(Sender: TObject);
  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
  UMADInpatientStation, Factory, UPrimaryDataModel, UMADDoctorStation,
  UMADSectionOffice, UDataView, UMADSickNessLevel, UVADGDoctor, UDialogDataItemsView;
{$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;

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

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

procedure TVADIInpatient.RzBitBtn1Click(Sender: TObject);
var
  Dialog: TDialogDataItemsView;
begin
  GetDataModel.GetDataSet.Edit;
  Dialog := TDialogDataItemsView.Create(Self, TDataItemsView(TVADGDoctor.Create(Self, DoctorStationFactory)));
  if Dialog.ShowModal = mrOK then
    GetDataModel.GetDataSet.FieldByName('DoctorID').ASInteger := IIntegerKey(Dialog.GetKey).GetKey;
  Dialog.Free;
end;

end.