祝愿大家身体健康!

 站点注册  找回密码
 站点注册

QQ登录

只需一步,快速开始

查看: 6748|回复: 11

[PB9.X以前] PB完整代码的抽奖工具,可运行。ACCESS数据库

[复制链接]

[PB9.X以前] PB完整代码的抽奖工具,可运行。ACCESS数据库

[复制链接]
ehxz

主题

0

回帖

56万

积分

管理员

积分
567733
贡献
在线时间
小时
2020-10-8 10:53:18 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?站点注册

×
cj1.jpg cj2.jpg cj3.jpg

dw_1.settransobject(sqlca)
dw_1.retrieve()


if hi=0 then
Timer1.Start(0.076)
hi=1
cb_1.text="请喊停"
else
        Timer1.Stop()
hi=0
long hh
hh=long(st_1.text)
delete  
from  cj where hm=:hh;
cb_1.text="开始抽奖"
if sqlca.sqlcode=0 then
            commit;
        
        else
             rollback;
            messagebox("注意","系统出错,请与管理员联系001!")
      end if
               
insert into yz (hm)values(:hh);
if sqlca.sqlcode=0 then
            commit;
        
        else
             rollback;
            messagebox("注意","系统出错,请与管理员联系001!")
      end if
end if
//
个人测试可以正常运行,代码完整

游客,如果您要查看本帖隐藏内容请回复

共享共进共赢Sharing And Win-win Results
SYBASEBBS - 免责申明1、欢迎访问“SYBASEBBS.COM”,本文内容及相关资源来源于网络,版权归版权方所有!本站原创内容版权归本站所有,请勿转载!
2、本文内容仅代表作者观点,不代表本站立场,作者自负,本站资源仅供学习研究,请勿非法使用,否则后果自负!请下载后24小时内删除!
3、本文内容,包括但不限于源码、文字、图片等,仅供参考。本站不对其安全性,正确性等作出保证。但本站会尽量审核会员发表的内容。
4、如本帖侵犯到任何版权问题,请立即告知本站 ,本站将及时删除并致以最深的歉意!客服邮箱:admin@sybasebbs.com
udun

主题

0

回帖

19

积分

新手上路

积分
19
贡献
在线时间
小时
2020-10-17 10:29:04 | 显示全部楼层
谢谢提供源码,下载试试。。。。
共享共进共赢Sharing And Win-win Results
jljyczy

主题

0

回帖

1万

积分

论坛元老

积分
11959
贡献
在线时间
小时
2020-10-28 07:15:02 | 显示全部楼层
谢谢提供。
共享共进共赢Sharing And Win-win Results
Rain2020

主题

0

回帖

485

积分

中级会员

积分
485
贡献
在线时间
小时
2020-10-28 20:34:33 | 显示全部楼层
感谢大佬分享
共享共进共赢Sharing And Win-win Results
myx970

主题

0

回帖

163

积分

注册会员

积分
163
贡献
在线时间
小时
2021-3-10 10:43:26 | 显示全部楼层
废灯管许打翻在地
共享共进共赢Sharing And Win-win Results
wufubaoran

主题

0

回帖

155

积分

新手上路

积分
155
贡献
在线时间
小时
2021-4-21 10:17:33 | 显示全部楼层
这个有点意思
共享共进共赢Sharing And Win-win Results
xister

主题

0

回帖

511

积分

高级会员

积分
511
贡献
在线时间
小时
2021-11-8 16:50:11 | 显示全部楼层
太实用了,小巧,精炼!
共享共进共赢Sharing And Win-win Results
aoyaping

主题

0

回帖

341

积分

中级会员

积分
341
贡献
在线时间
小时
2021-11-15 18:09:05 | 显示全部楼层
棒棒棒顶顶顶顶顶顶顶顶顶顶顶顶顶顶
共享共进共赢Sharing And Win-win Results
梦寐以求

主题

0

回帖

110

积分

新手上路

积分
110
贡献
在线时间
小时
2022-1-25 17:11:05 | 显示全部楼层
谢谢楼主分享!
共享共进共赢Sharing And Win-win Results
xjsnyyT

主题

0

回帖

351

积分

中级会员

积分
351
贡献
在线时间
小时
2023-4-26 10:45:51 | 显示全部楼层
看着好玩的小功能
共享共进共赢Sharing And Win-win Results
preter666

主题

0

回帖

304

积分

中级会员

积分
304
贡献
在线时间
小时
2023-5-26 22:45:58 | 显示全部楼层
学习学习
共享共进共赢Sharing And Win-win Results
井底K

主题

0

回帖

281

积分

注册会员

积分
281
贡献
在线时间
小时
2024-1-4 20:55:18 | 显示全部楼层
afadfdsfasdfdsa
共享共进共赢Sharing And Win-win Results
您需要登录后才可以回帖 登录 | 站点注册

本版积分规则

免责声明:
本站所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的;不得将上述内容用于商业或者非法用途,否则,一切后果请用户自负。本站信息来自网络,版权争议与本站无关。您必须在下载后的24个小时之内,从您的电脑中彻底删除上述内容。如果您喜欢该程序,请支持正版软件,购买注册,得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Admin@SybaseBbs.com

QQ|Archiver|PowerBuilder(PB)BBS社区 ( 鲁ICP备2021027222号-1 )

GMT+8, 2024-3-29 03:51 , Processed in 0.037508 second(s), 12 queries , MemCached On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表