企業圖書館管理系統分析與設計

◎孟洋

企業圖書館管理系統分析與設計

◎孟洋

本文運用VB6.0軟件，從開發工具的介紹、系統分析、系統設計等三個層面，對企業圖書館管理系統進行設計開發，增強多條件檢索、模糊查詢、借還圖書自動管理功能，使得企業的圖書管理邁向科學化、正規化管理。

當前，對于一些企業來講，多數都有自己的圖書館或資料室。然而，有很多的圖書館尚未使用計算機進行信息管理。管理的主要方式是基于文本、表格等紙介質的手工處理，對于圖書借閱情況的統計和核實等往往采用對借書卡的人工檢查進行，數據信息處理工作量大，容易出錯。為此，創新信息管理手段，有效配置系統資源，顯得尤為迫切而重要。

開發工具介紹

在VisualBasic環境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用Windows內部的應用程序接口(API)函數，以及動態鏈接庫(DLL)、動態數據交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數據訪問(ODBC)等技術，可以快速地開發出Windows環境下功能強大、圖形界面豐富的應用軟件系統。SQLServer企業管理器提供了一個遵從MMC標準的用戶界面，使用戶得以定義SQLServer實例組，為每個已注冊的服務器配置所有SQLServer選項，通過喚醒調用SQL查詢分析器，交互設計并測試SQL語句、批處理和腳本。

系統分析

可行性分析。對于一般企業來說，藏書量不是很大，不像專業的圖書館，有著健全的編碼設置等，因此本系統可以定位為小型的管理系統。作為一個小型的管理系統，其開發費用相對較低，并且對系統軟、硬件及開發人員自身的技術水平要求相對較低，硬件資源要求能夠運行VB6.0和SQLServer2000的計算機，目前大多數企業中現有的配置大多能支持。

應用需求分析。對于大多數企業圖書館管理人員來說，系統管理員首先分配普通管理員權限，完成其帳戶密碼的設置。設置好類別后可以根據一定條件，如職稱等級等把企業內部所有職工的基本信息錄入，包括編號，姓名，性別，電話，部門，住址等，以便日后管理。當讀者選好要借閱的圖書時，管理人員輸入圖書編號和讀者編號，確定借書。當讀者還書時判斷是否超期，如果超期則進行相應的罰款，如果圖書丟失，則根據讀者補償方式確定是否需要修改數據庫中圖書信息。

系統設計

數據庫設計。用戶的需求具體體現在各種信息的提供，保存，更新和查詢，這就要求數據庫結構能充分滿足各種信息的輸入和輸出。針對一般企業圖書館管理系統的需求，設計如下所示的數據項和數據結構：書籍信息：書籍編號，書籍名稱，作者，出版社，等。讀者信息：讀者編號，姓名，性別，讀者種類等。讀者類別信息：類別編號，類別名稱，最大借閱數，等書籍類別信息：類別編號，類別名稱，關鍵詞，備注等。借閱信息：借閱信息編號，書籍名稱，讀者姓名，借書日期，還書日期等。

數據庫概念結構設計。根據上面的設計規劃出的實體有：讀者類別信息實體、讀者信息實體、書籍類別信息實體、書籍信息實體、借閱信息實體。各個實體具體的描述E-R圖如下:

實體之間相互關系的E-R圖如下:

數據庫邏輯結構設計?，F在將上面的數據庫概念結構轉化為SQLServer2000數據庫系統所支持的實際數據模型，也就是數據庫的邏輯結構。企業圖書館管理系統數據庫中各個表格的設計結果如下面表格所示，每個表表示在數據庫中的一個表。

Readertype讀者種類信息表：

各個功能模塊的詳細設計

登陸界面設計

系統啟動后，將出現登陸窗體，用戶需輸入用戶名和密碼。本窗體是為了讓圖書館管理員和系統管理員按照用戶名和密碼進行登錄，以分辯是否具有合法權限及權限大小。

當用戶輸入完用戶名和密碼后，單擊cmdok按鈕將對用戶信息進行判斷。當輸入為空時將出現消息框提示輸入；如果輸入用戶名在用戶表中沒有，則提示重輸，文本框txtusername將重新獲得輸入焦點。如果密碼不正確，則文本框txtpassword將重新獲得焦點。當登陸用戶為系統管理員時，用戶登陸成功后，則出現主窗體，并賦予所有的操作權限，當登陸用戶為一般用戶時，登陸成功后出現的主窗體中用戶管理項為灰色，不可用，限制其用戶管理部分的權限。如果三次輸入都錯誤，則自動退出系統。

系統主窗體的設置

主窗體菜單創建：在主窗體中，單擊右鍵，選擇menudeitor,創建菜單結構。在主窗體中加入狀態欄控件，可以實時反映系統中的各個狀態的變化。選中狀態欄控件，單擊鼠標右件，選中Property菜單，然后設置屬性。面板1用來顯示各種文本信息，面板2用來顯示當前日期，面板3用來顯示當前時間。在主窗體中，單擊鼠標右件，選中MenuEditor,創建表單結構，為了使用方便，再創建一些快捷按鈕。

系統用戶管理模塊的創建：該模塊只對系統管理員開放，包括添加用戶，修改用戶密碼和刪除用戶功能。在添加用戶窗體中放置了3個文本框，用來輸入用戶名和密碼。用戶需要兩次輸入密碼，用來確保輸入密碼的正確。當輸入不一致時系統會提示，相關代碼如下:

IfTrim(Texti(1). Text)<＞Trim(Texti(2).Text)Then

MsgBox"兩次輸入密碼不一樣，請確 認！",vbOKOnly+vbExclamation,"警告"

Texti(1).SetFocusText1(1).Text=""

Texti(2).Text=""

ExitSub

修改用戶密碼窗體中，當單擊cmdOK按鈕是，將觸發click事件，代碼如下:

PrivateSubcmdOK_Click()

DimtxtSQL,MsgTextA sStringDimmrcAsADODB. RecordsetIfTrim(Text1(1). Text)<＞Trim(Text1(2).Text)Then

MsgBox"密 碼 輸 入 不 正 確！",vbOKOnly+vbExclamation,"警告"

Text1(1).SetFocus

Text1(1).Text=""

Else

txtSQL="select＊fromuser_ Infowhereuser_ID='"&Text2.Text&"…

Setmrc=ExecuteSQL(txtSQL,Msg Text)mrc.Fields(1)=Trim(Text1(1).Text) mrc.Updatemrc.Close

MsgBox"密 碼 修 改 成 功！",vbOKOnly+vbExclamation,"修改密碼"

Me.HideEndIf

EndSub

當管理員要暫時退出或更換管理員時可以選擇注銷，之后重新登陸，以確保安全，代碼為

PrivateSubCommand5_Click()

PrivateSubexit1_Click()

IfMsgBox("你 確 定 要注 銷 嗎？",vbInformation+vbOKCancel,"注銷"）=vbOKThenUnloadMe

DimfLoginAsNewfrmLoginfLogin. ShowvbModalIfNotfLogin.OKThen

'LoginFailedsoexitappEndEndIf

UnloadfLoginIffLogin. OKThenfMainForm.ShowEndIf EndIfEndSub

由于各個企業基本情況不同，因此其使用者的具體需求也有所變化。而且隨著企業的發展，還存在著對軟件一些擴展功能的需求，這就需要系統管理員不斷的對系統實行維護工作。除了矯正系統原來開發時可能存在的不足，還要根據實際情況設置改進系統以使其能更好的運用。

（作者單位：秦皇島圖書館）

book=96,ebook=98