【正文】 b 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 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 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 訂單號(hào) =39。 amp。 amp。 = 39。 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 38 amp。 amp。 39。 amp。 amp。% + + %39。 Chr(35) amp。 Else = select * from rkb where amp。,39。,39。 ,39。 Text5 amp。 Text3 amp。, 復(fù) 本 數(shù) =39。 Text13 amp。 amp。 39。 39。 amp。 amp。 amp。039。 amp。 amp。 amp。 39。 39。 39。 39。 39。 39。 amp。 amp。 amp。 39。 39。 39。 39。 39。 39。 If 0 Then If Trim(txtPassword) = (密碼 ).Value Then 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 29 (2).Text = 當(dāng)前系統(tǒng)用戶(hù)： amp。以前，我并沒(méi)有太注意這些。這個(gè)過(guò)程中所學(xué)到的 知識(shí)和所堅(jiān)持下來(lái)的毅力，我將一生受用，我嘗到了自己動(dòng)手，自己的事自己做的甜頭，真的很好，值得一生品味，一直自己也情不自禁地說(shuō)了“ VB真是強(qiáng)大，以后再慢慢研究，編個(gè)益智游戲”。 圖書(shū)丟失管理 圖書(shū)丟 失管理主要對(duì)圖書(shū)館丟失的圖書(shū)進(jìn)行管理，通過(guò)輸入讀者編號(hào)和書(shū)籍的條形碼，檢索讀者丟失的圖書(shū)。 如果輸入名稱(chēng)錯(cuò)誤 （ 如下圖這樣） ，點(diǎn)擊登陸，系統(tǒng)將會(huì)提示。 為了更完善 地利用 圖書(shū)館管理系統(tǒng) ，方便查詢(xún)各種信息，設(shè)置了一個(gè)主頁(yè)面，通過(guò)單擊相應(yīng)的選項(xiàng)能夠?qū)崿F(xiàn)各種功能。 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 2 （ 4）根據(jù)查詢(xún)條件打印符合查詢(xún)條件的數(shù)據(jù)，并且能夠打印書(shū)目分類(lèi)信息。 （ 2）辦理圖書(shū)借閱與歸還的速度過(guò)慢。 （ 3）查詢(xún)、統(tǒng)計(jì)困難。 （ 5）維護(hù)系統(tǒng)數(shù)據(jù)，如添加操作員、修改操作員、更改操作員口令等。 設(shè)計(jì)實(shí)現(xiàn)用戶(hù)登錄窗口，需要在數(shù)據(jù)庫(kù)中建立一個(gè)用戶(hù)表，在里面保存用戶(hù)名稱(chēng)和密碼，然后才能與用戶(hù)在窗口輸入的信息進(jìn)行校驗(yàn)。 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 5 圖 2 圖 3 如果輸入密碼錯(cuò)誤， 系 統(tǒng)將提示 如下圖： 圖 4 當(dāng)名稱(chēng)和密碼都正確時(shí)，系統(tǒng)出現(xiàn)主界面： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 6 圖 5 新書(shū)訂購(gòu) 新書(shū)訂購(gòu) 在添加訂單信息時(shí)，圖書(shū)訂單號(hào)根據(jù)當(dāng)前系統(tǒng)日期和 4 位數(shù)字編碼自動(dòng)生成，在觸發(fā) [添加 ]按鈕的 Click 事件后，首先到數(shù)據(jù)庫(kù)中的 Newtb 數(shù)據(jù)表中檢索訂單號(hào)與當(dāng)前系統(tǒng)格式化后的日期（ yyyymmdd）字符串相同的記錄，如果有記錄，那么移到最后一條，這時(shí)“訂單號(hào)”為當(dāng)前系統(tǒng)日期和 4位數(shù)字編碼加 1 的組合；如果無(wú)記錄，那么“訂單號(hào)”為當(dāng)前系統(tǒng) 日期和“ 0001”的組合， 單擊主界面【訂購(gòu)新書(shū)】，出現(xiàn)如下新書(shū)訂購(gòu)界面： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 7 圖 6 該界面提供添加新書(shū)功能，如果正確輸入各信息，如下： 圖 7 點(diǎn)擊保存，出現(xiàn)以下界面： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 8 圖 8 通過(guò)以上方法生成的訂單號(hào)有一定的規(guī)律，并能夠看出圖書(shū)訂購(gòu)的日期 ， 如果 在 輸入信息不全或者輸入信息有誤 時(shí) ， 點(diǎn)擊保存， 將出現(xiàn)以下界面： 圖 9 此時(shí)若點(diǎn)擊刪除，出現(xiàn)以下界面： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 9 圖 10 庫(kù)存管理 庫(kù)存管理主要完成將采購(gòu)進(jìn)來(lái)的圖書(shū)進(jìn)行驗(yàn)收入庫(kù)，只有經(jīng)過(guò)驗(yàn)收的圖書(shū)才能正式入庫(kù)。如果圖書(shū)確認(rèn)丟失，那么使用 AddNew 方法保存丟書(shū)記錄，同時(shí)更新讀者借書(shū)信息和庫(kù)存信息。 在這些艱辛的日子里，我大量查閱了相關(guān)的資料和網(wǎng)張，在課程設(shè)計(jì)過(guò)程中，我懂得了很多人生的哲理，懂得怎樣去制定計(jì)劃，怎樣去實(shí)現(xiàn)這個(gè)計(jì)劃，并掌握了在執(zhí)行過(guò)程中怎樣去克服心理上的不良情緒，經(jīng)過(guò)自己的琢磨，還查閱了很多的書(shū)籍，才做到了心中有數(shù)，才了解 VB 程序設(shè)計(jì)的真正用途，培養(yǎng)自學(xué)能力，養(yǎng)成編程的好習(xí)慣，課程是主要培養(yǎng)學(xué)生綜合運(yùn)用所學(xué)知識(shí)、發(fā) 現(xiàn)、提出、分析和解決實(shí)際問(wèn)題和鍛煉實(shí)踐能力的重要環(huán)節(jié)，也是對(duì)學(xué)生實(shí)際工作能力的具體訓(xùn)練和考察過(guò)程，一段時(shí)間的實(shí)踐后，確實(shí)掌握了不少知識(shí)。通過(guò)這次課程設(shè)計(jì)之后，我認(rèn)為一定把以前學(xué)到的知識(shí)重新整理，認(rèn)真回顧下，這才會(huì)對(duì)以后的學(xué)習(xí)起到舉足輕重的作用。 (名稱(chēng) ).Value Unload Me Else MsgBox 密碼不正確！ , vbExclamation + vbOKOnly End If Else MsgBox 無(wú)此用戶(hù)或者密碼不正確！ , vbExclamation End If End Sub frmmain 源代碼 Private Sub mnucqtx_Click() 1 End Sub Private Sub mnudown_Click() 1 End Sub Private Sub mnuedit_Click() 1 End Sub Private Sub mnuexit_Click() End End Sub Private Sub mnufind_Click() Unload frmupdate = 1 (0) = open_i = 1 End Sub frmaddnew 源代碼 Dim rs1 As New Private Sub bo1_Click() = = = select * from lbtb where 書(shū)籍類(lèi)別 =39。 If 0 Then MsgBox 此條碼號(hào)已經(jīng)存在 !, vbCritical = select * from newtb Else select * from newtb where 訂單號(hào) =39。,39。,39。,39。,39。, amp。 Text10 amp。 Text12 amp。 temp amp。 If 0 Then MsgBox 此條碼號(hào)已經(jīng)存在 !, vbCritical = select * from newtb Else select * from newtb where 訂單號(hào) =39。,39。,39。,39。,39。, amp。 Text10 amp。 Text12 amp。 temp amp。 order by 訂單號(hào) 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 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 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 訂單號(hào) like 39。 Trim() amp。 DTPicker1 amp。 Text3 amp。,39。, amp。 Text10 amp。 )) Dim rs As New select * from rkb, n, adOpenKeyset, adLockOptimistic 39。 + + 39。 39。 39。 amp。 amp。 amp。 amp。 and amp。and between amp。 Chr(35) amp。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 + + 39。 amp。 Text1 amp。 amp。 39。 amp。 39。 amp。 39。 39。 39。 39。 + + 39。 amp。還 39。 amp。 39。 Text10 amp。 39。 Text8 amp。 amp。 Text2 amp。 39。 + + 39。 Chr(35) amp。 amp。 Chr(35) amp。 Chr(35) amp。 amp。 Chr(35) amp。 Chr(35) amp。 amp。 amp。 DTPicker4 amp。 + 39。 39。 39。 39。 amp。 amp。 + + 39。 + Text1 + 39。, amp。 , amp。 DTPicker2 amp。, amp。,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 S