PB
PB菜鸟
好好学习,天天向上。
展开
-
Powerbuilder调用Webservice的两种方法
PB Webservice转载 2023-11-22 16:15:47 · 368 阅读 · 0 评论 -
校验用户密码是否包含大写字母、小写字母、数字
//增加用户密码校验规则,必须包含大写字母、小写字母、数字、至少8位密码。sring ls_pwdlong ll_char,ll_rtnif len(ls_pwd) < 8 then MessageBox('提示','密码长度至少要8位字符!') return end if for ll_char = 48 to 57 if pos(ls_pwd,char(ll_char)) > 0 then ll_rtn = 1 exit end if ne...原创 2021-03-22 20:31:23 · 1030 阅读 · 0 评论 -
PB 按指定长度截取中文
//as_value是要截取的字符串//ai_len 是要截取的长度string ls_retint li_ili_i = 0if len(as_value) ls_ret = left(as_value,ai_len)do while li_i if Asc(right(ls_ret,1)) > 128 thenls_ret = left(ls_ret,ai_转载 2017-07-28 10:26:28 · 2918 阅读 · 1 评论 -
PB菜单带参数调用父窗口&父datawindow事件或函数
PB菜单带参数调用父窗口&父datawindow事件或函数一 PB菜单带参数调用父窗口事件或函数调用父窗口函数ParentWindow.Dynamic wf_add()通过菜单带参数调用父窗口函数ParentWindow.Dynamic wf_add('1')调用父窗口事件ParentWindow.dynamic event zfc_add()原创 2017-05-16 18:08:59 · 2761 阅读 · 0 评论 -
PB菜单带参数调用父窗口&父datawindow事件或函数
调用父窗口函数ParentWindow.Dynamic wf_add()通过菜单带参数调用父窗口函数ParentWindow.Dynamic wf_add('1')原创 2021-03-21 21:55:01 · 314 阅读 · 0 评论 -
[参考资料] PB中字符编码转换[ansi, UTF8, Unicode]
[参考资料] PB中字符编码转换[ansi, UTF8, Unicode]转载 2017-03-22 12:25:38 · 13113 阅读 · 0 评论 -
解决PB9.0版本 db profile中 MSS MS SQL Server选项不见的问题?
解决PB9.0版本 db profile中 MSS MS SQL Server选项不见的问题?注册表修改:HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Sybase\PowerBuilder\9.0\Vendors在右边值区域右键新建->字符串值 增加MSS项目 值为MS SQL Server原创 2016-06-23 12:23:53 · 2959 阅读 · 0 评论 -
通用DW窗口查询功能
通用DW窗口查询功能一 创建用户对象u_vst_search二 初始化控件 uo_find.uf_init_dw( dw_1 )三 重写ue_search() 和ue_all()事件用来处理过滤功能如重写ue_search()按选择的查询条件进行过滤long ll_countdw_1.setredraw( false )//先检索所有数据ll原创 2016-07-14 11:21:53 · 3169 阅读 · 0 评论 -
PB里面播放音乐
//定义函数FUNCTION ulong waveOutGetNumDevs() LIBRARY "winmm.dll"FUNCTION ulong sndPlaySound(ref string lpszSoundName,ulong uFlags) LIBRARY "winmm.dll" ALIAS FOR "sndPlaySoundA" //播放wav文件 ulong l转载 2016-06-06 18:32:31 · 1080 阅读 · 0 评论 -
PB TreeView 控件实现查找功能
long ll_handle,ll_level,ll_handletree[]int li_findstring ls_findtreeviewitem ltvi_1SetPointer(hourglass!)tv_1.setredraw(false)ls_find = sle_find.textif trim(ls_find) = '' then Messagebox("提示原创 2016-06-01 17:58:23 · 3737 阅读 · 4 评论 -
PB 用POSTURL()例子
PB 通过 PostRul一 创建Standard Class对象 type为"internetresult" n_irforwardglobal type n_ir from internetresultend typeend forwardglobal type n_ir from internetresultend typeglobal n_ir n_irt原创 2016-05-25 14:31:46 · 21698 阅读 · 3 评论 -
PB 生成和解析JSON格式数据
一 创建用户对象sailjsonforwardglobal type sailjson from nonvisualobjectend typetype json_pair from structure within sailjsonend typeend forwardtype json_pair from structurestring nameany valueend typeglobal原创 2016-05-25 11:59:19 · 41870 阅读 · 4 评论 -
PB 后台调用外部EXE文件 防止多重启动
PB 后台调用外部EXE文件 防止多重启动之调用EXE(效果:第二次启动程序则前一进程的窗口跳到最前)后台调用外部EXE文件,判断该exe文件是否已经运行,如果已经运行就调出exe对应的界面,否则则运行exe文件。原理:调用系统外部函数遍历系统进程,判断该exe是否存在。如果存在再调用外部函数查看该exe正在使用的窗口,如果找到了就把该窗口设置为当前活动窗口原创 2015-06-23 16:30:10 · 5690 阅读 · 0 评论 -
PB 如果把PDF 转换成二进制数据保存到数据库,并读取显示
PB如果把PDF文件转换成二进制数据保存到数据库,并读取显示。给窗口添加一个PDF的OLE控件。//OLE控件关联文件string ls_filepath,ls_filenameblob lb_object,ole_blobGetFileOpenName("select file to open",ls_filepath, ls_filename)原创 2011-12-22 14:47:38 · 5607 阅读 · 3 评论