【正文】 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 IssueTag amp。 amp。 amp。 amp。, MyConnection) MyReader = () While temp = MyReader(UserID) End While () () () If temp = Then 24 Return True Else If temp Then Return False End If End If End Function (2)要實現(xiàn) 書籍信息 管理 應(yīng)首先點擊圖書管理主菜單如下： 然后單擊添加圖書信息，其窗體如下： 該窗口的功能是為用戶添加圖書信息而設(shè)計的，用戶可以通過本窗口把圖書的詳細(xì)資料添加到圖書信息庫中。,39。,39。,39。,39。,39。 23 代碼如下： Private Sub BtOK_Click(ByVal sender As , ByVal e As ) Handles If Trim() = Then displayMsg(輸入的用戶編號不能為空！ ) Exit Sub End If If Trim() = Then displayMsg(輸入的用戶姓名不能為空！ ) Exit Sub End If If Trim() = Then displayMsg(輸入的密碼不能為空！ ) Exit Sub End If If checkIfAlreadyExists() = True Then displayMsg(用戶編號已經(jīng)存在請重新輸入！ ) Exit Sub Else addUser() displayMsg(用戶信息已被成功添加到數(shù)據(jù)庫！ ) End If End Sub Sub addUser() () MyCommand = New OleDbCommand(INSERT INTO SystemUsers VALUES(39。 39。MenuItem35 39。 = 1 = 水平平鋪 39。 39。MenuItem8 39。 = 5 = 借閱書籍 39。 39。MenuItem14 39。 = 2 = 解凍用戶 39。 39。MenuItem13 39。 = 0 (New () {, , }) = 添加書籍參數(shù) 39。 39。 代碼如下： Public Class frm_MainInterface Inherits Dim myFrm Region Windows Form Designer generated code Public Sub New() () 39。 VB 是極有和功能強(qiáng)大的軟件，主要表現(xiàn)在：所見即所得的界面設(shè)計，基于對象的設(shè)計方法，極短的軟件開發(fā)周期，較易維護(hù)的生成代碼。多用戶系統(tǒng)的工作流程都從用戶登陸模塊開始的，對多用戶的身份進(jìn)行認(rèn)證。圖書管理模塊可實現(xiàn)以下功能： 1．系統(tǒng)管理員 ? 添加書籍參數(shù) ? 用戶信息管理碼 ? 解凍用戶 ? 修改密碼 ? 添加書籍類別 ? 查找書籍類別 ? 編輯書籍類別 ? 刪除書籍信息 ? 今日借閱查詢 ? 借閱書籍 ? 歸還書籍 3． 讀者 信息 管理 為了方便對讀者 的管理，需要對讀者的類別和信息加予管理。 （ 6） 借閱信息表 說明：該表詳細(xì)紀(jì)錄了圖書的借閱情況。 為減少數(shù)據(jù)冗余，簡化修改數(shù)據(jù)的過程，實現(xiàn)對數(shù)據(jù)進(jìn)化規(guī)范化 。誰擁有了更多更有效的信息，誰就將在競爭中處于有利地位。 （ 6） 運(yùn)行和維護(hù)階段 這是整個設(shè)計周期最長的階段，其工作重點是收集和記錄系統(tǒng)實際運(yùn)行的數(shù)據(jù)。 2 數(shù)據(jù)庫系統(tǒng)設(shè)計 數(shù)據(jù)庫設(shè)計概述 計算機(jī)信息系統(tǒng)以數(shù)據(jù)庫為核心，在數(shù)據(jù)庫管理系統(tǒng)的 支持下，進(jìn)行信息的收集、整理、存儲、檢索、更新、加工、統(tǒng)計和傳播等操作。在 這種 形勢 下 ，書 籍 就漸 漸 地成 為人 們獲 取 并增 長知 識 的主 要途 徑 ，而 圖書 館 就自 然而 然地 在 人們的 生活 中 占據(jù) 了一 定的 位 置， 如何 科 學(xué)地 管理 圖 書館 不但 關(guān) 系到 讀者 求知 的 方便 程 度， 也 關(guān)系 到圖 書館 的 發(fā)展 ，因 此 ，開 發(fā)一 套 完善 的圖 書 館管 理系 統(tǒng)就 成 不可 少了 ，本 文介 紹了 在 Mic ros oft Vis ual S tudio 2021 環(huán) 境 下采 用“ 自上 而下 地總 體規(guī) 劃 ，自 下 而上 地應(yīng) 用開 發(fā) ”的 策略 開 發(fā)本 系統(tǒng) 的 詳細(xì) 過程 ， 提出 實現(xiàn) 圖書 館 信息 管 理、 資 源共 享的 基本 目 標(biāo)， 從而 推 動邁 向數(shù) 字 化圖 書館 的 步伐 ，并 闡述 系 統(tǒng)結(jié) 構(gòu) 設(shè)計 和 功能 設(shè)計 ，從 圖 書的 入庫 登 記到 查詢 瀏 覽， 從借 書 證發(fā) 放到 圖書 的 借閱 ， 形成 了 一個 整體 自動 化 管理 模式 ， 從軟 件工 程 的角 度進(jìn) 行 了科 學(xué)而 嚴(yán) 謹(jǐn)?shù)年U述。圖 12 是一個數(shù)據(jù)庫系統(tǒng)的 3 簡圖。 （ 4） 程序編制階段 以一種或幾種特定的程序設(shè)計語言表達(dá)上一階段確定的各模塊控制流程。自從 1992 年開始銷售以來， Access 已經(jīng)賣出了超過 6000萬份，現(xiàn)在它已經(jīng)成為世界上最流行的桌面數(shù)據(jù)庫管理系統(tǒng)。 我們的系統(tǒng)是按用戶的需求進(jìn)行數(shù)據(jù)庫定義、存取、運(yùn)行、建立和維護(hù)功能，系統(tǒng)的數(shù)據(jù)庫定義模型圖： 數(shù)據(jù)庫定義模 型圖 數(shù)據(jù)庫概要設(shè)計 軟件系統(tǒng)本質(zhì)上是信息處理系統(tǒng)，因此，在軟件系統(tǒng)的整個開發(fā)過程中都必須考 5 慮兩方面的問題 —— “數(shù)據(jù)”及對數(shù)據(jù)的“處理”。 （ 3） 圖書 類別表 7 說明：該表規(guī)定了讀者的類別 。如要對很長時間以前的圖書進(jìn)行更改就更加困難了。 Admin 用戶可以創(chuàng)建用戶、修改用戶信息以及刪除用戶；普通用戶則只能修改自 己的用戶名和密碼。本系統(tǒng)的流程分析如圖如下： 系統(tǒng)流程分析圖 進(jìn)入系統(tǒng)后，不同類型的用戶所能進(jìn)行的操作也不同。 amp。NOTE: The following procedure is required by the Windows Form Designer 39。 = 0 (New () {, , , }) = 系統(tǒng)管理員 39。MenuItem12 39。 39。 = 2 = 刪除用戶信息 39。MenuItem7 39。 39。 = 4 = 今日借閱查詢 39。MenuItem2 39。 39。 = 0 = 窗體層疊 39。MenuItem39 39。 39。 = New (6, 14) = = CType(($), ) = = New (842, 511) = CType(($), ) = True = = frm_MainInterface = = 圖書管理系統(tǒng) (False) End Sub End Region Private Sub MenuItem11_Click(ByVal sender As , ByVal e As ) Handles myFrm = New frm_AddBookType = Me () End Sub Private Sub MenuItem12_Click(ByVal sender As , ByVal e As ) Handles myFrm = New frm_AddNewBookCode = Me () End Sub Private Sub MenuItem13_Click(ByVal sender As , ByVal e As ) Handles myFrm = New frm_AddNewCharges = Me () End Sub Private Sub MenuItem15_Click(ByVal sender As , ByVal e As ) myFrm = New frm_UnlockUser = Me () End Sub 20 Private Sub MenuItem16_Click(ByVal sender As , ByVal e As ) myFrm = New frm_ChangePassword = Me () End Sub Private Sub MenuItem27_Click(ByVal sender As , ByVal e As ) myFrm = New frm_ChangePassword = Me () End Sub Private Sub MenuItem17_Click(ByVal sender As , ByVal e As ) Handles End Sub Private Sub MenuItem21_Click(ByVal sender As , ByVal e As ) myFrm = New frm_AddNewBook = Me () End Sub Private Sub MenuItem22_Click(ByVal sender As , ByVal e As ) myFrm = New frm_FindBook = Me () End Sub Private Sub MenuItem26_Click(ByVal sender As , ByVal e As ) myFrm = New frm_EditBookDetails = Me () End Sub Private Sub MenuItem24_Click(ByVal sender As , ByVal e As ) myFrm = New frm_ReaderDetails = Me () End Sub Private Sub MenuItem25_Click(ByVal sender As , ByVal e As ) 21 myFrm = New frm_EditReaderDetails = Me () End Sub Private Sub Menu