3番目のステップは、PDMビューを作成し、接続するデータベースを選択することです。
作成したばかりのデータソースを決定して選択するための5番目のステップ
8番目のステップは、ファイル内の名前が英語であり、コメントが導入されていないためです。ここでは、名前を中国語のコメントに置き換えるステップを実行する必要があります。
必要な
mysqlodbc接続ソフトウェア： mysql-connector-odbc-5.3.6-win32.msi;
mysql-connector-odbc-5.3.6-winx64.msi;
PowerDesigner16を使用してMySQLデータベースに接続し始めたとき。長すぎてスクリーンショットを撮るのを忘れたためにエラーを報告することがよくあります。特定のエラーを忘れました。最初はそれらを解決する方法がわかりませんでした。最後に、いくつかのソフトウェアが不足していることに気付きました。同じ問題が発生した場合は、コンピューターにアクセスして、下のスクリーンショットで特定のソフトウェアが不足していないかどうかを確認できます。私は怠惰な人間であり、何度かソフトウェアを繰り返し押した後でアンインストールするつもりはありません。
最初のステップ：PDソフトウェアを開きます。
ステップ2：新しいモデルを作成する
ステップ3：PDMビューを作成します（接続するデータベースを選択します）
手順4：データソースに接続します。
ステップ5：すべてを確認し、作成したデータソースを選択します
ステップ6：非常に重要：
ステップ7：生成を待つ：
ステップ8：ファイル内の名前は英語であるため、コメントは導入されません。ここでは、名前を中国語のコメントに置き換えるステップを実行する必要があります。
ステップ9：レンダリング
備考：
コメントの文字を名前のコードにコピーします。
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl '現在のモデル
'現在のアクティブモデルを取得します
Setmdl = ActiveModel
If（mdl Is Nothing）Then
MsgBox“現在のモデルはあり
ません” ElseIf Not mdl.IsKindOf（PdPDM.cls_Model）Then
MsgBox“現在のモデルは物理データモデルではありません。”
Else
ProcessFolder mdl
End If
Private sub ProcessFolder（folder）
On Error Resume Next
Dim
Tab'folder.tablesの各タブの実行中のテーブル （tab.isShortcutで
ない場合）then
tab.name = tab.comment
Dim col '
tab.columnsの各列 の実行中の列（列の
場合）。 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サブ終了
コメントする名前の文字をコピーします
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl '現在のモデル
'現在のアクティブモデルを取得します
Setmdl = ActiveModel
If（mdl Is Nothing）Then
MsgBox“現在のモデルはあり
ません” ElseIf Not mdl.IsKindOf（PdPDM.cls_Model）Then
MsgBox“現在のモデルは物理データモデルではありません。”
Else
ProcessFolder mdl
End If
「各テーブル、各列および各ビューのコメントにこのルーチンコピー名
現在のフォルダの」
プライベート・サブProcessFolder（フォルダ）
テーブルを実行している薄暗いTAB「
folder.tablesの各タブのためには
、その後tab.isShortcutない場合
tab.comment =タブ.name
Dim
col'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