解析基于Access數(shù)據(jù)庫(kù)的抽獎(jiǎng)系統(tǒng)設(shè)計(jì)_Access數(shù)據(jù)庫(kù)教程
教程Tag:暫無(wú)Tag,歡迎添加,賺取U幣!
推薦:揭秘如何在Access數(shù)據(jù)庫(kù)中使用SQL一般在Oracle中使用Sql,在Access中使用很少,不過(guò)與Oracle的Sql還是有很多相似之處的。 以下SQL語(yǔ)句在ACCESS XP的查詢(xún)中測(cè)試通過(guò) 建表: Create Table Tab1 ( ID Counter primary key, Name string(20), Age integer, [Date] DateTime); 技巧: 自動(dòng)增加字段
摘 要 介紹了抽獎(jiǎng)信息管理系統(tǒng)的設(shè)計(jì)思路和基本原理,結(jié)合Access,通過(guò)軟件系統(tǒng)開(kāi)發(fā),實(shí)現(xiàn)了具有隨機(jī)性和相對(duì)均衡性的抽獎(jiǎng)。關(guān)鍵詞 抽獎(jiǎng)系統(tǒng) Access VBA 隨機(jī) 相對(duì)均衡性
引言
當(dāng)今社會(huì),各種各樣的抽獎(jiǎng)活動(dòng)相當(dāng)普遍,抽獎(jiǎng)活動(dòng)的基本原則和主要特征是隨機(jī)性,但對(duì)于某一團(tuán)體內(nèi)部的抽獎(jiǎng)活動(dòng)來(lái)說(shuō),還有一個(gè)相對(duì)均衡的問(wèn)題,所謂相對(duì)均衡就是指讓各個(gè)部門(mén)的中獎(jiǎng)概率和其人數(shù)占總?cè)藬?shù)的比重大致相等�;贏ccess,結(jié)合其內(nèi)置VBA語(yǔ)言,通過(guò)程序設(shè)計(jì)實(shí)現(xiàn)抽獎(jiǎng)的隨機(jī),通過(guò)算法研究實(shí)現(xiàn)抽獎(jiǎng)的相對(duì)均衡。本文主要介紹了系統(tǒng)原理以及主要程序的設(shè)計(jì)。
系統(tǒng)組成及原理
抽獎(jiǎng)系統(tǒng)主要由來(lái)賓登記、獎(jiǎng)票管理、幸運(yùn)抽獎(jiǎng)、獲獎(jiǎng)查詢(xún)四個(gè)基本模塊構(gòu)成,登記模塊登記參加抽獎(jiǎng)人員,獎(jiǎng)票管理模塊初始化參加抽獎(jiǎng)人員名單,抽獎(jiǎng)模塊實(shí)現(xiàn)抽獎(jiǎng)功能,獲獎(jiǎng)查詢(xún)模塊查詢(xún)獲獎(jiǎng)結(jié)果。其中,抽獎(jiǎng)模塊中可以實(shí)現(xiàn)獎(jiǎng)勵(lì)等級(jí)、總抽獎(jiǎng)數(shù)、每一次抽獎(jiǎng)數(shù)的控制。系統(tǒng)架構(gòu)框圖如圖1。

