unit UVADGDATemplate;

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;

type
  TVADGDATemplate = class(TAdapterDataGridView)
    GridDBTableViewDATEMPLATEID: TcxGridDBColumn;
    GridDBTableViewCAPTION: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
  private
    { Private declarations }
  public
    function GetCaption: string; override;
  end;

implementation

uses UMADDATemplate;

{$R *.dfm}

{ TVADGDATemplate }

function TVADGDATemplate.GetCaption: string;
begin
   Result := '醫囑模板';
end;

end.