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 *****
谢谢提供源码,下载试试。。。。 谢谢提供。 感谢大佬分享 废灯管许打翻在地 这个有点意思 太实用了,小巧,精炼! 棒棒棒顶顶顶顶顶顶顶顶顶顶顶顶顶顶 谢谢楼主分享! 看着好玩的小功能 学习学习 afadfdsfasdfdsa
页:
[1]
2