利用宏让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

这样会帮我们省去大量的工作，可订制性也比较好，当然不要把这个和别的代码生成工具比较....
提高工作效率才是硬道理~~~~~~