uservermodule.pas.~2~

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

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.