數(shù)據(jù)庫課程設(shè)計(jì)網(wǎng)吧管理系統(tǒng)設(shè)計(jì)報(bào)告書

1、設(shè)計(jì)題目網(wǎng)吧管理系統(tǒng)設(shè)計(jì)技術(shù)參數(shù)1 題目要達(dá)到的目標(biāo)：完成系統(tǒng)的登陸、數(shù)據(jù)的插入刪除修改統(tǒng)計(jì)等基本操作。2 數(shù)據(jù)庫：采用關(guān)系數(shù)據(jù)庫access2003/sqlserver2000。3 所使用的語言、工具:vb6.0+access2003+windowsxp。4 所采用的技術(shù)、系統(tǒng)結(jié)構(gòu):ado數(shù)據(jù)庫聯(lián)接技術(shù),系統(tǒng)結(jié)構(gòu)為c/s結(jié)構(gòu)。設(shè)計(jì)要求1 上機(jī)前預(yù)先把所有的源程序編寫好。2 上機(jī)時(shí)不得遲到，不得缺席，愛護(hù)設(shè)備，認(rèn)真調(diào)試程序。3 仔細(xì)查閱相關(guān)資料，認(rèn)真完成思考題。4 按要求書寫設(shè)計(jì)任務(wù)書，并按要求按版打印，不得雷同。工作量一周工作計(jì)劃周一聽取教師布置設(shè)計(jì)的任務(wù)及要求。周二學(xué)生查閱相關(guān)資料，進(jìn)行數(shù)

2、據(jù)庫設(shè)計(jì)。周三至周五：詳細(xì)設(shè)計(jì)與界面設(shè)計(jì)。周一至周四程序設(shè)計(jì)與上機(jī)，調(diào)試源程序。周五書寫課程設(shè)計(jì)任務(wù)書。參考資料數(shù)據(jù)庫系統(tǒng)概論數(shù)據(jù)庫系統(tǒng)概論實(shí)驗(yàn)指導(dǎo)書自編數(shù)據(jù)庫系統(tǒng)概論課程設(shè)計(jì)大綱等自編指導(dǎo)教師評(píng)語該生在數(shù)據(jù)庫系統(tǒng)概論課程設(shè)計(jì)期間：上機(jī)時(shí)不遲到，不缺席，愛護(hù)設(shè)備，認(rèn)真調(diào)試程序。仔細(xì)查閱相關(guān)資料，認(rèn)真完成作業(yè)。聽從指導(dǎo)教師安排。在設(shè)計(jì)與實(shí)現(xiàn)過程中，能使設(shè)計(jì)的系統(tǒng)達(dá)到預(yù)期設(shè)計(jì)要求，功能合理，流程清楚，語句條理通順。按要求書寫設(shè)計(jì)任務(wù)書，其論文格式規(guī)范，圖表清晰合理，資料詳實(shí)。系統(tǒng)界面友好，程序運(yùn)行基本正常，功能完備。說明：此表一式四份，學(xué)生、指導(dǎo)教師、教研室、系部各一份?？杉痈巾?。2008年 7

3、月 4 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 （ 計(jì) 算 ）書 目錄第一章 概述2第二章 問題定義2第三章 需求分析4第四章 數(shù)據(jù)庫設(shè)計(jì)7第五章 界面設(shè)計(jì)9第六章 代碼11第一章 概述隨著上個(gè)世紀(jì)九十年代計(jì)算機(jī)網(wǎng)絡(luò)的高速發(fā)展，人類進(jìn)入到了網(wǎng)絡(luò)化、信息化的時(shí)代。而網(wǎng)絡(luò)的發(fā)展帶動(dòng)了一種新興產(chǎn)業(yè)網(wǎng)吧行業(yè)。從上世紀(jì)九十年代至今，網(wǎng)吧經(jīng)歷了前所未有的發(fā)展。從小規(guī)模到大規(guī)模，從單一經(jīng)營到連鎖經(jīng)營，從簡(jiǎn)單提供上網(wǎng)服務(wù)演變到休息、娛樂場(chǎng)所。這就帶來了新的問題網(wǎng)吧管理。目前，網(wǎng)吧的人工管理已經(jīng)不能適應(yīng)網(wǎng)吧的高速發(fā)展，成為阻礙網(wǎng)吧發(fā)展的桎梏。因此開發(fā)一套完善的網(wǎng)吧管理系統(tǒng)成為網(wǎng)吧發(fā)展的首要任務(wù)。本系統(tǒng)主

