PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
在用PowerDesigner时.常常在NAME或Comment中写中文在Code中写英文.Name只会显示给我们看,Code会使用在代码中.但Comment中的文字会保存到数据库TABLE的Description中,有时候我们写好了Name再写一次Comment很麻烦.以下两段代码就可以解决这个问题.在PowerDesigner中按Ctrl + Shift + X，然后将下面的脚本粘贴进去，并运行，就可以
代码一:将Name中的字符COPY至Comment中
<span style=""><div style="padding-right: 5px; padding-left: 4px; font-size: 13px; padding-bottom: 4px; width: 98%; padding-top: 4px; background-color: #eeeeee; border: #cccccc 1px solid;">http://www.cnblogs.com/Images/OutliningIndicators/None.gif
http://www.cnblogs.com/Images/OutliningIndicators/None.gif'******************************************************************************
http://www.cnblogs.com/Images/OutliningIndicators/None.gif'* File: name2comment.vbs
http://www.cnblogs.com/Images/OutliningIndicators/None.gif'* Purpose: Database generation cannot use object names anymore
http://www.cnblogs.com/Images/OutliningIndicators/None.gif' in version 7 and above.
http://www.cnblogs.com/Images/OutliningIndicators/None.gif' It always uses the object codes.
http://www.cnblogs.com/Images/OutliningIndicators/None.gif'
http://www.cnblogs.com/Images/OutliningIndicators/None.gif' In case the object codes are not aligned with your
http://www.cnblogs.com/Images/OutliningIndicators/None.gif' object names in your model, this script will copy
http://www.cnblogs.com/Images/OutliningIndicators/None.gif' the object Name onto the object Comment for
http://www.cnblogs.com/Images/OutliningIndicators/None.gif' the Tables and Columns.
http://www.cnblogs.com/Images/OutliningIndicators/None.gif'
http://www.cnblogs.com/Images/OutliningIndicators/None.gif'* Title:
http://www.cnblogs.com/Images/OutliningIndicators/None.gif'* Version: 1.0
http://www.cnblogs.com/Images/OutliningIndicators/None.gif'* Company: Sybase Inc.
http://www.cnblogs.com/Images/OutliningIndicators/None.gif'******************************************************************************
http://www.cnblogs.com/Images/OutliningIndicators/None.gif
http://www.cnblogs.com/Images/OutliningIndicators/None.gif
http://www.cnblogs.com/Images/OutliningIndicators/None.gifOption Explicit
http://www.cnblogs.com/Images/OutliningIndicators/None.gifValidationMode = True
http://www.cnblogs.com/Images/OutliningIndicators/None.gifInteractiveMode = im_Batch
http://www.cnblogs.com/Images/OutliningIndicators/None.gif
http://www.cnblogs.com/Images/OutliningIndicators/None.gifDim mdl ' the current model
http://www.cnblogs.com/Images/OutliningIndicators/None.gif
http://www.cnblogs.com/Images/OutliningIndicators/None.gif' get the current active model
http://www.cnblogs.com/Images/OutliningIndicators/None.gifSet mdl = ActiveModel
http://www.cnblogs.com/Images/OutliningIndicators/None.gifIf (mdl Is Nothing) Then
http://www.cnblogs.com/Images/OutliningIndicators/None.gif MsgBox "There is no current Model "
http://www.cnblogs.com/Images/OutliningIndicators/None.gifElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
http://www.cnblogs.com/Images/OutliningIndicators/None.gif MsgBox "The current model is not an Physical Data model. "
http://www.cnblogs.com/Images/OutliningIndicators/None.gifElse
http://www.cnblogs.com/Images/OutliningIndicators/None.gif ProcessFolder mdl
http://www.cnblogs.com/Images/OutliningIndicators/None.gifEnd If
http://www.cnblogs.com/Images/OutliningIndicators/None.gif
http://www.cnblogs.com/Images/OutliningIndicators/None.gif' This routine copy name into comment for each table, each column and each view
http://www.cnblogs.com/Images/OutliningIndicators/None.gif' of the current folder
http://www.cnblogs.com/Images/OutliningIndicators/None.gifPrivate sub ProcessFolder(folder)
http://www.cnblogs.com/Images/OutliningIndicators/None.gif Dim Tab 'running table
http://www.cnblogs.com/Images/OutliningIndicators/None.gif for each Tab in folder.tables
http://www.cnblogs.com/Images/OutliningIndicators/None.gif if not tab.isShortcut then
http://www.cnblogs.com/Images/OutliningIndicators/None.gif tab.comment = tab.name
http://www.cnblogs.com/Images/OutliningIndicators/None.gif Dim col ' running column
http://www.cnblogs.com/Images/OutliningIndicators/None.gif for each col in tab.columns
http://www.cnblogs.com/Images/OutliningIndicators/None.gif col.comment= col.name
http://www.cnblogs.com/Images/OutliningIndicators/None.gif next
http://www.cnblogs.com/Images/OutliningIndicators/None.gif end if
http://www.cnblogs.com/Images/OutliningIndicators/None.gif next
http://www.cnblogs.com/Images/OutliningIndicators/None.gif
http://www.cnblogs.com/Images/OutliningIndicators/None.gif Dim view 'running view
http://www.cnblogs.com/Images/OutliningIndicators/None.gif for each view in folder.Views
http://www.cnblogs.com/Images/OutliningIndicators/None.gif if not view.isShortcut then
http://www.cnblogs.com/Images/OutliningIndicators/None.gif view.comment = view.name
http://www.cnblogs.com/Images/OutliningIndicators/None.gif end if
http://www.cnblogs.com/Images/OutliningIndicators/None.gif next
http://www.cnblogs.com/Images/OutliningIndicators/None.gif
http://www.cnblogs.com/Images/OutliningIndicators/None.gif ' go into the sub-packages
http://www.cnblogs.com/Images/OutliningIndicators/None.gif Dim f ' running folder
http://www.cnblogs.com/Images/OutliningIndicators/None.gif For Each f In folder.Packages
http://www.cnblogs.com/Images/OutliningIndicators/None.gif if not f.IsShortcut then
http://www.cnblogs.com/Images/OutliningIndicators/None.gif ProcessFolder f
http://www.cnblogs.com/Images/OutliningIndicators/None.gif end if
http://www.cnblogs.com/Images/OutliningIndicators/None.gif Next
http://www.cnblogs.com/Images/OutliningIndicators/None.gifend sub
http://www.cnblogs.com/Images/OutliningIndicators/None.gif
页:
[1]