| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3272739
建立时间:2005年6月6日 |
| |
|
 [devexpress相关控件]在devexpress的gridcontrol控件中加入行号
软件技术
吕向阳 发表于 2006/9/10 15:49:46 |
首先定义一过程:
procedure formkhbuy.view_CustomDrawRowIndicator( sender:tobject;e: DevExpress.XtraGrid.Views.Grid.RowIndicatorCustomDrawEventArgs);
begin
e.Appearance.TextOptions.HAlignment:=DevExpress.Utils.HorzAlignment.Far;
if (e.Info.IsRowIndicator) then
begin
if (e.Ro |
|
|
续:前
软件技术
吕向阳 发表于 2006/9/7 17:12:28 |
CodeTemplateRule.cs
using System;
using System.Text;
using System.ComponentModel;
using CodeSmith.Engine;
using System.Data;
using SchemaExplorer;
namespace CodeTemplateRule
{
/**//// <summary>
/// CodeSmith自动生成代码所用到的函数
/// </summary>
public class CodeTemplateRule
{
/**//// <summary>< |
|
|
一个codesmith的实体模板
软件技术
吕向阳 发表于 2006/9/7 17:09:24 |
一个codesmith的实体模板
一个codesmith的实体模板
<%--引用%>
<%@ CodeTemplate Language="C#" TargetLanguage="Text" Description="Template description here." %>
<%@ Assembly Name="SchemaExplorer" %>
<%@ Import Namespace="SchemaExplorer" %>
<%@ Assembly Name="CodeTemplateRule" %>
<%@ Import Namespace="CodeTemplateRule" %>
<%--模板属性%&g |
|
|
[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"
|
|
|
[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 |
|
|