国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發(fā) > 綜合 > 正文

基于Access數(shù)據(jù)庫的抽獎系統(tǒng)設計

2024-07-21 02:13:33
字體:
供稿:網(wǎng)友

引言

當今社會,各種各樣的抽獎活動相當普遍,抽獎活動的基本原則和主要特征是隨機性,但對于某一團體內(nèi)部的抽獎活動來說,還有一個相對均衡的問題,所謂相對均衡就是指讓各個部門的中獎概率和其人數(shù)占總?cè)藬?shù)的比重大致相等。基于access,結(jié)合其內(nèi)置vba語言,通過程序設計實現(xiàn)抽獎的隨機,通過算法研究實現(xiàn)抽獎的相對均衡。本文主要介紹了系統(tǒng)原理以及主要程序的設計。

系統(tǒng)組成及原理

抽獎系統(tǒng)主要由來賓登記、獎票管理、幸運抽獎、獲獎查詢四個基本模塊構(gòu)成,登記模塊登記參加抽獎人員,獎票管理模塊初始化參加抽獎人員名單,抽獎模塊實現(xiàn)抽獎功能,獲獎查詢模塊查詢獲獎結(jié)果。其中,抽獎模塊中可以實現(xiàn)獎勵等級、總抽獎數(shù)、每一次抽獎數(shù)的控制。系統(tǒng)架構(gòu)框圖如圖1。

以下為引用的內(nèi)容:
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

 
抽獎功能的實現(xiàn)

通過抽獎模塊實現(xiàn)最終抽獎功能。

通過獎勵等級組合框控制抽獎等級,通過抽獎數(shù)量組合框控制每批次抽獎數(shù)量,通過總抽獎數(shù)組合框控制總抽獎數(shù)。當獎勵等級分別為一、二、三等獎時,抽獎數(shù)量和總抽獎數(shù)默認值分別為5、10、10和10、30、50。各組合框的具體數(shù)值也可以通過上下箭頭控制。抽獎界面如圖2。

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 枣阳市| 湖北省| 玉环县| 佳木斯市| 乐东| 泉州市| 佛教| 垦利县| 镇康县| 新平| 吴忠市| 齐河县| 郓城县| 彭泽县| 宝坻区| 横山县| 汉源县| 象山县| 浮山县| 什邡市| 汤阴县| 许昌市| 靖江市| 三亚市| 亚东县| 祁门县| 长沙县| 巩义市| 酉阳| 普格县| 建德市| 昆山市| 通辽市| 抚松县| 佛坪县| 芒康县| 苍南县| 客服| 张家港市| 穆棱市| 吴桥县|