unit UVADGMaterialCatalog;

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, UCloneDataModel, cxDBLookupComboBox;

type
  TVADGMaterialCatalog = class(TAdapterDataGridView)
    GridDBTableViewMATERIALCATALOGID: TcxGridDBColumn;
    GridDBTableViewCODE: TcxGridDBColumn;
    GridDBTableViewCHARGECATALOGCODE: TcxGridDBColumn;
    GridDBTableViewPINYIN: TcxGridDBColumn;
    GridDBTableViewCAPTION: TcxGridDBColumn;
    ChargeCatalog: TDataSource;
  private
    ChargeCatalogModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
  end;


implementation

uses UMADMaterialCatalog, UMADChargeCatalog, Factory, UPrimaryDataModel;

{$R *.dfm}

{ TVADGMaterialCatalog }

function TVADGMaterialCatalog.GetCaption: string;
begin
  Result := '醫用物資分類';
end;

procedure TVADGMaterialCatalog.InitModel;
begin
  inherited;
  ChargeCatalogModel := TCloneDataModel.Create(Self);
  TPrimaryDataModel(ChargeCatalogFactory.GetModel).Clone(ChargeCatalogModel);
  ChargeCatalog.DataSet := ChargeCatalogModel.GetDataSet;
end;

end.