uservermodule.pas.~2~

delphi2009 部分中文资料,源程序等

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 }
  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;

end.