畢業(yè)設(shè)計（論文）-書店管理系統(tǒng)的設(shè)計與實現(xiàn)

1、原創(chuàng)性聲明本人鄭重聲明： 所呈交的學(xué)位論文，是本人在導(dǎo)師的指導(dǎo)下，獨立進行研究工作所取得的成果。除文中已經(jīng)注明引用的內(nèi)容外，本論文不含任何其他個人或集體已經(jīng)發(fā)表或撰寫過的作品或成果。對本文的研究做出重要奉獻的個人和集體，均已在文中以明確方式標(biāo)明。本聲明的法律結(jié)果由本人承當(dāng)。XXX大學(xué)2021屆畢業(yè)論文題目：書店管理系統(tǒng)的設(shè)計與實現(xiàn)班 級： 姓 名：指導(dǎo)老師: 2021年2月28日圖書管理系統(tǒng)的設(shè)計與實現(xiàn)文檔信息開發(fā)人員： 單位：xx班文件類型：軟件開發(fā)用技術(shù)文檔當(dāng)前版本：V1.0 Beta作 者：完成日期：軟件信息軟件名稱：書店管理系統(tǒng)版 本 號：V1.0 語言類型：簡體中文授權(quán)類型：測試版運

2、行環(huán)境：Windows XP/2003/Vista/7 等軟件大?。?069 KB指導(dǎo)老師：軟件 劉洋聯(lián)系信箱：版權(quán)所有：Copyright2021-2021.Powered by 劉洋.開發(fā)日期：2021年10月-2021年2月相關(guān)站點：CSDN，CNBLOG，MSDN 等軟件簡介：書店管理系統(tǒng) V1.0 Beta 測試版 面向中小型書店、個體書店進行全面的人員、物流管理，旨在實現(xiàn)書店管理信息化。本系統(tǒng)采用會員制管理，將人員分為經(jīng)理、倉庫管理員、售書員、會員、游客等，分別擁有不同的權(quán)限，各司其職，以便提高工作效率。系統(tǒng)功能包括：供給商管理、進書管理、圖書資料管理、售書管理、會員管理、員工管理

3、、庫存統(tǒng)計、售書統(tǒng)計、退貨統(tǒng)計、根本統(tǒng)計分析等。北京大學(xué)網(wǎng)絡(luò)教育學(xué)院計算機科學(xué)與技術(shù)2021-2-28目錄一、序言4二、需求分析說明書4系統(tǒng)介紹4系統(tǒng)面向的用戶群體4系統(tǒng)的功能性需求4系統(tǒng)的非功能性需求5用戶界面需求5軟硬件環(huán)境需求5軟件質(zhì)量需求5三、可行性分析報告5技術(shù)可行性5人員可能性5時間、設(shè)備可能性5系統(tǒng)工作量5代碼工作量5文檔要求5四、開發(fā)環(huán)境與工程規(guī)劃5開發(fā)環(huán)境5工程規(guī)劃與管理5開發(fā)人員安排5開發(fā)進度安排5五、軟件界面設(shè)計標(biāo)準(zhǔn)與標(biāo)準(zhǔn)5編寫目的5界面設(shè)計思想6界面設(shè)計原那么6界面設(shè)計樣式6常見提示信息樣式6常見錯誤信息樣式7其他界面約定7六、軟件編碼設(shè)計標(biāo)準(zhǔn)與標(biāo)準(zhǔn)7對象命名約定7常量

4、和變量命名約定8結(jié)構(gòu)化編碼約定8數(shù)據(jù)源的約定9數(shù)據(jù)庫訪問約定9其他約定9七、數(shù)據(jù)庫分析與設(shè)計10數(shù)據(jù)庫環(huán)境說明10數(shù)據(jù)庫命名標(biāo)準(zhǔn)與標(biāo)準(zhǔn)10數(shù)據(jù)庫邏輯設(shè)計10數(shù)據(jù)庫物理設(shè)計10表、視圖匯總10各表、視圖設(shè)計詳解11八、軟件體系結(jié)構(gòu)設(shè)計說明書15系統(tǒng)概述15設(shè)計約束15設(shè)計謀略15系統(tǒng)概要設(shè)計說明書16圖例說明16系統(tǒng)總體結(jié)構(gòu)圖16銷售子系統(tǒng)流程圖17進貨子系統(tǒng)流程圖17退貨子系統(tǒng)流程圖17系統(tǒng)詳細設(shè)計說明書17系統(tǒng)模塊匯總17系統(tǒng)核心模塊詳解18九、用戶界面設(shè)計報告32界面設(shè)計標(biāo)準(zhǔn)32系統(tǒng)窗體匯總32主界面設(shè)計33子界面設(shè)計33界面資源設(shè)計34十、軟件測試分析報告34測試范圍與主要內(nèi)容34測試方

