【正文】 rivate Sub Text10_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 35 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 frmupdate 源代碼 Dim rs1 As New Dim rs2 As New Private Sub bo1_Click() = select * from lbtb where 書(shū)籍類別 =39。,39。,39。 Text5 amp。 Text6 amp。 ,39。 , amp。139。 amp。 amp。 amp。 39。 39。% + + %39。 DTPicker3 amp。 like 39。 Chr(35) amp。 Chr(35) amp。 amp。 Chr(35) amp。 Chr(35) amp。 amp。 Chr(35) amp。 Chr(35) amp。 + str + 39。 amp。 39。 39。 amp。 39。 amp。 39。 amp。 amp。 amp。 amp。借 39。還 39。039。 39。 + + 39。 amp。 Text9 amp。 amp。 39。 amp。 amp。借 39。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 + + 39。 Chr(35) amp。 Chr(35) amp。 + + 39。 39。 ElseIf = 1 And = 1 Then Select Case Case Is = Like = select * from rkb where(rkb. amp。 End If ElseIf = 0 And = 1 Then = select * from rkb where 訂購(gòu)日期 between amp。 amp。 amp。 amp。 39。 39。 + Text3 + 39。039。 , amp。 , amp。,39。 ,39。 Text2 amp。 Text1 amp。 order by 訂單號(hào) Set = Adodc2 clear End Sub Private Sub Form_Load() = amp。 order by 訂單號(hào) End If End If End If End Sub Private Sub Command2_Click() 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 32 clear End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() If = False Then c = MsgBox(您確認(rèn)要?jiǎng)h除該記錄嗎 ?, 17) If c = vbOK Then Unload Me End If Else MsgBox 當(dāng)前數(shù)據(jù)庫(kù)中已經(jīng)沒(méi)有可刪除的記錄 , 64 End If End Sub Private Sub Command5_Click() clear Dim temp1 temp1 = Format(Now, yyyymmdd) = select * from newtb where 訂單 號(hào) like 39。 Text13 amp。 Text11 amp。 Text9 amp。,39。,39。,39。,39。, n, adOpenKeyset, adLockOptimistic If 0 Then MsgBox 訂單號(hào)已存在！ , vbInformation Else Dim sql, temp As String temp = 0 sql = insert into newtb values(39。 order by 訂單號(hào) End If 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 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 條碼號(hào) =39。 Text13 amp。 Text11 amp。 Text9 amp。,39。,39。,39。,39。, n, adOpenKeyset, adLockOptimistic If 0 Then MsgBox 訂單號(hào)已存在！ , vbInformation Else Dim sql, temp As String temp = 0 sql = insert into newtb values(39。 If 0 Then 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 30 = (0) = (2) End If End Sub Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Command11_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 條 碼 號(hào) =39。 最后，從這次課程設(shè)計(jì)中，本人對(duì) VB和 Access 數(shù)據(jù)庫(kù)有了更深入的理解和領(lǐng)悟，同時(shí)也看到了不起眼的紅蜻蜓抓圖精靈作用不可小覷，我更堅(jiān)定地認(rèn)識(shí)到 VB 在以后學(xué)習(xí)中的重要性，這將是我受益終生。都給我們提供了很好的資料，就等著我們?nèi)ゲ檎液屠?，從這次圖書(shū)館管理系統(tǒng)設(shè)計(jì)中我也收獲了很多，了解了圖書(shū)管理員的一些工作，也讓我進(jìn)一步對(duì) VB 及其數(shù)據(jù)庫(kù)有了深一步的了解，學(xué)到了太多太多，受益匪淺。 回想這三周的學(xué)習(xí)與設(shè)計(jì)，有苦有甜，苦的是，之前學(xué)過(guò)的關(guān)于 VB 和數(shù)據(jù)庫(kù)的知識(shí)都忘得差不多了，感覺(jué)學(xué)的東西很少，很零散，不知該怎么練到一起，做課程設(shè)計(jì)，是不是太難為我們了。當(dāng)用戶輸入讀者編號(hào)和借閱圖書(shū)的條形碼時(shí)，通過(guò)文本框 TextBox 的 LostFocus 事件下的語(yǔ)句檢索讀者信息和其借閱圖書(shū)的信息；通過(guò) AddNew 方法保存借閱信息 ，讀者借書(shū)管理界面，如下： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 15 圖 21 如下圖，輸入讀者編號(hào)，姓名，借閱圖書(shū)條碼號(hào)。 實(shí)現(xiàn)了 讀者借書(shū)管理、讀者還書(shū)管理、圖書(shū)丟失管理、超期提醒各種必要功能。 設(shè)計(jì)報(bào)告包括：課題簡(jiǎn)介、功能要求、設(shè)計(jì)思路、各功能模塊（或子程序）描述、各功能的實(shí)現(xiàn)方法、重點(diǎn)難點(diǎn)設(shè)計(jì)方法、軟件運(yùn)行方法、設(shè)計(jì)小結(jié)等。 （ 2）管理訂購(gòu)新書(shū)信息，驗(yàn)收訂 購(gòu)的新書(shū)信息，查詢并檢索庫(kù)存圖書(shū)信息。交通運(yùn)輸學(xué)院課程設(shè)計(jì) 1 《圖書(shū)館管理系統(tǒng)》課程設(shè)計(jì)任務(wù)書(shū) 一、設(shè)計(jì)目的 1．學(xué)習(xí)和鞏固 VB程序設(shè)計(jì)的方法（面向過(guò)程的程序設(shè)計(jì)方法和面向?qū)ο蟮某绦蛟O(shè)計(jì)方法），充分體會(huì) VB在程序設(shè)計(jì)方面的強(qiáng)大功能和獨(dú)特之處； 2．了解用 VB開(kāi)發(fā)項(xiàng)目的一般過(guò)程，培養(yǎng)運(yùn)用 VB解決實(shí)際問(wèn)題的工作能力。此外，還可以維護(hù)圖書(shū)類別信息。 六、設(shè)計(jì)成果 經(jīng)調(diào)試成功的源程序和 EXE 文件，設(shè)計(jì)報(bào)告?？梢詫?shí)現(xiàn)對(duì)圖書(shū)的驗(yàn)收入庫(kù)、入庫(kù)查詢，對(duì) 照輸入邊框上的提示信息，依次輸入，就可以實(shí)現(xiàn)相應(yīng)的功能。 按下面圖 單擊【庫(kù)存管理】 — 【圖書(shū)驗(yàn)收入庫(kù)】 將出現(xiàn)檢索訂單界面： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 10 圖 11 圖 12 如果該 訂單號(hào)不能從訂單表中提取未被驗(yàn)收的數(shù)據(jù) ， 即 出現(xiàn) 下面界面： 圖 13 如果該訂單號(hào)已被驗(yàn)收入庫(kù)，出現(xiàn)下面提示： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 11 圖 14 如果輸入的訂單號(hào)（ 202107180004），能從訂單表中提取未被驗(yàn)收的數(shù)據(jù)，則出現(xiàn)下面界面： 圖 15 點(diǎn)擊保存，出現(xiàn)下面界面： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 12 圖 16 點(diǎn)擊是，出現(xiàn)如下界面： 圖 17 點(diǎn)擊【庫(kù)存管理】 — 【入庫(kù)查詢】，出現(xiàn) 界面 如下： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 13 圖 18 該界面提供了通過(guò)單一的“訂單號(hào)”、“訂購(gòu)人”、“書(shū)籍名稱”、“作者”、“出版社”對(duì)書(shū)目的查找或“訂購(gòu)日期”的查找，同時(shí)也滿足它們之間的組合查找 ， 選中方法前的 復(fù)選框（如果不選中，系統(tǒng)將自動(dòng)提示），填好信 息 后，單擊【查詢】，可顯示查詢信息，結(jié)果如下圖： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 14 圖 19 選擇組合查找時(shí)，下面為正在查找的界面： 圖 20 讀者借書(shū)管理 在讀者借書(shū)管理中，通過(guò)讀者編號(hào)和圖書(shū)條形碼確定讀者所借閱的圖書(shū)信息。 點(diǎn)擊【 借閱管理 】 — 【 超期提醒 】 ，出現(xiàn)界面 如下： 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 24 圖 35 單擊【每日到期】，則出現(xiàn)以下： 圖 36 交通運(yùn)輸學(xué)院課程設(shè)計(jì) 25 【參考文獻(xiàn)】 Basic程序設(shè)計(jì)教程 作 者：劉瑞新 等主編 出 版 社：電子工業(yè)出版社 出版時(shí)間： 20218 isual BASIC+Access數(shù)據(jù)庫(kù)項(xiàng)目開(kāi)發(fā)實(shí)踐（附 CDROM光盤(pán)一張） 作 者： 周國(guó)民 編著 出 版 社： 中國(guó)鐵道出版社 出版時(shí)間： 202111 B數(shù)據(jù)庫(kù)程序設(shè)計(jì)實(shí)驗(yàn)指導(dǎo) 作 者： 劉白林 主編 出 版 社： 西安交通大學(xué)出版社 出版時(shí)間： 202131 isual Basic+Access 數(shù)據(jù)庫(kù)開(kāi)發(fā)與實(shí)例（含光盤(pán)） 作 者： 劉文濤 編著 出 版 社： 清華大學(xué)出版社 出版時(shí)間： 202171 Access數(shù)據(jù)庫(kù)教程 作 者： 劉文濤 編著 出 版 社： 清華大學(xué)出版社 出版時(shí)間： 202171