【正文】 交通運輸學院課程設計 46 = Date End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If = Then MsgBox 輸入不能為空 !, vbCritical Else = True End If End If End Sub Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text1_LostFocus() = select * from dzjstb where 條碼號 =39。where 條碼號 =39。 amp。 DTPicker1 amp。 Text3 amp。 = amp。 and between amp。 ) Case Is = = = select * from rkb where (rkb. amp。 and amp。 and between amp。 amp。 like + 39。 Text10 amp。,39。 If 0 Then (UPDATE newtb SET 是 否 驗 收 = 39。 Text9 amp。 amp。 39。% + temp1 + %39。 39。 amp。 amp。 amp。 39。 39。 amp。 amp。 amp。 圖書館管理系統(tǒng)這一課程設計的完成，有效的加強了我的基礎知識。 圖 22 系統(tǒng)自動與數(shù)據(jù)庫連接，出現(xiàn)下面界面： 交通運輸學院課程設計 16 圖 23 點 擊借出當前圖書，出現(xiàn)下面界面： 圖 24 讀者還書管理 在讀者還書管理窗體中，通過輸入讀者編號和書籍的條碼號，利用文本框的交通運輸學院課程設計 17 LostFocus 事件下的語句在借書表（ dzjstb）中檢索該讀者借閱的圖書信息，如果檢索到數(shù)據(jù)，那么將其顯示在窗體上，然后通過 AddNew 方法保存還書記錄；通過 Update 方法更新借書信息和庫存圖書信息。 讀者 丟失 讀者賠書 讀者還書 是 否 圖書館 圖書查詢 讀者借書 庫存圖書 圖書入庫 開票 /付款 圖書分類統(tǒng)計 供應商 圖書館管理系統(tǒng)業(yè)務流程圖 交通運輸學院課程設計 3 程序功能簡介 根據(jù)前面的功能分析 ， 應用 Visual Basic 與 Access 數(shù)據(jù)庫相關知識和軟件的操作方法，設計實現(xiàn)一個圖書館管理系統(tǒng)， 實現(xiàn) 基礎數(shù)據(jù)維護、新書訂購管理、圖書借閱管理、統(tǒng)計打印、系統(tǒng)維護 5大功能。 二、設計課題 圖書館管理系統(tǒng) 三、設計任務 本系統(tǒng)包括對書商和出版社等在內(nèi)的基礎數(shù)據(jù)管理、新書訂購管理、圖書借閱管理、圖書歸還管理、讀者續(xù)借圖書管理、圖書丟失管理、統(tǒng)計打印和系統(tǒng)管理等幾部分，通過將海量資源和信息管理系統(tǒng)進行有機的結合，可以讓讀者隨時隨地 地獲取知識。 五、設計時間 2021~2021 學年第二學期：第 1921周 共計 3周。另外，為了區(qū)分驗收和未驗收的圖書，應將驗收過的圖書信息標記為“驗收”。一切的一切，都凝結了我這個勞動人民的心血。 Trim() amp。 DT1 amp。 Text5 amp。 ,39。,39。 amp。 Text3 amp。 Text6 amp。,39。) (sql) MsgBox 數(shù)據(jù)保存成功 !, 64 = select * from newtb where 是否驗收 =39。 If 0 Then = (2) End If End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Combo3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Command1_Click() Dim myval As String myval = MsgBox(是否驗收訂單！ , vbYesNo + vbOKOnly) If myval = vbYes Then (insert into rkb values(39。, amp。 , amp。 + Text1 + 39。 amp。 39。 39。 DTPicker4 amp。 amp。 Chr(35) amp。 Chr(35) amp。 amp。 + + 39。 Text2 amp。 Text8 amp。 Text10 amp。 amp。 amp。 39。 39。 amp。 amp。 amp。 amp。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。and between amp。 amp。 amp。 39。 + + 39。 Text10 amp。,39。 DTPicker1 amp。 order by 訂單號 End Sub Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DT1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End If 交通運輸學院課程設計 33 End Sub Private Sub DTPicker2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DT2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then End Sub Private Sub Form_Activate() = = Dim temp1 temp1 = Format(Now, yyyymmdd) = select * from newtb where 訂單號 like 39。 Text12 amp。, amp。,39。,39。 temp amp。 Text10 amp。,39。,39。 If 0 Then MsgBox 此條碼號已經(jīng)存在 !, vbCritical = select * from newtb Else select * from newtb where 訂單號 =39。通過這次課程設計之后，我認為一定把以前學到的知識重新整理，認真回顧下，這才會對以后的學習起到舉足輕重的作用。如果圖書確認丟失，那么使用 AddNew 方法保存丟書記錄，同時更新讀者借書信息和庫存信息。 設計實現(xiàn)用戶登錄窗口，需要在數(shù)據(jù)庫中建立一個用戶表，在里面保存用戶名稱和密碼，然后才能與用戶在窗口輸入的信息進行校驗。 （ 3）查詢、統(tǒng)計困難。 交通運輸學院課程設計 2 （ 4）根據(jù)查詢條件打印符合查詢條件的數(shù)據(jù)，并且能夠打印書目分類信息。 如果輸入名稱錯誤 （ 如下圖這樣） ，點擊登陸，系統(tǒng)將會提示。這個過程中所學到的 知識和所堅持下來的毅力，我將一生受用，我嘗到了自己動手，自己的事自己做的甜頭，真的很好，值得一生品味，一直自己也情不自禁地說了“ VB真是強大，以后再慢慢研究，編個益智游戲”。 If 0 Then If Trim(txtPassword) = (密碼 ).Value Then 交通運輸學院課程設計 29 (2).Text = 當前系統(tǒng)用戶： amp。 39。 39。 39。 amp。 39。 39。 39。 amp。 amp。 amp。 amp。 39。 Text13 amp。 Text3 amp。 ,39。,39。 Chr(35) amp。 amp。 39。 交通運輸學院課程設計 38 amp。 amp。 End If If 0 Then = (0) = (訂購日期 ) = (2) = (3) = (4) = (5) = (出版日期 ) = (7) = (8) = (9) = (10) = (11) = (12) = (13) = (14) End If On Error Resume Next If = Then = 0 = select * from lbtb where 類別代碼 = + + If 0 Then = (書籍類別 ) End If End Sub Sub clear() = = 交通運輸學院課程設計 40 = = = = = = = = = = = End Sub Private Sub Form_Unload(Cancel As Integer) = 0 End Sub Private Sub SSTab1_Click(PreviousTab As Integer) If = 1 Then = 1 = End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 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 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)