app.test.employeemodel.pas

轉載的程序應用框架

unit App.Test.EmployeeModel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Model.TS2ADOServerDataModel, DB, ADODB, Provider, DBClient, Types;

type
  TEmployeeModel = class(TS2ADOServerDataModel)
    _DataSettest_id: TAutoIncField;
    _DataSetcaption: TStringField;
  protected
    function GetPrimaryKeyName: TStringDynArray; override;
  public
    function GetCaption: string; override;
  end;

implementation

uses
  S2.Tools.TS2String, App.Test.MyDatabase;

{$R *.dfm}

{ TEmployeeModel }

function TEmployeeModel.GetCaption: string;
begin
  Result := 'EmployeeModel';
end;

function TEmployeeModel.GetPrimaryKeyName: TStringDynArray;
begin
  Result := TS2String.PackDynArray(['test_id']);
end;

end.