var Session: TSession; Params: TStringList; begin Session := TSession.Create(nil); Params := TStringList.Create; try Session.SessionName := 'MySession'; //Session.AddDriver(); Params.Values['PATH'] := 'c:\'; Params.Values['STANDARD'] := ''; Session.add //Session.AddDriver('e6lswj',Params) // Session.AddAlias('MySession','e6lswj',Params) //Session.ModifyAlias('e6lswj', Params); // Perform database operations here... finally Params.Free; Session.Free; end; end; 怎么给BDE 加一个 STANDARD 名字是 e6lswj

可以按照以下方式向 BDE 添加名为 e6lswj 的 STANDARD：

1. 在 Params.Values['STANDARD'] := ''; 后添加如下代码：

Params.Values['STANDARD'] := 'e6lswj';

2. 在 Session.add 后添加如下代码：

Session.AddDriver('STANDARD', Params);

完整的代码如下：

var
Session: TSession;
Params: TStringList;
begin
Session := TSession.Create(nil);
Params := TStringList.Create;
try
Session.SessionName := 'MySession';
Params.Values['PATH'] := 'c:\';
Params.Values['STANDARD'] := 'e6lswj';
Session.AddDriver('STANDARD', Params);
// Perform database operations here...
finally
Params.Free;
Session.Free;
end;
end;