blog终于开张了

最新推荐文章于 2019-07-18 02:14:56 发布

runnerrunning

最新推荐文章于 2019-07-18 02:14:56 发布

阅读量832

点赞数

CC 4.0 BY-SA版权

分类专栏： others 做人要厚道文章标签： blog java

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.youkuaiyun.com/runnerrunning/article/details/588076

做人要厚道同时被 2 个专栏收录

7 篇文章

订阅专栏

5 篇文章

订阅专栏

年末了，看看办公室的兄弟们都停下了，俺也停下了，想想久未开张的blog，还有csdn，赶快来了。

整理了一下自己的平时写的一些个开发心得和技巧，有java , ooa/d ,pd等等的。

blog终于开张了

博客等级

码龄23年

21
原创

4
点赞

4
收藏

5
粉丝

关注

私信

热门文章

分类专栏

c++/c 1篇
database 6篇
java 相关 4篇
linux/win 4篇
OOA/D & UML 3篇
others 5篇
powerbuilder 1篇
做人要厚道 7篇

展开全部收起

上一篇：: powerdesigner中运用vbscript批量生成触发器脚本

下一篇：: middlegenide的生成文件中文注释小问题修改

最新评论

单线程和多线程访问数据库性能比较二实现代码部分(oracle 数据库)
jianshiku: hao lihai
powerdesigner的执行脚本----写入名字到注释中.vbs
匿名用户: 需要改下： private sub packagepdm(pdm) dim pdm1 for each pdm1 in pdm.Packages ProcessFolder pdm1 next end sub
几个sql语句
小明1108: select xm from t where xm not in ( select xm from t where fs < 80)
powerdesigner的执行脚本----写入名字到注释中.vbs
骨骨: 打开一个pdm，运行你的脚本提示如下错误: <br> <br>Microsoft VBScript 运行时错误 <br>缺少对象: 'folder' (0x800A01A8) <br>At line 35, character 4
powerdesigner的执行脚本----写入名字到注释中.vbs
楠ㄩ: 我改写了一个，在pd11中是好使的 <br> <br>'****************************************************************************** <br>'* File: name2comment.vbs <br>'* Purpose: Database generation cannot use object names anymore <br>' in version 7 and above. <br>' It always uses the object codes. <br>' <br>' In case the object codes are not aligned with your <br>' object names in your model, this script will copy <br>' the object Name onto the object comment for <br>' the Tables and Columns. <br>' <br>'* Title: 把对象name拷入comment属性中 <br>'* Version: 1.0 <br>'* Author：wangnc <br>'* 执行方法：PD11 -- Open PDM -- Tools -- Execute Commands -- Run Script <br>'****************************************************************************** <br> <br> <br>Option Explicit <br>ValidationMode = True <br>InteractiveMode = im_Batch <br> <br>Dim mdl ' the current model <br> <br>' get the current active model <br>Set mdl = ActiveModel <br>If (mdl Is Nothing) Then <br> MsgBox "There is no current Model" <br>ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then <br> MsgBox "The current model is not an Physical Data model." <br>Else <br> ProcessFolder mdl <br>End If <br> <br>' This routine copy name into code for each table, each column and each view <br>' of the current folder <br>Private sub ProcessFolder(folder) <br> Dim Tab 'running table <br> for each Tab in folder.tables <br> if not tab.isShortcut then <br>

大家在看

最新文章

目录

展开全部

收起

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。