把powerdesigner中表名为汉字以及列名为汉字的转为汉语拼音抽头的方法
PowerDesigner 中将汉字表名和列名转换为汉语拼音抽头的方法 PowerDesigner 是一款功能强大且流行的数据建模工具,广泛应用于数据 warehousing、数据 mining 和业务流程分析等领域。然而,在使用 PowerDesigner 进行数据建模时,经常会遇到表名和列名使用汉字的问题,这就需要将汉字表名和列名转换为汉语拼音抽头以便于数据存储和管理。 本文将介绍如何使用 VBScript 脚本将 PowerDesigner 中的汉字表名和列名转换为汉语拼音抽头,以提高数据模型的可读性和维护性。 方法: 1. 打开 PowerDesigner,创建一个新的数据模型或打开已有的数据模型。 2. 点击“工具”菜单,选择“执行命令”,在弹出的对话框中输入以下 VBScript 代码: ```vb Option Explicit ValidationMode = True InteractiveMode = im_Batch ' get the current active model Dim mdl Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no Active Model" Else ListObjects(mdl) End If '-------------------------------------------------------- ' Sub procedure to scan current package and print information on objects from current package ' and call again the same sub procedure on all children package of the current package '-------------------------------------------------------- Private Sub ListObjects(fldr) ' 列出所有的对象 output "Scanning " & fldr.code Dim obj ' running object For Each obj In fldr.children ' Calling sub procedure to print out information on the object 'DescribeObject obj TableSetNameToCode obj Next ' go into the sub-packages Dim f ' running folder For Each f In fldr.Packages ' 递归调用列出所有的对象 ListObjects f Next End Sub '-------------------------------------------------------- ' Sub procedure to print information on current object in output '-------------------------------------------------------- Private Sub DescribeObject(CurrentObject) if not CurrentObject.Iskindof(cls_NamedObject) then exit sub output "Found "+CurrentObject.ClassName+" """+CurrentObject.Name+""", Created by"+CurrentObject.Creator+" On "+Cstr(CurrentObject.CreationDate) End Sub ``` 3. 点击“执行”按钮,以执行 VBScript 脚本。 4. 等待脚本执行完成,查看结果。 效果: 将表名如【学生】生成 code:T_XS。字段如【姓名】将改变 code 为 XM。 注意点: * 下面给出的 VBScript 必须是在 PowerDesigner 中的物理模型中执行,否则将无效。 * 如果您的视图是放在一个包中,您必须进入该包中执行才有效。 * 如果您遇到同一表中抽头一样或两个表的抽头相同的情况下,脚本将自动停止,并且不保存。 * 您可以修改脚本来得到您想要的形式。 结论: 使用 VBScript 脚本将 PowerDesigner 中的汉字表名和列名转换为汉语拼音抽头可以提高数据模型的可读性和维护性,方便数据存储和管理。同时,这也提高了数据模型的可重用性和移植性。
- mrcyfqy2014-06-09可用,很不错
- 粉丝: 137
- 资源: 44
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助