5、法34測試報告34改良建議與措施35十一、軟件使用說明書35軟件概述35使用說明35系統(tǒng)登陸35注銷與退出35辦理進貨登記35關(guān)于/幫助38參考資料39一、序言本書店管理系統(tǒng)的設(shè)計與推出是多方面原因促成的。我在日常的生活中發(fā)現(xiàn)，許多中小型書店、個體書店其日常管理工作都是人工操作，歷史數(shù)據(jù)很難保存和利用，對于書店的經(jīng)營非常不利。針對這種狀況，我方案開發(fā)一個面向中小型書店、個體書店的書店管理系統(tǒng)，實現(xiàn)對人員、物流的全面管理，以幫助這些書店早日實現(xiàn)書店管理信息化。為了系統(tǒng)的順利開發(fā)和維護，特編制如下技術(shù)文檔：二、需求分析說明書系統(tǒng)介紹本系統(tǒng)定位于中小型書店、個體書店，暫時考慮單機環(huán)境下的實現(xiàn)；操作系

6、統(tǒng)選擇目前常用的Windows XP/2003。系統(tǒng)性質(zhì)為MIS管理信息系統(tǒng)或財務(wù)軟件。本系統(tǒng)采用會員制管理，系統(tǒng)功能應(yīng)包含進書管理、售書管理、退貨管理、庫存管理、統(tǒng)計分析、相關(guān)人員管理等。系統(tǒng)界面力求簡潔、易用，在標(biāo)準(zhǔn)化的根底上考慮界面的美觀和新穎。系統(tǒng)方案2021年10月初開始，2021年2月初完成初步開發(fā)工作，其余工作根據(jù)時間安排進行。系統(tǒng)面向的用戶群體系統(tǒng)面向中小型書店、個體書店，用戶群體為這些書店的經(jīng)理、采購員倉庫管理員、圖書銷售人員、書店的會員游客等。系統(tǒng)的功能性需求功能序號功能名稱功能說明1供給商管理包含供給商信息的登記、修改等2圖書種類管理包含圖書大類、小類的創(chuàng)立3圖書資料管理

7、包含圖書資料的添加、修改等4新書入庫管理登記新書的來源、數(shù)量、單價、折扣、金額等5庫存統(tǒng)計分門別類統(tǒng)計圖書現(xiàn)有庫存量、入庫時間等6進貨記錄查詢查詢歷次進貨記錄7退貨登記登記供給商、圖書種類、退貨的數(shù)量、原因等8退貨統(tǒng)計按供給商統(tǒng)計退貨記錄9退貨記錄查詢查詢歷次退貨記錄10圖書銷售管理登記銷售的種類、數(shù)量、單價、折扣、顧客/會員等11會員管理包含會員的創(chuàng)立、修改、刪除等12優(yōu)惠政策管理包含優(yōu)惠政策的制定與執(zhí)行13本日售書統(tǒng)計統(tǒng)計本日銷售圖書的數(shù)量、金額等14售書記錄查詢查詢歷次售書記錄15員工管理包含員工帳號的創(chuàng)立、修改、刪除等16統(tǒng)計分析按年月日時段統(tǒng)計書店經(jīng)營狀況17圖書檢索提供按圖書的編號

8、、書名、責(zé)任者、出版社等途徑的檢索18系統(tǒng)帳號管理提供上級對下級的資料、密碼管理，19個人資料、密碼管理提供修改個人資料、密碼的工具2.4系統(tǒng)的非功能性需求用戶界面需求簡潔、易用、易懂，美觀、大方、標(biāo)準(zhǔn)，具備一定的兼容性。軟硬件環(huán)境需求軟件環(huán)境：兼容當(dāng)前主流操作系統(tǒng) Windows XP/2003/Vista/7 等。硬件環(huán)境：當(dāng)前主流計算機，打印機、掃描儀等。軟件質(zhì)量需求易用、健壯、兼容性好、運行穩(wěn)定、有一定平安保障。三、可行性分析報告技術(shù)可行性系統(tǒng)的性質(zhì)為MIS或財務(wù)軟件，因而數(shù)據(jù)庫的設(shè)計與操縱是系統(tǒng)設(shè)計的核心。我在2021年11月至2021年12月曾經(jīng)成功完成了“學(xué)生學(xué)籍管理系統(tǒng)的開發(fā)任

9、務(wù)，具備一定的系統(tǒng)分析與設(shè)計能力，熟悉數(shù)據(jù)庫的設(shè)計與操縱，因而該系統(tǒng)的實現(xiàn)在技術(shù)上是可行的。時間、設(shè)備可能性系統(tǒng)設(shè)計與開發(fā)工作預(yù)計耗時一個月。實驗設(shè)備如：計算機、打印機、掃描儀等缺乏，上機任務(wù)可以完成，打印機、掃描儀的實驗根據(jù)具體條件暫時延緩執(zhí)行。系統(tǒng)工作量該系統(tǒng)的工作量相對于我來說很大，必須保證按進度完成任務(wù)。實際工作量預(yù)計超過一個月每天2-4小時。如包含軟件維護及技術(shù)文檔的整理、制作，工作量將更大。代碼工作量預(yù)計需40天左右。文檔要求依據(jù)國家?計算機軟件產(chǎn)品開發(fā)文件編制指南?和?現(xiàn)代軟件工程?的理論與原那么編制標(biāo)準(zhǔn)的軟件技術(shù)文檔。四、開發(fā)環(huán)境與工程規(guī)劃開發(fā)環(huán)境前臺開發(fā)環(huán)境：Microsof

