解析基于Access數據庫的抽獎系統設計(2)_Access數據庫教程
教程Tag:暫無Tag,歡迎添加,賺取U幣!
推薦:揭秘如何在Access數據庫中使用SQL一般在Oracle中使用Sql,在Access中使用很少,不過與Oracle的Sql還是有很多相似之處的。 以下SQL語句在ACCESS XP的查詢中測試通過 建表: Create Table Tab1 ( ID Counter primary key, Name string(20), Age integer, [Date] DateTime); 技巧: 自動增加字段
抽獎功能的實現
通過抽獎模塊實現最終抽獎功能。
通過獎勵等級組合框控制抽獎等級,通過抽獎數量組合框控制每批次抽獎數量,通過總抽獎數組合框控制總抽獎數。當獎勵等級分別為一、二、三等獎時,抽獎數量和總抽獎數默認值分別
為5、10、10和10、30、50。各組合框的具體數值也可以通過上下箭頭控制。抽獎界面如圖2。

圖 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
……
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]。抽獎模塊的主要程序代碼如下:
分享:詳解如何遠程調用Access數據庫使用了TCP/IP,ADO及XML(需要安裝Microsoft XML 4.0。)。分服務器和客戶端兩部分,服務器可以多用戶同時連接。遠程連接Access數據庫有很多方法,我以前已經比較詳細的回答過(見下面所列的5種方法),我現在這個例子屬于其中的第3種方法(不需要使用RDS或W
相關Access數據庫教程:
- 相關鏈接:
- 教程說明:
Access數據庫教程-解析基于Access數據庫的抽獎系統設計(2)
。