基于vb的圖書(shū)館管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)-閱讀頁(yè)
2024-12-27 09:25本頁(yè)面
【正文】 tPwd)) 6 Then 12 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。 Trim(txtNum) amp。保存記錄 MsgBox 數(shù)據(jù)保存成功！ , vbInformation, 系統(tǒng)用戶(hù)管理 = True = True isAdding = False: = True End If End With End If End Sub Private Sub Form_Load() cmdMove(0).Value = True End Sub （ 3）讀者數(shù)據(jù)管理窗體界面 13 圖 53 讀者數(shù)據(jù)管理窗體 讀者數(shù)據(jù)管理窗體代碼 TRUNCATE TABLE 讀者類(lèi)別 With If .State = adStateClosed Then .Open .AddNew .Fields(編號(hào) ) = 0 .Fields(名稱(chēng) ) = 特殊 .Fields(借書(shū)量 ) = Val(txtSp(1)) .Fields(借書(shū)期 ) = Val(txtSp(2)) .Fields(有效期 ) = Val(txtSp(3)) .Update .AddNew .Fields(編號(hào) ) = 1 .Fields(名稱(chēng) ) = 館員 .Fields(借書(shū)量 ) = Val(txtL(1)) .Fields(借書(shū)期 ) = Val(txtL(2)) .Fields(有效期 ) = Val(txtL(3)) .Update .AddNew .Update .AddNew .Fields(編號(hào) ) = 2 .Fields(名稱(chēng) ) = 教師 .Fields(借書(shū)量 ) = Val(txtT(1)) .Fields(借書(shū)期 ) = Val(txtT(2)) .Fields(有效期 ) = Val(txtT(3)) .Update 14 .AddNew .Fields(編號(hào) ) = 3 .Fields(名稱(chēng) ) = 學(xué)生 .Fields(借書(shū)量 ) = Val(txtS(1)) .Fields(借書(shū)期 ) = Val(txtS(2)) .Fields(有效期 ) = Val(txtS(3)) .Update End With End Sub Private Sub Form_Load() cmdMove(0).Value = True End Sub Private Sub SSTab1_DblClick() End Sub （ 4）圖書(shū)征訂管理窗體 圖 54 圖書(shū)征訂管理窗體 圖書(shū)征訂管理代碼 = Len(txtPubDate) ElseIf Trim(txtAuthor) = Then MsgBox 作者不能為空！ , vbCritical, 圖書(shū)征訂管理 = 0 = Len(txtAuthor) ElseIf Val(txtNum) = Then MsgBox 正的數(shù)量無(wú)效！ , vbCritical, 圖書(shū)征訂管理 15 = 0 = Len(txtNum) ElseIf Not IsDate(txtDate) = Then MsgBox 作者不能為空！ , vbCritical, 圖書(shū)征訂管理 = 0 = Len(txtDate) Else 39。選擇全部條碼 ListItem_Add lstPre(Index), LstIn(Index), Index, True End Sub Private Sub cmdAddOne_Click(Index As Integer)39。 vbCr amp。 vbCr amp。刷新新書(shū)或調(diào)出庫(kù)室條碼列表 Private Sub cmdRefresh_Click(Index As Integer) 16 Select Case Index Case 0 39。刷新庫(kù)室條碼列表 With If .State = adStateClosed Then .Open .Requery End With AddListOut End Select End Sub Public 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 With End Sub 測(cè)試 借閱卡管理測(cè)試 進(jìn)度安排測(cè)試辦理借閱證信息，檢查個(gè)人賬號(hào)、讀者可自行修改密碼。測(cè)試借閱卡掛失功能，包括讀者信息等 。 添加信息 在頁(yè)面實(shí)現(xiàn)對(duì)信息的添加并能提交到數(shù)據(jù) 庫(kù)。 刪除信息 在頁(yè)面選定要?jiǎng)h除的信息，頁(yè)面刷新不在顯示此信息，但數(shù)據(jù)庫(kù)內(nèi)仍保留此信息。對(duì)讀者和出版社的基本數(shù)據(jù)進(jìn)行保存，未有錯(cuò)誤彈出。測(cè)試借書(shū)、還書(shū)功能信息正確性。測(cè)試圖書(shū)信息查詢(xún)的正確性。 系統(tǒng)管理測(cè) 試 進(jìn)度安排測(cè)試注冊(cè)管理員信息的正確性。 18 結(jié)束語(yǔ) 本系統(tǒng)的最終目的是針對(duì)各大中專(zhuān)院校的圖書(shū)管理現(xiàn)狀，設(shè)計(jì)出適合一般學(xué)校的計(jì)算機(jī)輔助圖書(shū)管理系統(tǒng)。 從而在圖書(shū)館對(duì)新舊書(shū)的反應(yīng)；對(duì)書(shū)籍借閱的管理能力；對(duì)讀者和圖書(shū)館工作人員的管理能力；對(duì)圖書(shū)館管理人員軟件操作的適應(yīng)時(shí)間和操作感覺(jué)這些方面都將大大的提高。 在本次畢業(yè)設(shè)計(jì)中我學(xué)會(huì)使用 Visual 和 SQL 數(shù)據(jù)庫(kù)設(shè)計(jì)制作圖書(shū)管理系統(tǒng)。本著實(shí)用性和介紹性的原則 , 系統(tǒng)的各個(gè)功能模塊能實(shí)現(xiàn)了基本的功能 ,有效應(yīng)用到圖書(shū)館的圖書(shū)自動(dòng)化管理 。 致 謝 首先 ,感謝老師對(duì)我的細(xì)心指導(dǎo)和嚴(yán)格的要求，論文的指導(dǎo)和對(duì)程序的調(diào)試都給予了莫大的幫助，少走了不少?gòu)澛罚彩刮野l(fā)現(xiàn)了程序的不足之處，能及時(shí)修改，使程序的錯(cuò)誤降到最低， 在本次設(shè)計(jì)的過(guò)程中，老師們給了我們很大的幫助。 感謝老師的指導(dǎo) ,使我們充分利用軟件工程 ,VB,數(shù)據(jù)庫(kù)原 理開(kāi)發(fā)出自己的項(xiàng)目 .通過(guò)本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西。都給與我很大的幫助，我想這對(duì)于我以后的工作和學(xué)習(xí)來(lái)說(shuō)是一種巨大的幫助。從而戰(zhàn)勝這道難關(guān)，使我的能力再一次得到了提高。機(jī)械工程出版社 2021 邱李華 .SQL Server 2021 數(shù)據(jù)庫(kù)應(yīng)用教程 人民郵電出版社 2021 鐘軍 . Visual Basic 數(shù)據(jù)庫(kù)高級(jí)實(shí)例 導(dǎo)航 清華大學(xué)出版社 2021 趙松濤 . Visual Basic+SQL Server 2021 系統(tǒng)開(kāi)發(fā)實(shí)錄 機(jī)械工業(yè)出版社 2021
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1