10、t Visual Basic后臺數(shù)據(jù)庫環(huán)境：Microsoft Access 2000/2002工程規(guī)劃與管理開發(fā)進度安排2021年10月1日至10月10日：系統(tǒng)分析，進行需求定義，定義系統(tǒng)概況10月11日至10月20日：數(shù)據(jù)庫分析與設(shè)計10月21日至10月30日：軟件體系結(jié)構(gòu)設(shè)計2021年1月1日至2月10日：軟件編碼2月10日至3月1日：系統(tǒng)測試五、軟件界面設(shè)計標(biāo)準(zhǔn)與標(biāo)準(zhǔn)編寫目的制定界面設(shè)計標(biāo)準(zhǔn)標(biāo)準(zhǔn)的目的是為了標(biāo)準(zhǔn)和統(tǒng)一軟件界面設(shè)計制定軟件界面設(shè)計標(biāo)準(zhǔn)與標(biāo)準(zhǔn)。界面設(shè)計思想首先考慮標(biāo)準(zhǔn)化，在標(biāo)準(zhǔn)化的根底上進行界面的美工設(shè)計。界面設(shè)計原那么簡單易用、簡潔明了、兼容性好、標(biāo)準(zhǔn)、標(biāo)準(zhǔn)。界面設(shè)計樣式

11、工具條采用標(biāo)準(zhǔn)Windows界面，自上至下依次為：標(biāo)題欄、菜單欄、工具條、工作區(qū)、狀態(tài)欄等。如下列圖示：菜單欄狀態(tài)欄工作區(qū)圖1.系統(tǒng)界面常見提示信息樣式提示信息按以下標(biāo)準(zhǔn)進行：采用標(biāo)準(zhǔn)Windows對話框樣式，添加信息圖標(biāo)，后接提示信息文本和相應(yīng)按鈕。如下列圖示：按鈕信息圖標(biāo)提示文本圖2.常見提示信息樣式常見錯誤信息樣式錯誤信息依據(jù)提示信息樣式設(shè)計，將信息圖標(biāo)更改為警告圖標(biāo)。如下列圖示：警告圖標(biāo)提示文本圖3.常見錯誤信息樣式其他界面約定除主界面外，所有子界面均采用模式窗體，即該窗體不消失，不可以在本程序內(nèi)將焦點移出子窗體。六、軟件編碼設(shè)計標(biāo)準(zhǔn)與標(biāo)準(zhǔn)對象命名約定對象名對象類型命名約定前綴碼For

12、m窗體FrmCommand按鈕CmdLabel標(biāo)簽LabTextBox文本框TxtComboBox組合框ComBListBox列表框LstBAdodb數(shù)據(jù)庫訪問對象AdodbDataGrid數(shù)據(jù)表格顯示組件DataGridFrame框架FamOption單項選擇框OptCheckBox復(fù)選框ChkPictureBox圖象顯示組件PtBCommonDialog通用對話框組件ComDlgTimer時間組件TimToolBar工具欄TlBarMenu菜單MnuSSTab頁框SSTabImageList界面資源組件ImgLst常量和變量命名約定變量名數(shù)據(jù)類型變量類型含義UserShenFenStrin

13、g全局變量用戶身份標(biāo)志LogOKBoolean全局變量登陸狀態(tài)UserNameString全局變量用戶名GongYingShangIDString全局變量供給商編號GongYingShangString全局變量供給商名稱TuShuBianHaoString全局變量圖書編號DingJiaSingle全局變量圖書定價ShuMingString全局變量書名HuiYuanKaHaoString全局變量會員卡號HYXingMingString全局變量會員姓名HYDengJiString全局變量會員等級結(jié)構(gòu)化編碼約定編碼應(yīng)清晰、可讀性好，運用縮進、空行，結(jié)合大小寫區(qū)別等方法保持程序結(jié)構(gòu)良好。凡與數(shù)據(jù)庫操作

14、相關(guān)的模塊一律加上容錯代碼，涉及多表操作的模塊應(yīng)運用“事務(wù)處理，以保持數(shù)據(jù)完整性。編碼風(fēng)格參照下例進行：Public Sub CheckUser(userID As String, passwd As String)Dim userDB As DatabaseDim userRD As RecordsetDim dbName As StringDim STRSQL As StringScreen.MousePointer = 11On Error GoTo errEndIf Right(dbName, 1) 、 Then dbName = dbName + 、dbName = dbName +

15、 DataBase、WFSSDataBase.mdbSTRSQL = select 用戶身份 from Admin where 用戶ID= & userID & and 用戶密碼= & passwd & 翻開數(shù)據(jù)庫Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 設(shè)置用戶身份 UserShenFen = userRD!用

