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

数据库：SQL2000

PD版本：16

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

具体方法如下：

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

   

2. 切换到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