首页 / ACCESS / 基于Access数据库的抽奖系统设计

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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了基于Access数据库的抽奖系统设计，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含4676字，纯文字阅读大概需要7分钟。

内容图文

摘要介绍了抽奖信息管理系统的设计思路和基本原理，结合Access，通过软件系统开发，实现了具有随机性和相对均衡性的抽奖。关键词抽奖系统 Access VBA 随机相对均衡性引言当今社会，各种各样的抽奖活动相当普遍，抽奖活动的基本原则和主要特征是随机性

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

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

　　引言

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

　　系统组成及原理

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

基于Access数据库的抽奖系统设计 - 文章图片

　　图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

　　抽奖功能的实现

　　通过抽奖模块实现最终抽奖功能。

　　通过奖励等级组合框控制抽奖等级，通过抽奖数量组合框控制每批次抽奖数量，通过总抽奖数组合框控制总抽奖数。当奖励等级分别为一、二、三等奖时，抽奖数量和总抽奖数默认值分别

　　为5、10、10和10、30、50。各组合框的具体数值也可以通过上下箭头控制。抽奖界面如图2。

基于Access数据库的抽奖系统设计 - 文章图片

　　图 2 抽奖界面

　　其程序设计比较简单，主要程序如下:

　　……

　　If Me!奖励等级.Value = 1 Then

　　Me!总数量.Value = 10

　　End If

　　If Me!奖励等级.Value = 2 Then

　　Me!总数量.Value = 30

　　End If

　　If Me!奖励等级.Value = 3 Then

　　Me!总数量.Value = 50

　　End If

　　Forms!抽奖.Q_抽奖统计.Requery

　　If Me!奖励等级.Value = 1 Then

　　Me!抽奖数量.Value = 5

　　End If

　　If Me!奖励等级.Value = 2 Or Me!奖励等级.Value = 3 Then

　　Me!抽奖数量.Value = 10

　　End If

　　……

　　通过点击开始按钮开始抽奖，同时按钮标题变为停止，再次点击停止此批次抽奖，同时按钮标题变为开始，继续点击开始下一批次抽奖，如此反复，直至完成总抽奖数，此时提示“抽奖总数已到”，如果未完成总抽奖数就开始另外一轮抽奖，则提示“抽奖限制”。

　　内部抽奖主要解决随机性和相对均衡两个问题。系统初始化在参加抽奖人员名单前随机生成了序号，通过查询“号码重排序”将参加抽奖人员名单按照序号升序排列，抽奖时按照序号顺序抽奖，实现了随机的要求。相对均衡要求大致按照各个部门人数占总人数的百分比来分配中奖人数，本系统采用各个部门占总人数的百分比乘以抽奖总数的方法来大致确定各个部门的中奖人数，有小数的数字通过程序设计进行四舍五入处理。需要注意的是，若使所有的部门中奖人数都要用四舍五入的方法进行处理则可能出现错误，为了避免这种情况需要选定一个部门，，使其中奖人数等于总抽奖数减去其他各个部门中奖人数之和[2]。抽奖模块的主要程序代码如下:

　　……

　　N = 0

　　cnt = Me!电科.Value + Me!电气.Value + Me!自动化.Value + Me!通信.Value + Me!院办.Value + Me!退休.Value

　　Do While Me!抽奖数量.Value > N And Not qrs.EOF And cnt < Me!总数量.Value

　　'电科抽奖

　　’四舍五入确定电科中奖数

　　If Me!电科.Value < (Int(((unit1.姓名之Count / cnt1) * Me!总数量.Value + 0.5))) And N < Me!抽奖数量.Value And cnt < Me!总数量.Value Then

　　If qrs.单位 = "电科" And qrs!批次.Value = 0 Then

　　Me!电科.Value = Me!电科.Value + 1

　　qrs.Edit

　　qrs!奖励等级.Value = Me!奖励等级.Value

　　qrs!批次.Value = Me!批次.Value

　　qrs.Update

　　N = N + 1

　　End If

　　Else

　　End If

　　……

　　'退休抽奖

