uvadidamaterial.pas

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

unit UVADIDAMaterial;

interface

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

type
  TVADIDAMaterial = class(TAdapterDataItemView)
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzLabel11: TRzLabel;
    RzLabel13: TRzLabel;
    RzLabel14: TRzLabel;
    RzDBLookupComboBox1: TRzDBLookupComboBox;
    RzDBLookupComboBox2: TRzDBLookupComboBox;
    RzDBLookupComboBox3: TRzDBLookupComboBox;
    DoctorAdviceId: TDataSource;
    UseMethodId: TDataSource;
    ApproachId: TDataSource;
    RzDBLookupComboBox5: TRzDBLookupComboBox;
    RzLabel5: TRzLabel;
    RzDBDateTimeEdit3: TRzDBDateTimeEdit;
    MaterialId: TDataSource;
  private
    DoctorAdviceModel: TCloneDataModel;
    UseMethodModel: TCloneDataModel;
    ApproachModel: TCloneDataModel;
    MaterialModel: TCloneDataModel;
    StopModel: TCloneDataModel;
 protected
    procedure InitModel; override;
  public
   function GetCaption: string; override;
  end;

implementation

uses UMADDAMaterial, UMADDoctorAdvice, UMADEmployee, UMADMaterial, UMADUseMethod,UMADApproach,
     Factory, UPrimaryDataModel;

{$R *.dfm}

{ TVADIDAMaterial }

function TVADIDAMaterial.GetCaption: string;
begin
  Result := '医嘱用材料';
end;

procedure TVADIDAMaterial.InitModel;
begin
  inherited;
  DoctorAdviceModel := GetCloneDataModel(TPrimaryDataModel(DoctorAdviceFactory.GetModel));
  DoctorAdviceId.DataSet := DoctorAdviceModel.GetDataSet;

  UseMethodModel := GetCloneDataModel(TPrimaryDataModel(UseMethodFactory.GetModel));
  UseMethodId.DataSet := UseMethodModel.GetDataSet;

  ApproachModel := GetCloneDataModel(TPrimaryDataModel(ApproachFactory.GetModel));
  ApproachId.DataSet := ApproachModel.GetDataSet;

  MaterialModel := GetCloneDataModel(TPrimaryDataModel(MaterialFactory.GetModel));
  MaterialId.DataSet := MaterialModel.GetDataSet;
end;

end.