PowerDesigner16.5导出SQL语句时如何将name列复制到comment注释里面

很多人都会想在使用PowerDesigner设计完数据库时自动将name列值在输出时自动复制到comment列

运行脚本 Tools->Execute Commands->Edit/Run Scripts(快捷键:Ctrl+Shift+X)

VB脚本如下:


' 把pd中那么name想自动添加到comment里面
'如果comment为空,则填入name;如果不为空,则保留不变,这样可以避免已有的注释丢失.
Option  Explicit
ValidationMode = True
InteractiveMode = im_Batch  
Dim  mdl ' the current model  
' get the current active model
Set  mdl = ActiveModel
If  (mdl Is  Nothing ) Then
 MsgBox "There is no current Model "
ElseIf  Not  mdl.IsKindOf(PdPDM.cls_Model) Then
 MsgBox "The current model is not an Physical Data model. "
Else
 ProcessFolder mdl
End  If 
' This routine copy name into comment for each table, each column and each view
' of the current folder
Private  sub ProcessFolder(folder) 
  Dim  Tab 'running   table 
 for each Tab in folder.tables 
  if not tab.isShortcut then
    if trim(tab.comment)= ""  then '如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面.
       tab.comment = tab.name
    end if 
  Dim  col ' running column 
 for each col in tab.columns
  if trim(col.comment)= ""  then '如果col的comment为空,则填入name,如果已有注释,则不添加;这样可以避免已有注释丢失.
   col.comment= col.name
  end if
 next 
  end if 
 next 
   
  Dim  view 'running view 
 for each view in folder.Views 
  if not view.isShortcut and trim(view.comment)= ""   then 
 view.comment = view.name 
  end if 
 next 
   
  ' go into the sub-packages 
  Dim  f ' running folder 
  For  Each  f In  folder.Packages 
  if not f.IsShortcut then 
 ProcessFolder f 
  end if 
  Next 
end sub

  • 0
    点赞
  • 0
    评论
  • 1
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 深蓝海洋 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值