使用VB SCRIPT给power designer 所有表或者实体增加列。省时间，省心，准确度高。

做设计的童鞋们，有时候会遇到给数百个表统一加字段的，或者是修改某些列的情况。纯手工累个半死，还容易遗漏和犯错。研究了power designer 的脚本后，发现及其简单，你要做的就是打开PD, 按ctrl+shift+x键，弹出窗里粘贴下面的代码运行即可，记得修改为你的需求。这种方法节省90%的时间。


下面第一个代码是增加列的，第二个是修改数据列的属性的。可以修改列的名称，编码，类型，等等。如果其他的需要参考，课打开PD的帮助，找meta model那个帮助项查看它的API,尽管那个API开起来很烦人。


下面的代码在power designer 14上测试通过。


 '演示用vb script给PD统一增加列的


Option Explicit   
Dim mdl ' the current model     
Set mdl = ActiveModel  
Dim Tab 'running table 
Dim col_ModTime, col_ModPerson ,col_CreatPersion,col_CreatTime
' 定义属性变量  
for each Tab in mdl.Tables  
if not tab.isShortcut then 
 Set col_ModTime = Tab.Columns.CreateNew
 set col_ModPerson = Tab.Columns.CreateNew 
 set col_CreatPersion=Tab.Columns.CreateNew 
 set  col_CreatTime=Tab.Columns.CreateNew 
  
 col_CreatPersion.name = "创建人"  
 col_CreatPersion.code = "CREATOR"  
 col_CreatPersion.DataType  = "VARCHAR2(20)"  
  
 col_CreatTime.name = "创建日期"  
 col_CreatTime.code = "CREATE_DATE"  
 col_CreatTime.DataType  = "DATE" 


 col_ModPerson.name = "修改人"  
 col_ModPerson.code = "MODIFIER"  
 col_ModPerson.DataType  = "VARCHAR2(20)" 


 col_ModTime.name = "修改日期"  
 col_ModTime.code = "MODIFY_DATE"  
 col_ModTime.DataType  = "DATE"  
end if
 next 
在下面是，修改符合条件的列的代码：
for each col in Tab.columns
   if col.name="SKU" then
       col.code="new_code"
col.DataType="Date"
   end if 
next