【導讀】隨著計算機技術的不斷發(fā)展,計算機作為知識經濟時代的產物,已被廣泛應用于社會各個行業(yè)和領域?目前,我國的科技水平高速發(fā)展,計算。—信息社會的重要支柱?在這樣的大背景下,現代圖書館的管理方式,資源建設等。方面都發(fā)生了重大變化,這種變化表現在圖書館工作,管理和服務平臺發(fā)生的變化,圖書館不再是傳統(tǒng)的手工操作,人工管理,而是全面實行計算機管理?產生的借書信息,因此要對讀者資源,圖書資源,借書信息進行管理?以適應新時代發(fā)展的需要?VB的DAO數據訪問對象,DATA控件和ADO控件來實現數據庫的操作?能夠實現以下任務:用戶分級權限操作?本系統(tǒng)經過測試,運行穩(wěn)定,可投入使用?件開發(fā)奠定了堅實的理論基礎?圖書借閱管理系統(tǒng)的發(fā)展歷史可以追溯到20世紀60年代末期?知識經濟時代的到來,使個人?閱管理系統(tǒng)的出現成為必然?第三代圖書借閱管理系統(tǒng)的特點是從圖。戰(zhàn)略的角度來考慮圖書借閱規(guī)劃和政策?非常迅速,眾多的軟件有如雨后春筍般地不斷涌現?

　　

