设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

123下一页
返回列表 发新帖
查看: 8010|回复: 24
打印 上一主题 下一主题

[模块/函数] 关于制作一个滚动抽奖软件,请帮指点一下。

[复制链接]
跳转到指定楼层
1#
发表于 2007-12-26 14:51:17 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
由于工作需要,制作一个滚动抽奖的小软件,只用一个页面功能也很单一。
功能说明:要求点击“开始”按钮,所有员工的工号和姓名在窗口的文本框中高速变化,点击“结束”按钮。变化停止,语句能读出停止的员工名字。

我的作法:
建立一个数据表:用于存放员工工号和姓名
一个窗口:两个文本框用于高速显示员工工号和姓名,两个按钮:“开始”和“结束”

点击开始后,VBA读句读取表中所有记录,通过DO WHILE i=0。。。LOOP 语句循环,"结束"按钮点击后i=0(本意是能中止循环的),但死循环直到死机,按钮失效。

各位前辈对设计这个软件有什么好建议,网上有些资料是VB、DELPHI通过计时控件timer来做的,好象ACCESS没有这个控件。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2007-12-26 19:03:45 | 只看该作者
ACCESS里有timer事件
3#
 楼主| 发表于 2007-12-27 09:02:14 | 只看该作者
TKS,我先看看,不过好象有时暂停了,左边显示的姓名和右边框中的不一样。看过别人用VB做的也会有这问题。应该最后用个代码再统一一下两个框的文字,不会让人误解。
4#
发表于 2007-12-27 09:14:22 | 只看该作者

点击这里给我发消息

5#
发表于 2007-12-27 09:25:04 | 只看该作者
也可参考 aronliu 这个源码
http://www.office-cn.net/forum.p ... &extra=page%3D1
6#
发表于 2007-12-29 16:58:07 | 只看该作者
lihai设为首页 网站首页 下载中心 博客 资讯 专家问答 技术论坛 旧站 加入收藏
  

分栏模式 shaokui123 退出 短消息 搜索 标签 我的 控制面板 邀请注册 道具 帮助 Office中国论坛 » 本站力作/商业服务 » Office中国产品 » 通用抽奖程序(适合国庆/元旦/中秋等节日)
论坛发贴明星

    
‹‹ 上一主题 | 下一主题 ›› 12 12››

加入资讯 收藏 订阅 推荐 打印 通用抽奖程序(适合国庆/元旦/中秋等节日)
tmtony
管理员



站长

个人空间 发短消息 加为好友 当前离线  1# 大 中 小 发表于 2007-12-24 09:39  只看该作者
通用抽奖程序(适合国庆/元旦/中秋等节日)
适合国庆/元旦/中秋等节日抽奖的程序

包含主要功能:
1.随机抽取
2.工号滚动显示
3.可设多种奖项
4.每种奖项可设多种奖品
5.一次可抽取多个人员
6.同一个奖项级别,奖品也可随机抽取
7.自动判断有否抽够人数及自动提醒
8.背景音乐
9.动态显示已抽人员及已抽奖项
10.滚屏显示最后结果(当前及所有结果,适合大屏幕滚屏显示)

程序使用: 完全免费
购买代码费用:含所有源代码及相关资源  50元


抽奖程序程序下载
附件
通用抽奖程序.JPG (113.52 KB)
2007-12-24 10:19

预览图


天大事总平常事 烦恼心皆贪欲心  

UID75 帖子4236 精华17 积分37876 威望10000 点 金钱65608 ¥ 阅读权限200 在线时间414 小时 注册时间2002-1-8 最后登录2007-12-29 查看个人网站

查看详细资料
引用 使用道具 报告 回复 TOP


tmtony
管理员



站长

个人空间 发短消息 加为好友 当前离线  2# 大 中 小 发表于 2007-12-24 10:05  只看该作者
初次使用如果太多数据,可初始化一次天大事总平常事 烦恼心皆贪欲心  

UID75 帖子4236 精华17 积分37876 威望10000 点 金钱65608 ¥ 阅读权限200 在线时间414 小时 注册时间2002-1-8 最后登录2007-12-29 查看个人网站

查看详细资料
引用 使用道具 报告 回复 TOP


5988143
版主



个人空间 发短消息 加为好友 当前离线  3# 大 中 小 发表于 2007-12-24 10:13  只看该作者
謝謝提供分享!
UID10050 帖子199 精华0 积分532 威望0 点 金钱1198 ¥ 阅读权限100 在线时间245 小时 注册时间2003-6-28 最后登录2007-12-29 查看详细资料
引用 使用道具 报告 回复 TOP


tmtony
管理员



站长

个人空间 发短消息 加为好友 当前离线  4# 大 中 小 发表于 2007-12-24 11:12  只看该作者
回网友如何操作问题:
按 窗体下面的如下按钮进行操作
按 "抽奖" 进入 抽奖窗体, 选择 等级,接开始,再按抽取 获得需要的人员
按 "当前结果"  滚屏显示 当前的抽奖结果 (平滑滚动)
按 "所有结果"  滚屏显示 所有的抽奖结果 (平滑滚动)天大事总平常事 烦恼心皆贪欲心  

UID75 帖子4236 精华17 积分37876 威望10000 点 金钱65608 ¥ 阅读权限200 在线时间414 小时 注册时间2002-1-8 最后登录2007-12-29 查看个人网站

查看详细资料
引用 使用道具 报告 回复 TOP


aronliu
注册会员



个人空间 发短消息 加为好友 当前离线  5# 大 中 小 发表于 2007-12-24 11:54  只看该作者
界面很漂亮,佩服
界面很漂亮,佩服!



我之前的抽獎系統

