unit UVADGSectionOfficeChargeItem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, RzCommon, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, jpeg, RzBckgnd, ExtCtrls,
  RzPanel, cxDBLookupComboBox,
  UCloneDataModel;

type
  TVADGSectionOfficeChargeItem = class(TAdapterDataGridView)
    GridDBTableViewCHARGEITEMCODE: TcxGridDBColumn;
    GridDBTableViewSECTIONOFFICEID: TcxGridDBColumn;
    ChargeItemId: TDataSource;
    SectionOfficeId: TDataSource;
  private
    ChargeItemModel: TCloneDataModel;
    SectionOfficeModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption :String; override;
  end;

implementation

uses UMADSectionOfficeChargeItem, Factory, UPrimaryDataModel, UMADChargeItem,
    UMADSectionOffice, UDataView;

{$R *.dfm}

{ TVADGSectionOfficeChargeItem }

function TVADGSectionOfficeChargeItem.GetCaption: String;
begin
   Result := '科室收費項目';
end;

procedure TVADGSectionOfficeChargeItem.InitModel;
begin
  inherited;

  ChargeItemModel:= GetCloneDataModel(TPrimaryDataModel(ChargeItemFactory.GetModel));
  ChargeItemId.DataSet := ChargeItemModel.GetDataSet;

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

end.