PowerDesigner 与 mysql 同步数据

PowerDesigner 连接上数据库
创建数据库表 table_5
在这里插入图片描述
在这里插入图片描述
选择:

在这里插入图片描述
在这里插入图片描述
在这里插入图片描述
点击确认后弹出
在这里插入图片描述
点击run执行

刷新数据库表,已创建成功
在这里插入图片描述
修改测试表1,新增一个字段
在这里插入图片描述
在这里插入图片描述
在这里插入图片描述
取消全选
在这里插入图片描述
选择数据库,勾选修改的表,如果全部勾选的话,就会全部同步
在这里插入图片描述
在这里插入图片描述
就同步出来了
在这里插入图片描述

其他:打开注释
双击表打开表详情 ,选择columns
在这里插入图片描述
快捷键: Ctrl+U 找到注释并勾选
在这里插入图片描述
然后就出来:
在这里插入图片描述
一般注释与Name应该是联动的,所以可以执行脚本:
在PowerDesigner中打开脚本的方法为:
PowerDesigner->Tools->Execute Commands->Edit/Run Scripts

1 将comment覆盖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


2 将name覆盖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

将code覆盖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.code
                  Dim   col   '   running   COLUMN 
                  FOR   EACH   col   IN   tab.columns 
                  IF col.code="" THEN
                  ELSE
                        col.name=   col.code 
                  END IF
                  NEXT 
            END   IF 
      NEXT
      Dim   VIEW   'running   view 
      for   each   view   in   folder.Views 
            if   not   view.isShortcut   then 
                  view.name   =   view.code 
            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

注释联动脚本参考:PowerDesigner设计Name和注释相互替换

  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值