![](https://img-blog.csdnimg.cn/20201014180756925.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
PB
birdw111
这个作者很懒,什么都没留下…
展开
-
获取子数据窗口的句柄并刷新
long ll_handledatawindowchild ldwc_child ll_handle = dw_1.getchild("列名",ldwc_child) IF ll_handle = 1 THEN ldwc_child.SetTransObjcet(SqlCa) ldwc_child.Retrieve() END原创 2010-02-12 10:13:00 · 611 阅读 · 0 评论 -
使用hh.exe反编译chm文件
HH.EXE -decompile 路径要短原创 2011-01-21 11:35:00 · 1071 阅读 · 0 评论 -
动态注册ODBC
registryset("HKEY_CURRENT_USER/SOFTWARE/ODBC/ODBC.INI/ODBC DATA SOURCES", "ex",regstring!, "SQL Server") registryset("HKEY_CURRENT_USER/SOFTWARE/ODBC/ODBC.INI/ex", "",regstring!, "") registryset("HKEY_CURRENT_USER/software/odbc/odbc.ini/ex", "autostop",reg转载 2011-01-25 11:18:00 · 474 阅读 · 0 评论 -
动画窗口
function boolean animatewindow ( long hwnd, long dwtime, long dwflags ) library "user32.dll" constant long aw_hor_positive = 1 constant long aw_hor_negative = 2 constant long aw_ver原创 2010-11-17 08:59:00 · 542 阅读 · 0 评论 -
PB 伪随机数发生器
Rand() 功能得到1与n之间的一个伪随机数。 语法Rand ( n ) 参数n:数值型变量或表达式,指定要产生的伪随机数的上界。有效值在1到32,767之间返回值与n的数据类型相同。函数执行成功时返回1与n之间的一个伪随机数,包括1和n在内。如果参数n的值为NULL,Rand()函数返回NULL。 --------------------------------------------------------- Randomize() 功能初始化伪随机数发生器,这样让应用程序每次使用不同原创 2010-11-12 19:41:00 · 1144 阅读 · 0 评论 -
远程拷贝
net use //192.168.0.1/Backdata 123456 /user:sa 登录源目录所在的机器 密码 /用户名copy //192.168.0.1/Backdata/ D:/DBBackup/ 源目录,目标目录原创 2010-09-28 13:20:00 · 377 阅读 · 0 评论 -
有用的东西。。。 哈哈
this.menustyle = contemporarymenu!原创 2010-09-26 09:44:00 · 434 阅读 · 0 评论 -
PB 图片不能正常显示
今天报表汇出Excel时遇到个难题。 假设应用程序安装在D:/mysoft目录下,应用程序当前路径就是d:/mysoft, 如果,使用汇出Excel文件保存时,选择了其他路径c:/,应该程序的当前路径就会改变为c:/;由于系统中有很多图片是使用相对路径的,如果改变了应用程序当前路径的话,就会导致图处无法显示。 从网上查询到的解决方法使用2个函数: GetCurrentDirectoryA、SetCurrentDirectoryA 但自己试过并不成功。 自己尝试发现有个更简便的方法可以使用: 1. 定义全局变转载 2010-09-08 15:17:00 · 2731 阅读 · 0 评论 -
PB 数据窗口数据导入Excel, 如果存在则追加,不存在则创建。
OLEOBJECT ExcelServer,Excelbooks long ll_count ,ll_loop,ll_i,ll_j,ll_cnt,ll_colcount,ll_column,ll_file Integer ExcelOK string ls_value,ls_datatype,ls_colname boolean ib_create //是否要新建sheet //建立Ole对象 ExcelServer = Create OleObject Excelbooks = Create OleObj原创 2010-09-14 16:48:00 · 1852 阅读 · 0 评论 -
pb 树的遍历
wf_getchildrenhandle:parm :long al_handlereturntype : (none)long ll_handle,ll_childrenthandle,ll_upperbound,ll_nexthandletreeviewitem ltvi_itemll_upperbound = upperbound(ii_code) // ii_code 用于保存所有遍历过的树handle//本节点if ll_upperbound = 0 then ll_upperboun原创 2010-09-09 20:23:00 · 1164 阅读 · 0 评论 -
仿Windows的多选功能
of_multi_selectInstance Variable :prerow //记录历史点击行 /*===================================* ↓↓ 多选功能 ↓↓*===================================*/// 临时记录行号long temprow,ll_loop if ai_row 0 then //原创 2010-06-23 16:26:00 · 430 阅读 · 0 评论 -
日期知识终于用上了。。。
首先考虑特殊的月 2 月 润年为29天,平年为 28天接着是大月和小月 大月 31天 小月30天 大月有 1,3,5,7,8,10,12 小月有 4,6,9,11判断闰年:能被400整除为润年,能被4整除且不能被100整除为平年 以下为 PB代码: 函数名:of_ruinian 参数类型 long 参数名 al_long IF Mod(al_year,400) = 0 OR (Mod(al_year,4) = 0 AND Mod(al_year,100) 0原创 2010-06-17 16:20:00 · 387 阅读 · 0 评论 -
关于折行显示的问题
PB折行显示自动折行数据窗口中实现自动折行有时为了界面的考虑需要将一些长字段折行显示,但又不能确保在所有情况下都会出现长字段。比如,我们要求bookname 超过50个字符时将它分两行显示,对于没满50个字符的仍然按照正常格式显示,具体如下:1、 在数据窗口中选择要自动折行的列Address。2、 选择位置属性(Position)并选中Autosize Height选项3、 选择编辑属性(Ed转载 2010-05-29 10:15:00 · 1593 阅读 · 0 评论 -
SQLSERVER简单触发器
INSERT触发器 INSERT及UPDATE触发器经常用于检测触发器所监控表的列及其数据是否符合所定义的规则。它们可以在数据输入表之前,对其进行在定义引用完整性时无法完成的约束检验。 下面以学生数据库student为例来介绍INSERT触发器的使用。该数据库包括三个表,分别是描述学生情况的“学生档案”表、描述学生成绩的“学生成绩”表student和。描述分组情况的“分组情况转载 2010-04-30 08:27:00 · 410 阅读 · 0 评论 -
创建一个表并循环插入数据
create table a (id int identity(1,1) not null , name varchar(20)) declare @i int set @i = 1 while (@i begin insert a (name) values(name + Convert(varchar(10),@i) ) se原创 2010-02-25 08:23:00 · 545 阅读 · 0 评论 -
删除数据库中的重复项
delete a from (select name,min(id) where name in (select name from a group by name having count(1) > 1) group by name) b where a.name = b.name and a.id != b.id a 为要删除的数据表原创 2010-02-25 08:17:00 · 391 阅读 · 0 评论 -
经典的日志 (转自) xiangjianchao
偶先小小偶搞了7年多的PB,在偶现在公司里PB技术及经验无人能及,编写的代码是所有在搞PB的同事们中最短小、最精悍但速度也是最快的。但又如何?又能如何?也只能当个Coder,和新来的没太大区别。别说我不想学,是PB已经过时了,公司里根本不想让你学,包括不给你有任何空闲时间和机会学。对公司来说,你会PB,就够了。扔给五六个满身臭虫的老系统让你维护,每天光问题单子就能压死你;再让你负责这五六个项目的用转载 2010-02-12 14:22:00 · 742 阅读 · 0 评论 -
PB 透明窗体
InstanceVariable:Function ulong SetLayeredWindowAttributes(ulong hwnd,ulong crkey,ulong bAlpha,ULONG dwFlags) LIBRARY "user32.dll" Functi原创 2011-10-09 14:21:49 · 692 阅读 · 0 评论