4、要負(fù)責(zé)服務(wù)器子系統(tǒng)的設(shè)計(jì)。采用功能強(qiáng)大的visual basic6.0作為開發(fā)工具，microsoft access作為數(shù)據(jù)庫平臺(tái)。本系統(tǒng)采用c/s結(jié)構(gòu)。它將一個(gè)應(yīng)用系統(tǒng)分成兩大部分，由多臺(tái)計(jì)算機(jī)分別執(zhí)行，協(xié)同完成整個(gè)系統(tǒng)的應(yīng)用，從而達(dá)到系統(tǒng)中軟、硬件資源最大限度的利用。因此，對(duì)于一個(gè)相對(duì)專用、獨(dú)立的系統(tǒng)，它是個(gè)較好的系統(tǒng)建立方法。因此，本設(shè)計(jì)采用這一模式。本系統(tǒng)從操作簡(jiǎn)便、界面友好、靈活、實(shí)用、安全的要求出發(fā)，實(shí)現(xiàn)較為簡(jiǎn)單。本系統(tǒng)設(shè)計(jì)功能較為齊全，適合于中小型網(wǎng)吧的管理。第二章 問題定義網(wǎng)吧管理人員：系統(tǒng)的錄入人員，主要指管理各種檔案的工作人員，需要通過密碼才能進(jìn)入。他們擁有對(duì)系統(tǒng)數(shù)據(jù)的錄入

5、、修改、查詢、刪除等操作權(quán)限。但不可以更改系統(tǒng)密碼。上機(jī)人員：權(quán)限最低的登入人員，當(dāng)上網(wǎng)時(shí)間到了之后就會(huì)被提示。第三章 需求分析一、主要功能： 完成網(wǎng)吧管理人員對(duì)上機(jī)人員的調(diào)整，對(duì)機(jī)器的分配，以及紀(jì)錄用戶的上機(jī)時(shí)間，并對(duì)整個(gè)網(wǎng)吧的系統(tǒng)進(jìn)行管理。因此，本系統(tǒng)應(yīng)該主要完成和實(shí)現(xiàn)如下功能：初始化系統(tǒng)數(shù)據(jù)；錄入登陸人員的基本信息數(shù)據(jù)；上機(jī)時(shí)間，下機(jī)時(shí)間的基本設(shè)定；查詢機(jī)器的剩余時(shí)間；計(jì)算上機(jī)的費(fèi)用；人員信息： 在該項(xiàng)內(nèi)容中將包括的數(shù)據(jù)庫項(xiàng)有用戶名，用戶密碼，密碼確認(rèn)，開戶時(shí)間，開戶金額，開戶總機(jī)時(shí)，剩余時(shí)間，上機(jī)次數(shù)，備注。會(huì)員信息：用戶名，用戶密碼，密碼確認(rèn)，開戶時(shí)間，開戶金額，折扣，總時(shí)間，上機(jī)次

6、數(shù)，備注。機(jī)器編號(hào)：id,ip。二、數(shù)據(jù)流圖（dfd）：三、數(shù)據(jù)字典（dd）: clientip=id+iphistory=id+用戶名+機(jī)器號(hào)+開始時(shí)間+結(jié)束時(shí)間+應(yīng)付費(fèi)member=用戶名+用戶密碼+密碼確認(rèn)+開戶時(shí)間+開戶金額+折扣+總時(shí)間+上機(jī)次數(shù)+備注四、程序流程圖：不限時(shí)限時(shí)系統(tǒng)主界面時(shí)間類型時(shí)間設(shè)置系統(tǒng)設(shè)置調(diào)用系統(tǒng)菜單退出系統(tǒng)五、功能結(jié)構(gòu)圖：網(wǎng)吧管理系統(tǒng)登陸人員信息上機(jī)時(shí)間設(shè)定費(fèi)用匯總下機(jī)時(shí)間查詢退出 網(wǎng)吧管理系統(tǒng)模塊時(shí)間的基本設(shè)定 下機(jī)時(shí)間上機(jī)時(shí)間總時(shí)間時(shí)間設(shè)定模塊第四章 數(shù)據(jù)庫設(shè)計(jì)二、邏輯設(shè)計(jì)：下面列出幾個(gè)主要的數(shù)據(jù)庫表設(shè)計(jì)：4.1 clientip表：序號(hào)中文名字段名類型備

