利用pb實現(xiàn)抽獎系統(tǒng)的設(shè)計與實現(xiàn)

《利用pb實現(xiàn)抽獎系統(tǒng)的設(shè)計與實現(xiàn)》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在學(xué)術(shù)論文-天天文庫。

1、利用PB實現(xiàn)抽獎系統(tǒng)的設(shè)計與實現(xiàn)　　摘要本文描述了基于抽??系統(tǒng)的設(shè)計與實現(xiàn)，通過前期的需求分析、系統(tǒng)流程設(shè)計、系統(tǒng)功能設(shè)計，軟件選擇PB（powerbuilder9.0）作為系統(tǒng)開發(fā)工具，使用ACCESS作為數(shù)據(jù)庫開發(fā)此系統(tǒng)，由于抽獎系統(tǒng)是一個獨立的軟件，所以采用單機版的數(shù)據(jù)庫，安裝簡便，界面友好，容易移植，目前使用效果好?！　　娟P(guān)鍵詞】PBACCESS抽獎隨機記錄數(shù)　　1引言　　我院為了豐富職工文化生活，每年春節(jié)臨近時都舉行晚會，在晚會過程中為了活躍氣氛，有多次抽獎機會，分別抽出一等獎，二等獎，三等獎近400多名，往年都是把全院近700多人名單打印出來，折疊放在暗箱

2、，由院領(lǐng)導(dǎo)分批次抽取，一個一個讀出，占用時間長，而且職工懷疑有不透明的暗箱操作的嫌疑，今年根據(jù)醫(yī)院工會要求，由我院信息科著手開發(fā)抽獎系統(tǒng)，這個任務(wù)由我全權(quán)負責(zé)開發(fā)，利用了2天時間完成任務(wù)，現(xiàn)將經(jīng)驗分享各位。　　2設(shè)計目標(biāo)　　本系統(tǒng)能夠根據(jù)選擇獎項不同，在數(shù)據(jù)庫中隨機抽取10個人數(shù)，展示在屏幕上，由操作員點開始與停止，抽出10名幸運觀眾。被抽取的幸運觀眾將在待抽取的數(shù)據(jù)庫中打上標(biāo)識，在下次抽取中不再被選，以保證幸運觀眾不重復(fù)，同時保證待抽取的觀眾被抽取的機率相等?！　?數(shù)據(jù)庫表結(jié)構(gòu)　　由于本系統(tǒng)操作簡單，數(shù)據(jù)庫僅有2張表，一張Person_table全體職工表，一張Per

3、son_selected，獲獎員工表，表結(jié)構(gòu)分別如下：　　3.1Person_table表字段　　Person_id員工ID，Person_name員工姓名，Person_Sex員工性別，Cecked中獎標(biāo)志（0，為未中，1為中獎）　　3.2Person_selected表字段　　Person_id員工ID，Person_name員工姓名，Person_Sex員工性別，Jiang_X獎項　　4程序設(shè)計　　4.1編程思想　　PowerBuilder美國Sybase公司研制的一種新型、快速開發(fā)工具，是客戶機/服務(wù)器結(jié)構(gòu)下，基于Windows3.x、Windows95和Win

4、dowsNT的一個集成化開發(fā)工具。它包含一個直觀的圖形界面和可擴展的面向?qū)ο蟮木幊陶Z言PowerScript，提供與當(dāng)前流行的大型數(shù)據(jù)庫的接口，并通過ODBC與單機數(shù)據(jù)庫相連?！　?.2系統(tǒng)的實現(xiàn)　　4.2.1員工基本信息的建立　　由于是單機版，采用微軟的ACCESS數(shù)據(jù)庫，對于一個近千人的單位，足夠使用，剛開始我采用的是SQL2000數(shù)據(jù)庫。在開發(fā)過程中感覺非常不便，單機還要安裝SQL數(shù)據(jù)庫，待抽獎人員還要開發(fā)錄入，修改，刪除的功能，時間緊，來不及，最重要是操作非常煩瑣，后決定采用易操作的ACCESS數(shù)據(jù)庫?！　∈紫冉⒋楠剶?shù)據(jù)庫，表結(jié)構(gòu)如圖1。　　表結(jié)構(gòu)建立后，將

5、EXCEL里將待抽取的人員按數(shù)據(jù)庫的結(jié)構(gòu)復(fù)制至數(shù)據(jù)庫表中，注意表中Checked設(shè)置為0，待抽取狀態(tài)，如圖2?！　〗⒖毡斫Y(jié)構(gòu)Person_selected，用于插入中獎員工記錄，保存便于導(dǎo)出，表結(jié)構(gòu)如圖3。　　中獎后記錄如圖4?！　?.2.2隨機記錄的產(chǎn)生　　經(jīng)查詢資料，在網(wǎng)上搜索到：四種數(shù)據(jù)庫隨機獲取10條數(shù)據(jù)的方法　　SQLServer：　　SELECTTOP10*FROMT_USERORDERBYNEWID（）　　ORACLE：　　SELECT*FROM（SELECT*FROMT_USERORDERBYDBMS_RANDOM.RANDOM（））WHERERONU

6、M<=10　　MySQL：　　SELECT*FROMT_USERORDERBYRAND（）LIMIT10　　Access：　　SELECTTOP10*FROMT_USERORDERBYrnd（[一個自動編號字段]）　　4.2.3代碼實現(xiàn)　　窗口主要控件：　　a、下拉列表框控件ddlb_1，顯示待選擇的獎項：如：一等獎，二等獎等；　　b、靜態(tài)文本框statictext控件，存放待抽取人數(shù)，各類獎項中獎人數(shù)及按秒滾動的人員姓名框，如圖5?！　、在主窗口的timer事件中加入隨機抽取記錄腳本，定義游標(biāo)等，因為一屏只顯示10位員工，所以只隨機抽取10條記錄：　　DECLARE

7、C1CURSORFOR　　selecttop10person_id，person_namefromPerson_tablewherechecked='0'orderbyrnd（person_id）；　　OPENC1；　　FORLI_ROW=1TO10　　FETCHC1INTO：p_id[li_row]，：name[li_row]；　　NEXT　　CLOSEC1；　　st_1.text=name[1]　　st_2.text=name[2]　　st_3.text=name[3]　　st_4.text=name[4]　　st_5.text=na