【结】在资源集里如何创建标准数据集**

lixy

http://bbs.justep.com/forum.php? ... BC%AF%2Atsqldataset

刺青

lSqlDataSet:=TSQLDataSet.Create(lContext.Owner);     //    lContext是该类构造器里的参数
这个不懂,lContext是怎么来的?自己定义的吗?
我这样定义了,
var
  lContext:TComponent;
但是用的时候,还是提示参数出错.

刺青

代码如下:
procedure TGGHS.hq_sqjbxx;
var
   lsqlDataSet : TsqlDataSet;
   lContext:TComponent;
begin
      lsqlDataSet := TSQLDataSet.Create(lContext.Owner);
      try
         lsqlDataSet.Database.URL := 'Biz:SQWSFWGLXTSJK.Database';
         lsqlDataSet.SQL.Text := 'select * from SQJBQKB';
         lsqlDataSet.Open;
         SQBM:=lsqlDataSet.FieldByName('SQBM').AsString;
         SQMC:=lsqlDataSet.FieldByName('SQMC').AsString;
      Finally
             lsqlDataSet.Free;
      end;
end;

错误如图:

atiger

lContext 从调用这个资源集的地方传过来的，例如功能

atiger

另外，回复8楼，取当前登陆者的当前公司：BizSys.BizSystem.ClientAccount

刺青

OK,可以结了,谢谢两位!

atiger

不客气，结贴