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

　　

【正文】 amp。 like + 39。% + + %39。 Else = select * from dzxxtb where dzxxtb. amp。 amp。 Combo6 amp。 + 39。 + + 39。 End If End If If = 0 And = 1 Then = select * from dzxxtb where 登記日期 between amp。 Chr(35) amp。 amp。 Chr(35) amp。 and amp。 Chr(35) amp。 amp。 Chr(35) amp。 End If If = 1 And = 1 Then If = like Then = select * from dzxxtb where( amp。 amp。 like 39。% + + %39。 and 登記日期 between amp。 Chr(35) amp。 amp。 Chr(35) amp。 and amp。 Chr(35) amp。 amp。 Chr(35) amp。 ) Else = select * from dzxxtb where ( amp。 amp。 Combo6 amp。 + 39。 + + 39。 and 登記日期 between amp。 Chr(35) amp。 amp。 Chr(35) amp。 and amp。 Chr(35) amp。 amp。 Chr(35) amp。 ) End If End If = Counter Next Counter = End Sub (4) 修改讀者信息時(shí)，根據(jù)查詢(xún)的讀者編號(hào)獲得對(duì)應(yīng)的讀者其他信息。 Private Sub Text15_KeyDown(KeyCode As Integer, Shif As Integer) If KeyCode = vbKeyReturn Then Dim rs As New select * from dzxxtb where 讀者編號(hào) =39。 + + 39。, n, adOpenKeyset, adLockOptimistic If 0 Then = (讀者姓名 ) = (性別 ) 圖書(shū)管理系統(tǒng) (Visual Basic + Access ) 21 / 43 = (出生日期 ) = (單位 ) = (家庭住址 ) = (家庭電話 ) = (手機(jī) 號(hào)碼 ) = (傳真號(hào)碼 ) = (Email) = (證件類(lèi)型 ) = (證件號(hào)碼 ) = (登記日期 ) = (讀者級(jí)別 ) = (備注 ) Else MsgBox 該讀者編號(hào)不正確！ , vbCritical, 提示！ = Exit Sub End If End If End Sub 借書(shū)管理模塊 借書(shū)管理模塊主要功能是將讀者的借書(shū)信息保存到數(shù)據(jù)庫(kù)中，并可以對(duì)讀者的借書(shū)信息進(jìn)行刪除等操作。 主要技術(shù)： 框體中利用 DTPicker 控件的 Value 屬性返回當(dāng)前日期，利用 TextBox控件的 LostFocus 事件來(lái)觸發(fā)更新驗(yàn)證和確認(rèn)等相關(guān)操作。 如圖 .(2)。 圖書(shū)管理系統(tǒng) (Visual Basic + Access ) 22 / 43 圖 .(2) 借書(shū)管理 (1) 利用 ADO 控件來(lái)實(shí)現(xiàn)查詢(xú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 沒(méi)有該讀者信息！ , vbOKOnly, 提示！ = End If End If End Sub (2) 利用 Text 的 LostFocus 事件來(lái)觸發(fā)查詢(xún)借閱信息。 Private Sub Text3_LostFocus() = select * from books where 條碼號(hào) =39。 amp。 amp。 39。 If 0 Then 圖書(shū)管理系統(tǒng) (Visual Basic + Access ) 23 / 43 = (訂購(gòu)價(jià)格 ) = (出版社 ) = (書(shū)籍名稱(chēng) ) = (規(guī)定天數(shù) ) = (作者 ) = (類(lèi)別代碼 ) = + Val() Else MsgBox 沒(méi)有該書(shū)籍信息！ , vbOKOnly, 提示！ = : = : = : = = : = : = : = End If End Sub (3) 借出圖書(shū)時(shí)驗(yàn)證借書(shū)數(shù)量是否超出限制，如果沒(méi)有則將借書(shū)信息寫(xiě)入借書(shū)表，同時(shí)修改圖書(shū)表中的“復(fù)本數(shù)”和“借書(shū)數(shù)量”兩個(gè)字段，借書(shū)成功。 Private Sub Command1_Click() Dim x, y As Integer Dim hs1 If = Or = Or = Or = Or = Then MsgBox 輸入的借書(shū)信息不完全！ , vbCritical, 提示！ Else select sum(借書(shū)數(shù)量 ) from dzjstb where 讀者編號(hào)=39。 + + 39。, n, adOpenKeyset, adLockOptimistic = select * from sz If (0) + Val() (0) Then MsgBox 您的借書(shū)量已滿??！ , vbOKOnly