数据库

本类阅读TOP10

·SQL语句导入导出大全
·SQL Server日期计算
·SQL语句导入导出大全
·SQL to Excel 的应用
·Oracle中password file的作用及说明
·MS SQLServer OLEDB分布式事务无法启动的一般解决方案
·sqlserver2000数据库置疑的解决方法
·一个比较实用的大数据量分页存储过程
·如何在正运行 SQL Server 7.0 的服务器之间传输登录和密码
·SQL中两台服务器间使用连接服务器

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
PowerDesigner脚本:设置实体快捷方式的颜色

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

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


相关文章

相关软件