16、戶身份 關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing 進入用戶環(huán)境 Load FrmMain FrmMa Unload FrmLogIn logOK = True userName = userID Screen.MousePointer = vbDefaultElse 關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing logOK = False Screen.MousePointer = vbDefault MsgBox 用戶名或密碼錯誤！請重新輸入！, vbOKOnly + vbExclamat

17、ion, 登陸失敗End IfExit SuberrEnd： Screen.MousePointer = vbDefault MsgBox Err.Description, vbOKOnly + vbExclamation, 登陸錯誤 logOK = False 關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing Exit SubEnd Sub數(shù)據(jù)源的約定需用數(shù)據(jù)源的組件如：DataGrid一律采用Adodb控件。有特殊需求的情況如：身份驗證應(yīng)引用DAO(數(shù)據(jù)訪問對象)。數(shù)據(jù)庫訪問約定數(shù)據(jù)庫引擎采用，由Adodb組件進行數(shù)據(jù)庫的訪問，并為其他組件提供

18、數(shù)據(jù)源。特殊情況、身份驗證等由 DAO訪問數(shù)據(jù)庫。其他約定無需數(shù)據(jù)顯示的情況由DAO提供數(shù)據(jù)庫支持，有數(shù)據(jù)顯示的情況由ADODB組件提供數(shù)據(jù)庫支持。七、數(shù)據(jù)庫分析與設(shè)計數(shù)據(jù)庫環(huán)境說明考慮該系統(tǒng)的定位與現(xiàn)有技術(shù)力量,決定采用Microsoft Access 2000/2002作為系統(tǒng)的后臺數(shù)據(jù)庫開發(fā)環(huán)境。數(shù)據(jù)庫命名標(biāo)準(zhǔn)與標(biāo)準(zhǔn)說明：下表所列為數(shù)據(jù)庫及各表、視圖的命名方法，具體信息請參閱表、視圖匯總。名稱類型命名方法約定WFSSDataBase系統(tǒng)數(shù)據(jù)庫字母表根本表漢字或字母查詢查詢漢字字段字段漢字或字母數(shù)據(jù)庫邏輯設(shè)計會員表會員級別會員卡號會員政策會員級別Admin用戶ID員工表員工帳號圖書分類圖書

19、分類號售書記錄會員卡號圖書編號Book圖書分類號圖書編號圖書進價表圖書編號進書記錄圖書編號供給商編號退貨記錄圖書編號供給商編號供給商供給商編號圖4.數(shù)據(jù)庫邏輯結(jié)構(gòu)圖數(shù)據(jù)庫物理設(shè)計表、視圖匯總視圖/表名類型說明Admin根本表集中保存系統(tǒng)用戶的帳號、密碼Book根本表集中存放書目信息員工表根本表存放員工資料供給商根本表供給商資料會員表根本表會員資料會員政策根本表會員標(biāo)準(zhǔn)及優(yōu)惠政策進書記錄根本表進書歷史記錄客戶反應(yīng)根本表客戶反應(yīng)信息售書記錄根本表售書歷史記錄書店簡介根本表書店簡介圖書分類根本表圖書類別圖書進價表根本表圖書進價列表退貨記錄根本表退貨歷史記錄讀者查詢查詢提供給所有用戶的書目查詢界面根本

20、統(tǒng)計查詢根本的統(tǒng)計分析進書查詢查詢進書記錄查詢,含進書統(tǒng)計售書查詢查詢圖書銷售記錄查詢售書統(tǒng)計查詢圖書銷售記錄統(tǒng)計退貨查詢查詢退貨記錄查詢退貨統(tǒng)計查詢退貨統(tǒng)計員工信息查詢員工信息查詢庫存統(tǒng)計查詢現(xiàn)有庫存統(tǒng)計反應(yīng)信息查詢客戶反應(yīng)信息查詢各表、視圖設(shè)計詳解說明：空缺位置表示無要求，主鍵在約束欄注明。根本表：Admin字段類型長度格式約束用戶ID文本250主鍵用戶密碼文本250用戶身份文本250根本表：Book字段類型長度格式約束圖書編號文本250主鍵圖書分類號文本150書名文本255叢書文本150作者文本255出版社文本255版次文本150ISBN文本250定價貨幣庫存量數(shù)字 整型內(nèi)容簡介備注關(guān)鍵

21、詞文本255出版日期文本150入庫時間日期/時間長日期Now()根本表：供給商字段類型長度格式約束供給商編號文本250主鍵供給商文本255地址文本255網(wǎng)址文本255聯(lián)系人文本255 文本50 文本150電子郵件文本150單位簡介備注根本表：會員表字段類型長度格式約束會員卡號文本50主鍵會員等級文本50姓名文本150性別文本50地址文本250單位文本250 文本50電子郵件文本150人生格言備注注冊日期日期/時間長日期根本表：會員政策字段類型長度格式約束會員級別文本50主鍵會員標(biāo)準(zhǔn)數(shù)字(整型)打折文本50贈送禮品文本250備注備注根本表：進書記錄字段類型長度格式約束ID自動編號長整型主鍵供給商

