PowerDesigner之设置(2)——扩展属性

最新推荐文章于 2023-07-22 15:51:09 发布

weixin_30815469

最新推荐文章于 2023-07-22 15:51:09 发布

阅读量639

点赞数

CC 4.0 BY-SA版权

文章标签：数据库

原文链接：http://www.cnblogs.com/liuke1987/p/3232333.html

本文详细介绍了如何在PowerDesigner中通过设置扩展方法，解决SQL2000数据库中中文表名注释无法定长的问题。包括添加自定义属性、实现获取汉字数量的方法、修改表头注释等步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

数据库：SQL2000

PD版本：16

在PowerDesigner之设置(1)中，创建表的表头注释部分由于中文的原因无法定长，这里我们用PD的扩展方法来解决。

具体方法如下：

主菜单DataBase->Edit Current DBMS->Profile-> Table-> Extended Attributes右键new菜单添加一个属性，下面添加一个TableName30属性，勾选Computed，则会自动显示方法标签页，这个方法用来重写表名行注释，这里就用了只读方法就可以了，勾选Read Only。

切换到Global Script标签页，这里面的是全局脚本，我们添加一个获取字符串中汉字个数的方法GetHanziNum，如下：

'获取字符串中汉字总数
Function GetHanziNum(sStr)
   '汉字总数
   Dim Sum
   '循环数
   Dim c
   '表名中字符
   Dim Char
   Sum = 0
   For c = 1 To Len(sStr)
      Char = Mid(sStr, c, 1)
      If (AscW(Char) > -40870 And AscW(Char) < -19967) Or (AscW(Char) < 40870 And AscW(Char) > 19967) Then
         Sum = Sum + 1
      End If
   Next
   GetHanziNum=Sum
End Function

View Code

切换到Get Method Script标签页，写该属性的返回值。

Function %Get%(obj)
   ' Implement your getter method on <obj> here
   ' and return the value

   '表名名称，表名代码
   Dim tableName,tableCode
   '拼接字符串
   Dim str
   tableName=obj.name
   tableCode=obj.code  
   str="/* Table: "_     
      & left(tableCode & "               ",15)_    
      & left(tableName & "                                     ",39-GetHanziNum(tableName))_   
      & "*/"     
   %Get% = str
End Function

View Code

修改table的create值。

主菜单DataBase->Edit Current DBMS->Script->Objects->Table->Create中Value值修改。

将其中的表头注释部分修改为：

/*==============================================================*/

%TableName30%

/*==============================================================*/

综上，大功告成！

下面展现下效果：

汉字与英文结合也不受影响。如下：