【正文】 sql2 = Val() Val() sql1 = update dzjstb set 借書(shū)數(shù)量=39。 amp。 sql2 amp。 39。 where 讀者編號(hào)=39。 amp。 amp。 39。 (sql1) End If End If = select * from pstb End Sub(3) 查詢(xún)丟失的圖書(shū)信息。Private Sub Command4_Click() If = Or = Or = Then MsgBox 請(qǐng)輸入或選擇查詢(xún)條件！, vbInformation, 提示！ Else If i = 1 Then = select * from pstb where + + like 39。% + + %39。 ElseIf i = 0 Then = select * from pstb where + + + + 39。 + + 39。 End If End IfEnd Sub 庫(kù)存圖書(shū)檢索庫(kù)存圖書(shū)檢索為用戶(hù)提供了庫(kù)存圖書(shū)的檢索功能。該模塊通過(guò)TreeView控件和DataGrid控件為用戶(hù)提供直觀庫(kù)存圖書(shū)信息。.(4)。.(4) 庫(kù)存圖書(shū)檢索技術(shù)分析：當(dāng)單擊TreeView中的節(jié)點(diǎn)時(shí)，DataGrid中顯示對(duì)應(yīng)分類(lèi)圖書(shū)的信息。單擊子節(jié)點(diǎn)時(shí)窗體右邊顯示詳細(xì)的圖書(shū)信息。通過(guò)自定義的菜單能夠?qū)崿F(xiàn)對(duì)TreeView中節(jié)點(diǎn)的操作。(1) 自定義Tree_Change過(guò)程同Main框體。(2) 通過(guò)節(jié)點(diǎn)單擊事件在DataGrid控件中顯示分類(lèi)信息。Private Sub TreeView1_NodeClick(ByVal Node As ) Dim temp As String Dim Tree_Node As String Dim rstemp As New Tree_Node = If Tree_Node = 圖書(shū)分類(lèi) Then = select * from View_tsfl Else = select * from View_tsfl where 書(shū)籍類(lèi)別=39。 + Tree_Node + 39。 = select * from View_tsfl where 書(shū)籍類(lèi)別=39。 + Tree_Node + 39。 If 0 Then ElseIf = 0 Then = select * from View_tsfl where 書(shū)籍名稱(chēng)=39。 + Tree_Node + 39。 = select * from View_tsfl where 書(shū)籍名稱(chēng)=39。 + Tree_Node + 39。 If 0 Then temp = (書(shū)籍類(lèi)別) = select * from View_tsfl where 書(shū)籍類(lèi)別=39。 + temp + 39。 Set = Adodc3 End If End If End IfEnd Sub(3) 自定義菜單刪除，右鍵單擊TreeView中的節(jié)點(diǎn)時(shí)能夠進(jìn)行刪除操作。Private Sub del_Click() Dim a As String Dim rs2 As New select * from books where 書(shū)籍名稱(chēng) = 39。 + + 39。 and 作者 =39。 + _ + 39。, n, adOpenKeyset, adLockOptimistic If 1 Then MsgBox 請(qǐng)先刪除其子類(lèi),再刪除該父類(lèi), , 圖書(shū)綜合管理系統(tǒng) ElseIf = 1 Then a = MsgBox(您確實(shí)要?jiǎng)h除這條數(shù)據(jù)嗎?, vbYesNo, 提示！) If a = vbYes Then End If Else MsgBox 沒(méi)有要?jiǎng)h除的數(shù)據(jù)！, , 提示！ End If Sleep 500 Call Tree_change End Sub 用戶(hù)管理模塊用戶(hù)管理模塊實(shí)現(xiàn)用戶(hù)的注冊(cè)，密碼修改，刪除等功能。.(5)。.(5) 用戶(hù)管理模塊(1) 用戶(hù)的注冊(cè)。Private Sub Command1_Click() = = select * from usertb If 0 Then = Val((ID)) + 1 39。Text4獲得編號(hào)+1 Else = 1 End If If = Or = Or = Then MsgBox 輸入不完全!, 48, 提示！ Else If = Then (insert into usertb values( amp。 Text4 amp。 ,39。 amp。 Text1 amp。 39。,39。 amp。 Text2 amp。 39。)) MsgBox 注冊(cè)成功!!, 48 = = = Unload Me Else MsgBox 兩次輸入的密碼不一致,請(qǐng)您確認(rèn)后重新輸入, 48 = = End If End IfEnd Sub(2) 修改密碼。Private Sub Command1_Click() = select * from usertb where 用戶(hù)名=39。 amp。 amp。 39。 If = Then MsgBox 請(qǐng)輸入用戶(hù)名！, vbInformation, 提示！ Else On Error Resume Next If Trim() (1) Then MsgBox 無(wú)此用戶(hù)，請(qǐng)重新輸入！, vbInformation, 提示！ Exit Sub = : = : = Else If = Or (2) Then