Turn-powerdesigner copy comment to name and copy name to comment

When you use PowerDesigner to make conceptual and physical model designs for a database, you typically write Chinese in name or comment and write English in code. Name is used to show that code is used in codes, but the text in comment is saved to the comment of the database table or column, and when name already exists, it is cumbersome to write again comment, you can use the following code to solve the problem

The methods used in PowerDesigner are:

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

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

[VB]View Plaincopyprint?' Code one: Copy the characters in name to comment

2. Option Explicit
4. Validationmode = True
6. Interactivemode = Im_batch
8. Dim MDL ' the current model
10. ' Get the current active model
12. Set mdl = Activemodel
14. If (MDL is nothing ) Then
16. MsgBox "There is no current Model"
18. ElseIf not mdl. IsKindOf (Pdpdm.cls_model) Then
20. MsgBox "The current model isn't an physical Data model."
22. Else
24. ProcessFolder MDL
26. End If
28. ' This routine copy name to comment for each table, each column and each view
30. ' of the current folder
32. Private Sub ProcessFolder (folder)
34. Dim Tab ' running table
36. For all Tab in Folder.tables
38. If not Tab.isshortcut then
40. Tab.comment = Tab.name
42. Dim Col ' running column
44. For each col in Tab.columns
46. Col.comment= Col.name
48. Next
50. End If
52. Next
54. Dim View ' running view
56. For each view in folder. Views
58. If not View.isshortcut then
60. View.comment = View.name
62. End If
64. Next
66. ' Go into the sub-packages
68. Dim F ' running folder
70. For each f in folder. Packages
72. If not F.isshortcut then
74. ProcessFolder F
76. End If
78. Next
80. 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:

[VB]View Plaincopyprint?

2. ' Code two: Copy the characters in the comment to name
6. Option Explicit
8. Validationmode = True
10. Interactivemode = Im_batch
14. Dim MDL ' the current model
18. ' Get the current active model
20. Set mdl = Activemodel
22. If (MDL is nothing ) Then
24. MsgBox "There is no current Model"
26. ElseIf not mdl. IsKindOf (Pdpdm.cls_model) Then
28. MsgBox "The current model isn't an physical Data model."
30. Else
32. ProcessFolder MDL
34. End If
38. Private Sub ProcessFolder (folder)
40. On Error Resume Next
42. Dim Tab ' running table
44. For all Tab in Folder.tables
46. If not Tab.isshortcut then
48. Tab.name = Tab.comment
50. Dim Col ' running column
52. For each col in Tab.columns
54. If col.comment="" Then
56. Else
58. Col.name= col.comment
60. End If
62. Next
64. End If
66. Next
70. Dim View ' running view
72. For each view in folder. Views
74. If not View.isshortcut then
76. View.name = View.comment
78. End If
80. Next
84. ' Go into the sub-packages
86. Dim F ' running folder
88. For each F in folder. Packages
90. If not F.isshortcut then
92. ProcessFolder F
94. End If
96. Next
98. End Sub
100. Original address: http://blog.csdn.net/smartsmile2012/article/details/7922863

Turn-powerdesigner copy comment to name and copy name to comment