利用宏让ERStudio生成代码文件

Embarcadero ERStudio 是一个数据模型工具，用起来很方便。在ERStudio里建完数据模型后，可以利用宏来帮助生成对应的实体类文件以及对应的简单的数据访问类文件。为了实现这一目的，需要自己写脚本，支持的语言为 VB（以前从没写过VB程序，还好可以利用 Microsoft Visual Studio 文档），ERStudio 也提供了一系列的帮助文档，也有相关DEMO，最主要的是要获得相关Model的属性信息。这些可以在 ERStudio 文档里查看帮助。

在 ERStudio 自带的编辑工具来写VB脚本还不错，Tools -- 〉Basic Macro Editor 打开编辑器。然后就可以开始写脚本了，编辑器提供了一个简单的 窗体编辑工具 Edit UserDialog ，可以画出用户交互界面，选择后的控件如果不知道怎么用的话，将光标停在CODE上按F1会打开帮助文档，里面符有简单的Demo。

编辑器也提供Debug功能，不过感觉调试起来很痛苦，没有VS里调试爽，不过用处还是蛮大的，脚本写好后默认保存的路径在安装文件所属路径的 Macros 文件夹里，通过 Macro Shortcuts -- Add/Remove Macro Shortcuts 来管理宏文件。打开 Add/Remove Macro 对话框后可以在 Available Macros 下边看到可用的宏文件，在Selected Macros下面可以看到已经选择使用的宏文件。

点击这里可以下载示例脚本 .

下面的代码获取Model和其下的SubModel：

Dim entNames As Variant

Dim entCount As Variant

Dim varModel As Model

Dim varSubModel As SubModel

'Get Model Object

Set varModel =DiagramManager.ActiveDiagram.ActiveModel

'Get SubModel Object

Set varSubModel = varModel.ActiveSubModel

'Fill The EntityName To entName and Get the Entity Count

varSubModel.EntityNames(entNames,entCount)
获取SubModel的TableName：

varEntity.TableName
获取SubModel的指定索引的字段

'Get Entity Attribute

Function GetAttribute(attrs As Attributes, Index As Integer)

Dim attr As AttributeObj

For Each attr In attrs

If attr.SequenceNumber=Index Then

Set GetAttribute=attr

Exit Function

End If

Next

Set GetAttribute=Nothing

End Function
判断某一字段是不是主键：

Set attr = GetAttribute(varEntity.Attributes, i)

If Not attr Is Nothing Then

If attr.PrimaryKey Then

'do something

End If

End If
还有一个很重要的一点就是要把数据库类型转化为.Net对应的类型：

'Get .NET Data Type

Function DbTypeToNetType(attr As Object)

Dim netType As String

Select Case attr.Datatype

Case "CHAR"

netType = "string"

Case "VARCHAR2"

netType = "string"

Case "NVARCHAR"

netType = "string"

Case "NVARCHAR2"

netType = "string"

Case "VARCHAR"

netType = "string"

Case "NTEXT"

netType = "string"

Case "NTEXT/LONG NVARCHAR"

netType = "string"

Case "DATETIME"

netType = "DateTime"

Case "DATE"

netType = "DateTime"

Case "DECIMAL"

netType = "decimal"

Case "FLOAT"

netType = "float"

Case "NUMERIC"

If attr.DataScale = 0 Then

netType = IIf(attr.DataLength > 9,"decimal","int")

Else

netType = IIf(attr.DataScale < 29,"decimal","double")

End If

Case "INTEGER"

netType = "int"

Case "BIT"

netType = "bool"

Case "SMALLINT"

netType = "int"

Case Else

netType = "string"

End Select

DbTypeToNetType = netType

End Function
将字符串中的下划线去掉，将下划线后的第一个字母变为大写返回，如：_ab_cde_ 返回为 AbCde:

'Remove UnderLine From String And Change The First Character To Capital

Function RemoveUnderLine(varRetStr As String, varString As String,length As Integer )

If length > 0 Then

Dim char As String

char = Left$(varString,1)

If char <> "_" Then

varRetStr = IIf(Len(varRetStr) = 0,UCase(char),varRetStr & char)

varString = Right$(varString,length-1)

Else

varString = Right$(varString,length-1)

If Len(varString) > 0 Then

varString = UCase(Left$(varString,1)) & Right$(varString,Len(varString)-1)

End If

End If

varRetStr = RemoveUnderLine (varRetStr,varString,Len(varString))

End If

RemoveUnderLine = varRetStr

End Function
这样会帮我们省去大量的工作，可订制性也比较好，当然不要把这个和别的代码生成工具比较....

提高工作效率才是硬道理~~~~~~