【正文】 ub Private Sub Command1_Click() Dim myval As String myval = MsgBox(是否驗收訂單！ , vbYesNo + vbOKOnly) If myval = vbYes Then (insert into rkb values(39。 order by 訂單號 If 0 Then = Val((訂單號 )) + 1 Else = temp1 + 0001 End If = select * from newtb where 是否驗收 =39。) (sql) MsgBox 數(shù)據(jù)保存成功 !, 64 = select * from newtb where 是否驗收 =39。,39。,39。 ,39。 Text6 amp。 Text5 amp。 Text3 amp。 DT1 amp。 amp。) (sql) MsgBox 數(shù)據(jù)保存成功 !, 64 = select * from newtb where 是否驗收 =39。,39。,39。 ,39。 Text6 amp。 Text5 amp。 Text3 amp。 DT1 amp。 amp。 Trim() amp。也由于 出于對知識的渴望，出于對未知的求知，我完成了這次課程設(shè)計，不過這只是成長道理上的一個小插曲，以后，更多的會來的，任重而道遠，“書山有路勤為徑，學(xué)海無涯苦作舟”。一切的一切，都凝結(jié)了我這個勞動人民的心血。為了解決這個問題，系統(tǒng)設(shè)計了一個超期提醒功能，即在選擇日期的同時，能夠顯示出所選日期、時間范圍內(nèi)所有借書超期和到期未還圖書信息。另外，為了區(qū)分驗收和未驗收的圖書，應(yīng)將驗收過的圖書信息標(biāo)記為“驗收”。 在庫存管理中。 五、設(shè)計時間 2021~2021 學(xué)年第二學(xué)期：第 1921周 共計 3周。設(shè)計的系統(tǒng)基本功能包括： （ 1）維護圖書館管理中的基礎(chǔ)信息，如書商、出版社、印刷廠的相關(guān)信息。 二、設(shè)計課題 圖書館管理系統(tǒng) 三、設(shè)計任務(wù) 本系統(tǒng)包括對書商和出版社等在內(nèi)的基礎(chǔ)數(shù)據(jù)管理、新書訂購管理、圖書借閱管理、圖書歸還管理、讀者續(xù)借圖書管理、圖書丟失管理、統(tǒng)計打印和系統(tǒng)管理等幾部分，通過將海量資源和信息管理系統(tǒng)進行有機的結(jié)合，可以讓讀者隨時隨地 地獲取知識。 （ 3）對讀者信息進行管理，同時還能夠管理讀者借書、還書、圖書續(xù)借等。 讀者 丟失 讀者賠書 讀者還書 是 否 圖書館 圖書查詢 讀者借書 庫存圖書 圖書入庫 開票 /付款 圖書分類統(tǒng)計 供應(yīng)商 圖書館管理系統(tǒng)業(yè)務(wù)流程圖 交通運輸學(xué)院課程設(shè)計 3 程序功能簡介 根據(jù)前面的功能分析 ， 應(yīng)用 Visual Basic 與 Access 數(shù)據(jù)庫相關(guān)知識和軟件的操作方法，設(shè)計實現(xiàn)一個圖書館管理系統(tǒng)， 實現(xiàn) 基礎(chǔ)數(shù)據(jù)維護、新書訂購管理、圖書借閱管理、統(tǒng)計打印、系統(tǒng)維護 5大功能。 實現(xiàn)了生成報表功能，該項功能的目的是為了使用戶能夠更直觀地、形象地了解該系統(tǒng)的主要信息、通過生成報表的形式，了解系統(tǒng)信息。 圖 22 系統(tǒng)自動與數(shù)據(jù)庫連接，出現(xiàn)下面界面： 交通運輸學(xué)院課程設(shè)計 16 圖 23 點 擊借出當(dāng)前圖書，出現(xiàn)下面界面： 圖 24 讀者還書管理 在讀者還書管理窗體中，通過輸入讀者編號和書籍的條碼號，利用文本框的交通運輸學(xué)院課程設(shè)計 17 LostFocus 事件下的語句在借書表（ dzjstb）中檢索該讀者借閱的圖書信息，如果檢索到數(shù)據(jù)，那么將其顯示在窗體上，然后通過 AddNew 方法保存還書記錄；通過 Update 方法更新借書信息和庫存圖書信息。因此一時有些膽怯，懷疑自己是否能夠順利完成這個任務(wù)，確實很像退縮，幾次打退堂鼓，但最后，也因為看到如此多同學(xué)在一絲不茍地為課程設(shè)計奉獻自己，我才認識我，自己也該好好做下自己的事了，只要 多一份堅持，多一份努力，再大的困難又怎么樣，有了解決困難，直面挫折的勇氣，沒有什么可怕的了。 圖書館管理系統(tǒng)這一課程設(shè)計的完成，有效的加強了我的基礎(chǔ)知識。 交通運輸學(xué)院課程設(shè)計 28 附件（程序源代碼） main_Startup 源代碼 Private Sub Timer1_Timer() Unload Me End Sub frmLogin 源代碼 Option Explicit Dim rs As New Private Sub Combo_Click() = End Sub Private Sub Combo_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Form_Load() = Dim rec Dim i As Integer select * from usertb, n, adOpenKeyset, adLockOptimistic rec = ReDim Asc(rec 1) For i = 1 To rec (名稱 ) Asc(i 1) = Val((密碼 )) If Then Exit For Next End Sub Private Sub labExit_Click() End End Sub Private Sub labLogin_Click() = select * from usertb where 名稱 =39。 amp。 amp。 amp。 amp。 amp。 amp。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 39。 39。 39。% + temp1 + %39。 amp。 39。 39。 amp。 amp。 Text9 amp。 Text12 amp。 If 0 Then (UPDATE newtb SET 是 否 驗 收 = 39。, n, adOpenKeyset, adLockOptimistic If 0 Then (復(fù)本數(shù) ) = (復(fù)本數(shù) ) + Val() Else (insert into books values(39。,39。, amp。 Text10 amp。 Text12 amp。 like + 39。 Chr(35) amp。 amp。 and amp。 and between amp。 ) Case Is = = select * from rkb where (rkb. amp。 and amp。 and between amp。 ) Case Is = = = select * from rkb where (rkb. amp。 and amp。 and between amp。 ) End Select End If = Counter Next Counter = = 0 End Sub Private Sub Command4_Click() = 0 Unload Me End Sub Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DTPicker2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DTPicker3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Form_Load() = = = select * from rkb = = select * from rkb 交通運輸學(xué)院課程設(shè)計 39 = = select * from newtb = lbtb, n, adOpenStatic, adLockOptimistic, adCmdTable If 0 Then End If If str = Then = select * from newtb Else = select * from newtb where 訂單號 =39。 = amp。 amp。 Text3 amp。,39。 DTPicker1 amp。 ,39。 amp。 交通運輸學(xué)院課程設(shè)計 45 If 0 Then x = Val(( 復(fù) 本 數(shù) )) + Val((借書數(shù)量 )) y = Val(( 借書數(shù)量 )) Val((借書數(shù)量 )) hs1 = update books set 復(fù)本數(shù) =39。where 條碼號 =39。 where 條碼號 =39。 交通運輸學(xué)院課程設(shè)計 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。 On Error Resume Next If 0 Then = (0) = (3) = (1) = (4) = (6) = (7) = (5) = (10) = (11) = If = Then = 0 Else