app.test.employeegridview.pas

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

unit App.Test.EmployeeGridView;

interface

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

type
  TEmployeeGridView = class(TS2AdapterDataGridView)
    _Grid1DBTableView1test_id: TcxGridDBColumn;
    _Grid1DBTableView1caption: TcxGridDBColumn;
  protected
    procedure InitView; override;
  private
    EmployeeModel: TS2ClientDataModel;
  public
    function GetCaption: string; override;
  end;

implementation

uses
  S2.Model.TS2Model, S2.Model.TS2DataModel, 
  App.Test.EmployeeModel, S2.Model.TS2ServerDataModelFactory, S2.Model.IS2ModelFactory, S2.Core.IS2SystemObject;

{$R *.dfm}

{ TEmployeeGridView }

function TEmployeeGridView.GetCaption: string;
begin
  Result := 'Employee';
end;

procedure TEmployeeGridView.InitView;
begin
  RegisterMasterDataModel(TEmployeeModel);
end;

end.