uvadgpaymentmethod.pas

医院信息管理系统 后台采用ORACLE

unit UVADGPaymentMethod;

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

type
  TVADGPaymentMethod = class(TAdapterDataGridView)
    GridDBTableViewPAYMENTMETHODID: TcxGridDBColumn;
    GridDBTableViewCAPTION: TcxGridDBColumn;
  private
    { Private declarations }
  public
      function GetCaption: string; override;   //wangjie
  end;

implementation

{$R *.dfm}

{ TVADGPaymentMethod }

function TVADGPaymentMethod.GetCaption: string;
begin
  Result := '付费方式';
end;

end.