学步园

        在用PowerDesigner时.常常在NAME或Comment中写中文在Code中写英文.Name只会显示给我们看,Code会使用在代码中.但Comment中的文字会保存到数据库TABLE的Description中,有时候我们写好了Name再写一次Comment很麻烦.以下两段代码就可以解决这个问题.

代码一:将Name中的字符COPY至Comment中

 '*********************************************************<br /> '* File: name2comment.vbs<br /> '* Purpose: Database generation cannot use object names anymore<br /> ' in version 7 and above.<br /> ' It always uses the object codes.<br /> '<br /> ' In case the object codes are not aligned with your<br /> ' object names in your model, this script will copy<br /> ' the object Name onto the object Comment for<br /> ' the Tables and Columns.<br /> '<br /> '* Title:<br /> '* Version: 1.0<br /> '* Company: Sybase Inc.<br /> '****************************************************************************** </p> <p>Option Explicit<br /> ValidationMode = True<br /> InteractiveMode = im_Batch </p> <p>Dim mdl ' the current model </p> <p>' get the current active model<br /> Set mdl = ActiveModel<br /> If (mdl Is Nothing) Then<br /> MsgBox "There is no current Model "<br /> ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then<br /> MsgBox "The current model is not an Physical Data model. "<br /> Else<br /> ProcessFolder mdl<br /> End If </p> <p>' This routine copy name into comment for each table, each column and each view<br /> ' of the current folder<br /> Private sub ProcessFolder(folder)<br /> Dim Tab 'running table<br /> for each Tab in folder.tables<br /> if not tab.isShortcut then<br /> tab.comment = tab.name<br /> Dim col ' running column<br /> for each col in tab.columns<br /> col.comment= col.name<br /> next<br /> end if<br /> next </p> <p> Dim view 'running view<br /> for each view in folder.Views<br /> if not view.isShortcut then<br /> view.comment = view.name<br /> end if<br /> next </p> <p> ' go into the sub-packages<br /> Dim f ' running folder<br /> For Each f In folder.Packages<br /> if not f.IsShortcut then<br /> ProcessFolder f<br /> end if<br /> Next<br /> end sub<br />

代码二:将Comment中的字符COPY至Name中

 Option Explicit<br /> ValidationMode = True<br /> InteractiveMode = im_Batch </p> <p>Dim mdl ' the current model </p> <p>' get the current active model<br /> Set mdl = ActiveModel<br /> If (mdl Is Nothing) Then<br /> MsgBox "There is no current Model "<br /> ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then<br /> MsgBox "The current model is not an Physical Data model. "<br /> Else<br /> ProcessFolder mdl<br /> End If </p> <p>Private sub ProcessFolder(folder)<br /> On Error Resume Next<br /> Dim Tab 'running table<br /> for each Tab in folder.tables<br /> if not tab.isShortcut then<br /> tab.name = tab.comment<br /> Dim col ' running column<br /> for each col in tab.columns<br /> if col.comment="" then<br /> else<br /> col.name= col.comment<br /> end if<br /> next<br /> end if<br /> next </p> <p> Dim view 'running view<br /> for each view in folder.Views<br /> if not view.isShortcut then<br /> view.name = view.comment<br /> end if<br /> next </p> <p> ' go into the sub-packages<br /> Dim f ' running folder<br /> For Each f In folder.Packages<br /> if not f.IsShortcut then<br /> ProcessFolder f<br /> end if<br /> Next<br /> end sub