PowerBuilder - PB案例代码
文章平均质量分 65
DavinciTeam
这个作者很懒,什么都没留下…
展开
-
查找某字符串在另外一个字符串中最后出现的位置
/*---------------------------------------------------------------------------------* 调用方式: gf_GetLastPosition(String as_string,string as_SubString)* 函数作用: 查找字符串as_string中另一个子串as_SubString所出现的最原创 2012-04-06 14:00:19 · 3690 阅读 · 0 评论 -
PB树型结构遍历
树型结构的遍历通常使用递归程序来实现,所以本节给出一个按照内容查找,对树型结构进行遍历,如果和要查找的内容相等,则返回该节点的Handle。函数如下:/*-----------------------------------------------------------------------------* 函数名称:long wf_reader(long al_handle,strin原创 2012-04-06 13:55:41 · 4046 阅读 · 0 评论 -
PB数据窗口中多行选中程序
首先定义窗口实例变量:long il_LastSelectedRow = 1然后开始编写多行选中程序。程序算法描述如下:1、如果按下了Control键 如果是在选中行上,取消该行 否则,选中该行 记录当前到窗口实例变量中2、如果按下了Shift键 取消所有选中行 选中上次点击行和当前行之间的所有数据行 记录当前到窗口实例变量中3、如果没有按键原创 2012-04-06 13:51:54 · 6569 阅读 · 1 评论 -
PB获取服务器时间
/*-----------------------------------------------------------------------* 函数名称:datetime gf_getsysdate(string as_dbms)* 功能描述:取得服务器的的日期时间(DateTime) * 参数含义:as_dbms 所使用的数据库DBMS原创 2012-04-06 15:45:38 · 4095 阅读 · 0 评论 -
PB如何获取列表框中同时选中的多个项目
integer li_indexinteger li_startString ls_itemsli_start = lb_1.SelectedIndex()if li_start For li_index = li_start to UpperBound(lb_1.item[])if lb_1.State(li_index) = 1 thenls_items =原创 2012-04-06 16:04:43 · 2112 阅读 · 0 评论 -
PB窗口居中显示的公用函数
在PB9.0之下的版本中,因为窗口没有属性‘Center’,必须自己编写程序,使窗口居中。下面这个公用函数考虑的自认为比较全面,在PB9.0之前的版本中都还是非常有用的。//*************************************************************//* 功能: 将窗口移到屏幕的中央//* 参数1: aw_window原创 2012-04-06 15:53:40 · 2027 阅读 · 0 评论 -
PB游标编程套路
String ls_temp1String ls_temp2declare cur_name CURSOR FOR select field1,field2 from tablenamewhere conditionOPEN cur_name;FETCH cur_name INTO :ls_temp1,:ls_temp2;do while sqlca.sqlco原创 2012-04-06 15:51:35 · 3409 阅读 · 0 评论 -
PB判断是否有重复数据
使用Update函数保存数据之前,通常要判断数据窗口中是否有主键重复的数据,如果有重复则不允许提交。如果我们不编写程序判断,数据窗口本身业可以进行校验,但是显示的都是英文的提示信息。为此,我们通常在DBError事件中返回1以屏蔽该英文的提示信息,然后编写程序进行主键重复判断。进行主键重复判断,实现的方法很多,效率高的不多。这里介绍的是效率非常高的一种方法。该方法的思路是,通过过滤,将只显示过原创 2012-04-06 15:46:21 · 4499 阅读 · 0 评论 -
PB编写登录程序
我们的要求是,首先打开主窗口,然后显示登录界面,用户最多可以尝试登录3次,如果登录成功,则根据用户权限初始化主窗口界面,否则关闭整个应用。 登录程序看似简单,实际上涉及到的知识不少。知识点有:SQL语句的使用、窗口类型的理解、SingleLineEdit控件、CommandButton的属性的应用、自定义用户事件、如何触发自定义用户事件、使用窗口实例变量、不同窗口之间如何传递信息等。下面我原创 2012-04-06 13:56:55 · 5219 阅读 · 0 评论 -
数据处理窗口CloseQuery事件编程
该事件下的脚本流程是首先判断数据是否修改过,如果修改过,则让用户选择是否保存,用户确认保存则保存,不保存则退回事务然后关闭窗口。保存数据时,保存成功则直接关闭窗口,保存失败则让用户确认是否关闭窗口,用户确认要关闭则关闭窗口。脚本如下:int li_flagIf dw_1.ModifiedCount() 0 ThenBeep(2)li_flag = MessageBox("确认",原创 2012-04-06 13:32:31 · 949 阅读 · 0 评论 -
PB身份证号码正确性校验
身份证号码校验(gf_check_identity)可以同时对15位和18位的身份证进行校验,并自动根据平年和润年进行判断。可以在数据窗口ItemChanged事件中调用该函数进行校验。/*-------------------------------------------------------------------------------* 函数名称:Boolean gf_原创 2012-04-06 13:49:49 · 4338 阅读 · 0 评论 -
怎样在pb里实现无标题栏 如何使PB窗口总在最上层 显示或隐藏Windows的任务栏
1. pb里实现无标题栏api解决:SetWindowLong(Handle, // 当前窗体句柄 GWL_STYLE, // 表示当前是要设置新的窗体(普通)样式 // 得到指定窗体信息 GetWindowLong(Hand原创 2013-01-18 14:10:41 · 8158 阅读 · 0 评论