　　cnt = Me!电科.Value + Me!电气.Value + Me!自动化.Value + Me!通信.Value + Me!院办.Value + Me!退休.Value

　　cnt2= Me!电科.Value + Me!电气.Value + Me!自动化.Value + Me!通信.Value + Me!院办.Value

　　'剩余数量分配给退休

　　If Me!退休.Value < Int((Me!总数量.Value – cnt2) And N < Me!抽奖数量.Value And cnt < Me!总数量.Value Then

　　If qrs22.单位 = "退休" And qrs!批次.Value = 0 Then

　　Me!退休.Value = Me!退休.Value + 1

　　qrs.Edit

　　qrs22!奖励等级.Value = Me!奖励等级.Value

　　qrs22!批次.Value = Me!批次.Value

　　qrs22.Update

　　N = N + 1

　　End If

　　Else

　　End If

　　……

　　’判断是否完成抽奖

　　cnt = Me!电科.Value + Me!电气.Value + Me!自动化.Value + Me!通信.Value + Me!院办.Value + Me!退休.Value

　　If cnt = Me!总数量.Value Then

　　MsgBox ("抽奖总数已到。")

　　Me.可抽奖.Value = 0

　　Else

　　MsgBox ("抽奖限制。")

　　End If

　　……

　　结论

　　本系统利用Access数据库，结合其内置VBA语言，探讨了系统初始化、抽奖的随机性和相对均衡性等关键问题，满足了抽奖的要求。进行适当调整，该系统可以应用于多种抽奖场合。

内容总结

以上是互联网集市为您收集整理的基于Access数据库的抽奖系统设计全部内容，希望文章能够帮你解决基于Access数据库的抽奖系统设计所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/558102.html

来源：【匿名】

【上一篇】Access2003开发者扩展工具集【下一篇】多个系统共用一个微信公众号，在上传图片的时候会返回access_token过期，怎么解决？

更多 ►

【基于Access数据库的抽奖系统设计】教程文章相关的互联网学习教程文章

连接本地数据库出现：1045 - Access denied for user 'root'@localhost'(using password:YES) 本人解决方案：【图】

直接上图昨天还是好的今天就不行了，密码是没错的，就是本地的连接不上，Linux上的mysql可以连，网上找各种解决方案，什么权限，什么加一句话，还有这个如果连这个都进不去那就直接重装吧，其实也不大一下就好了，我装了2次，可能是没卸载干净，===记得备份一下数据库文件==首先控制面板卸载mysql服务，然后去 C:\ProgramData下面有个mysql 这个是隐藏文件，点击查看勾选隐藏文件就可以看到了，然后删除，再然后cmd: 输入re...

解决Access连接 accdb 不可识别的数据库格式异常

在Access07之前的数据库后缀名均为*.mdb 而连接字符串写成Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myFolder\*.mdb ;Persist Security Info=False;　　但是Access07和Access10将后缀名改为了*.accdb。而通过上述连接的话就会报出"不可识别的数据库格式"异常。　　需要注意的是Microsoft.Jet.OLEDB.4.0的Oledb的连接方式是比较老的连接方式，而07以后的Oledb连接方式将改成Microsoft.ACE.OLEDB.12.0。　　改后的连接变成了...

vc访问ACCESS数据库

在现代软件开发中，数据库技术被越来越广泛应用，很多项目都存在着大量的数据需要存储，通常都会采用数据库来存储这些数据。最初，数据库厂商推出一个新的数据库产品时，相应的，他会为程序员提供一套访问该数据库的接口，即API。不同的数据库厂商提供的访问接口是不一样的，这样在使用一个新的数据库时，就要学习一套新的API，当然这就加大了开发数据库的难度，也不利于数据库在软件开发过程中的应用。因此，后来Microsoft就推出了...

SpringAccess数据库(oracle)构造【图】

陈科朝：http://blog.csdn.net/u013474104/article/details/44279309================1.spring 对数据库訪问的支持当我们开发持久层的时候。我们面临着多种选择。比方使用JDBC、Hibernate、java持久化API或其他持久化框架。幸好的是spring可以支持全部这些持久化机制。DAO(data access boject)数据訪问对象，这个名字就非常形象描写叙述了DAO在应用程序中所扮演的角色。DAO提供了数据的读取、写入到数据库中的一种方式。它们应该以...

ManagedDataAccess连数据库【代码】【图】

Oracle官方的托管数据库访问组件，单DLL，Oracle.ManagedDataAccess.dll，不安装Oracle客户端，不区分32/64位，直接引用即可。与非托管程序为Oracle.DataAccess.dll相比，不支持BulkCopy和CustomType等。下载https://www.oracle.com/database/technologies/odac-downloads.html或者nuget 文档https://docs.oracle.com/cd/B19306_01/nav/portal_10.htm https://docs.oracle.com/cd/B19306_01/win.102/b14307/OracleDataReaderC...

java连接数据库失败：java.sql.SQLException: Access denied for user 'root'@'localhost' (using password: YES)【代码】

说一下我的情况：　　1、通过命令行的mysql -uroot -p输入密码可以登录（证明账号和密码正确）　　2、使用最基本的JDBC连接数据库也失败了，报同样的错误信息尝试过　　1、清缓存（包括整个项目的缓存，重新打包发布），电脑和服务器重启了n遍　　2、连接mysql的url中增加编码格式：jdbc_url=jdbc:mysql://127.0.0.1:3306/myDB?useUnicode=true&characterEncoding=utf8&zeroDateTimeBehavior=convertToNull jdbc_username=root j...

【Access2007】修改数据库密码与输入SQL语句进行查询【图】

Access是个不入流的数据库，之所以说他不入流是因为其兼容性，大小等都未达到软件运营的要求，但是某些项目对方要求必须以Access作为数据库，你也是不得不对此了解。Access是个完全图形化操作的数据库，程序猿出来刚到会对此很不适应。因为你不知道怎么修改数据库密码——这还是其次，你根本找不到哪个部分给你输入SQL语句操作数据。毕竟对于程序猿来说，能输入代码操作计算机才是最重要的。一、修改Access2007数据库密码左上角有打...

centos mysql数据库问题：ERROR 1044 (42000): Access denied for user ''@'localhost' to database 'mysql'（转）

问题描述：安装好数据库MySQL，进入mysql，设置号密码后，退出的时候，利用密码无法进入，直接回车后可进入，无法看到数据库mysql，use mysql返回错误：ERROR 1044 (42000): Access denied for user ‘‘@‘localhost‘ to database ‘mysql‘参考地址：ERROR 1044 (42000): Access denied for user ‘‘@‘localhost‘ to database ‘mysql‘@'localhost' to database 'mysql'（转）' ref='nofollow'>centos mysql数据库问题：ERR...

创建ACCESS数据库，并且创建表和数据。重点：关闭ACCESS数据库引用【代码】

///<summary>/// 创建ACCESS数据库，并且创建表和数据///</summary>///<param name="dictTable"></param>///<param name="filePath"></param>///<returns></returns>publicint DataTableToAccess(Dictionary<string, DataTable> dictTable, string filePath){int count = 0;string connStr = string.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Jet OLEDB:Engine Type=5", filePath);try{ADOX.Catalog catalog = ne...

Access数据库从入门到进门(一)【图】

简介 Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了MicrosoftJet Database Engine和图形用户界两项特点，是Microsoft Office的系统程序之一。 Access在很多地方广泛应用，例如小型企业，大公司的部门等。 Access的用途体现在两个方面：一、用来进行数据分析：Access有强大的数据处理、统计分析能力，利用Access的查询功能，可以方便的进行各类汇总、平均等统计。并可灵活设置...

[转载]Unity3D 访问Access数据库【代码】【图】

在开始这个小教程之前呢，其实在网上你已经可以找到相关的资料了，但是我还是要把我自己做练习的一点东西分享出来。写这个教程的主要原因呢，是一个朋友在u3d的官网论坛里，找到了这个demo，但是在他使用的过程中遇到了问题，我看了给他解决掉之后，为了其他朋友不至于发生同类的问题，特在此唠叨一番。在开始主题之前呢，我真的想说，北京的公交太不给力了，我这几天，每次等公交都要一个多小时，直接崩溃中。好，闲话不扯啦！下面...

Access 数据库连接字符串【代码】

<connectionStrings><add name="AccessConnectionString" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\AccessDB.mdb" providerName="System.Data.OleDb"/></connectionStrings>static Database db = DatabaseFactory.CreateDatabase("AccessConnectionString"); 原文：http://www.cnblogs.com/valeb/p/4315353.html

PHP数据库链接类(PDO+Access)实例分享

PHP PDO Access链接复制代码代码如下:class DbHelpClass { private $conn; private $qxId; private $ret; function __construct() { $path="../../App_Data/sd#f#45G_!.mdb"; $constr="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=".realpath($path); $this->conn= new PDO("odbc:$constr") or die ("PDO Connection faild."); } /*...

怎样把ACCESS导入SQL数据库

很多朋友想用SQL2000数据库的编程方法，但是却又苦于自己是学ACCESS的，对SQL只是一点点的了解而已，这里我给大家提供以下参考---将ACCESS转化成SQL2000的方法和注意事项一，首先，我说的是在ACCESS2000，SQL2000之间转换，其他的我也还没有尝试过，希望大家多多试验，肯定是有办法的；二，转换的方法 1，打开”控制面板“下”管理工具“中的”数据库源“； 2，按”添加“添加一个新的数据源，在选择栏里选”Driver do microsoft...

VC 链接Access 数据库插入变量到表【图】

前面介绍：mfc 链接 access 2007 数据库接下来就来说说怎么插入数据到access 2007 数据库（网上找了下，说的有些模糊，直接来看看效果）主要步骤：1 先用sprintf生成SQL语句2 再执行SQL语句就可以了效果如下：主要代码：CString strConn,strDBName;//serv103_serv_link_acces();if(m_pConnection->State) {m_pRecordset.CreateInstance("ADODB.Recordset");//m_pConnection->Close(); ///如果已经打开了连接则关闭它try{int m_id ...

ACCESS - 最热教程

python接口自动化全局变量access_token...解决ubuntu下mysql的'Access denied fo...homebrew 安装问题fatal: unable to ac...PHP学习----Accessdeniedforuserroot@l...WIN7(64位)系统发现数据源ODBC里面没有...sqlmap从入门到精通-第五章-5-1 使用sq...fastadmin微信小程序获取access_token 使用Access-Control-Allow-Origin解决跨...Access denied for user 'root&#39...centos7.2 apache开启.htaccess

首页 / ACCESS / 基于Access数据库的抽奖系统设计

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

内容导读

内容图文

内容总结

内容备注

内容手机端

【基于Access数据库的抽奖系统设计】教程文章相关的互联网学习教程文章

连接本地数据库出现：1045 - Access denied for user 'root'@localhost'(using password:YES) 本人解决方案：【图】

解决Access连接 accdb 不可识别的数据库格式异常

vc访问ACCESS数据库

SpringAccess数据库(oracle)构造【图】

ManagedDataAccess连数据库【代码】【图】

java连接数据库失败：java.sql.SQLException: Access denied for user 'root'@'localhost' (using password: YES)【代码】

【Access2007】修改数据库密码与输入SQL语句进行查询【图】

centos mysql数据库问题：ERROR 1044 (42000): Access denied for user ''@'localhost' to database 'mysql'（转）

创建ACCESS数据库，并且创建表和数据。重点：关闭ACCESS数据库引用【代码】

Access数据库从入门到进门(一)【图】

[转载]Unity3D 访问Access数据库【代码】【图】

Access 数据库连接字符串【代码】

PHP数据库链接类(PDO+Access)实例分享

怎样把ACCESS导入SQL数据库

VC 链接Access 数据库插入变量到表【图】

ACCESS - 相关标签

数据库 - 相关标签

ACCESS - 最新教程

ACCESS - 最热教程