ITPub博客

首页 > 应用开发 > IT综合 > PowerDesigner表名、列名大小写转换

PowerDesigner表名、列名大小写转换

IT综合 作者:abraham_dba_2013 时间:2016-05-19 14:43:43 0 删除 编辑

PowerDesigner 版本号为15.2.0.3042
方法一:不编写vbs
PowerDesigner大小写转换,不用写vbscript,直接利用软件提供的功能即可完成转换,只需要选择
转换表名:菜单——Tools\Model Options...\Naming Convertion\Table下

转换字段:菜单——Tools\Model Options...\Naming convertion\Column下

方法二:编写vbs
在PowerDesigner中PowerDesigner->Tools->Execute Commands->Edit/Run Scripts(Ctrl Shift X),然后将下面的脚本粘贴进去,并运行,即可。

点击(此处)折叠或打开

  1. '大小写转换,目标为大写
  2. Option Explicit
  3. ValidationMode = True
  4. InteractiveMode = im_Batch
  5. Dim mdl ' the current model
  6. '取得当前Model
  7. Set mdl = ActiveModel
  8. If (mdl Is Nothing) Then
  9.  MsgBox "There is no current Model"
  10. ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
  11.  MsgBox "The current model is not an Physical Data model."
  12. Else
  13.  ProcessFolder mdl
  14. End If

  15. Private sub ProcessFolder(folder)
  16.   '处理表
  17.  Dim Tab
  18.  for each Tab in folder.tables
  19.    tab.code = UCase(tab.code)
  20.    '修改字段名
  21.    Dim col
  22.    for each col in tab.columns
  23.     col.code= UCase(col.code)
  24.    next
  25.    '修改索引名
  26.    Dim idx
  27.    for each idx in tab.indexes
  28.     idx.code= UCase(idx.code)
  29.    next
  30.    '修改主键名
  31.    Dim key
  32.    for each key in tab.keys
  33.     key.code= UCase(key.code)
  34.    next
  35.  next
  36. ' 同理处理视图
  37. ' Dim view
  38. ' for each view in folder.Views
  39.  ' if not view.isShortcut then
  40.    ' view.code = view.name
  41.   ' end if
  42. ' next
  43.  ' go into the sub-packages
  44.  Dim f ' running folder
  45.  For Each f In folder.Packages
  46.   if not f.IsShortcut then
  47.    ProcessFolder f
  48.   end if
  49.  Next
  50. end sub


来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/29439655/viewspace-2103119/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2014-01-13

  • 博文量
    90
  • 访问量
    395736