| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3266151
建立时间:2005年6月6日 |
| |
|
 [borland eco 技术]eco中派生字段备忘
软件技术
吕向阳 发表于 2006/11/23 16:16:10 |
function Person.fullNameDeriveAndSubscribe(reevaluateSubscriber : ISubscriber; resubscribeSubscriber : ISubscriber) : System.Object;
Var
fullName : String;
begin
fullName := firstName + lastName;
// Subscribe to the firstName and lastName attributes.
AsIObject.Properties[‘firstName’].SubscribeToValue(reevaluateSubscriber);
&n |
|
|
[borland eco 技术]eco建模对象视图中：在一个类的过程中运用建立另一个相关联的类并处理
软件技术
吕向阳 发表于 2006/10/7 20:55:01 |
备忘
procedure salepaper.recivelefttp; //salepaper为一个类
var alefttp:lefttp; //lefttp为salepaper的一对多的关联类
I: Integer;
xssrecord:ssrecord; //ssrecord为salepaper的一对多的关联类
begin
for I := 0 to self.ssrecords.count - 1 do
begin
xssrecord:=ssrecords[i];
alefttp:=lefttp.Create(self.AsIObject.ServiceProvider) |
|
|
[borland eco 技术]eco 中怎样在查询和expression中使用类实例变量
软件技术
吕向阳 发表于 2006/9/12 12:08:27 |
|
1.在表单中放入variablehandle控件,并取名,如vhkh,并设置其ecospacetype类型为你的ecospace,在表单的create事件中加入
vhkh.ecospace:=fecospace;
2.在表单中放入oclvariable控件,为其取名,点击oclvariablecollection属性,在其中加入一行,变量名为v_kh,其对应的elementhandle为你刚设好的vhkh控件.
3.在使用该变量的控件,如expressionhandle(我假定取名为eh_ss),那么variables中下拉出我们设好的oclvariable控件(如v_kh)
4.那么在我们的eh_ss(expressionhandle)的expression中就可以使用如下语名,语句中可以将v_kh作为一个变量使用.
如ehoness.Expression := 'ssrecord.allinstances->select(e|e.salepaper=v_kh)';
|
|
|
[borland eco 技术]codesmith用access的mdb文件作数据源的模板引用
软件技术
吕向阳 发表于 2006/9/7 11:10:32 |
|
codesmith是一款运用非常文泛,也是功能强大的代码生成工具,但查遍整个baidu,google,很难找到其与access或mdb相关联的资料.经反复验证,方法如下:
在schema explorer上点manage data sources按钮出现对话框 ,在对话框中点add按钮,增加一个连接,在provider type中选ADOXSchemaProviderdb,在连接字符串中输入Provider=Microsoft.Jet.OLEDB.4.0;Data Source=路径+文件名,最后点test看连接是否正确. |
|
|
[borland eco 技术]eco自动表单(mygeneration模板）续改进中..
软件技术
吕向阳 发表于 2006/9/5 14:33:15 |
模板继续改进中,加入一对多时自动引入combobox元件,并能进行选择，保存．改进能回车跳到下一控件，去掉一些错误．仅作备忘．
<%
Dim bFirst
Dim name
Dim pname
Dim objTable
Dim objColumn
Dim tableNames
Dim databaseName
Dim tableName
dim ecospace
dim jj
dim xname
dim tmptable
dim tmpcolumn
' Grab the namespace
namespace = input.Item("txtNamespace")
Set tableName = input.Item("lstTables")
MyMeta.Language = input.Item("cmbLanguages")
MyMeta.DbTarget = "OleDb"
|
|
|