【结帖】怎样用系统空间下的一个已做好的窗体**

souhuchong01

我想用系统空间-用户界面基础-界面库-系统接口下的一个已做好的窗体，叫“简单sql条件构造窗体”，这个正是我想要的，我应该怎样调用它？里面的代码是否用修改？请说的详细的一点。谢谢。

zfang

类似于这样调用（需要在项目管理中引用该资源集）
procedure TMainForm.Button1Click(Sender: TObject);
var
  lStr : String;
begin
  //BASESYSTEMINTERFACE.TSIMPLESQLFILTERBUILDFORM.Create(Context);
  BASESYSTEMINTERFACE.TSIMPLESQLFILTERBUILDFORM.BuildSQLFilter(TBizDataSet(DataSetBroker1.DataSet),lStr);
  jsDialogs.showmsg(lstr,'');
end;

souhuchong01

运行后报错。如图

souhuchong01

如图

zfang

编译看看，另 需要传入一个数据集。

zfang

另外，楼主，用上面的方法不太好，最好这样用
需要引用业务模型\系统空间\系统运行库\系统核心库
procedure TMainForm.Button2Click(Sender: TObject);
var
  lStr : String;
begin
  SystemCore.TSYSTEMCORE.SystemInterface.BuildSQLFilter(TBizDataSet(DataSetBroker1.dataSet),lStr);
end;

souhuchong01

我们领导的意思是不在x3里建表，而是我们的机器（client）都连服务器A，A上早已建了一个dblink,这个dblink指向的是另一台erp服务器B的一个数据库，oracle型。我们就这样client----A----B.ERP，通过这样一条3点链路实时看B中的表。所以我的datasetbroker中的datasetID和infobroker不知写什么。
我新建了一个窗体，加了一个按钮，加了一个datasetbroker，引入核心库，然后拷进zfang老师的语句，运行后点击按钮报错

zfang

datasetbroker是数据集代理，代理信息层中的某一个数据集。
你最好建立一个信息层，信息层中建一个数据集，然后把业务信息分配给功能，这样通过datasetbroker就能访问到具体的某一个数据集了。

souhuchong01

我把表都映射过来了，然后建了业务信息层和功能层，在功能层了引入了核心库，并在功能层添加了datasetbroker,infobroker,funcbroker和一个按钮，在按钮单击事件里把您的那几句话写进去，已运行就ok啦。谢谢。结帖吧。

zfang

好的，谢谢反馈。