zoukankan      html  css  js  c++  java
  • PowerDesigner中在生成的数据库脚本中用name列替换comment列作为字段描述的方法

    1 PowerDesigner中在生成的数据库脚本中用name列替换comment列作为字段描述的方法如下,

    依次打开Tools -- Execute Commands -- Run Script,运行以下脚本:

    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.comment = tab.name
    Dim col 'running column
    for each col in tab.columns
    col.comment= col.name
    next
    end if
    next
    
    Dim view 'running view
    for each view in folder.Views
    if not view.isShortcut 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



    2 PowerDesigner的数据库逆向工程将中将comment列脚本赋值到name列


    打开Tools -- Execute Commands -- Run Script,运行以下脚本:

    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
    if len(tab.comment) <> 0 then
    tab.name = tab.comment
    end if
    On Error Resume Next
    Dim col 'running column
    for each col in tab.columns
    if len(col.comment) <>0 then
    col.name =col.comment
    end if
    On Error Resume Next
    next
    end if
    next
    end sub
  • 相关阅读:
    JavaScript 常见面试题
    textarea 元素的 placeholder 属性不显示
    CSS 画一个八卦
    CSS 画一个心
    JS判断客户端是否是iOS或者Android端
    前端面试题(一)
    选中文字改变默认颜色
    红包雨的实现
    template 的使用
    函数和入参
  • 原文地址:https://www.cnblogs.com/wupeihong/p/3796063.html
Copyright © 2011-2022 走看看