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.