uvadgcheckoutmethod.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

unit UVADGCheckOutMethod;

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


type
  TVADGCheckOutMethod = class(TAdapterDataGridView)
    GridDBTableViewCHECKOUTMETHODID: TcxGridDBColumn;
    GridDBTableViewCAPTION: TcxGridDBColumn;
  private
    { Private declarations }
  public
     function GetCaption: string; override;
  end;

implementation


{$R *.dfm}

{ TVADGCheckOutMethod }

function TVADGCheckOutMethod.GetCaption: string;
begin
  Result := '出库方式';
end;

end.