PowerDesigner write comment to name and write name to comment Pd7 later version available

• Code One:Copy the characters in name to 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 to comment for each table, each column and each view
  ' of the current folder
  Private Sub ProcessFolder (folder)
  Dim Tab ' Running table
  For all 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

--------------------------------------------

In addition, when using reverse engineer to reverse-generate PDM from the database, the name and code of the table in PDM are in fact code, and in order to replace name with the Chinese comment of table or column in the database, the following script can be used:

• Code two:Copy the characters in the comment to 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 isn't an physical Data model."
  Else
  ProcessFolder MDL
  End If

  Private Sub ProcessFolder (folder)
  On Error Resume Next
  Dim Tab ' Running table
  For all 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

-----------------------------------------------------------------------

The above two pieces of code are VB scripts, used in the PowerDesigner method is:

Powerdesigner->tools->execute Commands->edit/run Scripts

Copy the code in to execute it, it is the entire CDM or PDM operation

PowerDesigner write comment to name and write name to comment Pd7 later version available