|

楼主 |
发表于 2008-7-14 17:14:05
|
显示全部楼层
这个方法能实现我需要的吗?
方法一、Business.Model.BizUtils.BuildFilter(lFilter, Context, lDatabaseURL, lSQLText, nil)
procedure TMainForm.Button1Click(Sender: TObject);
var
lFilter:string;
lDatabaseURL:string;
lSQLText:string;
begin
lDatabaseURL := 'Biz:\ZSSC\ZSLIMS.Database';
lSQLText := 'SELECT * FROM WTDB';
lFilter := 'WTDB.WTDH=''444''';
if Business.Model.BizUtils.BuildFilter(lFilter, Context, lDatabaseURL, lSQLText, nil) then
begin
TSQLDataSet(DataSetBroker1.DataSet).UserFilter := lFilter;
end;
end;
BuildFilter 中的参数:
第一个 :过滤的条件
第二个 :启动一个上下关联的作用,就写 Context
第三个 :数据集的数据库连接字符串
第四个 : 数据集的 SQL 语句
第五个 : 指的在数据集中的 SQL 语句中使用到的参数 |
|