| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3265221
建立时间:2005年6月6日 |
| |
|
 [borland eco 技术]eco的一本完整英文电子书及附代码，要学的人有福了
软件技术
吕向阳 发表于 2006/5/23 15:37:44 |
| 刚刚从德文翻译成英文的电子书，想学eco的朋友，英文有点基础的话，应该是有福了。中文教程不知是哪个年月的事，好象真正关注的人并不多。
但我用它做了几个项目，真的是方便，只是学习上有点曲线， 中文资料又不多。
下载地址：http://www.ecospace.de/58.html
如果打不开网页的话，可以使用网页代理去上，我今天已经下。
原来德文的我也下过，但只能用得上代码，其它的就是睁眼瞎了。 |
|
|
[borland eco 技术]oclpshandle的动态查询
软件技术
吕向阳 发表于 2006/5/22 12:38:33 |
oclpshandle的动态查询，当然是要先在可视化界面为oclpshandle增加列。以后可在代码中改动其每一列的表达式，并执行。
ohgoods.columns['firstsl'].Expression:= 'self.kcmxs->select
(p|p.daterange.sjrange=''000'+''').quantity->sum';
ohgoods.execute;
调试体会：
1）self代表oclpshandle（goods.allinstances）的主对象,goods---kcmx是0.1 ---0.*的关系
2） p代表的是对象goods.kcmxs对象,刚开始我一直当goods处理。
3）.quantity数量因为是kcmxs中的一个属性，因此也是一个对象集，所以一定要加sum求和得到，即使它只有一条记录也是。自己出错也就在这。 |
|
|
[borland eco 技术]为了这段代码，费时2小时
软件技术
吕向阳 发表于 2006/5/21 22:50:02 |
[borland eco delphi c# iobjectlist oclservice oclpsservice ]
这是为了自己作一下备忘，毕竞花了两小时，总要有所体会。
我的目的是为了测试一个goods类中的所有类对象是否在另一个类kcmx中出现，如没出现，则在kcmc类中增加一条记录，并将goods类还没加入的逐个加入。
oclresult := oclpsservice.execute('goods.allinstances');
list1 := iobjectlist(oclresult as Ielementcollection);
CXRESULT:=FECOSPACE.OclService.Evaluate('kcmx.allInstances->SELECT(p|p.daterange.SJRANGE='''+'first'').GOODS');&nbs |
|
|
[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;< |
|
|
[borland eco 技术]devexpress的 gridcontrol控件打印eco 数据
软件技术
吕向阳 发表于 2006/5/13 22:55:40 |
[borland eco ]
devexpress控件是一套极先进的控件,也适用于eco对象.
在gridcontrol中不需要麻烦的选择,只需要在datsource中加入我们的expression或oclpshandle即可.
甚至gridcontrol可直接打印出来,只需调用其print方法或showpreview方法;但美中不足的是,要打印标题就要有代码了,下面是我摸索的附标题的代码,备忘.
procedure formsalecx.Button1_Click(sender: System.Object; e: System.EventArgs);
var
ps:DevExpress.XtraPrinting.printingsystem;
link:DevExpress.XtraPrinting.PrintableComponentLink;
_printhead |
|
|
[borland eco 技术]将eco类作为参数传递
软件技术
吕向阳 发表于 2006/5/12 14:38:23 |
自己程序中的两段,经过反复试验得之,备忘.
procedure FORMGOODSELECT.DataGrid1_DoubleClick(sender: System.Object; e: System.EventArgs);
var
xx:ielement;
begin
if datagrid1.CurrentRowIndex<0 then exit;
xx:=ehgoods.Element.GetAsCollection()[datagrid1.CurrentRowIndex];
if goodsarr.IndexOf(xx)>=0 then
exit;
goodsarr.Add(xx); //将选定对象加入到列表中
dispgoodlist; //显示列表对象到列表框
end;< |
|
|