【正文】 B 以上 硬盤 20GB 40GB 以上 顯示器 VGA 以上 操作系統(tǒng) :Windows 2021 或 Windows XP 中文版 編程軟件和數據庫 :Visual 中文版 +Access2021 中文版 用戶名 文本 10 密碼 文本 10 權限 文本 10 33 第五章 圖書借閱系統(tǒng)的實現 模塊設計舉例 : 一 ?建立公共模塊 運行 VisualBasic 后 ,選擇 “ 文件 ”→“ 新建工程 ” 菜單 ,然后從工程模板中選擇 “ 標準 EXE” 項 ,單擊 “ 確定 ” 按鈕 ?VisualBasic就會自動生成一個窗體 ,這個窗體的屬性采用的都是默認設置 ?在這個實例中 ,先刪除這個窗體 ,然后選擇 “ 文件 ”→“ 保存工程 ” 菜單 ,在出現的 “ 文件另存為 ” 對 話 框 中 輸 入 這 個 工 程 項 目 的 名 稱“book”, 并且選擇要保存這個工程的目錄 ,單擊 “ 保存 ” 按鈕 ,保存工程 ? 為了提高代碼的效率方便維護 ,在 VisualBasic 中可以用公用模塊來存放工程中經常使用的函數 ?過程和全局變量等 ?在這個系統(tǒng)中 ,每個功能模塊都要使用數據庫 ,因此可以使用一個公用有數據操作函數 ,來執(zhí)行一系列的 SQL 語句 ? 在 項 目 資 源 管 理 器 中 為 這 個 工 程 添 加 一 個 模 塊 , 保 存 為. 代碼如下 : Option Explicit Public conn As New 39。標記連接對象 Public select_menu As String 39。標記所選擇的菜單 Public userID As String 39。標記當前用戶 ID Public userpow As String 39。標記用戶權限 Public book_num As String 39。要借的書的編號 二 ?登錄窗體 : 1?界面及最終運行效果如圖 51 34 圖 51 用戶可輸入系 統(tǒng)管理員的用戶名 ,如 “aa”, 然后輸入 密碼 ,系統(tǒng)對輸入的用戶名及相應的密碼進行校驗 ?具體流程圖如下圖所示 : 圖 52 密碼驗證流程圖 3?有關代碼如下 : Private Sub Command1_Click() Dim sql As String Dim rs_login As New If Trim() = Then 39。判斷輸入的用戶名是否為空 開 始 提示登錄本程序 輸入用戶密碼 調用密碼檢測子程序 進入圖書借閱管理系統(tǒng) 顯示錯誤 35 MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where 用戶名 =39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶 , vbOKOnly + vbExclamation, Else 39。檢驗密碼是否正確 If Trim((1)) = Trim() Then userID = userpow = (2) Unload Me Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If t = t + 1 If t = 3 Then Unload Me End If Exit Sub End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim connectionstring As String connectionstring = provider=。 amp。 _ data source= connectionstring t = 0 End Sub 三 ?系統(tǒng)運行主界面 : 36 圖 53 四 ?借書 1?首先進行館藏圖書的查詢 (具體界面的設置見圖 53): 37 圖 54 然后單擊命令按鈕 “ 借這本書 ”, 若這本書已被借出 ,則彈出如下的對話 框 : 圖 55 否則進入到 “ 借書 ” 界面 : 38 圖 56 2?有關代碼如下 : a?館藏圖書查詢表單的有關代碼 : Option Explicit Dim panduan As String Private Sub Command1_Click() Dim rs_findbook As New Dim sql As String If = vbChecked Then sql = 書名 =39。 amp。 Trim( amp。 ) amp。 39。 End If If = vbChecked Then If Trim(sql) = Then sql = 類別 =39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 書名 =39。 amp。 Trim( amp。 ) amp。 39。 End If End If If = vbChecked Then If Trim(sql) = Then sql = 作者 =39。 amp。 Trim( amp。 ) amp。 39。 39 Else sql = sql amp。 and 作者 =39。 amp。 Trim( amp。 ) amp。 39。 End If End If If = vbChecked Then If Trim(sql) = Then sql = 出版社 =39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 出版社 =39。 amp。 Trim( amp。 ) amp。 39。 End If End If If = vbChecked Then If Trim(sql) = Then sql = 書籍編號 =39。 amp。 Trim( amp。 ) amp。 39。 Else sql = sql amp。 and 書籍編號 =39。 amp。 Trim( amp。 ) amp。 39。 End If End If If Trim(sql) = Then MsgBox 請選擇查詢方式 !, vbOKOnly + vbExclamation Exit Sub End If sql = select * from 書籍信息 where amp。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rs_findbook 39。 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() If Trim(book_num) = Then MsgBox 請選擇要借閱的圖書 !, vbOKOnly + vbExclamation Exit Sub End If If panduan = 是 Then 40 MsgBox 此書已被借出 !, vbOKOnly + vbExclamation Exit Sub End If End Sub Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = (0).CellValue() panduan = (7).CellValue() End Sub Private Sub Form_Load() Dim rs_find As New Dim sql As String sql = select * from 圖書類別 sql, conn, adOpenKeyset, adLockPessimistic If Not Then Do While Not (0) Loop = 0 End If End Sub b?借書表單的有關代碼 : Private Sub Command1_Click() Dim rs_borrowbook As New Dim sql As String sql = select * from 讀者信息 where 讀者編號 =39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic leibie = (3) shumu = (8) sql = select * from 讀者類別 where 種類名稱 =39。 amp。 leibie amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic qixian = (2) maxnum = (1) If shumu = maxnum Then 41 MsgBox 該讀者借書數額已滿 !, vbOKOnly + vbExclamation Exit Sub End If sql = select * from 借閱信息 sql, conn, adOpenKeyset, adLockPessimistic (1) = (2) = (3) = (4) = (5) = Date (6) = DateAdd(Ww, qixian, Date) sql = select * from 書籍信息 where 書籍編號 =39。 amp。 book_num amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic (7) = 是 sql = select * from 讀者信息 where 讀者編號 =39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic (8) = (8) + 1 MsgBox 本書借閱成功 !, vbOKOnly + vbExclamation Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim rs_borrow As New Dim rs_reader As New Dim sql As String sql = select * from 書籍信息 where 書籍編號 =39。 amp。 book_num amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic = (0) = (1) = (2) = (3) 42 = (4) = (5) = (6) sql = select * from 讀者信息 sql, conn, adOpenKeyset, adLockPessimistic If Not Then Do While Not (1) (0) Loop Else MsgBo