月光软件站 - 编程文档 - 数据库 - PowerDesigner脚本：设置实体快捷方式的颜色

数据库

本类阅读TOP10

·SQL语句导入导出大全
·Power Designer杂记
·SQL Server日期计算
·常用的oracle函数使用说明(一)
·sqlserver2000数据库置疑的解决方法
·MS SQLServer OLEDB分布式事务无法启动的一般解决方案
·SQL to Excel 的应用
·SQL语句导入导出大全
·Error:ORA-01033:ORACLE initialization or shutdown in progress错误解决
·Oracle中password file的作用及说明

→ 分类导航

VC语言	Delphi
VB语言	ASP
Perl	Java
Script	数据库
其他语言	游戏开发
文件格式	网站制作
软件工程	.NET开发

PowerDesigner脚本：设置实体快捷方式的颜色

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

'*****************************************************************************
'文件：Set color of entities shortcut.vbs
'版本：1.0
'版权：floodzhu( floodzhu@hotmail.com )，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

相关文章：

相关软件：