PB - 随笔分类 - djd66

PB中DataWindow的数据保护及实现：只有录入者才能修改数据的实现

摘要：(3)要保护的行只有在执行时才能确定，并且不断变化例如在学生成绩管理中,假设成绩的修改只有该成绩的输入者才有权限，对其他人输入的成绩则只能浏览；由于输入者是变化的,且一般情况下只有在执行时才能确定条件需要一个变量，这就需要在建立DataWindow时为其指定一个检索数据的参数(如flag ),然后阅读全文

posted @ 2024-04-16 14:37 djd66 阅读(59) 评论(0) 推荐(0) 编辑

PB数据窗口行如何显示不同颜色

摘要：问题：大意就是按分组显示颜色思路：我在這使用 [訂單] 這一欄來做這個例子, 結果如下圖背景顏色的運算式, 只以 cmp_group_count 這欄為例作法1.先加一個運算欄位, 這裏命名為 cmp_order_no運算式if( 訂單 <> 訂單[-1] or getrow()=1 ,1 阅读全文

posted @ 2024-04-16 14:34 djd66 阅读(306) 评论(0) 推荐(0) 编辑

PB中颜色值计算公式

摘要：RGB函数计算公式: 颜色值＝ (65536 * Blue) + (256 * Green) + (Red) Colour Red Green Blue 值黑色 Black 0 0 0 0白色 White 255 255 255 16777215灰色 Gray 192 192 192 126322 阅读全文

posted @ 2024-04-16 14:30 djd66 阅读(170) 评论(0) 推荐(0) 编辑

PB中datewindow单双行显示不同颜色

摘要：调出datewindow，找到detail中的列，右击properties，左侧Background中的color属性添加 IF(MOD(GETROW(),2)=0,RGB( 255, 250, 205), RGB(255, 255, 255)) 看图：阅读全文

posted @ 2024-04-16 14:29 djd66 阅读(41) 评论(0) 推荐(0) 编辑

PB 动态修改数据窗口下拉框的值（DROPDOWNLISTBOX）

摘要：GIF:效果图 string ls_value,ls_colname ls_colname = 'a' //字段名称 //如果字段不是DropDownListBox下拉框，需要改变Edit中的Style Type类型 //dw_1.Modify(ls_colname+".ddlb.case='any 阅读全文

posted @ 2023-06-28 14:16 djd66 阅读(747) 评论(0) 推荐(0) 编辑

PB编程,API函数和PB编程绝招

摘要：1. 如何使PB窗口总在最上层通过SetWindowPos函数吧窗口的显示层次修改为HWND_TOPMOST，就可以使指定窗口永远不会被其他窗口覆盖，该函数声明为： Function Long SetWindowPos(Long hwnd, Long ord, Long x, Long y, Lo 阅读全文

posted @ 2023-05-26 09:40 djd66 阅读(258) 评论(0) 推荐(0) 编辑

PB6.5开发笔记

摘要：这是刚毕业时在某一“大”公司使用PB6.5开发联通营帐系统时的笔记，虽然好久没有也许以后也不会再使用pb开发程序了，但这算是我使用过的唯一一个前端专业开发工具，把笔记记录下来，权当作纪念吧，^_^ //PB中标准调用sql语句ls_sql = "select road_name from bb_da 阅读全文

posted @ 2023-05-26 09:38 djd66 阅读(238) 评论(0) 推荐(0) 编辑

pb dw中checkbox控件在点选后马上取消勾选的方法

摘要：需求：pb dw中的checkbox列在点击选择时，判断之前某列的值，如不满足条件，则取消勾选。使用过的方法及解释： 1、在itemchanged事件中写 dw.objext.cbx[row] = 0. 不能达到要求。虽然itemchanged事件中的data变成了0.但是dw行中的checkbo 阅读全文

posted @ 2023-05-24 13:28 djd66 阅读(223) 评论(0) 推荐(0) 编辑

保存到Excel文件中

摘要：OLEObject ole_object , ole_workbooks ole_object = CREATE OLEObjectIF ole_object.ConnectToNewObject("Excel.Application") <> 0 THENMessageBox('OLE错误','O 阅读全文

posted @ 2023-04-26 10:29 djd66 阅读(38) 评论(0) 推荐(0) 编辑

PB开发境界多个DW进行update

摘要：多个DW进行update //菜鸟代码dw_1.Update()dw_2.Update()初级代码IF dw_1.Update() = 1 And dw_2.Update() = 1 THEN COMMIT;ELSE ROLLBACK;END IF中级代码IF dw_1.Update() = 1 T 阅读全文

posted @ 2023-04-26 10:28 djd66 阅读(237) 评论(0) 推荐(0) 编辑

PB常用函数

摘要：弹出窗口：messagebox（）基本写法：Messagebox('标题','内容') 完整写法： MessageBox ( '标题','内容',图标,按键,默认值) （1）其中标题与内容为要显示的字符串,不可省略，但可以省略，即什么也不显示，例如Messagebox('','')这样也是正确的单阅读全文

posted @ 2023-04-26 10:24 djd66 阅读(165) 评论(0) 推荐(0) 编辑

pb datastore的数据如何显示在datawindow上

摘要：datastore最常用的用法是 datastore ds ds = create datastore ds.dataobject = 'd_XXX' 然而问题在于，这样的用法只是给d_XXX找了个一个替身，数据的查询依然执行的是d_XXX的SQL。那么当datastore用自己的SQL查询出来的数阅读全文

posted @ 2022-11-17 13:07 djd66 阅读(233) 评论(0) 推荐(0) 编辑

RowsCopy() 用法

摘要：RowsCopy()功能：将一个数据窗口控件中指定的行复制到另一个数据窗口，或将数据窗口控件中一个缓冲区的指定行复制到另一个缓冲区中。语法：dwcontrol.RowsCopy (startrow, endrow, copybuffer, targetdw, beforerow,targetbuff 阅读全文

posted @ 2022-11-17 11:15 djd66 阅读(417) 评论(0) 推荐(0) 编辑

pb中打印设置

摘要：IF messageBox("提示","是否打印?",Exclamation!, OKCancel!,1) = 1 Then openwithparm(w_print_setup,dw_1)Else messageBox("提示","打印取消!!")End IF dw_1.object.datawi 阅读全文

posted @ 2022-09-27 10:49 djd66 阅读(1576) 评论(0) 推荐(0) 编辑

PowerBuilder常用函数功能和用法解析

摘要：郭宝利先生在他的帮助文档里总结的一个系统用到的所有函数，他们也是软件开发中常用的，为了方便查阅，我把这些函数按照字母顺序进行了整理并添加了使用方法，方便我和一些其他的初学者学习使用： 1.AcceptText 将“漂浮”在数据窗口控件上编辑框的内容放入到数据窗口控件的当前项中（主缓区中）。用法：dw 阅读全文

posted @ 2022-05-16 09:06 djd66 阅读(2798) 评论(0) 推荐(1) 编辑

如何连续在同一张纸打印两个数据窗口？

摘要：如何连续在同一张纸打印两个数据窗口？dw_1.object.datawindow.print.filename="temp.prn"dw_2.object.datawindow.print.filename="temp.prn"dw_1.print()dw_2.print() 阅读全文

posted @ 2022-04-29 09:58 djd66 阅读(75) 评论(0) 推荐(0) 编辑

分组行号

摘要：怎样对分组里的行加上序号，要求每个组里行的序号从1开始！用计算域，放在明细区： getrow() - first(getrow() for group 1) + 1 first(getrow() for group 1) 可以取得每一组的第一行的行号 //做分组组号 cumulativeSum(i 阅读全文

posted @ 2022-04-29 09:56 djd66 阅读(30) 评论(0) 推荐(0) 编辑

除了循环以外，有没有更好的方法统计数据窗口中处于选中状态的行数？

摘要：除了循环以外，有没有更好的方法统计数据窗口中处于选中状态的行数？方法一： long ll_Selected ll_Selected = long(dw_1.describe("evaluate('sum( if(IsSelected(), 1, 0) for all)',1)"))方法二： long 阅读全文

posted @ 2022-04-29 09:55 djd66 阅读(41) 评论(0) 推荐(0) 编辑

在数据窗口过滤以后,计算列值如何才能一起改变?

摘要：dw_1.filter()dw_1.groupcalc() 阅读全文

posted @ 2022-04-29 09:54 djd66 阅读(23) 评论(0) 推荐(0) 编辑

DataWindow如何彻底禁止鼠标滚轮滚动到下一条或上一条记录

摘要：DataWindow如何彻底禁止鼠标滚轮滚动到下一条或上一条记录:方法一:other事件写 if message.number = 522 then return 1方法二:(个人觉得这种方法更好.)ue_vscroll，Event ID: pbm_vscroll事件代码：return 1 阅读全文

posted @ 2022-04-29 09:53 djd66 阅读(68) 评论(0) 推荐(0) 编辑

搜索

常用链接

我的标签

随笔分类

随笔档案

阅读排行榜

评论排行榜

推荐排行榜

最新评论

随笔分类 - PB