【導(dǎo)讀】以信息高速公路和多媒體技術(shù)為標(biāo)志的信息技術(shù)革命，將圖書(shū)館推向。自動(dòng)化、電子化和數(shù)字化的方向發(fā)展。數(shù)字圖書(shū)館的出現(xiàn)對(duì)于正在不斷產(chǎn)生的浩。該系統(tǒng)較為簡(jiǎn)單，耗費(fèi)資源較少，而且對(duì)出納人員計(jì)算機(jī)能力要求不高。需進(jìn)行一些日常操作和維護(hù)。圖書(shū)的借閱與歸還。圖書(shū)出納管理系統(tǒng)作為一種簡(jiǎn)化流程，提高效率，深受著老一輩的圖書(shū)。管理人員的歡迎。可長(zhǎng)期使用，沒(méi)有后續(xù)費(fèi)用。系統(tǒng)功能分析是在系統(tǒng)開(kāi)發(fā)的總體任務(wù)的基礎(chǔ)上完成。刪除和更新借閱者賬戶，增加和刪除書(shū)籍。編號(hào)、書(shū)籍名稱、借書(shū)日期、應(yīng)還日期。還書(shū)時(shí)，圖書(shū)管理者通過(guò)書(shū)號(hào)查詢?cè)摃?shū)的應(yīng)還日期，確定是否過(guò)期，顯。期、已過(guò)天數(shù)、應(yīng)收費(fèi)用，破損需交罰款。將新增圖書(shū)和已還圖書(shū)進(jìn)行分類(lèi)回放，以便下一位借閱者查詢借閱。還書(shū)，在規(guī)定時(shí)間內(nèi)免費(fèi)還書(shū)，超過(guò)日期則交納相應(yīng)費(fèi)用，圖書(shū)若破損，此外，設(shè)計(jì)數(shù)據(jù)流圖只需考慮系統(tǒng)必須完成的基本邏。也對(duì)數(shù)據(jù)庫(kù)中的記錄進(jìn)行檢查，檢查是否有重復(fù)的記錄。

　　

