注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

学无止境

一点积累,与大家分享

 
 
 

日志

 
 

将powerdesigner 中PhysicalDiagram 模型 comment字段转name  

2011-09-22 10:48:17|  分类: 其它 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Option Explicit
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
   ProcessPkg mdl
End If

' This routine copy name into code for each table, each column and each view
' of the current folder
Private sub ProcessFolder(pkg)
   Dim Tab 'running  table
   Dim col
   for each Tab in pkg.tables
      ' 表注释
       if(len(tab.comment)<>0) then
       tab.name = tab.comment
       end if
      ' 表名大写
      'tab.code = Ucase(tab.code)
    if not tab.isShortcut Then        
     For each col in tab.columns
            ' 列注释
        if len(col.comment) <> 0 then  
            col.name = col. comment
          End if
            ' 列名大写
            col.code = Ucase(col.code)
            On Error Resume Next 
     Next
    End If
    On Error Resume Next 
   Next
End sub
Private Sub ProcessPkg(mdl)
  ProcessFolder(mdl)
  Dim subpkg
   For each subpkg in mdl.packages
     ProcessPkg(subpkg)
   Next
End Sub

  评论这张
 
阅读(1519)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018