uvadgchargeitem.pas

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

unit UVADGChargeItem;

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, cxCurrencyEdit;

type
  TVADGChargeItem = class(TAdapterDataGridView)
    ChargeItemCode: TDataSource;
    GridDBTableViewCHARGEITEMCODE: TcxGridDBColumn;
    GridDBTableViewCHARGECATALOGCODE: TcxGridDBColumn;
    GridDBTableViewCHARGE: TcxGridDBColumn;
    GridDBTableViewCAPTION: TcxGridDBColumn;
  private
   ChargeCatalogCodeModel: TCloneDataModel;
  public
   function GetCaption: string; override;   //wangjie
   procedure InitModel; override;
  end;

implementation

uses  Factory, UPrimaryDataModel, UMADChargeItem, UMADChargeCatalog;

{$R *.dfm}

{ TVADGChargeItem }

function TVADGChargeItem.GetCaption: string;
begin
  Result := '收费项目';
end;

procedure TVADGChargeItem.InitModel;
begin
  inherited;
  ChargeCatalogCodeModel := Self.GetCloneDataModel(TPrimaryDataModel(ChargeCatalogFactory.GetModel));
  ChargeItemCode.DataSet := ChargeCatalogCodeModel.GetDataSet;
end;

end.