网站 › 『 PB源代码 』 › PB完整代码的抽奖工具，可运行。ACCESS数据库

ehxz 发表于 2020-10-8 10:53:18

PB完整代码的抽奖工具，可运行。ACCESS数据库

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
fromcj 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
//
个人测试可以正常运行，代码完整

**** Hidden Message *****

udun 发表于 2020-10-17 10:29:04

谢谢提供源码，下载试试。。。。

jljyczy 发表于 2020-10-28 07:15:02

谢谢提供。

Rain2020 发表于 2020-10-28 20:34:33

感谢大佬分享

myx970 发表于 2021-3-10 10:43:26

废灯管许打翻在地

wufubaoran 发表于 2021-4-21 10:17:33

这个有点意思

xister 发表于 2021-11-8 16:50:11

太实用了，小巧，精炼！

aoyaping 发表于 2021-11-15 18:09:05

棒棒棒顶顶顶顶顶顶顶顶顶顶顶顶顶顶

梦寐以求 发表于 2022-1-25 17:11:05

谢谢楼主分享！

xjsnyyT 发表于 2023-4-26 10:45:51

看着好玩的小功能

preter666 发表于 2023-5-26 22:45:58

学习学习

井底K 发表于 2024-1-4 20:55:18

afadfdsfasdfdsa

查看完整版本: PB完整代码的抽奖工具，可运行。ACCESS数据库