PowerDesigner LDM/PDM 中的自动重命名列

发布于 2024-08-23 07:07:20 字数 284 浏览 8 评论 0原文

我想根据主复选框的状态重命名 PowerDesigner LDM/PDM 中的列。更具体地说，如果选中 Primary，我希望将该列从“oldname”重命名为“id_oldname”。

我认为可以使用自定义检查/自动修复脚本，例如“MSSQLSRV2008::Profile\Column\Custom Checks\Identity Seed and Incrementvalidity”中的脚本，但我真的不是 VBScript 专家:)

有没有一种简单的方法可以在 PowerDesigner 15 中实现这一点吗？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

小鸟爱天空丶 2024-08-30 07:07:20

解决方案非常简单。不幸的是，这并不是一个完美的方案，因为 PowerDesigner 在某些情况下（由于某种未知的原因）无法执行事件处理程序。下面的小vb脚本应该能够处理它。将创建扩展模型定义文件并将其附加到项目中。该脚本是表元类的验证事件处理程序（尽管它是自动修复而不是验证）。

Function %Validate%(obj, ByRef message) 
   ' Implement your object validation rule on <parent> here 
   ' and return True in case of success, False otherwise with a message 
   dim col    
   for each col in obj.columns      
      if col.Primary = true then 
         if left(col.name,3) <> "id_" then 
            With col 
               .name = "id_" & .name 
               .SetNameAndCode .Name, "", True 
            End With 
         end if 
      else 
         if left(col.name,3) = "id_" then 
            with col 
               .name = right(.name, len(.name)-3) 
               .SetNameAndCode .Name, "", True 
            end with 
         end if 
      end if 
   next 
   %Validate% = True
End Function

这要归功于提供原始代码的 Richard Kier。谢谢，理查德。

The solution is quite simple. Unfortunately not a flawless one, because PowerDesigner fails to execute the event handler in some cases (for some unknown reason). The small vbscript below should be able to handle it. An extended model definition file is to be created and attached to the project. The script is a Validate Event Handler of the Table metaclass (though it's rather an autofix than a validation).

Function %Validate%(obj, ByRef message) 
   ' Implement your object validation rule on <parent> here 
   ' and return True in case of success, False otherwise with a message 
   dim col    
   for each col in obj.columns      
      if col.Primary = true then 
         if left(col.name,3) <> "id_" then 
            With col 
               .name = "id_" & .name 
               .SetNameAndCode .Name, "", True 
            End With 
         end if 
      else 
         if left(col.name,3) = "id_" then 
            with col 
               .name = right(.name, len(.name)-3) 
               .SetNameAndCode .Name, "", True 
            end with 
         end if 
      end if 
   next 
   %Validate% = True
End Function

The credit goes to Richard Kier who supplied the original code. Thanks, Richard.

回复收藏 0 原文