PowerDesigner和SQL的相互转换

最新推荐文章于 2022-05-25 14:29:04 发布

全栈学徒_DeMeng

最新推荐文章于 2022-05-25 14:29:04 发布

阅读量4.5k

点赞数 2

分类专栏： mySQL 文章标签： mySQL powerDesigner 转换

本文链接：https://blog.csdn.net/DeMeng33/article/details/79816669

版权

mySQL 专栏收录该内容

1 篇文章

订阅专栏

1.pdm转sql
2.sql转pdm
- 2.1导入sql
- 2.2增加注释列

1.pdm转sql

pdm转sql可以说是非常方便的，点击Database->Generate Database然后在新的窗口中选择导出地址，填写名称就可以了。
pdm转sql第一步
pdm转sql第二步

2.sql转pdm

在sql中我们经常会添加注释，来对字段进行注解，导入powerDesigner的时候默认是没有注释选项的。下面让我们来一步步操作。

2.1导入sql

1.首先File->Reverse Engineer->Database
2.在新的窗口中填写你的项目名称，并选择你的sql版本
3.新的窗口中点击Add File添加文件、确定。至此导入结束。
sql转pdm第一步
sql转pdm第二步
sql转pdm第三步

2.2增加注释列

让我们来为项目添加注释列
点击工具栏的Tools->Display Preferences...
添加注释列第一步
在新的窗口中选择Table->Advanced
添加注释列第二步
然后新窗口中选择Columns->右侧的可视窗口（如图）
添加注释列第三步
然后新窗口中选择再添加一列。我选的是code列，一路确定后退出对话框。
添加注释列第四步
接下来还要执行两个脚本。
点击工具栏的Tools->Execute Commands->Edit/Run Script...
添加注释列第五步
新窗口中复制粘贴下面代码然后run。
PS:如果你在上面选用的是其他字段，请将下面的code换成你选用的字段

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.code = tab.comment  
                  Dim col ' running column   
                  for each col in tab.columns   
                  if col.comment="" then  
                  else
                    col.code = col.comment   
                  end if  
                  next   
            end if   
      next  

      Dim view 'running view   
      for each view in folder.Views   
            if not view.isShortcut then   
                  view.code = 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