數(shù)據(jù)庫課程設計網吧管理系統(tǒng)設計報告書

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

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

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

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

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

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

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

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

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