22、編號文本250圖書編號文本250數(shù)量數(shù)字長整型單價貨幣折扣數(shù)字單精度型金額貨幣進書日期日期/時間長日期備注備注根本表：客戶反應(yīng)字段類型長度格式約束ID自動編號長整型主鍵姓名文本150身份文本50性別文本50單位文本255地址文本255電子郵件文本150反應(yīng)信息備注反應(yīng)日期日期/時間長日期根本表：售書記錄字段類型長度格式約束ID自動編號長整型主鍵圖書編號文本250數(shù)量數(shù)字整型會員卡號文本250實際打折數(shù)字單精度型實收金額貨幣日期文本50長日期備注備注根本表：書店簡介字段類型長度格式約束書店名稱文本255主鍵地址文本255網(wǎng)址文本255聯(lián)系人文本150 文本50 數(shù)字長整型電子郵件文本150書店簡

23、介備注備注備注根本表：圖書分類字段類型長度格式約束圖書分類號文本150主鍵圖書分類文本250所屬父類編號文本150根本表：圖書進價表字段類型長度格式約束圖書編號文本150主鍵進價貨幣進書日期日期/時間長日期根本表：退貨記錄字段類型長度格式約束ID自動編號長整型主鍵供給商編號文本250圖書編號文本250進價貨幣退貨數(shù)量數(shù)字整型金額貨幣退貨原因備注退貨日期日期/時間長日期備注備注根本表：員工表字段類型長度格式約束員工帳號文本250主鍵姓名文本150性別文本50地址文本255 文本50 文本150電子郵件文本150人生格言備注創(chuàng)立日期日期/時間長日期Now()視圖：根本統(tǒng)計圖5.根本統(tǒng)計視圖結(jié)構(gòu)視圖

24、：讀者查詢圖6.讀者查詢視圖結(jié)構(gòu)視圖：退貨統(tǒng)計圖7.退貨統(tǒng)計視圖結(jié)構(gòu)視圖：售書統(tǒng)計圖8.售書統(tǒng)計視圖結(jié)構(gòu)視圖：售書查詢圖9.售書查詢視圖結(jié)構(gòu)注：其他視圖結(jié)構(gòu)：略。八、軟件體系結(jié)構(gòu)設(shè)計說明書系統(tǒng)概述在單機環(huán)境下進行系統(tǒng)平安的考慮，有必要進行用戶權(quán)限的劃分與控制，因而系統(tǒng)在總體上應(yīng)包含平安子系統(tǒng)之下的各類用戶工作環(huán)境。用戶權(quán)限的合理劃分與有效控制是本系統(tǒng)體系結(jié)構(gòu)設(shè)計的核心。設(shè)計約束系統(tǒng)將實現(xiàn)人員、物流的全面管理，而物流管理是系統(tǒng)的核心部件，怎樣實現(xiàn)二者的共存，互不干擾，是本系統(tǒng)設(shè)計的難點。本系統(tǒng)必須實現(xiàn)對用戶權(quán)限的有效合理控制。設(shè)計謀略由于所有的物流都需要有人員的活動才能夠發(fā)生，因此，我決定采用一

25、種“人員活動帶動物流的策略來解決人員管理與物流管理的統(tǒng)一管理問題。這個想法是模擬現(xiàn)實而來的，比方說，只有采購人員進行了“采購或“進書活動，才會引起“入庫登記或“新書入庫這個物流。系統(tǒng)概要設(shè)計說明書圖例說明過程、模塊1.處理過程：數(shù)據(jù)表2.數(shù)據(jù)存儲： 決策3.條件判斷：4.數(shù)據(jù)流：(單向)5.數(shù)據(jù)流：雙向?qū)嶓w6.外部實體：數(shù)據(jù)表7.帶有變動歷史的數(shù)據(jù)存儲：系統(tǒng)總體結(jié)構(gòu)圖登陸驗證會員政策員工管理書店概況統(tǒng)計分析平安子系統(tǒng)權(quán)限控制身份鑒別經(jīng)理子系統(tǒng)宛楓書社圖書管理系統(tǒng)根本統(tǒng)計退貨統(tǒng)計庫存統(tǒng)計進貨統(tǒng)計銷售統(tǒng)計進貨子系統(tǒng)庫存管理退貨子系統(tǒng)書目管理入庫登記供給商管理倉庫管理員子系統(tǒng)刪除帳號修改資料創(chuàng)立帳號

26、銷售統(tǒng)計會員管理銷售子系統(tǒng)售書員子系統(tǒng)購書記錄修改密碼個人資料會員子系統(tǒng)信息反應(yīng)會員注冊書目檢索游客子系統(tǒng)圖10.系統(tǒng)總體結(jié)構(gòu)圖銷售子系統(tǒng)流程圖售書員Book會員表選擇圖書選擇會員會員表圖書銷售優(yōu)惠政策售書記錄圖11. 銷售子系統(tǒng)流程圖進貨子系統(tǒng)流程圖倉管員選擇供給商供給商修改資料供給商登記選擇品種供給商供給商添加類別添加品種Book入庫登記修改資料圖書分類Book圖書進價表進貨記錄圖12.進貨子系統(tǒng)流程圖退貨子系統(tǒng)流程圖選擇供給商倉管員供給商選擇品種退貨記錄退貨登記Book進貨記錄圖13.退貨子系統(tǒng)流程圖系統(tǒng)詳細設(shè)計說明書系統(tǒng)模塊匯總模塊名類型原型或聲明模塊說明CheckUser子程序Pub

