uservermodule.pas

来自「delphi2009 部分中文资料,源程序等」· PAS 代码 · 共 45 行

unit uServerModule;

interface

uses
  SysUtils, Classes, DSServer, WideStrings, DbxBlackfishSQL, FMTBcd, DB, SqlExpr;

type
  TDSServerModule1 = class(TDSServerModule)
    TIBURONBLACKFISHDEMODB: TSQLConnection;
    UNICODEDEMOTABLE: TSQLDataSet;
    procedure DSServerModuleCreate(Sender: TObject);
    procedure DSServerModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function GetMyUnicodeData : TDataSet;
  end;

var
  DSServerModule1: TDSServerModule1;

implementation

{$R *.dfm}

procedure TDSServerModule1.DSServerModuleCreate(Sender: TObject);
begin
  Self.TIBURONBLACKFISHDEMODB.Connected := True;
end;

procedure TDSServerModule1.DSServerModuleDestroy(Sender: TObject);
begin
  Self.TIBURONBLACKFISHDEMODB.Connected := False;
end;

function TDSServerModule1.GetMyUnicodeData: TDataSet;
begin
  if (Self.UNICODEDEMOTABLE.Active = False) then
    Self.UNICODEDEMOTABLE.Active := True;
  Result := Self.UNICODEDEMOTABLE;
end;

end.