zoukankan      html  css  js  c++  java
  • PowerDesigner反向生成PDM和name与注释互换

    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 
    if len(tab.name) = 0 then 
    tab.name = tab.comment 
    end if
    end if
    
    if len(tab.name) <> 0 then 
    if len(tab.comment) = 0 then 
    tab.comment = tab.name 
    end if
    end if
    
    On Error Resume Next 
    Dim col 'running column 
    for each col in tab.columns 
    
    if len(col.comment) <>0 then 
    if len(col.name)=0 then 
    col.name =col.comment 
    end if 
    end if 
    
    if len(col.name) <>0 then 
    if len(col.comment)=0 then 
    col.comment =col.name 
    end if 
    end if 
    
    On Error Resume Next 
    next 
    end if 
    next 
    end sub
  • 相关阅读:
    API下载文件
    c# 测试网络连接
    C# Word 插入签名图片
    c# word文档合并
    c# 文件筛选
    e
    基本初等函数(Basic elementary function)
    前端性能优化学习
    解决点击穿透的最佳实践
    ObjectARX通过选定的实体获取所有组名示例
  • 原文地址:https://www.cnblogs.com/itclw/p/9469829.html
Copyright © 2011-2022 走看看