有做翻页相册的网站吗,png图片可以做网站图标吗,网站文章没有被收录吗,中铁建设门户登录入口在使用PowerDesigner对数据库进行概念模型和物理模型设计时#xff0c;一般在NAME或Comment中写中文#xff0c;在Code中写英文。Name用来显 示#xff0c;Code在代码中使用#xff0c;但Comment中的文字会保存到数据库Table或Column的Comment中#xff0c;当Name已经存在…在使用PowerDesigner对数据库进行概念模型和物理模型设计时一般在NAME或Comment中写中文在Code中写英文。Name用来显 示Code在代码中使用但Comment中的文字会保存到数据库Table或Column的Comment中当Name已经存在的时候再写一次 Comment很麻烦可以使用以下代码来解决这个问题 代码一:将Name中的字符COPY至Comment中Option Explicit ValidationMode True InteractiveMode im_Batch Dim mdl the current model get the current active model Set mdl ActiveModel If (mdl Is Nothing) Then MsgBox There is no current Model ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox The current model is not an Physical Data model. Else ProcessFolder mdl End If This routine copy name into comment for each table, each column and each view of the current folder Private sub ProcessFolder(folder) Dim Tab running table for each Tab in folder.tables if not tab.isShortcut then tab.comment tab.name Dim col running column for each col in tab.columns col.comment col.name next end if next Dim view running view for each view in folder.Views if not view.isShortcut then view.comment view.name end if next go into the sub-packages Dim f running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next end sub -------------------------------------------- 另外在使用REVERSE ENGINEER从数据库反向生成PDM的时候PDM中的表的NAME和CODE事实上都是CODE为了把NAME替换为数据库中Table或Column的中文Comment可以使用以下脚本 代码二:将Comment中的字符COPY至Name中 Option Explicit ValidationMode True InteractiveMode im_Batch Dim mdl the current model get the current active model Set mdl ActiveModel If (mdl Is Nothing) Then MsgBox There is no current Model ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox The current model is not an Physical Data model. Else ProcessFolder mdl End If Private sub ProcessFolder(folder) On Error Resume Next Dim Tab running table for each Tab in folder.tables if not tab.isShortcut then tab.name tab.comment Dim col running column for each col in tab.columns if col.comment then else col.name col.comment end if next end if next Dim view running view for each view in folder.Views if not view.isShortcut then view.name view.comment end if next go into the sub-packages Dim f running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next end sub ----------------------------------------------------------------------- 以上两段代码都是VB脚本在PowerDesigner中使用方法为 PowerDesigner-Tools-Execute Commands-Edit/Run Scripts 将代码Copy进去执行就可以了是对整个CDM或PDM进行操作
