小妹?^_^?捉虫:在TDATABASE控件的ALIASNAME属性中用到别名与设置databasename和params属性实质是不是一样的? 可以,在程序中写入PATH=D:\xunjian\databaseENABLE BCD=FALSEDEFAULT DRIVER=PARADOX 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在TDATABASE控件的ALIASNAME属性中用到别名可以在程序在动态设置,或者是用sql explorer建好了再用。procedure TDm1.InitDataBase(aliasnames :string;localpath:string);var AliasParams:TStringList; FilePath : string;begin FilePath := 'path=' + DefaultDir + localpath +'\'; Aliasparams:=TStringList.Create; AliasParams.Add(Filepath); if not Session.IsAlias(aliasnames) then begin try Session.AddAlias(aliasnames,'STANDARD',ALiasParams); Session.SaveConfigFile; finally AliasParams.Free; end; end else begin try Session.ModifyAlias(aliasnames,AliasParams); Session.SaveConfigFile; finally AliasParams.Free; end; end;end; DELPHI 指定打印机打印 三层的多线程问题,小弟请教了!请都来看看!! 高分啦!!!高手们!帮我看一下一个数据库问题 如何从SELECT a,b FROM TABLE1 COMPUTE SUM(a)产生的两个结果集中取出SUM(a) 请进!!!白送分的问题 Delphi form 显示不出来 高分求解!高手请进 仇深似海,为什么BDE会这样! lingice(编程浪子),希望与你交个朋友,原因是... batchmove执行时会发动触发器吗? 请问如何加入像TFont一样的特性,即特性既有一个加号又有一个省略号按钮? 我的一个朋友的问题,请大家帮帮忙,谢谢
var
AliasParams:TStringList;
FilePath : string;
begin
FilePath := 'path=' + DefaultDir + localpath +'\';
Aliasparams:=TStringList.Create;
AliasParams.Add(Filepath); if not Session.IsAlias(aliasnames) then
begin
try
Session.AddAlias(aliasnames,'STANDARD',ALiasParams);
Session.SaveConfigFile;
finally
AliasParams.Free;
end;
end else
begin
try
Session.ModifyAlias(aliasnames,AliasParams);
Session.SaveConfigFile;
finally
AliasParams.Free;
end;
end;
end;