当前位置:编程学习 > 网站相关 >>

PowerDesigner表的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
 
 
  将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进行操作
补充:综合编程 , 其他综合 ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,