zoukankan      html  css  js  c++  java
  • 使用PowerDesigner在设计表时将Name快速复制到Comment

    在tool中执行脚本

    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



  • 相关阅读:
    postman的几个问题
    服了这个所谓北大青鸟官方学员社区论坛
    Gatling实战(三)
    Gatling实战(二)
    Gatling实战(一)
    httplib和urllib2常用方法
    jmeter的新增函数说明
    windows版jmeter的body data如何用 作为“换行”
    linux下oracle服务启动关闭
    linux下ORACLE监听日志的正确删除步骤
  • 原文地址:https://www.cnblogs.com/quwujin/p/12027510.html
Copyright © 2011-2022 走看看