uvadidamaterial.pas

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

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.