圖1 系統(tǒng)架構(gòu)
系統(tǒng)初始化
來(lái)賓登記模塊中已經(jīng)收錄了參加抽獎(jiǎng)的人員名單以及所屬部門(mén),在獎(jiǎng)票管理模塊中,當(dāng)點(diǎn)擊初始化按鈕時(shí)通過(guò)內(nèi)部程序設(shè)計(jì)首先把上次的抽獎(jiǎng)結(jié)果清空,同時(shí)利用Rnd在參加抽獎(jiǎng)的人員名單前隨機(jī)生成一系列的序號(hào),為幸運(yùn)抽獎(jiǎng)模塊中的隨機(jī)抽獎(jiǎng)做準(zhǔn)備[1]。主要初始化程序代碼如下:
DoCmd.SetWarnings False
DoCmd.OpenQuery "刪除對(duì)獎(jiǎng)票號(hào)", acNormal, acEdit
DoCmd.OpenQuery "追加對(duì)獎(jiǎng)票號(hào)", acNormal, acEdit
DoCmd.SetWarnings True
Set qrs = CurrentDb.OpenRecordset("對(duì)獎(jiǎng)票號(hào)")
qrs.MoveFirst
i = 1
Do While Not qrs.EOF
qrs.Edit
qrs!序號(hào) = Int((211 - 1) * Rnd)
qrs!對(duì)獎(jiǎng)號(hào)碼 = i
qrs.Update
i = i + 1
qrs.MoveNext
Loop
MsgBox ("對(duì)獎(jiǎng)名單初始化完畢。")
qrs.Close
DoCmd.OpenQuery "刪除對(duì)獎(jiǎng)票號(hào)", acNormal, acEdit
DoCmd.OpenQuery "追加對(duì)獎(jiǎng)票號(hào)", acNormal, acEdit
DoCmd.SetWarnings True
Set qrs = CurrentDb.OpenRecordset("對(duì)獎(jiǎng)票號(hào)")
qrs.MoveFirst
i = 1
Do While Not qrs.EOF
qrs.Edit
qrs!序號(hào) = Int((211 - 1) * Rnd)
qrs!對(duì)獎(jiǎng)號(hào)碼 = i
qrs.Update
i = i + 1
qrs.MoveNext
Loop
MsgBox ("對(duì)獎(jiǎng)名單初始化完畢。")
qrs.Close
分享:詳解如何遠(yuǎn)程調(diào)用Access數(shù)據(jù)庫(kù)使用了TCP/IP,ADO及XML(需要安裝Microsoft XML 4.0。)。分服務(wù)器和客戶(hù)端兩部分,服務(wù)器可以多用戶(hù)同時(shí)連接。遠(yuǎn)程連接Access數(shù)據(jù)庫(kù)有很多方法,我以前已經(jīng)比較詳細(xì)的回答過(guò)(見(jiàn)下面所列的5種方法),我現(xiàn)在這個(gè)例子屬于其中的第3種方法(不需要使用RDS或W
相關(guān)Access數(shù)據(jù)庫(kù)教程:
- Access數(shù)據(jù)庫(kù)安全策略之ASP式
- 第N次被ACCESS的關(guān)鍵字涮
- Access中用Jet SQL語(yǔ)句刪除表關(guān)系
- Access報(bào)表打印如何自動(dòng)分頁(yè)
- Access完成累計(jì)余額的計(jì)算
- 搭建Access為主的Mdb數(shù)據(jù)庫(kù)
- 一句sql更新兩個(gè)表并可更新對(duì)應(yīng)的字段值具體實(shí)現(xiàn)
- MySQL查詢(xún)優(yōu)化:連接查詢(xún)排序limit(join、order by、limit語(yǔ)句)介紹
- 內(nèi)網(wǎng)ssh/mysql登錄緩慢的解決方法
- 使用準(zhǔn)則進(jìn)行條件查詢(xún)--1.4.從窗體中選擇查詢(xún)的條件
- 中文Access2000速成教程--1.1 使用“向?qū)А痹O(shè)計(jì)數(shù)據(jù)庫(kù)
- 中文Access2000速成教程--1.3 在“設(shè)計(jì)”視圖中設(shè)計(jì)表
Access數(shù)據(jù)庫(kù)教程Rss訂閱編程教程搜索
Access數(shù)據(jù)庫(kù)教程推薦
猜你也喜歡看這些
- Access數(shù)據(jù)庫(kù)的在線壓縮
- 談設(shè)定Access數(shù)據(jù)庫(kù)自增長(zhǎng)字段初始值
- 如何在ACCESS中壓縮當(dāng)前數(shù)據(jù)庫(kù)
- Access 的最大容量
- 如何讓access自動(dòng)編號(hào)從1開(kāi)始排序?qū)崿F(xiàn)方法
- 如何確定有多少人登陸數(shù)據(jù)庫(kù)?
- Access作為網(wǎng)站數(shù)據(jù)庫(kù)的弊端
- 用Access設(shè)計(jì)客觀試卷(2)
- 遠(yuǎn)程連接access數(shù)據(jù)庫(kù)的方法
- 談備份你的改過(guò)后綴名的ACCESS數(shù)據(jù)庫(kù)
- 相關(guān)鏈接:
復(fù)制本頁(yè)鏈接| 搜索解析基于Access數(shù)據(jù)庫(kù)的抽獎(jiǎng)系統(tǒng)設(shè)計(jì)
- 教程說(shuō)明:
Access數(shù)據(jù)庫(kù)教程-解析基于Access數(shù)據(jù)庫(kù)的抽獎(jiǎng)系統(tǒng)設(shè)計(jì)
。