• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

PowerDesigner脚本:设置实体快捷方式的_sqlserver

sqlserver 搞代码 3年前 (2018-06-16) 108次浏览 已收录 0个评论

‘*****************************************************************************
 ‘文件:Set color of entities shortcut.vbs
 ‘版本:1.0
 ‘版权:floodzhu( [email protected] ),2005.1.6
 ‘功能:遍历概念模型,把Entities的快捷方式的颜色设置为黄色。
 ‘*****************************************************************************

http://www.gaodaima.com/35804.htmlPowerDesigner脚本:设置实体快捷方式的_sqlserver

 
 ‘   dim fs,f
 ‘   set fs = CreateObject(“Scripting.FileSystemObject”)
 ‘   set f = fs.CreateTextFile(“C:/PowerDesigner_vbs.log”)
 dim index
 index = 0
 
 dim model
 set model = ActiveModel
 
 
 If (model Is Nothing) Then
    MsgBox “当前没有活动的模型。”
 ElseIf Not model.IsKindOf(PdCDM.cls_Model) Then
    MsgBox “当前模型不是概念模型。”
 Else
    View model
    MsgBox index & “个实体的快捷方式的颜色被设置。”
 End If
 
 ‘*****************************************************************************
 ‘函数:View
 ‘功能:递归遍历
 ‘*****************************************************************************
 sub View(folder)
    dim node
    for each node in folder.Entities
       if node.IsShortCut then
          Visit node
       end if
    next
   
    ‘对子目录进行递归
    dim subFolder
    for each subFolder in folder.Packages
       View subFolder
    next
 end sub
 
 ‘*****************************************************************************
 ‘函数:Visit
 ‘功能:处理节点
 ‘*****************************************************************************
 sub Visit(node)
    dim sym
    for each sym in node.symbols
       sym.FillColor =  rgb(255, 255, 128)
       index = index + 1
       ‘f.writeline sym.name & ” ● ” & sym.FillColor
    next
 end sub

欢迎大家阅读《PowerDesigner脚本:设置实体快捷方式的_sqlserver,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址