基于Access数据库的抽奖系统设计

2016-02-19 20:46 15 1 收藏

在这个颜值当道,屌丝闪边的时代,拼不过颜值拼内涵,只有知识丰富才能提升一个人的内在气质和修养,所谓人丑就要多学习,今天图老师给大家分享基于Access数据库的抽奖系统设计,希望可以对大家能有小小的帮助。

【 tulaoshi.com - 编程语言 】

  摘 要 介绍了抽奖信息管理系统的设计思路和基本原理,结合Access,通过软件系统开发,实现了具有随机性和相对均衡性的抽奖。

  关键词 抽奖系统 Access VBA 随机 相对均衡性

  引言

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  当今社会,各种各样的抽奖活动相当普遍,抽奖活动的基本原则和主要特征是随机性,但对于某一团体内部的抽奖活动来说,还有一个相对均衡的问题,所谓相对均衡就是指让各个部门的中奖概率和其人数占总人数的比重大致相等。基于Access,结合其内置VBA语言,通过程序设计实现抽奖的随机,通过算法研究实现抽奖的相对均衡。本文主要介绍了系统原理以及主要程序的设计。

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  系统组成及原理

  抽奖系统主要由来宾登记、奖票管理、幸运抽奖、获奖查询四个基本模块构成,登记模块登记参加抽奖人员,奖票管理模块初始化参加抽奖人员名单,抽奖模块实现抽奖功能,获奖查询模块查询获奖结果。其中,抽奖模块中可以实现奖励等级、总抽奖数、每一次抽奖数的控制。系统架构框图如图1。

  

图1 系统架构

  系统初始化

  来宾登记模块中已经收录了参加抽奖的人员名单以及所属部门,在奖票管理模块中,当点击初始化按钮时通过内部程序设计首先把上次的抽奖结果清空,同时利用Rnd在参加抽奖的人员名单前随机生成一系列的序号,为幸运抽奖模块中的随机抽奖做准备[1]。主要初始化程序代码如下:

DoCmd.SetWarnings False
DoCmd.OpenQuery "删除对奖票号", acNormal, acEdit
DoCmd.OpenQuery "追加对奖票号", acNormal, acEdit
DoCmd.SetWarnings True
Set qrs = CurrentDb.OpenRecordset("对奖票号")
qrs.MoveFirst
i = 1
Do While Not qrs.EOF
 qrs.Edit
 qrs!序号 = Int((211 - 1) * Rnd)
 qrs!对奖号码 = i
 qrs.Update
 i = i + 1
 qrs.MoveNext
Loop
MsgBox ("对奖名单初始化完毕。")
qrs.Close

  抽奖功能的实现

来源:http://www.tulaoshi.com/n/20160219/1624475.html

延伸阅读
窗体、查询、报表、宏的联合使用 将窗体、查询、报表、宏联合使用可以解决许多问题,是一项重要的技巧。 1、从窗体中获得查询中的条件 对于这个问题这里以成绩表的打印为例来说明。我们要打印不同班级的成绩表,首先建立相应报表的查询,在查询中的班级字段下的条件中输入条件:Between [forms]![打印表格]![开始班号] And ...
如何操作access数据库 一、查找记录 find.htm 请输入您要查找的人的姓名: find.asp 二、过滤记录 filter.asp 三、添加记录 add.asp 四、更新记录 和上面的“添加记录”一样,只需把“添加”命令改做“更新”就可以了: objrs.update 五、删除记录 本文来自学习网(www.gzu521.com),原文地址:http://www.gzu521.com/campus/artic...