【正文】 c If 0 Then = (讀者姓名) = (性別) = (出生日期) = (單位) = (家庭住址) = (家庭電話) = (手機號碼) = (傳真號碼) = (Email) = (證件類型) = (證件號碼) = (登記日期) = (讀者級別) = (備注) Else MsgBox 該讀者編號不正確！, vbCritical, 提示！ = Exit Sub End If End IfEnd Sub 借書管理模塊借書管理模塊主要功能是將讀者的借書信息保存到數據庫中，并可以對讀者的借書信息進行刪除等操作。 If 0 Then = (1) Else MsgBox 沒有該讀者信息！ , vbOKOnly, 提示！ = End If End IfEnd Sub(2) 利用Text的LostFocus事件來觸發(fā)查詢借閱信息。, n, adOpenKeyset, adLockOptimistic = select * from sz If (0) + Val() (0) Then MsgBox 您的借書量已滿??！ , vbOKOnly, 提示！ Exit Sub Else = select * from books where 條碼號=39。 Text2 amp。 Text7 amp。 Text8 amp。 Text9 amp。 Text10 amp。 DTPicker2 amp。 x amp。 amp。 + + 39。 amp。 Text1 amp。 DTPicker1 amp。 Label8 amp。 Label10 amp。 Label15 amp。 Label17 amp。 復本數 Val() amp。 sql2 amp。% + + %39。通過自定義的菜單能夠實現對TreeView中節(jié)點的操作。 + Tree_Node + 39。 and 作者 =39。 ,39。)) MsgBox 注冊成功!!, 48 = = = Unload Me Else MsgBox 兩次輸入的密碼不一致,請您確認后重新輸入, 48 = = End If End IfEnd Sub(2) 修改密碼。 amp。 Text1 amp。, n, adOpenKeyset, adLockOptimistic If 1 Then MsgBox 請先刪除其子類,再刪除該父類, , 圖書綜合管理系統(tǒng) ElseIf = 1 Then a = MsgBox(您確實要刪除這條數據嗎?, vbYesNo, 提示！) If a = vbYes Then End If Else MsgBox 沒有要刪除的數據！, , 提示！ End If Sleep 500 Call Tree_change End Sub 用戶管理模塊用戶管理模塊實現用戶的注冊，密碼修改，刪除等功能。 + Tree_Node + 39。(2) 通過節(jié)點單擊事件在DataGrid控件中顯示分類信息。 + + 39。 where 讀者編號=39。 where 條碼號=39。) (sql) = select * from books where 條碼號=39。,39。,39。,39。,39。,39。 39。并且能對丟失圖書的信息進行查詢。 39。,借書數量=39。,39。,39。,39。,39。,39。,39。 If 0 Then (insert into dzjstb values(39。 amp。.(2)。 Chr(35) amp。 Combo6 amp。 amp。 amp。 + 39。) (sql) MsgBox 數據保存成功, 64, 提示！ = select * from dzxxtb clear1 End IfEnd Sub(3) 根據不同選擇按不同方式查詢讀者信息。,39。,39。,39。,39。,39。,39。,39。查詢選項卡中根據是否選擇Like運算符，來按不同的查詢語法規(guī)則進行查詢。Private Sub Lbl_Pic_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Lbl_info(Index).ForeColor = RGB(255, 0, 0) End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim i As Integer For i = 0 To 1 Lbl_info(i).ForeColor = RGB(0, 0, 0) Next iEnd Sub（4） 利用圖片框實現窗體分隔條，可以利用鼠標點擊拖動來實現框體大小的