【正文】 If KeyCode = vbKeyReturn Then End Sub Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub 交通運輸學(xué)院課程設(shè)計 41 Private Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text12_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub frm_temp 源代碼 _Private Sub Command1_Click() = = = select * from newtb where 訂單號 =39。 On Error Resume Next If 0 Then = (書籍名稱 ) = (訂購價格 ) = (規(guī)定天數(shù) ) = (出版社 ) = (作者 ) = (類別代碼 ) = + Val() Else MsgBox 沒有該書籍信息！ , vbOKOnly = = = = = = = End If Set rs = Nothing End Sub Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text8_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text9_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub 交通運輸學(xué)院課程設(shè)計 44 Private Sub Text9_LostFocus() If = Then MsgBox 借書數(shù)量不能為空 !, vbInformation Else = select * from sz If 0 Then If Val() Val((0)) Then MsgBox 借書數(shù)量大于系統(tǒng)所規(guī)定的借出數(shù)量 ,請您查看系統(tǒng)管理當(dāng)中的系統(tǒng)設(shè)置后再重新輸入借書數(shù)量的信息 , vbOKOnly = End If End If End If End Sub Frmdzhsgl 源代碼 Dim rs As Private Sub Command1_Click() Dim hs, js, i As String Dim hs1, sz1 As String Dim x, y, z As Integer If = Or = Then MsgBox 請輸入讀者編號和條碼號 , vbInformation Else i = MsgBox(確認歸還該圖書嗎！ , vbYesNo + vbOKOnly) If i = vbYes Then Set rs = (insert into hsstb values( amp。 Text7 amp。 DTPicker3 amp。 x amp。 amp。 and 借 =39。,借書數(shù)量 =39。 and 讀者編號 =39。, amp。 Text6 amp。 If 0 Then = (1) Else MsgBox 沒有該讀者信息！ , vbOKOnly = End If End If End Sub Private Sub Text1_LostFocus() If = Then MsgBox 請輸入讀者編號！ Exit Sub End If End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub 交通運輸學(xué)院課程設(shè)計 43 Private Sub Text3_LostFocus() = select * from books where 條碼號 =39。 amp。 amp。 39。 amp。 Chr(35) amp。 + + 39。,39。 Text6 amp。) End If select * from books where 書籍名稱 =39。 Text11 amp。 39。 amp。039。 amp。 amp。 39。 39。039。 amp。 39。 39。 39。從理論到實踐，三周的時間，不進溫習(xí)鞏固了以前的舊知識，也在不斷地摸索和探求中體會到了自學(xué)能力培養(yǎng)的重要性，自學(xué)的魅力是無窮的。 點擊【 借閱管理 】 — 【 超期提醒 】 ，出現(xiàn)界面 如下： 交通運輸學(xué)院課程設(shè)計 24 圖 35 單擊【每日到期】，則出現(xiàn)以下： 圖 36 交通運輸學(xué)院課程設(shè)計 25 【參考文獻】 Basic程序設(shè)計教程 作 者：劉瑞新 等主編 出 版 社：電子工業(yè)出版社 出版時間： 20218 isual BASIC+Access數(shù)據(jù)庫項目開發(fā)實踐（附 CDROM光盤一張） 作 者： 周國民 編著 出 版 社： 中國鐵道出版社 出版時間： 202111 B數(shù)據(jù)庫程序設(shè)計實驗指導(dǎo) 作 者： 劉白林 主編 出 版 社： 西安交通大學(xué)出版社 出版時間： 202131 isual Basic+Access 數(shù)據(jù)庫開發(fā)與實例（含光盤） 作 者： 劉文濤 編著 出 版 社： 清華大學(xué)出版社 出版時間： 202171 Access數(shù)據(jù)庫教程 作 者： 劉文濤 編著 出 版 社： 清華大學(xué)出版社 出版時間： 202171 VB數(shù)據(jù)庫項目設(shè)計模塊化教程 作 者：劉玉山 劉寶山 編著 出 版 社： 機械工業(yè)出版社 出版時間： 20218 交通運輸學(xué)院課程設(shè)計 26 設(shè)計體會 三周的課程設(shè)計，到今天接近尾聲了 ?？梢詫崿F(xiàn)對圖書的驗收入庫、入庫查詢，對 照輸入邊框上的提示信息，依次輸入，就可以實現(xiàn)相應(yīng)的功能。此外，還可以維護圖書類別信息。 （ 2）管理訂購新書信息，驗收訂 購的新書信息，查詢并檢索庫存圖書信息。 實現(xiàn)了 讀者借書管理、讀者還書管理、圖書丟失管理、超期提醒各種必要功能。 回想這三周的學(xué)習(xí)與設(shè)計，有苦有甜，苦的是，之前學(xué)過的關(guān)于 VB 和數(shù)據(jù)庫的知識都忘得差不多了，感覺學(xué)的東西很少，很零散，不知該怎么練到一起，做課程設(shè)計，是不是太難為我們了。 最后，從這次課程設(shè)計中，本人對 VB和 Access 數(shù)據(jù)庫有了更深入的理解和領(lǐng)悟，同時也看到了不起眼的紅蜻蜓抓圖精靈作用不可小覷，我更堅定地認識到 VB 在以后學(xué)習(xí)中的重要性，這將是我受益終生。, n, adOpenKeyset, adLockOptimistic If 0 Then MsgBox 訂單號已存在！ , vbInformation Else Dim sql, temp As String temp = 0 sql = insert into newtb values(39。,39。,39。 Text11 amp。 order by 訂單號 End If 交通運輸學(xué)院課程設(shè)計 31 End If End If End Sub Private Sub Command1_Click() If = Or = Or = Or = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 輸入的信息不能為空 !, vbCritical ElseIf IsNumeric() = False Or IsNumeric() = False Or IsNumeric() = False Or IsNumeric() = False Or IsNumeric(Text13) = False Or IsNumeric(Text12) = False Then MsgBox 輸入的信息類型不正確！ , vbInformation Else = select * from newtb where 條碼號 =39。,39。,39。 Text9 amp。 Text13 amp。 order by 訂單號 Set = Adodc2 clear End Sub Private Sub Form_Load() = amp。 Text2 amp。,39。 , amp。 + Text3 + 39。 39。 amp。 End If ElseIf = 0 And = 1 Then = select * from rkb where 訂購日期 between amp。 39。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 amp。