'******************************************************************************
'* File: pdm_addcolumn_vbs.txt
'* Purpose: 批量新增列，常用于增加公共字段。
'* Title: Add Column
'* Category: Add Column
'* Version: 1.0
'* Company: ffcs.
'******************************************************************************
Option Explicit
Dim mdl ' the current model
Set mdl = ActiveModel
Dim Tab 'running table
Dim col 'running table col
Dim col_status_cd, col_create_date,col_status_date,col_update_date,col_sharding_id,col_create_staff,col_update_staff,col_tenant_id
' 定义列变量
ProcessFolder mdl '调用ProcessFolder函数
ProcessTables mdl '调用ProcessTables函数
'--------------------------------------------------------------------------------
'功能函数 针对pdm下有多个package的表，增加列操作。
'--------------------------------------------------------------------------------
Private Sub ProcessFolder(folder)
Dim ent '定义实体
Dim pack '定义实体
for each pack in folder.packages
for each Tab in pack.tables
if not Tab.isShortcut then
' 新增列前，删除已经存在的列，防止出现冲突
for each col in Tab.Columns
'根据列code属性，删除列
if instr(col.code,"status_cd")>0 then col.Delete() end if
if instr(col.code,"create_date")>0 then col.Delete() end if
if instr(col.code,"status_date")>0 then col.Delete() end if
if instr(col.code,"update_date")>0 then col.Delete() end if
if instr(col.code,"sharding_id")>0 then col.Delete() end if
if instr(col.code,"create_staff")>0 then col.Delete() end if
if instr(col.code,"update_staff")>0 then col.Delete() end if
if instr(col.code,"tenant_id")>0 then col.Delete() end if
next
'新增列
Set col_status_cd = Tab.Columns.CreateNew
set col_create_date = Tab.Columns.CreateNew
set col_status_date = Tab.Columns.CreateNew
set col_update_date = Tab.Columns.CreateNew
set col_sharding_id = Tab.Columns.CreateNew
set col_create_staff = Tab.Columns.CreateNew
set col_update_staff = Tab.Columns.CreateNew
set col_tenant_id = Tab.Columns.CreateNew
'设置新增列的属性，如name，code，datatype等
col_status_cd.name = "状态"
col_status_cd.code = "status_cd"
col_status_cd.DataType = "varchar(6)"
col_status_cd.comment ="状态"
col_create_date.name = "创建时间"
col_create_date.code = "create_date"
col_create_date.DataType = "datetime"
col_create_date.comment ="描述记录创建的时间"
col_status_date.name = "状态时间"
col_status_date.code = "status_date"
col_status_date.DataType = "datetime"
col_status_date.comment ="描述记录被应用程序更新的时间"
col_update_date.name = "更新时间"
col_update_date.code = "update_date"
col_update_date.DataType = "datetime"
col_update_date.comment ="描述记录物理更新的时间"
col_sharding_id.name = "分片键"
col_sharding_id.code = "sharding_id"
col_sharding_id.DataType = "bigint(12)"
col_sharding_id.comment ="描述记录的分片键"
col_create_staff.name = "创建员工"
col_create_staff.code = "create_staff"
col_create_staff.DataType = "bigint(12)"
col_create_staff.comment ="描述创建记录的员工标识"
col_update_staff.name = "更新员工"
col_update_staff.code = "update_staff"
col_update_staff.DataType = "bigint(12)"
col_update_staff.comment ="描述更新记录的员工标识"
col_tenant_id.name = "租户标识"
col_tenant_id.code = "tenant_id"
col_tenant_id.DataType = "bigint(12)"
col_tenant_id.comment ="描述租户标识"
end if
next
next
'对子包进行递归，如果不使用递归只能取到第一个模型图内的表
dim subfolder
for each subfolder in folder.Packages
ProcessFolder subfolder
next
End Sub
'--------------------------------------------------------------------------------
'功能函数 针对直接挂在pdm下的表，增加列操作。
'--------------------------------------------------------------------------------
Private Sub ProcessTables(folder)
for each Tab in folder.Tables
' 删除已经存在的列
for each col in Tab.Columns
if instr(col.code,"status_cd")>0 then col.Delete() end if
if instr(col.code,"create_date")>0 then col.Delete() end if
if instr(col.code,"status_date")>0 then col.Delete() end if
if instr(col.code,"update_date")>0 then col.Delete() end if
if instr(col.code,"sharding_id")>0 then col.Delete() end if
if instr(col.code,"create_staff")>0 then col.Delete() end if
if instr(col.code,"update_staff")>0 then col.Delete() end if
if instr(col.code,"tenant_id")>0 then col.Delete() end if
next
'新增列
Set col_status_cd = Tab.Columns.CreateNew
set col_create_date = Tab.Columns.CreateNew
set col_status_date = Tab.Columns.CreateNew
set col_update_date = Tab.Columns.CreateNew
set col_sharding_id = Tab.Columns.CreateNew
set col_create_staff = Tab.Columns.CreateNew
set col_update_staff = Tab.Columns.CreateNew
set col_tenant_id = Tab.Columns.CreateNew
col_status_cd.name = "状态"
col_status_cd.code = "status_cd"
col_status_cd.DataType = "varchar(6)"
col_status_cd.comment ="状态"
col_create_date.name = "创建时间"
col_create_date.code = "create_date"
col_create_date.DataType = "datetime"
col_create_date.comment ="描述记录创建的时间"
col_status_date.name = "状态时间"
col_status_date.code = "status_date"
col_status_date.DataType = "datetime"
col_status_date.comment ="描述记录被应用程序更新的时间"
col_update_date.name = "更新时间"
col_update_date.code = "update_date"
col_update_date.DataType = "datetime"
col_update_date.comment ="描述记录物理更新的时间"
col_sharding_id.name = "分片键"
col_sharding_id.code = "sharding_id"
col_sharding_id.DataType = "bigint(12)"
col_sharding_id.comment ="描述记录的分片键"
col_create_staff.name = "创建员工"
col_create_staff.code = "create_staff"
col_create_staff.DataType = "bigint(12)"
col_create_staff.comment ="描述创建记录的员工标识"
col_update_staff.name = "更新员工"
col_update_staff.code = "update_staff"
col_update_staff.DataType = "bigint(12)"
col_update_staff.comment ="描述更新记录的员工标识"
col_tenant_id.name = "租户标识"
col_tenant_id.code = "tenant_id"
col_tenant_id.DataType = "bigint(12)"
col_tenant_id.comment ="描述租户标识"
next
End Sub