PowerDesigner编辑CDM文档

1 vb脚本导出cdm结构

Option Explicit 
ValidationMode = True
InteractiveMode = im_Batch 
Dim mdl ' the current model 
Set mdl = ActiveModel
Dim fso
Dim file
set fso =createobject("scripting.filesystemobject")
' 导出cdm结构存放地址
set file = fso.CreateTextFile("d:/cdm_construct_data_new.txt",true)
Dim cld
' 循环所有的包
for each cld in mdl.Packages
   ProcessFolder cld, file
next
'最外层的信息
ProcessFolder mdl, file
file.close

' 定义函数导出cdm结构
Private sub ProcessFolder(folder, file) 
Dim  item   '要处理的对象
for each item in folder.Entities 
   if not item.isShortcut then  
      Dim col ' 定义 column 
      for each col in item.Attributes 
          '写文件
          ' 实体名 \t 实体名称 \t 实体注释 \t 字段名\t 字段名称 \t字段注释 \t 字段类型 \t 是否必填 \t  是否主键 \t 默认值 \n
          file.write(UCase(item.code) +Chr(9) + UCase(item.name) + Chr(9) + UCase(item.comment) + Chr(9)+ UCase(col.code) + Chr(9) + UCase(col.name) + Chr(9)+ UCase(col.comment) + Chr(9)+ CStr(col.datatype) + Chr(9)+ CStr(col.mandatory) + Chr(9) + Cstr(col.primaryIdentifier) +  Chr(9) + Cstr(col.defaultValue)+ Chr(13))
      next 
   end if 
next 
' last finish 
end sub

2 vb脚本修改实体名称注释

Option Explicit 
ValidationMode = True
InteractiveMode = im_Batch 
Dim mdl ' the current model 
Set mdl = ActiveModel
Dim cld
for each cld in mdl.Packages
   ProcessFolder cld 
next
ProcessFolder mdl
' 修改函数
Private sub ProcessFolder(folder) 

Dim  item   '要处理的对象
MsgBox folder
'循环每个实体对象
for each item in folder.Entities 
   '修改表名称注释
   if not item.isShortcut And UCase(item.code) = "CMPA_INFO_D" then
         item.code = "CMPA_INFO_B"
         item.name = "申投诉信息表"
         item.comment = "申投诉信息表"
    end if 

    if not item.isShortcut And UCase(item.code) = "DRUG_DCLA_EVT_C" then
         item.code = "DRUG_DCLA_EVT_C"
         item.name = "药品申报事件表"
         item.comment = "药品申报事件表"
    end if 
next  
end sub

3 vb修改表字段注释类型长度必填

Option Explicit 
ValidationMode = True
InteractiveMode = im_Batch 

Dim mdl ' the current model 
Set mdl = ActiveModel

Dim cld
for each cld in mdl.Packages
   ProcessFolder cld 
next

ProcessFolder mdl

' 修改函数
Private sub ProcessFolder(folder) 

Dim  item   '要处理的对象
' MsgBox folder

for each item in folder.Entities  
    if not item.isShortcut then  
       Dim col
       for each col in item.Attributes 
'删除CMPA_INFO_B表中PROCRSLT字段
if UCase(item.code) = "CMPA_INFO_B" And col.code = "PROCRSLT" then 
     col.delete
end if 
'修改CMPA_INFO_B表中CMPA_TIME字段 datetime 类型如果是date则是 D
if UCase(item.code) = "CMPA_INFO_B" And col.code = "CMPA_TIME" then 
 '修改注释名称类型是否必填   mandatory：true,false 非必填 primaryIdentifier  是否主键 true 是false 否
         col.comment = "申投诉时间"
         col.name = "申投诉时间"
         col.dataType = "DT"
         col.mandatory = TRUE
         col.primaryIdentifier = TRUE
end if
' 修改PERF_SCO_INFO_B表中CRTER_NAME字段   varchar(50)             
if UCase(item.code) = "PERF_SCO_INFO_B" And col.code = "CRTER_NAME" then 
             '注释 类型 长度 是否必填     
              col.comment = "创建人姓名"
              col.dataType = "VA50"
              col.length = 50
              col.mandatory = FALSE
end if 
'修改PERF_SCO_INFO_B表中CRTE_OPTINS_NO字段  varchar(20)         
if UCase(item.code) = "PERF_SCO_INFO_B" And col.code = "CRTE_OPTINS_NO" then 
             col.comment = "创建机构编号"
             col.dataType = "VA20"
             col.length = 20
             col.mandatory = TRUE
end if
'修改DIM_BIDPRCU_MCS_PROD_E表中PERF_COMP字段 类型text longtext 使用 LVA
if UCase(item.code) = "DIM_BIDPRCU_PROD_E" And col.code = "PERF_COMP" then 
              col.comment = "性能组成"
              col.dataType = "TXT"
              col.mandatory = FALSE
end if 
' 修改FACT_SETL_E表中PURC_CNT字段 类型decimal(18,2)      length 长度 precision 精度       
if UCase(item.code) = "FACT_SETL_E" And col.code = "PURC_CNT" then
             col.comment = "采购数量"
             col.dataType = "DC18,2"
             col.length = 18
             col.precision = 2
             col.mandatory = FALSE
end if 
'修改FACT_SHORMED_E表中OUTSTO_CNT字段 类型int bigint用LI   
if UCase(item.code) = "FACT_SHORMED_E" And col.code = "PURC_CNT" then
           col.comment = "缺货数量"
           col.dataType = "I"
           col.mandatory = FALSE
end if                 
'修改FACT_MCS_SETL_E表中DELV_CNT字段 类型decimal(18) 
if UCase(item.code) = "FACT_MCS_SETL_E" And col.code = "DELV_CNT" then 
      col.comment = "配送数量"
      col.dataType = "DC18"
      col.length = 18
      col.mandatory = TRUE
end if 
      next
    end if    
next  
end sub

4 添加表

Option Explicit 
ValidationMode = True
InteractiveMode = im_Batch 
' the current model 
Dim mdl   
Set mdl = ActiveModel

Dim cld
for each cld in mdl.Packages
   ProcessFolder cld 
next

ProcessFolder mdl

'  修改函数
Private sub ProcessFolder(folder) 

Dim item, obj  '要处理的对象
MsgBox folder
' 信息模块下添加表
   if folder.name = "信息" then
        Set obj = folder.Entities.CreateNew()
        obj.SetNameAndCode "评分信息表", "PERF_INFO_B"
        obj.comment = "评分信息表"
   end if 

end sub

5 添加表字段

Option Explicit 
ValidationMode = True
InteractiveMode = im_Batch 

Dim mdl ' the current model 
Set mdl = ActiveModel

Dim cld
for each cld in mdl.Packages
   ProcessFolder cld 
next

ProcessFolder mdl

' 修改函数
Private sub ProcessFolder(folder) 

Dim item
for each item in folder.Entities 

          Dim new_t
          if not item.isShortcut And UCase(item.code) = "PERF_SCO_INFO_B" then 
              Set new_t = item.Attributes.CreateNew()
              new_t.SetNameAndCode "履约评分ID", "PERF_SCO_ID" 
              new_t.comment = "履约评分ID"
              new_t.dataType = "VA40"
              new_t.length = 40
              new_t.mandatory = FALSE
          end if 
next

end sub