first3tier2009_servermodule.pas

来自「source code for the Marco Cantu s book D」· PAS 代码 · 共 34 行

unit First3Tier2009_ServerModule;

interface

uses
  SysUtils, Classes, DSServer, WideStrings, DBXInterbase, FMTBcd, Provider, DB,
  SqlExpr, DSCommonServer, DSTCPServerTransport;

type
  TDSFirst3TierServerModule = class(TDSServerModule)
    IBCONNECTION: TSQLConnection;
    EMPLOYEE: TSQLDataSet;
    DataSetProviderEmployee: TDataSetProvider;
  private
    { Private declarations }
  public
    function GetHello: string;
  end;

var
  DSFirst3TierServerModule: TDSFirst3TierServerModule;

implementation

{$R *.dfm}

{ TDSFirst3TierServerModule }

function TDSFirst3TierServerModule.GetHello: string;
begin
  Result := 'Hello from TDSFirst3TierServerModule at ' + TimeToStr (Now);
end;

end.