7、注0id3字符型 主鍵1ip10文本archar4.2history表：序號(hào)中文名字段名類型備注0id2字符型主鍵1userid（10，2）文本型 2pcid 2數(shù)字3starttime日期時(shí)間4endtime日期時(shí)間5pay 2貨幣4.3member表：序號(hào)中文名字段名類型備注0userid10文本符型主鍵1pwd10文本符型2chkpwd10文本類型3datatime日期時(shí)間4balance2數(shù)字5discount2數(shù)字6totaltime2數(shù)字7countnum2數(shù)字9memo備注4.3member1表：序號(hào)中文名字段名類型備注0userid10文本符型主鍵1pwd10文本符型2chkp

8、wd10文本類型3datatime日期時(shí)間4balance2數(shù)字5discount2數(shù)字6totaltime2數(shù)字7countnum2數(shù)字9memo備注4.4online表：序號(hào)中文名字段名類型備注0id10字符型 主鍵1clientid（10，2）字符型archar2logintime時(shí)間日期3timeout 10字符型4.4online表：序號(hào)中文名字段名類型備注0id10字符型 主鍵1mstate（是，否）判斷2jstate文本3stime日期4endtime日期5time 10數(shù)字6money貨幣7ltime10數(shù)字8userid文本9uprice貨幣三、物理設(shè)計(jì)寫索引是如何設(shè)計(jì)的：寫

9、索引是如何設(shè)計(jì)的：鏃索引是行的物理順序和索引的順序是一致的。頁級(jí)，低層等索引的各個(gè)級(jí)別上都包含實(shí)際的數(shù)據(jù)頁。一個(gè)表只能是有一個(gè)鏃索引。由于update,delete語句要求相對(duì)多一些的讀操作，因此鏃索引常常能加速這樣的操作。在至少有一個(gè)索引的表中，你應(yīng)該有一個(gè)鏃索引第五章 界面設(shè)計(jì)一、主界面單擊主界面上的各個(gè)按鈕，可以進(jìn)入相應(yīng)的界面中。二、系統(tǒng)設(shè)置對(duì)參數(shù)進(jìn)行設(shè)置功能介紹，相關(guān)控件；三、查詢上機(jī)時(shí)間等信息功能介紹，相關(guān)控件；第六章 代碼與注釋一、窗體1代碼option explicitprivate sub cmdexit_click()unload meend subprivate sub c

10、mdcounter_click() dim cn as adodb.connection dim i as integer dim rst as adodb.recordset dim strsql as string set cn = new connection set rst = new adodb.recordset cn.open concn history frmmanager.adodc1.recordset!endtime = now() txtmoney.text = frmmanager.adodc1.recordset!time * frmmanager.adodc1.r

11、ecordset!uprice # strsql = insert into history (pcid,starttime,endtime,pay) values ( & frmmanager.adodc1.recordset!mid & ,# & frmmanager.adodc1.recordset!stime & #,# & frmmanager.adodc1.recordset!endtime & #, & txtmoney.text & ) debug.print strsql cn.execute strsql with frmmanager.adodc1 .recordset!

12、mstate = 0 .recordset!stime = 0 .recordset!jstate = .recordset!money = 0 .recordset!endtime = 0 .recordset!time = 0 .recordset!ltime = 0 .recordset!userid = on error goto error_proc .recordset.save end with frmmanager.refresh msgbox unload me exit sub error_proc: msgbox err.description, vbcritical,

13、unload meend subprivate sub cmdvipexit_click()unload meend subprivate sub cmdvipcounter_click() dim gdiscount as double dim cn as adodb.connection dim i as integer dim rst as adodb.recordset dim strsql as string dim uprice as double set cn = new connection set rst = new adodb.recordset cn.open concn