27、lic Sub CheckUser(userID As String, passwd As String)用戶帳號、密碼驗證和身份鑒別LogOff子程序Public Sub LogOff()注銷模塊Sys_exit子程序Public Sub Sys_exit()系統(tǒng)退出摸塊Form_Load子程序Private Sub Form_Load()初始化模塊，連接數(shù)據(jù)庫GetHYDaZhe函數(shù)Public Function GetHYDaZhe(bianHao As String) As String提取會員政策的會員優(yōu)惠方法GetKuCun函數(shù)Public Function GetKuCun(bi

28、anHao As String) As String獲取、檢驗圖書現(xiàn)有庫存量HYShengJi函數(shù)Public Function HYShengJi(HYKaHao As String) As Boolean會員升級維護CmdSellBook_Click子程序Private Sub CmdSellBook_Click()圖書銷售模塊checkGYSID函數(shù)Public Function checkGYSID(UID As String) As Boolean檢驗數(shù)據(jù)表主鍵，防止插入錯誤checkFenLei函數(shù)Public Function checkFenLei(UID As String)

29、 As Boolean檢測圖書分類是否已經(jīng)存在CmdNewFenLei_Click子程序Private Sub CmdNewFenLei_Click()創(chuàng)立類別checkUserID函數(shù)Public Function checkUserID(UID As String) As Boolean檢測用戶帳號是否存在CmdChgPass_Click子程序Private Sub CmdChgPass_Click()修改密碼CmdRegMe_Click子程序Private Sub CmdRegMe_Click()創(chuàng)立員工、會員帳號GetJinJia函數(shù)Public Function GetJinJia(

30、bianHao As String) As String提取圖書進價CmdTH_Click子程序Private Sub CmdTH_Click()退貨模塊CmdSaveContinue_Click子程序Private Sub CmdSaveContinue_Click()供給商信息登記注：其他模塊略系統(tǒng)核心模塊詳解全局變量定義：用戶身份標(biāo)志Public UserShenFen As String登陸狀態(tài)Public logOK As Boolean用戶名Public userName As String供給商編號Public GongYingShangID As String供給商Public

31、 GongYingShang As String圖書編號Public TuShuBianHao As String定價Public DingJia As String書名Public ShuMing As String會員卡號Public HuiYuanKaHao As String會員姓名Public HYXingMing As String會員等級Public HYDengJi As String模塊名：CheckUser原型：Public Sub CheckUser(userID As String, passwd As String)代碼：Public Sub CheckUser(us

32、erID As String, passwd As String)Dim userDB As DatabaseDim userRD As RecordsetDim dbName As StringDim STRSQL As StringScreen.MousePointer = 11On Error GoTo errEndIf Right(dbName, 1) Then dbName = dbName + dbName = dbName + DataBaseWFSSDataBase.mdbSTRSQL = select 用戶身份 from Admin where 用戶ID= & userID

33、& and 用戶密碼= & passwd & 翻開數(shù)據(jù)庫Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 設(shè)置用戶身份 UserShenFen = userRD!用戶身份 關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing 進入用戶環(huán)境 Load FrmMain Unload

34、FrmLogIn logOK = True userName = userID Screen.MousePointer = vbDefaultElse 關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing logOK = False Screen.MousePointer = vbDefault MsgBox 用戶名或密碼錯誤！請重新輸入！, vbOKOnly + vbExclamation, 登陸失敗End IfExit SuberrEnd:sePointer = vbDefault MsgBox Err.Description, vbOKOnly

35、+ vbExclamation, 登陸錯誤 logOK = False 關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing Exit SubEnd Sub模塊名：LogOff模塊原型：Public Sub LogOff()代碼：Public Sub LogOff()Dim retVal As IntegerretVal = MsgBox(你確定要注銷嗎？, vbOKCancel + vbQuestion, 注銷當(dāng)前用戶)If retVal = vbCancel Then Exit SubLoad FrmLogInIf UserShenFen = 經(jīng)理

36、 Then Unload FrmAdminMainElseIf UserShenFen = 倉庫管理員 Then Unload FrmCangGuanMainElseIf UserShenFen = 售書員 Then Unload FrmBookSellerMainElseIf UserShenFen = 會員 Then Unload FrmMemberMainElse Unload FrmGuestMainEnd IfUnload FrmMainUserShenFen = logOK = FalseEnd Sub模塊名：Sys_exit模塊原型：Public Sub Sys_exit()代碼

37、：Public Sub Sys_exit()Dim retVal As IntegerretVal = MsgBox(你確定要退出嗎？, vbOKCancel + vbQuestion, 退出系統(tǒng))If retVal = vbCancel Then Exit SubIf UserShenFen = 經(jīng)理 Then Unload FrmAdminMainElseIf UserShenFen = 倉庫管理員 Then Unload FrmCangGuanMainElseIf UserShenFen = 售書員 Then Unload FrmBookSellerMainElseIf UserShen

