PowerDesigner 导出的SQL脚本不带字段注释，解决办法

Posted 2023-04-16 皮豪

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了PowerDesigner 导出的SQL脚本不带字段注释，解决办法相关的知识，希望对你有一定的参考价值。

问题

PowerDesigner默认导出来的SQL没有注解。这一点是因为你没有添加Comment。

新问题

如果每个表都需要添加一个重复的Comment，那样太麻烦了。
所以可以直接改他的模板，把Comment换成Name。

原理类似于 comment $comment => comment $name

菜单栏：Database > Edit Current DBMS... >

找到图中的ADD，
默认的模板是

%20:COLUMN% [%National%?national ]%DATATYPE%[%Unsigned%? unsigned][%ZeroFill%? zerofill][ [.O:[character set][charset]] %CharSet%][.Z:[ %NOTNULL%][%R%?[%PRIMARY%]][%IDENTITY%? auto_increment:[ default %DEFAULT%]][ comment %.q:@OBJTLABL%]]

改成

%20:COLUMN% [%National%?national ]%DATATYPE%[%Unsigned%? unsigned][%ZeroFill%? zerofill][ [.O:[character set][charset]] %CharSet%][.Z:[ %NOTNULL%][%R%?[%PRIMARY%]][%IDENTITY%? auto_increment:[ default %DEFAULT%]][ comment %.q:COLNNAME%]]

其实就是把 %.q:@OBJTLABL% 改成了 %.q:COLNNAME%。

PowerDesigner 创建表格及导出SQL语句

目的：提高数据库创建表格效率
测试数据库：orcale

1.新建物理模型。

右键点击workplace，new一个物理模型并指定数据库。

技术分享图片

2.创建表格

技术分享图片

设置字段属性

技术分享图片

新增字段属性（比如加字段注释）

技术分享图片

3.导出sql语句及预览

技术分享图片

初次使用会发现orcale的sql语句，带双引号、字母大写，后面有解决方案
也可在Options选项卡里，可以个性化选择和配置sql脚本，如取消外键，去除drop语句等。

4.去除双引号

选择Database->Edit Current DBMS菜单

技术分享图片

选中General选项卡,依次打开Script->Sql->Fomat->CaseSensitivityUsingQuote

技术分享图片

5.字母批量大写转换

直接跑脚本，找到Tools – Excute Commands – Edit/Run Script，或者直接按Ctrl+Shift+X调出脚本执行窗口，输入下边的代码就可以了。

技术分享图片

转换到大写的VB代码

Option Explicit  
ValidationMode = True  
InteractiveMode = im_Batch  
Dim mdl ‘ 当前模型  
‘ 获取当前模型  
Set mdl = ActiveModel  
If (mdl Is Nothing) Then  
   MsgBox "没有打开一个模型" 
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then  
   MsgBox "当前模型不是一个PDM" 
Else  
‘调用处理程序  
   ProcessFolder mdl  
End If    
‘调用的处理程序  
Private sub ProcessFolder(folder)  
   Dim Tab ‘要处理的表  
   for each Tab in folder.Tables  
    ‘ if not Tab.isShortcut then  
        ‘ Tab.code = tab.name  
        ‘表名处理，前边添加前缀，字母小写  
        Tab.name=  UCase(Tab.name)  
        Tab.code= UCase(Tab.code)  
         Dim col ‘ 要处理的列  
         for each col in Tab.columns  
            ‘列名称和code全部小写，大写诗UCase  
            col.code= UCase(col.code)  
            col.name= UCase(col.name)  
         next  
      ‘end if 
   next    
‘ 处理视图  
‘  Dim view ‘running view  
‘   for each view in folder.Views  
   ‘   if not view.isShortcut then  
       ‘  view.code = view.name  
    ‘  end if 
  ‘ next     
   ‘ 递归进入 sub-packages  
   Dim f ‘ sub  folder  
   For Each f In folder.Packages  
      if not f.IsShortcut then  
         ProcessFolder f  
      end if 
   Next  
end sub