PowerDesigner之设置(3)——根据Name首字母生成Code

SQL版本：2000

PowerDesigner版本：16

网上有不少介绍 PowerDesigner Name/Code自动调整 的文章，但基本如出一辙。

这里，我就介绍下如何根据输入的Name根据首字母自动生成Code的方法，这也是在实际应用中最常用的。根据默认设置，Code内容与Name一致，假如输入中文Name名称，Code自动生成的也是中文的，这不是我们想要的，往往我们以中文首字母作为Code。

下面就来介绍一下方法：

1. 主菜单Tools->General Options->Dialog-> Name to Code mirroring,勾上（默认是勾上的）。
2. 主菜单Tools->Model Options-> Naming Convention项(设置该项,会影响所有的子节点).勾选" Enable name/code conversions".

   然后在Name To Code标签页输入以下脚本即可.

   .vbscript(%Name%)
     ScriptResult=getpy(ScriptInputArray())
     function getpychar(char)
       tmp=+asc(char)
       if(tmp>= and tmp<=) then
         getpychar= "A"
       elseif(tmp>= and tmp<=) then
         getpychar= "B"
       elseif(tmp>= and tmp<=) then
         getpychar= "C"
       elseif(tmp>= and tmp<=) then
         getpychar= "D"
       elseif(tmp>= and tmp<=) then
         getpychar= "E"
       elseif(tmp>= and tmp<=) then
         getpychar= "F"
       elseif(tmp>= and tmp<=) then
         getpychar= "G"
       elseif(tmp>= and tmp<=) then
         getpychar= "H"
       elseif(tmp>= and tmp<=) then
         getpychar= "J"
       elseif(tmp>= and tmp<=) then
         getpychar= "K"
       elseif(tmp>= and tmp<=) then
         getpychar= "L"
       elseif(tmp>= and tmp<=) then
         getpychar= "M"
       elseif(tmp>= and tmp<=) then
         getpychar= "N"
       elseif(tmp>= and tmp<=) then
         getpychar= "O"
       elseif(tmp>= and tmp<=) then
         getpychar= "P"
       elseif(tmp>= and tmp<=) then
         getpychar= "Q"
       elseif(tmp>= and tmp<=) then
         getpychar= "R"
       elseif(tmp>= and tmp<=) then
         getpychar= "S"
       elseif(tmp>= and tmp<=) then
         getpychar= "T"
       elseif(tmp>= and tmp<=) then
         getpychar= "W"
       elseif(tmp>= and tmp<=) then
         getpychar= "X"
       elseif(tmp>= and tmp<=) then
         getpychar= "Y"
       elseif(tmp>= and tmp<=) then
         getpychar= "Z"
       else '如果不是中文，则不处理
         getpychar=char
       end if
     end function 
   
     function getpy(str)
       for i= to len(str)
         getpy=getpy&getpychar(mid(str,i,))
       next
     end function
   .endvbscript

   脚本

   然后点击确定，设置完成。（如果想更改原来的设置，勾上Apply Name To Code Conversion->To All Objects即可，这样就会把所有对象的Code根据Name首字母重新生成。）

下面赶紧新建一列试试效果吧。