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

HH.EXE -decompile 路径要短

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

 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

Rand() 功能得到1与n之间的一个伪随机数。 语法Rand   (   n   ) 参数n：数值型变量或表达式，指定要产生的伪随机数的上界。有效值在1到32,767之间返回值与n的数据类型相同。函数执行成功时返回1与n之间的一个伪随机数，包括1和n在内。如果参数n的值为NULL，Rand()函数返回NULL。   --------------------------------------------------------- Randomize() 功能初始化伪随机数发生器，这样让应用程序每次使用不同

net use //192.168.0.1/Backdata 123456 /user:sa      登录源目录所在的机器     密码 /用户名copy //192.168.0.1/Backdata/ D:/DBBackup/              源目录，目标目录

this.menustyle = contemporarymenu!

今天报表汇出Excel时遇到个难题。 假设应用程序安装在D:/mysoft目录下，应用程序当前路径就是d:/mysoft， 如果，使用汇出Excel文件保存时，选择了其他路径c:/，应该程序的当前路径就会改变为c:/；由于系统中有很多图片是使用相对路径的，如果改变了应用程序当前路径的话，就会导致图处无法显示。 从网上查询到的解决方法使用2个函数： GetCurrentDirectoryA、SetCurrentDirectoryA 但自己试过并不成功。 自己尝试发现有个更简便的方法可以使用： 1. 定义全局变

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

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

of_multi_selectInstance Variable :prerow //记录历史点击行 /*===================================* ↓↓ 多选功能 ↓↓*===================================*/// 临时记录行号long temprow,ll_loop if ai_row 0 then //

首先考虑特殊的月   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

PB折行显示自动折行数据窗口中实现自动折行有时为了界面的考虑需要将一些长字段折行显示，但又不能确保在所有情况下都会出现长字段。比如，我们要求bookname 超过50个字符时将它分两行显示，对于没满50个字符的仍然按照正常格式显示，具体如下：1、 在数据窗口中选择要自动折行的列Address。2、 选择位置属性（Position）并选中Autosize Height选项3、 选择编辑属性（Ed

 INSERT触发器    INSERT及UPDATE触发器经常用于检测触发器所监控表的列及其数据是否符合所定义的规则。它们可以在数据输入表之前，对其进行在定义引用完整性时无法完成的约束检验。    下面以学生数据库student为例来介绍INSERT触发器的使用。该数据库包括三个表，分别是描述学生情况的“学生档案”表、描述学生成绩的“学生成绩”表student和。描述分组情况的“分组情况

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

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 为要删除的数据表

偶先小小偶搞了7年多的PB，在偶现在公司里PB技术及经验无人能及，编写的代码是所有在搞PB的同事们中最短小、最精悍但速度也是最快的。但又如何？又能如何？也只能当个Coder，和新来的没太大区别。别说我不想学，是PB已经过时了，公司里根本不想让你学，包括不给你有任何空闲时间和机会学。对公司来说，你会PB，就够了。扔给五六个满身臭虫的老系统让你维护，每天光问题单子就能压死你；再让你负责这五六个项目的用

InstanceVariable:Function ulong SetLayeredWindowAttributes(ulong hwnd,ulong crkey,ulong bAlpha,ULONG dwFlags) LIBRARY "user32.dll" Functi