《如何在powerdesigner中将备注产生到数据库中》由会员分享,可在线阅读,更多相关《如何在powerdesigner中将备注产生到数据库中(2页珍藏版)》请在金锄头文库上搜索。
1、如何在POWERDESIGNER中将备注产生到数据库中 2011-05-20 18:23:17| 分类: 軟件开发 | 标签: |字号大中小 订阅 一 PD12.5 生成 PB 中table的扩展属性首先第一步model-modele extended definition 定义扩展属性窗口里倒数第二个钮,import an EXtended Model Definition勾选 PowerBuilder然后第二步tools-powerbulider-generate extended attributes就OK 了如果提示model does not contain the powerbui
2、lder extended model definition!you need to add it to the model if you wish to generate or reverse powerbuilder extend attributes. 就是第一步,没有设置好如果生成不成功,可以将不显示中文的表删除,然后执行PB数据库面板上的清理系统的选项,然后再生成就可以了,删除PB的系统表是下下策,因为我们有时会用程序在里面写入很多东西,如下拉窗或表达式什么的,删除怎么能行.PB已经提供了清理系统表的功能.在PB面板的某一个菜单下,designer-Synch extended at
3、tributes二 如何将name产生到备注的代码执行方法:Open PDM - Tools - Execute Commands - Run ScriptOption Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl the current model get the current active model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox There is no current Model ElseIf Not mdl.IsKindO
4、f(PdPDM.cls_Model) Then MsgBox The current model is not an Physical Data model. Else ProcessFolder mdl End If This routine copy name into code for each table, each column and each view of the current folder Private sub ProcessFolder(folder) Dim Tab running table for each Tab in folder.tables if not
5、tab.isShortcut then ment = tab.name Dim col running column for each col in tab.columns ment= col.name next end if next Dim view running view for each view in folder.Views if not view.isShortcut then ment = view.name end if next go into the sub-packages Dim f running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next end sub