DELPHI多层分布式开发(2)

日期：2007年5月2日作者：查看:[大字体中字体小字体]

Return type :HRESULT

Parameters

name type modifier

DBName BSTR [in] ----传上来的别名

（用Add加入）

UserName BSTR [in]

Password BSTR [in]

刷新（Refresh Implementation）以后，就产生两个函数

function TPcSQL.GetDatabasenames: OleVariant;

begin

end;

procedure TPcSQL.SetDatabasename(const DBname, Username,

Password: WideString);

begin

end;

function TPcSQL.GetDatabaseNames: OleVariant;

var

I: Integer;

DBNames: TStrings;

begin

// 建立一个字符串数组存放BDE所有的数据库别名数据。

DBNames := TStringList.Create;

try

// 利用Session控件取得当前BDE所有的数据库别名数据。

Session1.GetDatabaseNames(DBNames);

/// 建立一个变量数组给函数返回变量Result。

Result := VarArrayCreate([0, DBNames.Count - 1], varOleStr);
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] 下一页
DELPHI多层分布式开发(2) 相关文章：
·DELPHI多层分布式开发(2)
DELPHI多层分布式开发(2) 相关软件