power designer 使用问题小汇总

        最近在使用power designer，用于建数据表，建表可视化挺方便建表的操作，在整理建表思路的同时就完成的表的创建，程序员表示用得很爽，但是功能挺庞大的，一开始用很容易摸不清头脑，要多熟悉，总结一下今天遇到的问题。
        常见的问题：建立好数据表模型后，导出对应的sql脚本，用导出的脚本进行创建表等操作时常常会遇到很多问题：

        ①    导出sql语句时有很多无用的语句，或者说暂时用不上的语句生成，因为建了数据库模型之后，我们需要使用工具（PL/SQL Developer）在数据库中创建出实体表去装载数据使用，直接使用却出现了很多错误，很多暂时不需要的语句生成（其实是不知道有什么作用），如，对触发器的操作（即使没有创建触发器）或者开始结束脚本。。。
                后来我看了下导出sql的设置，才发现我导出了不需要的脚本代码，一下应该是不需要的，因为我只需要序列，建表语句或者外键主键之类的，其他的这个时候就不需要了



            解决方法：

                    1.  首先通过  


                         进行导出设置，其中设置  directory（生成sql脚本存放的本地地址）和file name（文件名）就可以了（只需要建表语句和索引等语句时）

                    2.    


                    导出需要的建表语句，也可以在options自定义需要哪些脚本代码

        还有几个小问题，小汇总一下：（解决方法在下方）

        ②   导出的表名和所有字段名都被包裹了双引号，需要去除，无法直接使用
        ③    定义表的字段的name（显示与PD内的字段说明文字）时，默认与code（创表时的字段名）实时更新，实际上这步是多余的，因为创表语句中我们一般不使用中文进行命名，无论是表名还是字段，虽然可以用中文去命名，但是不符合规范并且程序员应该尽量远离中文命名，因为鬼知道会发生什么事情！
                所以我们希望真正需要中文说明的comment（说明）与name属性对应，就免去我们复制粘贴的麻烦

        ④    



②：导出的表名和所有字段名都被包裹了双引号，需要去除，无法直接使用
为什么会出现这样的问题呢？
使用PowerDesigner生成数据库建表SQL脚本时，尤其是Oracle数据库时，表名一般会带引号。其实加引号是PL/SQL的规范，数据库会严格按照“”中的名称建表，如果没有“”，会按照ORACLE默认的设置建表（DBA STUDIO里面），默认是全部大写，这样，在ORACLE数据库里的字段就如“Column_1”。如果你把引号去掉，ORACLE自动默认为全部大写，即“COLUMN_1”，所以这段SQL在PL/SQL中执行的时候是没有任何问题的，如果不加引号，在PL/SQL会自动识别为大写。如果加了引号，sql或者hql查询“Column_1='XXX'”时，就会报错：ORA-00904: "COLUMN_1": 无效的标识符，除非写为“‘Column_1’='XXX'”。这个问题是生成脚本格式的问题，因此，我们可以尝试在DBMS配置文件中修改相应的格式设置来解决这个问题。 
在power designer菜单中的Database下Edit current DBMS中，选择Script->Sql->Format，有一项CaseSensitivityUsingQuote，它的comment为“Determines if the case sensitivity for identifiers is managed using double quotes”，表示是否适用双引号来规定标识符的大小写，可以看到右边的values默认值为“YES”,改为“No”，点击【应用】按钮。
 参考自：https://www.2cto.com/database/201301/186634.html

③：使用pd对name和comment互相转换，减少不必要的操作

在PowerDesigner中使用方法为：
PowerDesigner->Tools->Execute Commands->Edit/Run Scripts
将代码Copy进去执行就可以了，是对整个CDM或PDM进行操作

代码一:将Name中的字符COPY至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   into   comment   for   each   table,   each   column   and   each   view
'   of   the   current   folder
Private   sub   ProcessFolder(folder)
Dim   Tab   'running     table
for   each   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

另外在使用REVERSE ENGINEER从数据库反向生成PDM的时候，PDM中的表的NAME和CODE事实上都是CODE，为了把NAME替换为数据库中Table或Column的中文Comment，可以使用以下脚本：

代码二:将Comment中的字符COPY至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   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.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

    参考自：https://www.cnblogs.com/galengao/p/5756565.html

④原因是由于generation option 设置出错导致解决方法：打开表格属性页面Priview标签， 有个Show generation Options按钮

 或 Ctrl+G 弹出设置界面


将自定义的Setting Set 选择为All Objects 默认方案或 Table And View 方案 -> 应用  一般可解决 SQL 预览出现。



原因是由于generation option 设置出错导致解决方法：打开表格属性页面Priview标签， 有个Show generation Options按钮

 或 Ctrl+G 弹出设置界面


将自定义的Setting Set 选择为All Objects 默认方案或 Table And View 方案 -> 应用  一般可解决 SQL 预览出现。