| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3267725
建立时间:2005年6月6日 |
| |
|
 [borland eco 技术]制作主页面菜单调用eco各模块的mygeneration模板(原)
软件技术
吕向阳 发表于 2006/9/4 7:59:47 |
<%
Dim bFirst
Dim name
Dim pname
Dim objTable
Dim objColumn
Dim tableNames
Dim databaseName
Dim tableName
'dim ecospace
dim jj
' Grab the namespace
namespace = input.Item("txtNamespace")
Set tableName = input.Item("lstTables")
MyMeta.Language = input.Item("cmbLanguages")
MyMeta.DbTarget = "OleDb"
' Grab the choices the user made in our UI Script (see Interface Code tab)
Set tableNames = input.Item("lstTables")
'ecospace=i |
|
|
[borland eco 技术]mygeneration中自己做的模板,用于eco的输入
软件技术
吕向阳 发表于 2006/9/3 20:51:09 |
花了半天时间,做了一个delphi下eco的单表输入页面模板,下是备忘,表是基于access的,
其中主程序:
<%
Dim bFirst
Dim name
Dim pname
Dim objTable
Dim objColumn
Dim tableNames
Dim databaseName
Dim tableName
dim ecospace
dim jj
' Grab the namespace
namespace = input.Item("txtNamespace")
Set tableName = input.Item("lstTables")
MyMeta.Language = input.Item("cmbLanguages")
MyMeta.DbTarget = "OleDb"
' Grab the choices the user made in our UI Script (see Inter |
|
|
[borland eco 技术]原创:我对bds2006中使用xtrareport做报表的探索
软件技术
吕向阳 发表于 2006/7/27 0:22:07 |
bds2006的打印控件相当难找,好容易找到一个却不能用eco,真是头痛,我用了一个土办法摸索了一套自己用起来方便的办法,当然也不简单,程序要自己适当改动.
1.在refrerence中加入几个dll引用
devexpress.xtraeditors3.dll
devexpress.xtranavbar3.dll
devexpress.xtraprinting3.dll
devexpress.xtrareport3.dll
devexpress.xtratreelist3.dll
2.新建一个windows form,进入代码编辑,将下面的代码整个覆盖windows forms的全
部代码,
unit report2;
interface |
|
|
[borland eco 技术]只保存一个类,其它已修改的类暂不保存的方法
软件技术
吕向阳 发表于 2006/6/22 6:24:49 |
在eco中我们修改或增加了一个类实例后,用ecospace.updatedatebase来更新整个数据库,但有时我们需要只更新某一个类实例,而不是整个ecospace时,便要用到persistenceService.UpdateDatabaseWithList()来进行.下面是两段类似的代码
IPersistenceService persistenceService =
EcoSpace.GetEcoService(typeof(IPersistenceService)) as IPersistenceService;
persistenceService.UpdateDatabaseWithList(aC.AsIObject().GetAsCollection() as IObjectList);
persistenceService.UpdateDatabaseWithList(aAD.AsIObject().GetAsCollection() as ObjectList);
===============
I |
|
|
[borland eco 技术]eco查询的效率
软件技术
吕向阳 发表于 2006/6/12 16:55:49 |
一个管理程序的这样一个需求,有一个客户库(kh)和一个客户电话库(khtel),要想查询一个电话号码中包含指定电话数字的客户列表,起先我用了一个查询:
expression对象为ehkh,它的expression表达为:
ehkh.Expression := 'kh.allinstances->select(khtels->exists(telnum.sqllike(''%' + textbox1.Text + '%'')))'
在第一次执行查询时,相当费时,5000记录在我的pIIII机器上用了近半分钟.经过反复思考,改用
ehkh.Expression:='khtel.allinstances->select(telnum.sqllike(''%' + textbox1.Text + '%'')).kh'
得到同样的结果,但费时不到1秒.
最后想来,下面的一个查询 |
|
|