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

2024-09-07 19:04:00

字體：大中小

供稿：網(wǎng)友

　摘要 介紹了抽獎信息管理系統(tǒng)的設(shè)計思路和基本原理，結(jié)合Access，通過軟件系統(tǒng)開發(fā)，實現(xiàn)了具有隨機性和相對均衡性的抽獎。

　　關(guān)鍵詞 抽獎系統(tǒng) Access VBA 隨機相對均衡性

　　引言

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

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

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

　　圖1 系統(tǒng)架構(gòu)

　　系統(tǒng)初始化

　　來賓登記模塊中已經(jīng)收錄了參加抽獎的人員名單以及所屬部門，在獎票管理模塊中，當點擊初始化按鈕時通過內(nèi)部程序設(shè)計首先把上次的抽獎結(jié)果清空，同時利用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

上一篇：如何使用遠程連接access數(shù)據(jù)庫

下一篇：解讀Sql Server和Access數(shù)據(jù)庫常用語句

學習交流

如何查找有故障的配件

如何查找有故障的配件...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注