欢迎光临
我们一直在努力

PowerDesigner中table code转大写

powerdesigner.jpg

新建一个toUppercase.vbs文件,内容如下:

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 code 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   
        ' tab.code = tab.name   
         Dim col ' running column   
         for each col in tab.columns   
            col.code= UCase(col.code)   
         next   
      'end if   
   next   

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

接下来,开始执行脚本,则运行PowerDesigne,然后依次点击菜单Tools->Execute Commands->Edit/Run Scripts,选择你toUppercase.vbs脚本放置的路径,执行。

赞(0) 打赏
未经允许不得转载:Ddmit » PowerDesigner中table code转大写

评论 抢沙发

觉得文章有用就打赏一下文章作者

非常感谢你的打赏,我们将继续提供更多优质内容,让我们一起创建更加美好的网络世界!

支付宝扫一扫

登录

找回密码

注册