38、Fen = 會員 Then Unload FrmMemberMainElse Unload FrmGuestMainEnd IfUnload FrmMainEndEnd Sub模塊名：Form_Load模塊原型：Private Sub Form_Load()代碼：Private Sub Form_Load()Dim dbName As StringDim connSTR As StringOn Error GoTo errEndIf Right(dbName, 1) Then dbName = dbName + dbName = dbName + DataBaseWFSSDataBase.md

39、bconnSTR = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbName & ;Persist Security Info=FalseAdodc1.ConnectionString = connSTRExit SuberrEnd: MsgBox 連接數(shù)據(jù)庫失敗!, vbOKOnly + vbExclamation, 翻開數(shù)據(jù)庫出錯 EndEnd Sub模塊名：GetHYDaZhe模塊原型：Public Function GetHYDaZhe(bianHao As String) As String代碼：Public Function G

40、etHYDaZhe(bianHao As String) As StringOn Error GoTo errEndIf bianHao = Then GetHYDaZhe = 1 Exit FunctionEnd IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 打折 from 會員政策 where 會員級別= & bianHao & If Adodc1.Recordset.RecordCount 0 Then GetHYDaZhe = Adodc1.Recordset!打折Else MsgBox 會員政策數(shù)據(jù)喪失,請與

41、經(jīng)理聯(lián)系!, vbOKOnly + vbExclamation, 檢索錯誤 GetHYDaZhe = 1End IfExit FunctionerrEnd: MsgBox 檢索數(shù)據(jù)庫出錯!, vbOKOnly + vbExclamation, 檢索錯誤 GetDingJia = 未知End Function模塊名：GetKuCun模塊原型：Public Function GetKuCun(bianHao As String) As String代碼：Public Function GetKuCun(bianHao As String) As StringOn Error GoTo errEnd

42、Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select 庫存量 from Book where 圖書編號= & bianHao & If Adodc1.Recordset.RecordCount 0 Then GetKuCun = Adodc1.Recordset!庫存量Else MsgBox 圖書資料數(shù)據(jù)喪失,請與經(jīng)理聯(lián)系!, vbOKOnly + vbExclamation, 檢索錯誤 GetKuCun = 0End IfExit FunctionerrEnd: MsgBox 檢索數(shù)據(jù)庫出錯!, vbOKOnly + vbExc

43、lamation, 檢索錯誤 GetDingJia = 未知End Function模塊名：HYShengJi模塊原型：Public Function HYShengJi(HYKaHao As String) As Boolean代碼：Public Function HYShengJi(HYKaHao As String) As BooleanOn Error GoTo errEndDim BiaoZhun As IntegerDim SUMBook As IntegerIf HYKaHao = Guest Then HYShengJi = False Exit FunctionEnd IfB

44、eginTransype = adCmdTextAdodc1.RecordSource = select sum(實收金額) as 總金額 from 售書記錄 where 會員卡號= & HYKaHao & If Adodc1.Recordset.RecordCount 0 Then SUMBook = CInt(Adodc1.Recordset!總金額)Else SUMBook = 0End IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 會員標(biāo)準(zhǔn) from 會員政策 where 會員級別=BiaoZhun = CIn

45、t(Adodc1.Recordset!會員標(biāo)準(zhǔn))If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 會員表 where 會員卡號= & HYKaHao & If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset!會員等級 = End IfEnd IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 會員標(biāo)準(zhǔn) from 會員政策 where

46、 會員級別=BiaoZhun = CInt(Adodc1.Recordset!會員標(biāo)準(zhǔn))If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 會員表 where 會員卡號= & HYKaHao & If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset!會員等級 = Adodc1.Recordset.Update End IfEnd IfAdodc1.CommandType = adCmdTextAdodc

47、1.RecordSource = select 會員標(biāo)準(zhǔn) from 會員政策 where 會員級別=BiaoZhun = CInt(Adodc1.Recordset!會員標(biāo)準(zhǔn))If SUMBook = BiaoZhun ThenType = adCmdText Adodc1.RecordSource = select * from 會員表 where 會員卡號= & HYKaHao & If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset!會員等級 = End IfEnd IfAdodc1.CommandType = adCmdText

48、Adodc1.RecordSource = select 會員標(biāo)準(zhǔn) from 會員政策 where 會員級別=BiaoZhun = CInt(Adodc1.Recordset!會員標(biāo)準(zhǔn))If SUMBook = BiaoZhun ThenommandType = adCmdText Adodc1.RecordSource = select * from 會員表 where 會員卡號= & HYKaHao & If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset!會員等級 = Adodc End IfEnd IfAdodc1.Comman

49、dType = adCmdTextAdodc1.RecordSource = select 會員標(biāo)準(zhǔn) from 會員政策 where 會員級別=BiaoZhun = CInt(Adodc1.Recordset!會員標(biāo)準(zhǔn))If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 會員表 where 會員卡號= & HYKaHao & If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset!會員等級 = End I

