看一下下面的代码
uses
; bde, DBTables;
procedure Create_Modify_BDE(Server_Name: string);
var
; bde_Alias, bieming_Alias: TStringList;
begin
; bde_Alias := TStringList.Create;
; Session.GetAliasNames(bde_Alias);
; bieming_Alias := TStringList.Create;
; with bieming_Alias do
; begin
; ; Add('SERVER NAME=' + Server_Name);
; ; Add('USER NAME=sa');
; ; Add('DATABASE NAME=Master');
; ; Add('BLOB SIZE=128');
; ; Add('BLOBS TO CACHE=4096');
; end;
; if (bde_Alias.IndexOf('MSSQL1') = -1) then
; ; {不存在BDE的Xinfang别名时直接添加}
; ; Session.AddAlias('MSSQL1', 'MSSQL', bieming_Alias)
; else
; ; Session.ModifyAlias('MSSQL1', bieming_Alias);
; try
; ; Session.SaveConfigFile;
; finally
; ; bieming_Alias.Free;
; end;
; bde_Alias.Free;
end;