14、 frmmanager.adodc1.recordset!endtime = now() gdiscount = frmmember.datprimaryrs.recordset!discount txtvipmoney.text = frmmanager.adodc1.recordset!time * frmmanager.adodc1.recordset!uprice * gdiscount strsql = insert into history (pcid,starttime,endtime,pay,userid) values ( & frmmanager.adodc1.record

15、set!mid & ,# & frmmanager.adodc1.recordset!stime & #,# & frmmanager.adodc1.recordset!endtime & #, & txtvipmoney.text & , & frmmanager.adodc1.recordset!userid & ) cn.execute strsql member strsql = update member set countnum=countnum+1,totaltime=totaltime+ & frmmanager.adodc1.recordset!time & , balanc

16、e=balance- & csng(txtvipmoney.text) & where userid= & frmmanager.adodc1.recordset!userid & cn.execute strsql strsql = select balance from member where userid= & frmmanager.adodc1.recordset!userid & rst.open strsql, cn, adopendynamic, adlockoptimistic if rst.bof and rst.eof then msgbox system error5

17、exit sub end if uprice = rst(balance) if uprice =ltime and ltime0 and jstate= rst.open strsql, cn, adopendynamic, adlockoptimistic if rst.recordcount 0 then rst.movefirst while not rst.eof rst!jstate = rst.update msgbox ( & rst!mid & ) rst.movenext wend end if adodc1.recordset.absoluteposition = ien

18、d subprivate sub timer3_timer() dim cn as adodb.connection dim rst as adodb.recordset dim strsql as string set cn = new adodb.connection set rst = new adodb.recordset cn.open concn strsql = select clientid from online rst.open strsql, cn if rst.bof and rst.eof then exit sub end if while not rst.eof

19、addtimeout rst(clientid) rst.movenext wendend subprivate sub toolbar1_buttonclick(byval button as mscomctllib.button) dim pc_numbera as integer dim cn as adodb.connection dim i as integer dim rst as adodb.recordset set cn = new connection set rst = new adodb.recordset cn.open concn frmmanager.datagr

20、id1.row = frmmanager.datagrid1.row frmmanager.datagrid1.col = 0 pc_number1 = frmmanager.datagrid1.text pc_numbera = cint(pc_number1) select case button.key case cmdnumberid case cmdtiming frmtiming.show case cmdlimittime frmlimittime.show case cmdlock forcescreenlock pc_numbera pc_numbera = 0 case c

21、mdpoweroff forceshutdown pc_numbera case cmdreboot forcereboot pc_numbera case cmdreleaselock releaselock pc_numbera pc_numbera = 0 end select pc_numbera = 0end sub public sub winsock1_dataarrival(byval bytestotal as long) dim params() as string if bytestotal 0 then on error goto error_proc winsock1

22、.getdata strdata serverdealdata strdata exit sub end iferror_proc: if err.number = 10054 then msgbox msgbox err.descriptionend sub五、窗體5代碼private sub form_load()datprimaryrs.connectionstring = concndatprimaryrs.commandtype = adcmdtabledatprimaryrs.recordsource = memberdatprimaryrs.refreshend subpriva

23、te sub datprimaryrs_error(byval errornumber as long, description as string, byval scode as long, byval source as string, byval helpfile as string, byval helpcontext as long, fcanceldisplay as boolean) msgbox data error event hit err: & descriptionend subprivate sub form_resize() on error resume next

24、 grddatagrid.width = me.scalewidth grddatagrid.height = me.scaleheight - grddatagrid.top - datprimaryrs.height - 30 - picbuttons.heightend subprivate sub form_unload(cancel as integer) screen.mousepointer = vbdefaultend subprivate sub cmdadd_click() on error goto adderr datprimaryrs.recordset.addnew

25、 exit subadderr: msgbox err.descriptionend subprivate sub cmddelete_click() on error goto deleteerr with datprimaryrs.recordset .delete .movenext if .eof then .movelast end with msgbox exit subdeleteerr: msgbox err.descriptionend subprivate sub cmdupdate_click() on error goto updateerr datprimaryrs.

26、recordset.updatebatch adaffectall msgbox exit subupdateerr: msgbox err.descriptionend subprivate sub cmdclose_click() unload meend sub四、窗體4代碼private sub form_load() datprimaryrs.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.path & mechanicid.mdb;persist security info=false d

27、atprimaryrs.commandtype = adcmdtabledatprimaryrs.recordsource = admidatprimaryrs.refreshend subprivate sub form_resize() on error resume next grddatagrid.width = me.scalewidth grddatagrid.height = me.scaleheight - grddatagrid.top - datprimaryrs.height - 30 - picbuttons.heightend subprivate sub form_

28、unload(cancel as integer) screen.mousepointer = vbdefaultend subprivate sub datprimaryrs_error(byval errornumber as long, description as string, byval scode as long, byval source as string, byval helpfile as string, byval helpcontext as long, fcanceldisplay as boolean) msgbox data error event hit er

29、r: & descriptionend subprivate sub cmdadd_click() on error goto adderr datprimaryrs.recordset.addnew exit subadderr: msgbox err.descriptionend subprivate sub cmddelete_click() on error goto deleteerr with datprimaryrs.recordset .delete .movenext if .eof then .movelast end with exit subdeleteerr: msgbox err.desc