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