PowerDesigner技巧集4 ---- 用vbscript给每张表增加字段

运行如下的脚本可以为PDM模型中的每张表增加二个字段（修改时间和操作人）

 

Option Explicit

Dim mdl ' the current model   
Set mdl = ActiveModel
Dim Tab 'running table   
Dim col_ModTime, col_ModPerson
' 定义属性变量
for each Tab in ActiveModel.Tables
 Set col_ModTime = Tab.Columns.CreateNew
 set col_ModPerson = Tab.Columns.CreateNew

 col_ModTime.name = "修改时间"
 col_ModTime.code = "Modify Time"
 col_ModTime.DataType = "Date"

 col_ModPerson.name = "操作人"
 col_ModPerson.code = "operation person"
 col_ModPerson.DataType = "VARCHAR2(100)"
next