【正文】 詢結(jié)果，如圖 24 所示。 顯示目錄 (6) 用戶登錄子窗體代碼 在本項(xiàng)目中，用戶登錄子窗體是運(yùn)行的第一個(gè)界面，它的作用是檢查用戶名和密碼是否正確。由于用戶的資料是存放在數(shù)據(jù)庫(kù)中，所以在啟動(dòng)該子窗體時(shí)，就已經(jīng)連接了數(shù)據(jù)庫(kù)。其代碼如下 : Private Sub Form_Load() Dim connectionstring As String connectionstring = provider=。 amp。 _ data source= connectionstring t = 0 End Sub “確定 ”按鈕的作用是檢查輸入的數(shù)據(jù)是否與數(shù)據(jù)庫(kù)中的數(shù)據(jù)一致。 Private Sub Command1_Click() Dim sql As String Dim rs_login As New If Trim() = Then ’ 判斷輸入的用戶 名是否為 空 MsgBox 沒(méi)有這個(gè)用戶 , vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where 用戶名 =’ amp。 amp。 ’ 29 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒(méi)有這個(gè)用戶 , vbOKOnly + vbExclamation, Else ’ 檢驗(yàn)密碼是否正確 用戶名和密碼通過(guò)后，要關(guān)閉本窗體并打開(kāi)主窗體。 If Trim((1)) = Trim() Then userID = userpow = (2) Unload Me Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If ’ 只能輸入 3 次 t = t + 1 If t = 3 Then Unload Me End If Exit Sub End Sub （ 7）查詢借書(shū)信息如圖 25 如圖 27 代碼如下： Option Explicit Private Sub Command1_Click() Dim sql As String 30 Dim rs_find As New If = True Then sql = select * from 書(shū)籍信息 where 是否被借出 =39。是 39。 End If If = True Then sql = select * from 書(shū)籍信息 where 是否被借出 =39。否 39。 End If If = True Then sql = select * from 借閱信息 where 讀者姓名 =39。 amp。 amp。 39。 End If = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_find End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single) End Sub 此板塊，可以查詢已經(jīng)借出的書(shū)，沒(méi)有借出的書(shū)，也可以按讀者姓名查詢！?。? （ 8）還書(shū)信息如圖 26 如圖 26 代碼如下： Option Explicit 31 Dim findform As Boolean Private Sub Combo1_Click() = End Sub Private Sub Combo2_Click() = End Sub Private Sub Combo3_Click() = End Sub Private Sub Combo4_Click() = End Sub Private Sub Command1_Click() Dim rs_reader As New Dim sql As String findform = True sql = select * from 借閱信息 where 讀者姓名 =39。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic Set = rs_reader = False = False = False End Sub Private Sub Command2_Click() Dim rs_book As New Dim sql As String findform = False sql = select * from 借閱信息 where 書(shū)籍編號(hào) =39。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic Set = rs_book = False = False = False End Sub Private Sub Command3_Click() Dim book_num As String Dim reader_num As String Dim answer As String Dim rs_back As New Dim sql As String On Error GoTo delerror book_num = (3).CellValue() reader_num = (1).CellValue() answer = MsgBox(確定要還這本書(shū)嗎？ , vbYesNo, ) If answer = vbYes Then sql = select * from 借閱信息 where 書(shū)籍編號(hào) =39。 amp。 book_num amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic sql = select * from 書(shū)籍信息 where 書(shū)籍編號(hào) =39。 amp。 book_num amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 32 (7) = 否 sql = select * from 讀者信息 where 讀者編號(hào) =39。 amp。 reader_num amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic (8) = (8) 1 If findform = True Then Command1_Click Else Command2_Click End If MsgBox 成功刪除！ , vbOKOnly + vbExclamation, = False Else Exit Sub End If delerror: If 0 Then MsgBox End If End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() Dim rs_reader As New Dim rs_book As New Dim sql As String sql = select * from 讀者信息 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic If Not Then Do While Not (1) (0) Loop End If sql = select * from 借閱信息 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic If Not Then Do While Not (3) (4) Loop End If End Sub 33 系統(tǒng)配置 開(kāi)發(fā)環(huán)境： 本圖書(shū)管理開(kāi)發(fā)系統(tǒng)是在 Pentyum IV 以上機(jī)型的計(jì)算機(jī)上進(jìn)行開(kāi)發(fā)并獲得通過(guò)的，同時(shí)方便系統(tǒng)開(kāi)發(fā)，減少開(kāi)發(fā)過(guò)程的難度，我們是基于以下的軟件環(huán)境。 以 Window s XP 為操作系統(tǒng) 以 Visual 為開(kāi)發(fā)工具 以 Access 2021 作為后臺(tái)數(shù)據(jù)庫(kù) 心得體會(huì) 在一周的時(shí)間對(duì)一個(gè)新的程序進(jìn)行了 解和實(shí)踐然后按部就班的做出一個(gè)屬于自己的程序，并且按時(shí)完成，很不容易但是經(jīng)過(guò)測(cè)試表明已有功能基本運(yùn)行正常。為了適應(yīng)將來(lái)圖書(shū)館現(xiàn)有流程和網(wǎng)絡(luò)設(shè)施狀況，不斷進(jìn)行用戶需求分析和代碼設(shè)計(jì)改進(jìn)，在此循環(huán)的基礎(chǔ)上不斷增加功能。雖然最后做出來(lái)的程序比較簡(jiǎn)單，但是內(nèi)含了多種情況下的功能，可以在適當(dāng)時(shí)候根據(jù)實(shí)際情況進(jìn)行選擇。 不管怎么樣由于時(shí)間和能力有限，只完成了一些基本的功能，還是有很多的不成熟、不完善的地方，但畢竟是自己花了時(shí)間和經(jīng)歷去做的。 最后，懇請(qǐng)?jiān)u審老師不吝賜教，提出寶貴的意見(jiàn)。 34 指 導(dǎo) 教 師 評(píng) 語(yǔ) 成績(jī)?cè)u(píng)定： 指導(dǎo)教師簽字 ： 年 月 日