PowerDesigner将Comment中的字符复制至Name中

【饿了么、美团】外卖红包领取地址 >> 能省一点是一点

使用PowerDesigner的时候,经常会使用到从数据库或者sql文件逆向到PowerDesigner中,但是这样逆向出来的结果是:Name这一列的值等于Code这一列的值,在界面上会默认显示Name和Code。都是英文对用户很不友好,那么有没有什么办法可以将sql中的Comment备注复制到Name中呢?方法很简单,只需要执行下方脚本即可:

在PowerDesigner中使用方法为:
PowerDesigner->Tools->Execute Commands->Edit/Run Scripts

然后将下方代码拷贝执行即可。

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

Private sub ProcessFolder(folder) 
On Error Resume Next
  Dim Tab 'running table 
  for each Tab in folder.tables 
if not tab.isShortcut then 
  tab.name = tab.comment
  Dim col ' running column 
  for each col in tab.columns 
  if col.comment="" then
  else
col.name= col.comment 
  end if
  next 
end if 
  next

  Dim view 'running view 
  for each view in folder.Views 
if not view.isShortcut then 
  view.name = view.comment 
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

参考文章:https://www.cnblogs.com/galengao/p/5756565.html


觉得内容还不错?打赏个钢镚鼓励鼓励!!👍

小王子(安东尼翻译经典作品 四色印刷唯美典藏本)
¥38.04
海昌 京东联名 日抛美瞳 10片装 光感水润 彩色隐形眼镜 金沙橘棕 275度
¥49.00
晨光(M&G)文具B5/100页办公记事本 笔记本子 会议记录本 学生软抄本日记本无线装订本 8本装APYJY550
¥49.00
汽车夹缝收纳盒座椅位侧边多功能缝隙储物车载通用品货轿车内前排坐垫中控架手机水杯置物袋高档便携用品大全 【豪华全包加厚海绵送运费险】主驾/黑一只
¥16.00
JIEYI电动车挡风被自营冬季加绒加厚电瓶车防风被护膝秋冬天踏板摩托车防寒罩防水防风衣保暖
¥49.50
BUFFX 牛磺酸咖啡因能量片维生素B气泡含片上课醒醒片 学生上课防困加班熬夜开车 可乐味15片/盒
¥26.90
京祝 口罩医用白色成人一次性外科口罩可爱灭菌级独立包装冬季薄款男女防尘防花粉 元气少女50枚装
¥35.00
摩米士MOMAX苹果12promax手机壳iPhone12ProMax保护套精英布纹皮革全包防摔硬壳男女款通用蓝色
¥29.90