【導(dǎo)讀】此設(shè)計還有源程序，有需要的朋友下載了文檔后留下你的郵箱，細(xì)的調(diào)查和分析，為之開發(fā)的一個實用的計算機信息管理系統(tǒng)。它替代了原先的手工。管理，大大提高了工作效率，減輕了工作人員的負(fù)擔(dān)。系統(tǒng)主要實現(xiàn)了對圖書館的讀者信息、圖書信息和借還書情況的管理。用戶對信息的查詢，系統(tǒng)還為用戶提供了兩種查詢方式：條件查詢和模糊查詢。以VisualBasic為前臺開發(fā)工具，Access2020為后臺數(shù)據(jù)庫。采用生命周期法，進行不斷的修正與改進，以形成用戶滿意的可行系統(tǒng)。應(yīng)用本軟件，可以使單位減少不必要的經(jīng)濟支出。

　　

【正文】 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 圖 界面 點擊“確定”返回圖書信息添加的窗體，重新添加圖書信息。圖書信息添加完成后確定，回到圖書入庫處理的窗體，此時在圖書列表中就可以看到新添加的圖書。 若想對某圖書信息進行修改，要先選定圖書列表中的該圖書，單擊“修改”按扭產(chǎn)生的窗體和“添 加”按扭產(chǎn)生的窗體相同。在程序上的表現(xiàn)是通過設(shè)置變量 flag。當(dāng)點“添加”時， flag 置１，點“修改” flag 置２，都調(diào)出編輯窗體。 flag 為２時，要讀出原條目的信息，直接寫入，為１就要新增加一條目（ ADDNEW），然后寫入。 圖書出庫的實現(xiàn)體現(xiàn)為圖書信息的刪除， 若要刪除圖書，要先選中要刪除的圖書，單擊“刪除”按扭，出現(xiàn)提示信息窗體，確認(rèn)是否刪除該書記錄。如圖 。 圖 界面 若不想對圖書信息進行編輯，在圖書入庫編輯窗體上點擊“返回”按扭，直接返回到主窗體進行其他操作。 主要程 序如下： Private Sub Form_Load() If flag = 2 Then 39。修改操作 = (圖書編號 ) amp。 = (分類索書號 ) amp。 = (書名 ) amp。 = (作者 ) amp。 = (出版社 ) amp。 = (出版時間 ) amp。 = (ISBN 號 ) amp。 = (定價 ) amp。 = (模式 /頁數(shù) ) amp。 = (備注 ) amp。 = (入庫日期 ) amp。 Else 39。添 加操作 = Date End If End Sub Private Sub Comm1_Click() If Trim() = Or Trim() = Or Trim() = _ Or Trim() = Or Trim() = Then MsgBox 加 *數(shù)據(jù)項不能為空，請重新設(shè)置 , vbOKOnly, 信息提示 共 40頁 第 22 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ Exit Sub End If If flag = 1 Then 39。添加操作 sqltxt = select*from book where 圖書編號 =39。 + Trim() + 39。 Set rs = exesql(sqltxt) If 0 Then MsgBox 出現(xiàn)相同的圖書編號！ , vbOKOnly, 信息提示 Exit Sub Else End If (圖書編號 ) = Trim() (分類索書號 ) = Trim() (書名 ) = Trim() (作者 ) = Trim() (出版社 ) = Trim() (出版時間 ) = Trim() (ISBN 號 ) = Trim() (定價 ) = Val(Trim()) (模式 /頁數(shù) ) = Trim() (備注 ) = Trim() (入庫日期 ) = Format(Trim(), yyyymmdd) (借否 ) = 否 recs = recs + 1 Else 39。修改操作 (圖書編號 ) = Trim() (分類索書號 ) = Trim() (書名 ) = Trim() (作者 ) = Trim() (出版社 ) = Trim() (出版時間 ) = Trim() (ISBN 號 ) = Trim() (定價 ) = Val(Trim()) (模式 /頁數(shù) ) = Trim() (備注 ) = Trim() (入庫日期 ) = Format(Trim(), yyyymmdd) End If Unload Me End Sub 圖書查找處理 圖書查找處理的窗體如圖 所示。 共 40頁 第 23 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 圖 界面 圖書查找窗體和圖書入庫編輯窗體相似，都是由圖書列表、設(shè)置條件和操作按扭組成，設(shè)置的查找條件是圖書的主要信息，包括圖書編號、書名、作者、借否（可選）、分類 索書號和出版社。這些條件可以單獨選擇也可以多項選擇，單項選擇即只有一個查詢限制條件，多一項就多一個限制條件 ,查詢出來的結(jié)果也更具體。查詢方式是模糊查詢，只要輸入關(guān)鍵字即可。輸入查詢條件點擊確定，圖書列表中就會顯示出滿足查詢條件的圖書信息。若再輸入其他查詢條件就是在前面的查詢結(jié)果中繼續(xù)查詢。若點擊“重置”按扭，則刷新查詢結(jié)果。 如果沒任何滿足條件的結(jié)果將會出現(xiàn)系統(tǒng)信息提示窗體如圖 所示。 圖 信息提示 界面 本系統(tǒng)不僅能查到圖書本身的基本信息，還可以查到借書讀者的情況。點擊“列借書人”按扭， 產(chǎn)生如圖 所示窗體。 共 40頁 第 24 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 圖 查找 借書讀者 提示 界面 查詢功能實現(xiàn)是通過模糊查找語句“ select * from 表名 where 數(shù)據(jù)名 like 39。%%值 %%39?！睂崿F(xiàn)的。 主要程序如下： Private Sub selcmd1_Click() Dim str As String str = If Trim() Then If str = Then str = 圖書編號 like 39。%% + Trim() + %%39。 Else str = str + and 圖書編號 like 39。%% + Trim() + 39。 End If End If If = True Or = True Then If = True Then If str = Then str = 借否 =39。借 39。 Else str = str + and 借否 =39。借 39。 End If Else If str = Then str = 借否 =39。否 39。 Else str = str + and 借否 =39。否 39。 End If End If End If If Trim() Then If str = Then str = 書名 like 39。%% + Trim() + %%39。 Else 共 40頁 第 25 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ str = str + and 書名 like 39。%% + Trim() + %%39。 End If End If If Trim() Then If str = Then str = 分類索書號 like 39。%% + Trim() + %%39。 Else str = str + and 分類索書號 like 39。%% + Trim() + %%39。 End If End If If Trim() Then If str = Then str = 作者 like 39。%% + Trim() + %%39。 Else str = str + and 作者 like 39。%% + Trim() + %%39。 End If End If If Trim() Then If str = Then str = 出版社 like 39。%% + Trim() + %%39。 Else str = str + and 出版社 like 39。%% + Trim() + %%39。 End If End If If str Then 39。有條件查找 = select*from book where + str Else 39。無條件查找 = select*from book End If recs = If recs = 0 Then MsgBox 沒有任何滿足要求的記錄 , vbOKOnly, 信息提示 End If Call enm End Sub 讀者管理模塊的設(shè)計與實現(xiàn) 讀者登記處理 讀者登記處理的窗體如圖 所示。 共 40頁 第 26 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 圖 界面 讀者登記處理的窗體 與圖書入庫處理的窗體類似，實現(xiàn)過程也基本類似，區(qū)別在于一個是讀者信息一個是圖書信息。 點擊“添加”按扭產(chǎn)生的窗體如圖 所示。 圖 讀者添加 界面 與圖書添加窗體不同的是，這里的所有的數(shù)據(jù)項都不能為空，否則將會出現(xiàn)系統(tǒng)提示。添加讀者時可以對讀者限定級別，不同的級別屬性不同。也可以對級別進行編 共 40頁 第 27 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 輯，將會在下一節(jié)詳細(xì)敘述。登記日期不用管理員填寫，自動讀取系統(tǒng)時間。 與圖書信息的修改的實現(xiàn)方式相同，點擊“修改”按扭，就可進入修改界面，可直接對讀者信息進行修改。 若想刪除讀者信息，選中要刪除的讀者，點擊 刪除，將會出現(xiàn)系統(tǒng)提示窗體，確認(rèn)是否刪除該讀者信息。窗體如圖 所示。 圖 信息提示 界面 讀者查找處理 讀者查找處理的窗體如圖 所示。