50、fEnd IfCommitTransHYShengJi = FalseExit FunctionerrEnd: Rollback HYShengJi = True Screen.MousePointer = vbDefault MsgBox 檢查會員是否應(yīng)升級時操作失?。? vbOKOnly + vbExclamation, 圖書銷售 CmdOK.Enabled = TrueEnd Function模塊名：CmdSellBook_Click模塊原型：Private Sub CmdSellBook_Click()代碼：Private Sub CmdSellBook_Click()On Error

51、 GoTo errEndDim QD As IntegerCmdSellBook.Enabled = FalseIf TxtShuLiang.Text = Then MsgBox 請輸入交易的數(shù)量!, vbOKOnly + vbExclamation, 填寫數(shù)量 CmdSellBook.Enabled = True Exit SubEnd IfIf GetKuCun(TuShuBianHao) = 0 Or GetKuCun(TuShuBianHao) TxtShuLiang.Text Then MsgBox 該類圖書庫存量缺乏,請與倉庫管理員聯(lián)系!, vbOKOnly + vbExclama

52、tion, 庫存缺乏s CmdSellBook.Enabled = True Exit SubEnd IfIf TxtZheKou.Text = Then MsgBox 請輸入交易的實際折扣率!, vbOKOnly + vbExclamation, 填寫折扣 CmdSellBook.Enabled = True Exit SubEnd IfIf TxtZheKou.Text 1 Then MsgBox 實際折扣率填寫錯誤!請在 0 與 1 之間選擇., vbOKOnly + vbExclamation, 填寫折扣 CmdSellBook.Enabled = True Exit SubEnd I

53、fIf TxtSJJinE.Text = Then MsgBox 請輸入交易的實際金額!, vbOKOnly + vbExclamation, 填寫金額 TxtSJJinE.SetFocus CmdSellBook.Enabled = True Exit SubEnd IfIf TxtMemo.Text = Then TxtMemo.Text = 無QD = MsgBox(確定入帳嗎?, vbOKCancel + vbQuestion, 確認入帳)If QD = vbCancel Then CmdSellBook.Enabled = True Exit SubEnd If售書入帳ter = 1

54、1BeginTransAdodc1.CommandType = adCmdTableAdodc1.RecordSource = 售書記錄Adodc1.Recordset!圖書編號 = TuShuBianHaoAdodc1.Recordset!數(shù)量Adodc1.Recordset!會員卡號 = HuiYuanKaHaoAdodc1.Recordset!實際打折Adodc1.Recordset!實收金額Adodc1.Recordset!日期 = Year(Now) & - & Month(Now) & - & Day(Now) & .Adodc1.Recordset!備注Adodc1.Comman

55、dType = adCmdTextAdodc1.RecordSource = select * from Book where 圖書編號= & TuShuBianHao & If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset!庫存量 = Adodc1.Recordset!庫存量Else Rollback Screen.MousePointer = vbDefault MsgBox 圖書資料喪失，請與倉庫管理員聯(lián)系！, vbOKOnly + vbExclamation, 交易失敗 CmdSellBook.Enabled = True E

56、xit SubEnd IfIf HYShengJi(HuiYuanKaHao) Then RollbackCommitTransScreen.MousePointer = vbDefaultMsgBox 恭喜您,交易成功!, vbOKOnly + vbInformation, 交易成功Unload MeExit SuberrEnd: Rollback Screen.MousePointer = vbDefault MsgBox Err.Description, vbOKOnly + vbExclamation, 操作數(shù)據(jù)庫出錯 交易失敗 CmdSellBook.Enabled = TrueEn

57、d Sub系統(tǒng)模塊詳解模塊名：checkGYSID模塊原型：Public Function checkGYSID(UID As String) As Boolean代碼：Public Function checkGYSID(UID As String) As BooleanDim userDB As DatabaseDim userRD As RecordsetDim dbName As StringDim STRSQL As StringScreen.MousePointer = 11On Error GoTo errEndIf Right(dbName, 1) Then dbName =

58、dbName + dbName = dbName + DataBaseWFSSDataBase.mdbSTRSQL = select 圖書分類 from 圖書分類 where 圖書分類號= & UID & 翻開數(shù)據(jù)庫Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing S

59、et userDB = Nothing checkGYSID = True Screen.MousePointer = vbDefaultElse 關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing Screen.MousePointer = vbDefault checkGYSID = FalseEnd IfExit FunctionerrEnd: Screen.MousePointer = vbDefault MsgBox Err.Description, vbOKOnly + vbExclamation, 創(chuàng)立類別 關(guān)閉數(shù)據(jù)庫 Set user

60、RD = Nothing Set userDB = NothingEnd Function模塊名：checkFenLei模塊原型：Public Function checkFenLei(UID As String) As Boolean代碼：Public Function checkFenLei(UID As String) As BooleanDim userDB As DatabaseDim userRD As RecordsetDim dbName As StringDim STRSQL As StringScreen.MousePointer = 11On Error GoTo err