【正文】 and 讀者編號 =39。 (js) MsgBox 還書成功！ , vbOKOnly Else On Error Resume Next End If End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub DTPicker3_Change() = If = Then = 0 Else = End If End Sub Private Sub Form_Load() = = select * from hsstb = = set rs = New select * from hsstb, n, adOpenStatic, adLockOptimistic = amp。 (hs1) End If End If js = update dzjstb set 借 =39。,借書數(shù)量 =39。 amp。, amp。 DTPicker2 amp。, amp。 ,39。 , amp。 amp。 If 0 Then = select * from rkb where 訂單號 =39。 and amp。 ) Case Is = = = select * from rkb where (rkb. amp。 and between amp。 and amp。 ) Case Is = = select * from rkb where (rkb. amp。 and between amp。 and amp。 ) Case Is = = = select * from rkb where (rkb. amp。 Chr(35) amp。 Chr(35) amp。 Combo3 amp。 Text13 amp。 Text11 amp。 Text9 amp。,39。,39。 where 訂單號 =39。 If 0 Then (0) = (1) = (2) = Text2 交通運輸學院課程設計 36 (3) = Text3 (4) = Text4 (5) = Text5 (6) = DTPicker2 (7) = Text6 (8) = Text7 (9) = (10) = Text9 (11) = Text10 (12) = Text11 (13) = Text12 (14) = Text13 MsgBox 驗收成功！ , vbInformation End If = select * from rkb = select * from newtb where 訂單號 =39。 39。 Text7 amp。 amp。 39。 39。 39。% + temp1 + %39。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 從此次課程設計中，給我留下最深印象的就是如果自己有了興趣，就趕緊著手去做，交通運輸學院課程設計 27 這種心境卻是是難能可貴的，也許，我這么做了，以后走更少的彎路，尋找更多的捷徑。 在不斷地是在借書，看書，上圖書館查閱資料，動手編輯中，我學會了運用 VB 解決實際工作的能力，圖書館管理系統(tǒng)設計了很多數(shù)據(jù)庫、數(shù)組控件、循環(huán)等很多方面的內容，符合設計的基本要求，實現(xiàn)了鐵路運輸設備的查詢功能，可以方便的查詢數(shù)據(jù)，實現(xiàn)了從系統(tǒng)中編輯數(shù)據(jù)記錄，包括保存、刪除、清除等，實現(xiàn)了生成報表的功能。 點擊【 借閱管理 】 — 【 圖書丟失管理 】，讀者編號和書籍的條形碼，出現(xiàn)下面界面 ： 交通運輸學院課程設計 18 圖 26 點擊丟失，出現(xiàn)下面界面： 交通運輸學院課程設計 19 圖 27 點擊確定，出現(xiàn)下面界面： 圖 28 點 確定，出現(xiàn)界面如下： 交通運輸學院課程設計 20 圖 29 丟失圖書查詢：輸入讀者編號，點擊查詢，出現(xiàn) 交通運輸學院課程設計 21 圖 30 圖書驗收報表 圖書館管理系統(tǒng)中的報表主要使用了 VB 中的數(shù)據(jù)環(huán)境設計器 Data Environment 和數(shù)據(jù)報表設計器 Data Report， 在圖書驗收報表打印的過程中，首先在圖書驗收報表窗體中根據(jù)訂購日期統(tǒng)計并查詢指定日期范圍內的圖書驗收信息，單擊 [打印 ]按鈕，即可打印查詢、統(tǒng)計后的圖書驗收信息， 如下操作： 交通運輸學院課程設計 22 圖 31 出現(xiàn) 圖書驗收報表如下： 圖 32 選擇訂購日期，點擊查詢，出現(xiàn)如下界面： 交通運輸學院課程設計 23 圖 33 點擊打印，則 生成報表： 圖 34 超期提醒 最后，相關經驗在開發(fā)圖書館管理系統(tǒng)的過程中，可能遇到這樣一個問題：如果在借完圖書之后，忘記了還書日期，那么就有可能造成所借 圖書超期。驗收新書的設計思路是：通過在驗收新書檢索窗體中輸入購進 新書的訂單號，從訂單表中提取未被驗收的數(shù)據(jù)，如果檢索到此訂單，那么該訂單的圖書信息將顯示在驗收入庫窗體中，數(shù)據(jù)驗證后，單擊該窗體上的 [保存 ]按鈕，將購進的新書信息保存到入庫信息表中，同時查詢庫存表中是否存在這種圖書，如果存在，那么更新該圖書的庫存數(shù)量；否則，將購進的新書信息保存到庫存表中。 可以從新書訂購窗體中編輯數(shù)據(jù)記錄，包括添加、保存、清除、刪除、退出 ，可以實現(xiàn)數(shù)據(jù)的各種編輯功能。 （ 5）維護系統(tǒng)數(shù)據(jù)，如添加操作員、修改操作員、更改操作員口令等。 為了解決以上問題，我們從讀者和圖書館的角度出發(fā)，本著以讀者借書、還書快捷方便和圖書館管理員管理圖書方便的原則，開發(fā)了圖書館管理系統(tǒng)。 四、設計要求 在各大省市圖書館和各大高校的圖書館當中，都普遍存在著這樣幾個共有的問題： （ 1） 圖書館管理員的工作內容重復、工作效率低、工作量大。如果有超期的圖書，還提供了超期提醒的功能，從而實現(xiàn)對讀者借閱圖書的相關事項進行管理的功能。 根據(jù)系統(tǒng)所要實現(xiàn)的功能設計 各個界面，利用 ADO 接口實現(xiàn) VB 與 Access 的連接，利用 mand、 connection、 recordset 實現(xiàn)對數(shù)據(jù)庫的操作，如果能夠直接顯示數(shù)據(jù)就算成功。 交通運輸學院課程設計 4 操作方法（流程）介紹 啟動 單擊 或者 【 運行 】 — 【 啟動 】 或者 F5，將運行圖書館管理系統(tǒng)，出現(xiàn)如下界面： 圖 1 用戶登錄 啟動界面過后就是用戶登錄界面， 該界面提供了對名稱和密碼的核對功能 。 點擊【 借閱管理 】 — 【 讀者還書管理 】讀者還書管理界面出現(xiàn)，如輸入信息 不 完整，出現(xiàn)下面界面： 圖 25 輸入正確信息后，再點擊歸還圖書，則成功歸還圖書。于是，就這樣，我堅持下來了，或者在機房，或者在寢室，或者背著笨重的筆記本找個舒適的地方，一天天，下來了，過去了，雖然天確實很熱，總汗流浹背的，交大的學生真的很苦，沒有空調，沒有風扇，只是這么干熱著，也真的很佩服自己，一直也想著，把設計做完了，得好好犒賞下自己，可當真正快完的時候，更多的是感激，感激同學的幫助，感激大家的鼓勵，我才堅持下來了，真的，“要功夫深，鐵杵磨成針”，深深地體會到了這句話的內涵。在設計的過程中，難免會遇到各種各樣的問題，我都會努力去克服這些困難，同時在設計的過程中發(fā)現(xiàn)了自己的不足之處，對以前所學過的知識理解得不夠 深刻，掌握的不夠牢固，在做設計的時候才發(fā)現(xiàn)自己的知識太凌亂，不夠系統(tǒng)，而且對很多知識點都是一知半解，沒有系統(tǒng)仔細地去挖掘，導致在做設計的時候出現(xiàn)了好多平時容易出現(xiàn)的小錯誤，一個很小的錯誤，也許會導致整個程序運行不出來。 + Trim(Combo) + 39。 amp。 Text1 amp。 Text2 amp。 Text4 amp。 DT2 amp。 Text7 amp。,39。,39。,39。 amp。 Text1 amp。 Text2 amp。 Text4 amp。 DT2 amp。 Text7 amp。,39。,39。,39。 order by 訂單號 If 0 Then = Val((訂單號 )) + 1 Else = temp1 + 0001 End If = select * from newtb where 是否驗收 =39。 (2).Text lbtb, n, adOpenStatic, adLockOptimistic, adCmdTable If 0 Then Do While = False (書籍類別 ) If Then Exit Do Loop End If clear = Date Set = Adodc2 End Sub 交通運輸學院課程設計 34 Sub clear() = : = : = : = : = : = : = : = : = : = : = : = 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 Text3_LostFocus() If Not IsNumeric() Then Exit Sub Else MsgBox 書籍名稱不能為數(shù)字 , vbInformation = End If 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 P