使用PB11实现WEBSERVICE
一、开发环境:pb11.2 8669
二、pb的webservice程序必须置于英文目录下,含中文路径时部署会出错;
三、代码只要改一个地方:
n_webservice对象的of_retrieve函数中
sqlca.logpass设置为你测试数据库的sa对应密码即可
四、该代码只演示pb+ws的简单实现,包含带检索参数时的通用函数编写,具体用于商业时还有很多可以优化的地方,不在本程序讨论范畴;
pb8版权所有,QQ:10308237,呵呵,转摘时记得不要把pb8的信息kill掉就好了;
POS专用钱箱控制程序
专用的钱箱打开程序,直接在pb中使用run('open.com')即可~~
pb8版本的日期控件
有两个日期控件,一个是单独的,另外一个是与数据窗口集成的;
csdn新贴自动提醒程序V0.3
针对原来两个版本的升级,最新版提供新贴到达时自动响铃的功能,使用户工作、坛子两不误~~
CSDN更新自动提醒程序~~
CSDN发贴自动提醒程序,针对我的另一个资源的修改~~
CSDN新贴自动提醒
csdn新贴提醒程序,包含了本机外网IP获取,PB窗口透明处理等技术;
pb大于32765大小的文件读写函数
pb版的文件读写函数,包含对大于32765的文档的读写
ct ocx系列控件
ct ocx 系列控件,喜欢或熟悉它的朋友自己下吧
短信猫通过AT指令发送短信息
PowerBuilder使用短信猫通过AT指令发送短信息
pb11的拼音码生成程序
pb11.2版本的拼音码生成程序,单独成对象了的,运行很久了,一直很正常
同步所有数据窗口中字段长度
在pb的数据窗口字段长度修改后,批量同步所有数据窗口中相关字段
pb使用web浏览器组件
在pb9+xp下运行正常,使用pb+web浏览器实现导航功能;
pb使用media player播放mms多媒体资源
pb使用media player播放mms多媒体资源
pb通过ole访问tif文件
pb中用OLE 显示TIF文件,并且显示指定的页面
关于在compose数据窗口中进行数据转移
pb;compose;create;insert
根据一个CSDN网友的需求编写的
使用pb控制mspaint实现保存及保存为
例程用于实现pb向画图程序发送Ctrl+S实现点保存.
开发环境为xp + pb9
pb webform及pb写com组件的例子
原理:
mydy.pbt 是一个com组件,用pb写的
pb_test.pbt是测试的web程序
pb_test通过将web的真实路径传给com组件,由com组件完成转移操作;
由于com是基于服务而不是与web在一个进程的,所以不会受基虚拟文件系统的影响;
根据该原理可以做很多相似的函数
测试环境,在d:\建立一个myftp目录,用于存放未来要操作的文件;
需要手工注册一个mydy.dll
注册方式为 regsvr32 mydy.dll
开发环境为:xp + pb11.2 8669
有问题再找我沟通;
通过在dataobject加全局函数得到引用的dw及window
通过在dataobject加全局函数得到引用的dw及window
udp测试程序,纯PB实现
使用pslib32.dll实现的纯pb udp通讯程序
考勤表的横向表现,列显示为8位员工
--测试数据
create table tb_kq(
banzu varchar(20),
chuqinqk varchar(20),
name varchar(20),
primary key(banzu,chuqinqk,name)
);
insert into tb_kq(banzu,chuqinqk,name)
select '班组1','出勤','张1'
union
select '班组1','出勤','张2'
union
select '班组1','出勤','张3'
union
select '班组1','出勤','赵12'
union
select '班组1','出勤','钱11'
union
select '班组1','出勤','刘1'
union
select '班组1','出勤','刘2'
union
select '班组1','出勤','赵2'
union
select '班组1','出勤','赵3'
union
select '班组1','病假','张8'
union
select '班组1','病假','张11'
union
select '班组1','病假','张9'
union
select '班组1','病假','张90'
union
select '班组1','矿工','王1'
union
select '班组1','矿工','王3'
union
select '班组1','矿工','王4'
union
select '班组2','出勤','刘1'
union
select '班组2','出勤','刘2'
union
select '班组2','出勤','刘21'