| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3271994
建立时间:2005年6月6日 |
| |
|
 [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;< |
|
|
[borland eco 技术]mdb文件连接路径自动设置
软件技术
吕向阳 发表于 2006/5/9 8:59:36 |
constructor TtestabcEcoSpace.Create;
var
strpath:string;
begin
inherited Create;
InitializeComponent;
strpath:=Environment.get_CurrentDirectory+'\kh.mdb';
bdpconnection1.ConnectionString:=
'assembly=Borland.Data.Msacc,Version=2.5.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b;vendorclient=msjet40.dll;pooling=True;grow on demand=True;database='+strpath+';username=admin;max pool size=100;password=;provider=MSAccess;min pool size=0'
|
|
|