【導(dǎo)讀】學(xué)校擁有一個(gè)圖書館，為全校師生提供一個(gè)閱讀、學(xué)習(xí)的空間。圖書的各種信息也成倍增加。面對(duì)如此龐大的信息量，開發(fā)并使用一套合。圖書管理系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要包括后。臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。松地完成各種復(fù)雜的操作。開發(fā)過程中不斷修正和改進(jìn)，直到形成用戶滿。Access不僅是一個(gè)數(shù)據(jù)庫，而且它具有強(qiáng)大的數(shù)據(jù)管理功能，它可以。方便地利用各種數(shù)據(jù)源，生成窗體（表單），查詢，報(bào)表和應(yīng)用程序等。閱，形成了一個(gè)整體自動(dòng)化管理模式。

　　

【正文】 = Exit Sub End If End If End Sub 借書管理模塊 借書管理模塊主要功能是將讀者的借書信息保存到數(shù)據(jù)庫中， 并可以對(duì)讀者的借書信息進(jìn)行刪除等操作。 主要技術(shù)： 框體中利用 DTPicker 控件的 Value 屬性返回當(dāng)前日期，利用 TextBox圖書管理系統(tǒng) (Visual Basic + Access ) 21 / 95 控件的 LostFocus 事件來觸發(fā)更新驗(yàn)證和確認(rèn)等相關(guān)操作。 如圖 .(2)。 圖 .(2) 借書管理 (1) 利用 ADO 控件來實(shí)現(xiàn)查詢讀者信息。 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then = select * from dzxxtb where 讀者編號(hào) =39。 amp。 amp。 39。 If 0 Then = (1) Else MsgBox 沒有該讀者信息！ , vbOKOnly, 提示！ = End If End If End Sub (2) 利用 Text 的 LostFocus 事件來觸發(fā)查詢借閱信息。 圖書管理系統(tǒng) (Visual Basic + Access ) 22 / 95 Private Sub Text3_LostFocus() = select * from books where 條碼號(hào) =39。 amp。 amp。 39。 If 0 Then = (訂購價(jià)格 ) = (出版社 ) = (書籍名稱 ) = (規(guī)定天數(shù) ) = (作者 ) = (類別代碼 ) = + Val() Else MsgBox 沒有該書籍信息！ , vbOKOnly, 提示！ = : = : = : = = : = : = : = End If End Sub (3) 借出圖書時(shí)驗(yàn)證借書數(shù)量是否超出限制，如果沒有則將借書信息寫入借書表，同時(shí)修改圖書表中的“復(fù)本數(shù)”和“借書數(shù)量”兩個(gè)字段，借書成功。 Private Sub Command1_Click() Dim x, y As Integer Dim hs1 If = Or = Or = Or = Or = Then MsgBox 輸入的借書信息不完全！ , vbCritical, 提示！ Else select sum(借書數(shù)量 ) from dzjstb where 讀者編號(hào)=39。 + + 39。, n, adOpenKeyset, adLockOptimistic = select * from sz If (0) + Val() (0) Then MsgBox 您的借書量已滿??！ , vbOKOnly, 提示！ Exit Sub Else = select * from books where 條碼號(hào) =39。 + + 39。 If 0 Then (insert into dzjstb values(39。 amp。 Text1 amp。 圖書管理系統(tǒng) (Visual Basic + Access ) 23 / 95 39。,39。 amp。 Text2 amp。 39。,39。 amp。 Text3 amp。 39。,39。 amp。 Text7 amp。 39。,39。 amp。 Text4 amp。 39。,39。 amp。 Text8 amp。 39。,39。 amp。 Text5 amp。 39。,39。 amp。 Text9 amp。 39。,39。 amp。 Text6 amp。 39。,39。 amp。 Text10 amp。 39。,39。 amp。 DTPicker1 amp。 39。,39。 amp。 DTPicker2 amp。 39。,39。借 39。)) x = Val((復(fù)本數(shù) )) Val() 39。計(jì)算庫存復(fù)本數(shù) y = Val((借書數(shù)量 )) + Val() 39。計(jì)算已經(jīng)借出數(shù) hs1 = update books set 復(fù)本數(shù) =39。 amp。 x amp。 39。,借書數(shù)量=39。 amp。 y amp。 39。where 條碼號(hào) =39。 amp。 amp。 39。 39。編寫 sql 語句 (hs1) End If End If MsgBox 借出完畢！ , vbOKOnly, 提示！ Set rs = Nothing End If = select * from dzjstb where 借 =39。借 39。 39。更新 Adodc1 End Sub (4) 刪除某條記錄。 Private Sub Command2_Click() If = False Then If = Then Exit Sub Else c = MsgBox(您確認(rèn)要?jiǎng)h除該記錄嗎？ , 17, 提示！ ) If c = vbOK Then Call Main Set adoRs = (delete from dzjstb where 讀者編號(hào) =39。 + + 39。) End If End If