在先等待Tsession问题

[CaiNiaoNo1]

我用Tsession.gettablenames方法连接指定数据别名老弹出登录对话框，有什么办法把他隐藏掉，就象TDatabase那样自动设置密码和用户名，将LoginPrompt设置为False?

[Snakeguo]

试试Session.AddPassword('your password');

[CaiNiaoNo1]

up,up

[liujidong]

Tsession是和tdatabase相关联的，缺省的时候tdatabase有一个系统的session,所以还是这样设置一下就好了

[CaiNiaoNo1]

都不行！！！

[CaiNiaoNo1]

我已经通过方法重载实现了，拿出来和大家共享：
procedure TForm1.GetTableNames(Database:TDatabase;Pattern: string;
Extensions, SystemTables: Boolean; List: TStrings);
var
Cursor: HDBICur;
WildCard: PChar;
Name: string;
SPattern: DBITBLNAME;
Desc: TBLBaseDesc;
begin
List.BeginUpdate;
try
List.Clear;
Database.connected:=true;
try
WildCard := nil;
if Pattern <> '' then
WildCard := AnsiToNative(Database.Locale, Pattern, SPattern,
SizeOf(SPattern) - 1);
Check(DbiOpenTableList(Database.Handle, False, SystemTables,
WildCard, Cursor));
try
while DbiGetNextRecord(Cursor, dbiNOLOCK, @Desc, nil) = 0 do
with Desc do
begin
if Extensions and (szExt[0] <> #0) then
StrCat(StrCat(szName, '.'), szExt);
NativeToAnsi(Database.Locale, szName, Name);
List.Add(Name);
end;
finally
DbiCloseCursor(Cursor);
end;
finally
Database.Close;
end;
finally
List.EndUpdate;
end;
end;

[johnsonrao]

不会只加密码没加用户名吧，还有好几项

[johnsonrao]

不会只加密码没加用户名吧，还有好几项

[hzb]

Tsession.gettablenames后面的databasename参数应该是你程序里TDataBase控件的DataBaseName，不是BDE的别名。

[CaiNiaoNo1]

这个问题我自己解决掉了，谢谢各位。