【正文】 order by 訂購日期 If 0 Then 1 Else 30 MsgBox 此日期段沒有記錄，請(qǐng)重新選擇！ , vbOKOnly End If End Sub 18. 窗體分割條的實(shí)現(xiàn) Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) = RGB(79, 106, 161) End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) On Error Resume Next If Button = 1 Then = + x End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) Dim plamp。 amp。 and amp。 amp。 = (1) = (0) Else = = End If End Sub 17. 打印查詢結(jié)果 Private Sub Command3_Click() select * from rkb where 訂購日期 between amp。 amp。 and amp。 amp。 order by 訂購日期 If 0 Then = select sum(復(fù)本數(shù) )as 復(fù)本數(shù) ,sum(訂購價(jià)格 )as 訂購價(jià)格 from rkb where 訂購日期 between amp。 amp。 and amp。 amp。模糊查詢 End If End If End Sub 16. 查詢圖書驗(yàn)收信息 Private Sub Command1_Click() Dim Num1, Num2 As Long = select * from rkb where 訂購日期 between amp。 + + 39。 39。 (sql1) End If End If 29 = select * from pstb End Sub 15. 查詢丟失信息 Private Sub Command4_Click() If = Or = Or = Then MsgBox 請(qǐng)輸入或選擇查詢條件 , vbInformation Else If i = 1 Then = select * from pstb where + + like 39。 amp。 where 讀者編號(hào) =39。 sql2 amp。 (sql1) sql2 = Val() Val() sql1 = update dzjstb set 借書數(shù)量 =39。 amp。 where 條碼號(hào) =39。 復(fù)本數(shù) Val() amp。 If 0 Then sql1 = update books set 復(fù)本數(shù) =39。 amp。) (sql) = select * from books where 條碼號(hào) =39。 Label14 amp。,39。 Label13 amp。,39。 Label17 amp。,39。 Label15 amp。,39。 Label8 amp。 ,39。, amp。 Text3 amp。,39。 DTPicker1 amp。,39。 Text2 amp。,39。 Text1 amp。 If 0 Then = True = (0) = (1) = (4) = (8) = (3) = (9) = (10) Else MsgBox 沒有此讀者的借書信息 , vbOKOnly = = End If End If End Subb 14. 記錄 丟失信息 Private Sub Command1_Click() c = MsgBox(該圖書確認(rèn)丟失了嗎 ?, 33) If c = vbOK Then Dim sql, sql1 As String Dim sql2 As Integer sql = insert into pstb values(39。and 讀者編號(hào) =39。 amp。) End If End If Else MsgBox 當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄 , 64 End If End Sub 13. 顯示讀者和圖書信息 Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text2_LostFocus() 28 If = Or = Then MsgBox 請(qǐng)輸入條碼號(hào)和讀者編號(hào) , vbInformation Exit Sub Else = select * from dzjstb where 條碼號(hào) =39。 End Sub 12. 刪除記錄 Private Sub Command2_Click() If = False Then If = Then Exit Sub Else c = MsgBox(您確認(rèn)要?jiǎng)h除該記錄嗎 ?, 17) If c = vbOK Then Call Main Set adoRs = (delete from dzjstb where 讀者編號(hào) =39。 (hs1) End If End If MsgBox 借出完畢！ , vbOKOnly Set rs = Nothing End If = select * from dzjstb where 借 =39。 amp。where 條碼號(hào) =39。 y amp。,借書數(shù)量 =39。 x amp。)) x = Val((復(fù)本數(shù) )) Val() y = Val((借書數(shù)量 )) + Val() hs1 = update books set 復(fù)本數(shù) =39。,39。 DTPicker2 amp。,39。 DTPicker1 amp。,39。 Text10 amp。,39。 Text9 amp。,39。 Text8 amp。,39。 Text7 amp。,39。 Text6 amp。 ,39。, amp。 Text4 amp。,39。 Text3 amp。,39。 Text2 amp。,39。 Text1 amp。 If 0 Then (insert into dzjstb values(39。, n, adOpenKeyset, adLockOptimistic = select * from sz If (0) + Val() (0) Then MsgBox 您的借書量已滿??！ , vbOKOnly 27 Exit Sub Else = select * from books where 條碼號(hào) =39。 On Error Resume Next If 0 Then = (書籍名稱 ) = (訂購價(jià)格 ) = (規(guī)定天數(shù) ) = (出版社 ) = (作者 ) = (類別代碼 ) = + Val() Else MsgBox 沒有該書籍信息！ , vbOKOnly = = = = = = = End If Set rs = Nothing End Sub 11. 借出圖書 Private Sub Command1_Click() If = Or = Or = Or = Or = Then MsgBox 輸入的借書信息不完全 !, vbCritical Else select sum(借書數(shù)量 ) from dzjstb where 讀者編號(hào) =39。 amp。 If 0 Then 26 = (1) Else MsgBox 沒有該讀者信息！ , vbOKOnly = End If End If End Sub 10. 示借閱信息 Private Sub Text3_