測試環境：power designer 16.5、vs2010、win7

對於破解版的power designer經常出現崩潰、停止工作的情況

請執行pdlegacyshell16.exe，不要執行PdShell16.exe

一、如何除錯power designer中的vbs

1.修改註冊HKEY_CURRENT_USER\Software\Microsoft\WindowsScript\Settings，將值改為1

2.在要除錯的vbs指令碼中插入Stop語句

3.啟動power designer，選擇Tools -> Execute Commands -> Edit/Run Script，開啟要步驟2中的指令碼執行，當執行到Stop語句時，就會觸發vs2010除錯該指令碼

二、新增oracle 表空間相關引數

 1 create table MAMS_AMDAYINDEX
 2 (
 3 amdayindexid VARCHAR2(25) not null,
 4 indexdate VARCHAR2(10),
 5 amuid VARCHAR2(10),
 6 nomonfundsales NUMBER(18,2),
 7 ppiperiodamt NUMBER(18,2),
 8 )
 9 tablespace TBS_DEPT    -- 表段MAMS_AMDAYINDEX放在表空間TBS_DEPT中
 

10 pctfree 10    -- 塊保留10%空間留給更新該塊資料使用
11 initrans 1    -- 初始化事務槽個數
12 maxtrans 255    -- 最大事務槽個數
13 storage    -- 儲存引數
14 (
15 initial 16    -- 區段(extent)一次擴充套件16
16 minextents 1    -- 最小區段數
17 maxextents unlimited    -- 最大區段數
18 );
19 
20 pctfree 10，比如一個數據塊插入資料直到還剩餘10%的空間就不再插入，留下10%用做將來資料更新使用（因為存在可變長度的欄位）。這樣可以防止遷移行和連結行出現
 
21 initrans，maxtrans  表示可以再一個數據塊上併發操作的事務槽個數，最大個數
22 minextents，maxextents  表示可以給該表分配區段的最小最大個數
23 
24  

在powerdesigner 16.5中新增以上引數

1.雙擊表，彈出table properties視窗
2.選擇標籤頁physical options，注意不是 physical options(Common)
3.在左邊摺疊樹找到<physical_properties>,<segment_attributes_clause>,在pctfree,initrans,<deprecated>maxtrans,<storage>,initial,minextents,maxextents,tablespace。選擇到右邊即可
4.選中pctfree在右下角有設定值大小的輸入欄
5.在preview檢查sql引數是否生效

在標籤頁physical options左下角有一個apply to，可以設定一次性應用到其他表格

三、取消oracle中的大小寫敏感（取消oracle的雙引號）

Database -> Edit Current DBMS -> General -> Script -> Sql -> Format -> CaseSensitivityUsingQuote -> No

四、關閉name自動複製到code

Tools -> General Options -> Dialog -> Operating modes -> Name to Code mirroring -> 取消打鉤

五、幾個有用的指令碼

將comment欄位複製到name欄位，在逆向工程資料庫時，將註釋寫到name上

'******************************************************************************
'* File: CopyComment2Name.vbs
'* Title: Copy Comment to Name Conversion
'* Purpose: To update existing objects in your model with your current naming
'* standards based in your model options by executing the Comment to Name.
'*
'* Model: Physical Data Model
'* Objects: Table, Column, View
'* Category: Naming Standards
'* Author: Tang Tao
'* Created: Apr 11, 2017
'* Mod By: 
'* Modified: 
'* Version: 1.0
'* Comment: 
'* v1.0 - Must have Conversion Tables assigned as a model option and
'* turn on Enable Name/Comment Conversion
'******************************************************************************
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
' the current model
Dim mdl

' 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
'running table
Dim tab
for each tab in folder.tables
if not tab.isShortcut then
if tab..Comment <> "" then
tab.Name = tab.Comment
end if
' running column
Dim col
for each col in tab.columns
if col.Comment <> "" and not col.Replica then
col.Name= col.Comment
end if
next
end if
next
'running view
Dim view
for each view in folder.Views
if not view.isShortcut then
view.Name = view.Comment
end if
next

' go into the sub-packages
' running folder
Dim f
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub

將name欄位複製到comment欄位，在設計物理模型時，不需要輸入兩次。

 

 

'******************************************************************************
'* File: CopyName2Comment.vbs
'* Title: Copy Name to Comment Conversion
'* Purpose: To update existing objects in your model with your current naming
'* standards based in your model options by executing the Name To Comment.
'*
'* Model: Physical Data Model
'* Objects: Table, Column, View
'* Category: Naming Standards
'* Author: Tang Tao
'* Created: Apr 11, 2017
'* Mod By: 
'* Modified: 
'* Version: 1.0
'* Comment: 
'* v1.0 - Must have Conversion Tables assigned as a model option and
'* turn on Enable Name/Comment Conversion
'******************************************************************************
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

'the current model
Dim mdl

'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
'running table
Dim tab
for each tab in folder.tables
if not tab.isShortcut then
tab.Comment = tab.Name
'running column
Dim col
for each col in tab.Columns
if col.Name<>"" and not col.Replica then
col.Comment = col.Name
end if
next
end if
next

'running view
Dim view
for each view in folder.Views
if not view.isShortcut then
view.Comment = view.Name
end if
next

'go into the sub-packages
'running folder
Dim f 
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub
 

---------------------
作者：tangtao_xp
來源：CSDN
原文：https://blog.csdn.net/tangtao_xp/article/details/70842063