【正文】 cker1 amp。 39。,39。 amp。 DTPicker2 amp。 39。,39。借39。)) x = Val((復(fù)本數(shù))) Val() y = Val((借書數(shù)量)) + Val() hs1 = update books set 復(fù)本數(shù)=39。 amp。 x amp。 39。,借書數(shù)量=39。 amp。 y amp。 39。where 條碼號=39。 amp。 amp。 39。 (hs1) End If End If MsgBox 借出完畢！, vbOKOnly Set rs = Nothing End If = select * from dzjstb where 借=39。借39。 End Sub12. 刪除記錄Private Sub Command2_Click() If = False Then If = Then Exit Sub Else c = MsgBox(您確認要刪除該記錄嗎?, 17) If c = vbOK Then Call Main Set adoRs = (delete from dzjstb where 讀者編號=39。 + + 39。) End If End If Else MsgBox 當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄, 64 End IfEnd Sub13. 顯示讀者和圖書信息Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End SubPrivate Sub Text2_LostFocus() If = Or = Then MsgBox 請輸入條碼號和讀者編號, vbInformation Exit Sub Else = select * from dzjstb where 條碼號=39。 amp。 amp。 39。and 讀者編號=39。 + + 39。 If 0 Then = True = (0) = (1) = (4) = (8) = (3) = (9) = (10) Else MsgBox 沒有此讀者的借書信息, vbOKOnly = = End If End IfEnd Subb14. 記錄丟失信息Private Sub Command1_Click() c = MsgBox(該圖書確認丟失了嗎?, 33) If c = vbOK Then Dim sql, sql1 As String Dim sql2 As Integer sql = insert into pstb values(39。 amp。 Text1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 DTPicker1 amp。 39。,39。 amp。 Text3 amp。 39。, amp。 amp。 ,39。 amp。 Label8 amp。 39。,39。 amp。 Label15 amp。 39。,39。 amp。 Label17 amp。 39。,39。 amp。 Label13 amp。 39。,39。 amp。 Label14 amp。 39。) (sql) = select * from books where 條碼號=39。 amp。 amp。 39。 If 0 Then sql1 = update books set 復(fù)本數(shù)=39。 amp。 復(fù)本數(shù) Val() amp。 39。 where 條碼號=39。 amp。 amp。 39。 (sql1) 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 Sub15. 查詢丟失信息Private Sub Command4_Click() If = Or = Or = Then MsgBox 請輸入或選擇查詢條件, vbInformation Else If i = 1 Then = select * from pstb where + + like 39。% + + %39。 39。模糊查詢 ElseIf i = 0 Then = select * from pstb where + + + + 39。 + + 39。 39。模糊查詢 End If End IfEnd Sub16. 查詢圖書驗收信息Private Sub Command1_Click() Dim Num1, Num2 As Long = select * from rkb where 訂購日期 between amp。 Chr(35) amp。 amp。 Chr(35) amp。 and amp。 Chr(35) amp。 amp。 Chr(35) amp。 order by 訂購日期 If 0 Then = select sum(復(fù)本數(shù))as 復(fù)本數(shù),sum(訂購價格)as 訂購價格 from rkb where 訂購日期 between amp。 Chr(35) amp。 amp。 Chr(35) amp。 and amp。 Chr(35) amp。 amp。 Chr(35) amp。 = (1) = (0) Else = = End IfEnd Sub17. 打印查詢結(jié)果Private Sub Command3_Click() select * from rkb where 訂購日期 between amp。 Chr(35) amp。 amp。 Chr(35) amp。 and amp。 Chr(35) amp。 amp。 Chr(35) amp。 order by 訂購日期 If 0 Then 1 Else MsgBox 此日期段沒有記錄，請重新選擇！, vbOKOnly End IfEnd Sub18. 窗體分割條的實現(xiàn)Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) = RGB(79, 106, 161)End SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) On Error Resume Next If Button = 1 Then = + xEnd SubPrivate Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Dim plamp。 On Error Resume Next pl = If pl 1000 Then pl = 1000 = pl End If If pl ( 1000) Then pl = 1000 = pl End If = pl 5 = pl 5 = 30 = + 100 = 10 = RGB(79, 106, 161)End Sub