沒有背景音乐,其它功能都有
當然界面差太多了,不過有源碼
還有一個問題,我朋友反應:人員沒有分得很散
http://www.accessbbs.cn/bbs/digest.php?authorid=8348

[ 本帖最后由 aronliu 于 2007-12-24 12:13 编辑 ]
UID108910 帖子50 精华0 积分132 威望0 点 金钱211 ¥ 阅读权限20 在线时间26 小时 注册时间2007-6-20 最后登录2007-12-27 查看详细资料
引用 使用道具 报告 回复 TOP


tmtony
管理员



站长

个人空间 发短消息 加为好友 当前离线  6# 大 中 小 发表于 2007-12-24 13:07  只看该作者
非常不错!!,多多交流.
不知道 人员没有分得很散 是指什么?天大事总平常事 烦恼心皆贪欲心  

UID75 帖子4236 精华17 积分37876 威望10000 点 金钱65608 ¥ 阅读权限200 在线时间414 小时 注册时间2002-1-8 最后登录2007-12-29 查看个人网站

查看详细资料
引用 使用道具 报告 回复 TOP


tmtony
管理员



站长

个人空间 发短消息 加为好友 当前离线  7# 大 中 小 发表于 2007-12-24 13:08  只看该作者
惭愧, 界面 是朋友 小胡先生的杰作, 并非我的功劳.天大事总平常事 烦恼心皆贪欲心  

UID75 帖子4236 精华17 积分37876 威望10000 点 金钱65608 ¥ 阅读权限200 在线时间414 小时 注册时间2002-1-8 最后登录2007-12-29 查看个人网站

查看详细资料
引用 使用道具 报告 回复 TOP


aronliu
注册会员



个人空间 发短消息 加为好友 当前离线  8# 大 中 小 发表于 2007-12-25 10:49  只看该作者
回复 6# 的帖子
不好意思,有道是班門弄斧,說我吧!
以前都是自己試的,後來買了你們的書,才知道你們這些前輩高手。

人员分散,意思是:抽獎對人員排序時,沒有把員工分的很散,我用了幾個rnd()。
我公司有2000多人,還好,工號及部門人員連續較少。但對於100多人的公司,就覺得工號及部門會有連續號。特別是一次抽取多人時,員工會有作假的議論。

能請問站長,什麼時候能出本ADP的書就好了。
MDB太好用了,可電腦一多,速度就太慢了,且容易出錯。
雖然我用了很多本地表,現在相對好些!
還是希望改成ADP!
UID108910 帖子50 精华0 积分132 威望0 点 金钱211 ¥ 阅读权限20 在线时间26 小时 注册时间2007-6-20 最后登录2007-12-27 查看详细资料
引用 使用道具 报告 回复 TOP


tmtony
管理员



站长

个人空间 发短消息 加为好友 当前离线  9# 大 中 小 发表于 2007-12-25 10:52  只看该作者
先使用randomize初始化种子应该会更随机一些
ADP方面的也在研究,这方面经验还不够多
大型应用我现在主要使用ODBC+sql server的方式,速度方面还可以接受天大事总平常事 烦恼心皆贪欲心  

UID75 帖子4236 精华17 积分37876 威望10000 点 金钱65608 ¥ 阅读权限200 在线时间414 小时 注册时间2002-1-8 最后登录2007-12-29 查看个人网站

查看详细资料
引用 使用道具 报告 回复 TOP


aronliu
注册会员



个人空间 发短消息 加为好友 当前离线  10# 大 中 小 发表于 2007-12-25 14:27  只看该作者
回复 9# 的帖子
ODBC+sql server有嘗試,我目前公司使用也慢,就沒有真正去做。
ADP不熟悉,目前用更多本地表,並用一些非綁定窗體,嘗試能否改善。

有用randomize。
不過後來我多加個功能,我在按停止時,工号滚动慢下來,然後隨機倒數,有點模似轉盤停下的仍有慣性慢下來的感覺。減少一些議論。

以上謝謝tmtony了。
UID108910 帖子50 精华0 积分132 威望0 点 金钱211 ¥ 阅读权限20 在线时间26 小时 注册时间2007-6-20 最后登录2007-12-27 查看详细资料
引用 使用道具 报告 回复 TOP


‹‹ 上一主题 | 下一主题 ›› 12 12››
查看积分策略说明
快速回复主题
选项
禁用 URL 识别

禁用 Smilies

禁用 Discuz!代码

使用个人签名

接收新回复邮件通知
标题
内容  

发表帖子[完成后可按 Ctrl+Enter 发布]  预览帖子  恢复数据  清空内容
默认表情

   
   
   
   
12
最近访问的版块 ... 灌水乐园 控制面板首页 编辑个人资料 积分记录 公众用户组 个人空间管理 升级个人空间 基本概况 版块排行主题排行发帖排行积分排行 交易排行 在线时间 管理团队 我的话题 我的收藏 我的订阅 我的权限 我的投票 我的商品 我的悬赏 我的活动 我的辩论 我的好友 我的推广 个人空间 当前时区 GMT+8, 现在时间是 2007-12-29 16:46 粤ICP备05054911号

清除 Cookies - 联系我们 - Office中国社区 - Archiver - WAP - TOP

Powered by Discuz! 6.0.0 © 2001-2007 Comsenz Inc.

Processed in 0.067584 second(s), 9 queries, Gzip enabled.
7#
发表于 2007-12-29 16:58:44 | 只看该作者
lihailihailihailihailihai
8#
发表于 2007-12-29 16:59:15 | 只看该作者
lihailihailihailihailihai
9#
发表于 2007-12-29 16:59:59 | 只看该作者
lijailihailihailihai
10#
发表于 2007-12-29 17:00:36 | 只看该作者
lihailihailihailihailihailihai
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-14 14:39 , Processed in 0.089416 second(s), 33 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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