s2.view.ts2adapterdatagridview.pas

轉載的程序應用框架

unit S2.View.TS2AdapterDataGridView;

interface

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

type
  TS2AdapterDataGridView = class(TS2AdapterDataItemsView)
    _Grid1: TcxGrid;
    _Grid1DBTableView1: TcxGridDBTableView;
    _Grid1Level1: TcxGridLevel;
    cxStyleRepository1: TcxStyleRepository;
    ContentOddStyle: TcxStyle;
    BackgroundStyle: TcxStyle;
    SelectionStyle: TcxStyle;
    HeaderStyle: TcxStyle;
  private
    { Private declarations }
  public
    procedure InitView; override;
    procedure SetModel(Model: TS2Model); override;
  end;

implementation

uses
  S2.Model.TS2DataModel;

{$R *.dfm}

{ TS2AdapterDataGridView }

procedure TS2AdapterDataGridView.InitView;
begin
  inherited;
end;

procedure TS2AdapterDataGridView.SetModel(Model: TS2Model);
begin
  inherited;
  _Grid1DBTableView1.DataController.DataSource := GetDataModel.GetDataSource;
end;

end.