| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3268991
建立时间:2005年6月6日 |
| |
|
 [borland eco 技术][eco技术]关于oclservice 与oclpsservice的区别
软件技术
吕向阳 发表于 2006/5/21 16:17:09 |
| [borland eco c# delphi oclserice oclpsservice]oclservice返回的结果是ielement对象，而 oclpsservice返回的对象是ielementlist对象，是一个对象集。
在代码中说容易些，比如有一个类goods类，
(a)这是oclservice的用法
var
oclresult: IELEMENT;begin
cxresult:=fecospace.OclService.Evaluate('daterange.allinstances') if integer(cxresult.asobject)<1 then //无记录时 ...
（b）
//无数据时
var adaterange: daterange; akcmx: kcmx; oclresult: IELEMENT; list1: iobjectlist; i: Integer; oclpsservice: ioclpsservice; cxresult: ielement;begin
oclpsservice := ecoservicehelper.getoclpsservice(fecospace); cxresult := oclpsservice.execute('daterange.allinstances'); //得到列表 if (cxresult as ielementcollection).count < 1 then //可统计其个数 begin adaterange := daterange.Create(fecospace); adaterange.sjrange := 'first'; oclresult := oclpsservice.execute('goods.allinstances');
list1 := oclresult as iobjectlist; //转化为iobjectlist;
for i := 0 to List1.Count - 1 do begin akcmx := kcmx.create(fecospace); akcmx.daterange := adaterange; akcmx.goods := GOODS(LIST1[I].AsObject); // 调用其每一个值 end;
fecospace.UpdateDatabase; end;... |
|
|