• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录
 






djd66

 
 

Powered by 博客园
博客园 | 首页 | 新随笔 | 联系 | 订阅 订阅 | 管理

2022年4月29日

如何连续在同一张纸打印两个数据窗口?
摘要: 如何连续在同一张纸打印两个数据窗口?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 阅读(84) 评论(0) 推荐(0)
 
分组行号
摘要: 怎样对分组里的行加上序号,要求每个组里行的序号从1开始! 用计算域,放在明细区: getrow() - first(getrow() for group 1) + 1 first(getrow() for group 1) 可以取得每一组的第一行的行号 //做分组组号 cumulativeSum(i 阅读全文
posted @ 2022-04-29 09:56 djd66 阅读(40) 评论(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 阅读(53) 评论(0) 推荐(0)
 
在数据窗口过滤以后,计算列值如何才能一起改变?
摘要: dw_1.filter()dw_1.groupcalc() 阅读全文
posted @ 2022-04-29 09:54 djd66 阅读(36) 评论(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 阅读(83) 评论(0) 推荐(0)
 
获取数据窗口中summary区中一个计算字段的值
摘要: 获取数据窗口中summary区中一个计算字段的值:dw_1.getitemdecimal( 1, "compute_mk"))dw_1.describe("Evaluate('sum(mk_qty for all)',1)") 阅读全文
posted @ 2022-04-29 09:51 djd66 阅读(90) 评论(0) 推荐(0)
 
通用右键弹出菜单/及调用代码
摘要: 菜单: $PBExportHeader$m_compopup.srm $PBExportComments$通用右键弹出菜单 common popup menu.Create by lenya on 2010/9/30 forward global type m_compopup from menu 阅读全文
posted @ 2022-04-29 09:50 djd66 阅读(69) 评论(0) 推荐(0)
 
PB自动注册OCX控件
摘要: 1.定义一个局部的外部函数Function long DllRegisterServer() Library "QRBarcode.ocx" 2:Integer li_retstring ls_templi_ret = RegistryGet("HKEY_CLASSES_ROOT/CLSID/{F5 阅读全文
posted @ 2022-04-29 09:50 djd66 阅读(116) 评论(0) 推荐(0)
 
PB记录错误日志
摘要: li_file_no = FileOpen("system_error.log",LineMode!,Write!,Shared!,Append!) if li_file_no = 0 then Messagebox("出错信息","不能打开系统出错日志文件!",Exclamation!) else 阅读全文
posted @ 2022-04-29 09:49 djd66 阅读(198) 评论(0) 推荐(0)
 
选择颜色
摘要: long custom[ ] integer li_color custom[1]=rgb(255, 200, 1345678) custom[2]=8344736 long ll_select_color = 255 //选择的颜色 if li_color = ChooseColor( ll_se 阅读全文
posted @ 2022-04-29 09:48 djd66 阅读(54) 评论(0) 推荐(0)
 
PB中实现备份数据库/还原数据库
摘要: 备份数据库 //备份数据库 SQLCA.AutoCommit = TRUE //将数据库备份到文件 ls_style = "USE " + as_databasename EXECUTE IMMEDIATE : ls_style; ls_style = "BACKUP DATABASE " + as 阅读全文
posted @ 2022-04-29 09:47 djd66 阅读(160) 评论(0) 推荐(0)
 
如何在 PB 中实现无标题可拖动的窗口
摘要: 如何在 PB 中实现无标题可拖动的窗口 当鼠标拖动时Windows 首先会向鼠标下的窗口发送一个 wm_nchittest 消息, 窗口收到这个消息后再由窗口的消息处理函数进行处理,消息处理函数将 会返回一个整数表示鼠标正处于窗口的什么部位。大家只需要知道的是处理函数 返回2, 表示鼠标正处于窗口的 阅读全文
posted @ 2022-04-29 09:47 djd66 阅读(245) 评论(0) 推荐(0)
 
数据窗口揭秘:未公开的数据窗口事件
摘要: 数据窗口揭秘:未公开的数据窗口事件 (作者:Mark Brown) 到目前为止,PB的数据窗口控件仍是PB众多控件中功能最强大,最复杂的控件。 数据窗口固有的行为 大家对数据窗口固有的行为都很熟悉。不知道你发现没有,几乎不可能覆盖数据窗口固有的行为。它有自己的一套! 事实确实如此,数据窗口控件确实有 阅读全文
posted @ 2022-04-29 09:46 djd66 阅读(206) 评论(0) 推荐(0)
 
动态创建下拉
摘要: $PBExportHeader$gf_dynamic_create_dwchild.srf $PBExportComments$动态创建下拉Datawindowchild global type gf_dynamic_create_dwchild from function_object end t 阅读全文
posted @ 2022-04-29 09:45 djd66 阅读(56) 评论(0) 推荐(0)
 
检查列名是否有效
摘要: //检查列名是否有效 as_colname //列名 string ls_objects ls_objects= dw_2.describe("datawindow.objects") ls_objects= '~t' + ls + '~t' if pos(ls,'~t' + trim(as_col 阅读全文
posted @ 2022-04-29 09:45 djd66 阅读(28) 评论(0) 推荐(0)
 
如何限制应用程序只运行一次
摘要: 问:请问如何限制应用程序只运行一次呢?答:利用Windows的API函数FindWindow()、BringWindowToTop()、ShowWindow()可实现上述功能。 ①定义API: Funtion ulong FindWindowA( ulong winhandle, string wi 阅读全文
posted @ 2022-04-29 09:44 djd66 阅读(273) 评论(0) 推荐(0)
 
PowerBuilder中实现数据窗口打印预览通用方法
摘要: 2008年03月31日 星期一 下午 03:10 我们在文字处理过程中,常常在打印前要预览,以便控制打印效果,特别在数据打印中要有选择地打印页面,更需要预览。PowerBuilder 提供了程序开发过程中的数据打印预览,下面介绍在程序应用中实现打印预览通用方法。 打印预览窗口w_preview 一、 阅读全文
posted @ 2022-04-29 09:43 djd66 阅读(315) 评论(0) 推荐(0)
 
datawindow指标获取
摘要: 1、得到当前鼠标所指对象所在的带区 string str_band str_band=GetBandAtPointer() //得到当前鼠标所指对象所在的带区 str_band=left(str_band,(pos(str_band,'~t') - 1))//得到"header"、"detail"等 阅读全文
posted @ 2022-04-29 09:35 djd66 阅读(152) 评论(0) 推荐(0)
 
win10中,某些应用程序鼠标滚轮一次翻多页
摘要: 经测试,以下方法可以修复一次翻多页问题: 不过还是有点牵强 点左下角开始菜单 -- 设置 -- 设备 -- 鼠标和触摸板 -- 当我悬停在非活动窗口上方时对其进行滚动 -- 关 主要还是这张图 阅读全文
posted @ 2022-04-29 09:33 djd66 阅读(342) 评论(0) 推荐(0)
 
PB 游标的两种使用方法
摘要: 示例一 string ls_sub_storage declare cur_sub_storage cursor for select sub_storage from drug_sub_storage_dict WHERE sub_storage like '%药房%'; open cur_sub 阅读全文
posted @ 2022-04-29 09:28 djd66 阅读(456) 评论(0) 推荐(0)
 
PB 数据窗口双击列标题时,按该列排序(第一次升序,第二次降序)
摘要: // Event: clicked // Description: 双击列标题时,按该列排序(第一次升序,第二次降序) string ls_objects integer li_pos string ls_dwoname string ls_sort_old,ls_sort_new ls_objec 阅读全文
posted @ 2022-04-29 09:25 djd66 阅读(158) 评论(0) 推荐(0)
 
PB 导出Excel
摘要: string ls_pathname,ls_file,ls_ext long ll_return if dw_1.rowcount()<1 then messagebox('提示',"当前数据窗无记录数据,无导出的必要!",exclamation!) return end if ll_return= 阅读全文
posted @ 2022-04-29 09:24 djd66 阅读(448) 评论(0) 推荐(0)