s2.view.ts2datagridview.pas

来自「轉載的程序應用框架」· PAS 代码 · 共 35 行

unit S2.View.TS2DataGridView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.View.TS2DataItemsView, S2.Core.IS2DataExchange, cxStyles,
  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
  cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid;

type
  TS2DataGridView = class(TS2DataItemsView, IS2DataExchange)
    _Grid1DBTableView1: TcxGridDBTableView;
    _Grid1Level1: TcxGridLevel;
    _Grid1: TcxGrid;
  private
    { Private declarations }
  public
    procedure InitView; override;
  end;

implementation

{$R *.dfm}

{ TS2DataGridView }

procedure TS2DataGridView.InitView;
begin
  inherited;
end;

end.