【正文】
其他人盜用自己的有效信息并出現(xiàn)私自借書(shū)等行為。若讀者不需辦理,則系統(tǒng)將信息注銷(xiāo)。其中管理員的基本信息包括:成員ID、密碼等。第三章 概要設(shè)計(jì) 系統(tǒng)開(kāi)發(fā)的總目標(biāo)是實(shí)現(xiàn)內(nèi)部圖書(shū)借閱管理的系統(tǒng)化、規(guī)范化和自動(dòng)化。如:以書(shū)名、作者、出版社、出版時(shí)間(確切的時(shí)間、時(shí)間段、某一時(shí)間之前、某一時(shí)間之后)等信息進(jìn)行圖書(shū)檢索,并能反映出圖書(shū)的借閱情況;以借閱人編號(hào)對(duì)借閱人信息進(jìn)行檢索;以出版社名稱(chēng)查詢(xún)出版社聯(lián)系方式信息。能夠?qū)κ褂迷摴芾硐到y(tǒng)的用戶(hù)進(jìn)行管理,按照不同的工作職能提供不同的功能授權(quán)。數(shù)據(jù)處理部分:主要涉及借閱和歸還的處理,如一本書(shū)借出后,必須在數(shù)據(jù)庫(kù)中將該書(shū)標(biāo)記為已借出,以防出現(xiàn)數(shù)據(jù)庫(kù)中有書(shū)但圖書(shū)館無(wú)書(shū)的情況;一本書(shū)歸還后,同樣必須在數(shù)據(jù)庫(kù)中將其標(biāo)記為已經(jīng)歸還,以便再次借出。圖書(shū)管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。最后在實(shí)現(xiàn)各個(gè)功能模塊時(shí),采用先模塊后系統(tǒng)集成的方式,即各系統(tǒng)功能模塊分別獨(dú)立設(shè)計(jì)和調(diào)試,在創(chuàng)建系統(tǒng)主窗體時(shí)才將各個(gè)功能模塊通過(guò)主窗體菜單系統(tǒng)集成到一起,最后進(jìn)行系統(tǒng)整體的設(shè)計(jì)和調(diào)試。圖書(shū)流通:包括圖書(shū)借閱、續(xù)借、圖書(shū)返還,圖書(shū)書(shū)目的查詢(xún)的功能。高級(jí)管刪除所有信息;普通管理員只能對(duì)授權(quán)范圍內(nèi)進(jìn)行相應(yīng)修改及刪除;讀者只能查詢(xún)借閱記錄和圖書(shū)書(shū)目不能修改。打印功能:可打印圖書(shū)征訂計(jì)劃。4. 輸入項(xiàng):輸入用戶(hù)ID,用戶(hù)名,:用戶(hù)主頁(yè)面。 :輸入用戶(hù)的詳細(xì)信息,包括姓名,出生日期,性別,地址,身份證號(hào)碼,電話號(hào)碼等信息。 :實(shí)現(xiàn)圖書(shū)查詢(xún)功能。 :圖43圖書(shū)查詢(xún)模塊流程 :此程序用于圖書(shū)的借閱,用戶(hù)通過(guò)登錄自己的借閱ID后,對(duì)需要借閱的圖書(shū)進(jìn)行借閱操作,如果符合借閱的要求,則可進(jìn)行借閱。,若此書(shū)不存在,則提示此書(shū)不存在;若此書(shū)存在則進(jìn)行下一步操作。 :實(shí)現(xiàn)對(duì)圖書(shū)的書(shū)籍歸還功能。 :輸入借閱證ID和圖書(shū)ID :若借閱證ID和圖書(shū)ID正確,則輸出提示圖書(shū)歸還成功界面;若借閱證ID或圖書(shū)ID不正確,則輸出提示沒(méi)有成功原因的界面。實(shí)現(xiàn)新進(jìn)圖書(shū)入庫(kù)功能。 圖46新書(shū)入庫(kù)模塊第五章 編碼與測(cè)試(1)用戶(hù)登錄窗體圖51 用戶(hù)登錄窗體用戶(hù)登錄代碼:Const MaxLogTimes As Integer = 3Private Sub cmdcancel_Click() If MsgBox(是否真的退出系統(tǒng)登錄?, vbYesNo, 登錄驗(yàn)證) = vbYes Then Unload Me End IfEnd SubPrivate Sub cmdok_Click() Static intLogTimes As Integer intLogTimes = intLogTimes + 1 If intLogTimes MaxLogTimes Then MsgBox 超過(guò)登錄次數(shù)!, vbCritical, 登錄驗(yàn)證 Else With .Open If .RecordCount 0 Then .MoveFirst .Find 編號(hào)= amp。保存Private Sub cmdSave_Click() Dim objcopy As New Recordset If Trim(txtNum) = Then MsgBox 不能為空!, vbCritical, 系統(tǒng)用戶(hù)管理 = 0 = Len(txtNum) ElseIf Len(Trim(txtPwd)) 6 Then MsgBox 用戶(hù)口令須為6位字符串!, vbCritical, 系統(tǒng)用戶(hù)管理 = 0 = Len(txtPwd) ElseIf Not txtAuth Like [0,1] Then MsgBox 用戶(hù)權(quán)限必須為0或1, vbCritical, 系統(tǒng)用戶(hù)管理 txtAuth = Else Set objcopy = 39。 Trim(txtNum) amp。選擇全部條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, True End SubPrivate Sub cmdAddOne_Click(Index As Integer)39。 vbCr amp。刷新庫(kù)室條碼列表 With If .State = adStateClosed Then .Open .Requery End With AddListOut End SelectEnd SubPublic Sub AddListNew() lstPre(0).Clear With If .State = adStateClosed Then .Open If .RecordCount 0 Then .MoveFirst While Not .EOF lstPre(0).AddItem .Fields(條碼) .MoveNext Wend Else lstPre(0).AddItem 當(dāng)前無(wú)待分配新書(shū) End If End WithEnd Sub 測(cè)試 借閱卡管理測(cè)試進(jìn)度安排測(cè)試辦理借閱證信息,檢查個(gè)人賬號(hào)、讀者可自行修改密碼。測(cè)試借書(shū)、還書(shū)功能信息正確性。 系統(tǒng)管理測(cè)試 進(jìn)度安排測(cè)試注冊(cè)管理員信息的正確性。它可以讓我們了解自己一學(xué)期里的學(xué)習(xí)情況,有助于在今后的學(xué)習(xí)中加以改進(jìn)。 在今后的學(xué)習(xí)過(guò)程中,我一定會(huì)認(rèn)真學(xué)習(xí)專(zhuān)業(yè)課程,再也不能像以前那樣迷迷糊糊的,課后要多花時(shí)間去研究一些有關(guān)編程方面的題目,不懂的地方及時(shí)把它弄懂。特別要感謝我們的指導(dǎo)老師,正因?yàn)橛辛四膸椭覀儾趴梢酝瓿蓪?shí)驗(yàn)。感謝老師的指導(dǎo),使我們充分利用軟件工程,VB,在此還要感謝所有合作參與項(xiàng)目開(kāi)發(fā)的同學(xué)們這次畢業(yè)設(shè)計(jì)的成功離不開(kāi)所有參與的同學(xué)們的幫助和支持,是他們讓我知道了團(tuán)隊(duì)工作的重要. 參考文獻(xiàn)[M].北京:. [M].北京: 郝志恒、數(shù)據(jù)庫(kù)基礎(chǔ)與應(yīng)用[M] 北京