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

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

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

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

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

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

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

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

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

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

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

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

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

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

14、相關(guān)的模塊一律加上容錯(cuò)代碼，涉及多表操作的模塊應(yīng)運(yùn)用“事務(wù)處理，以保持?jǐn)?shù)據(jù)完整性。編碼風(fēng)格參照下例進(jìn)行：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 & 翻開(kāi)數(shù)據(jù)庫(kù)Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗(yàn)證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 設(shè)置用戶身份 UserShenFen = userRD!用

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

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

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

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

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

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

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

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

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

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

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

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

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

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

30、bianHao As String) As String提取圖書進(jìn)價(jià)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供給商編號(hào)Public GongYingShangID As String供給商Public

31、 GongYingShang As String圖書編號(hào)Public TuShuBianHao As String定價(jià)Public DingJia As String書名Public ShuMing As String會(huì)員卡號(hào)Public HuiYuanKaHao As String會(huì)員姓名Public HYXingMing As String會(huì)員等級(jí)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 & 翻開(kāi)數(shù)據(jù)庫(kù)Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗(yàn)證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 設(shè)置用戶身份 UserShenFen = userRD!用戶身份 關(guān)閉數(shù)據(jù)庫(kù) Set userRD = Nothing Set userDB = Nothing 進(jìn)入用戶環(huán)境 Load FrmMain Unload

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

35、+ vbExclamation, 登陸錯(cuò)誤 logOK = False 關(guān)閉數(shù)據(jù)庫(kù) 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 = 倉(cāng)庫(kù)管理員 Then Unload FrmCangGuanMainElseIf UserShenFen = 售書員 Then Unload FrmBookSellerMainElseIf UserShenFen = 會(huì)員 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 = 倉(cāng)庫(kù)管理員 Then Unload FrmCangGuanMainElseIf UserShenFen = 售書員 Then Unload FrmBookSellerMainElseIf UserShen

38、Fen = 會(huì)員 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ù)庫(kù)失敗!, vbOKOnly + vbExclamation, 翻開(kāi)數(shù)據(jù)庫(kù)出錯(cuò) 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 會(huì)員政策 where 會(huì)員級(jí)別= & bianHao & If Adodc1.Recordset.RecordCount 0 Then GetHYDaZhe = Adodc1.Recordset!打折Else MsgBox 會(huì)員政策數(shù)據(jù)喪失,請(qǐng)與

41、經(jīng)理聯(lián)系!, vbOKOnly + vbExclamation, 檢索錯(cuò)誤 GetHYDaZhe = 1End IfExit FunctionerrEnd: MsgBox 檢索數(shù)據(jù)庫(kù)出錯(cuò)!, vbOKOnly + vbExclamation, 檢索錯(cuò)誤 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 庫(kù)存量 from Book where 圖書編號(hào)= & bianHao & If Adodc1.Recordset.RecordCount 0 Then GetKuCun = Adodc1.Recordset!庫(kù)存量Else MsgBox 圖書資料數(shù)據(jù)喪失,請(qǐng)與經(jīng)理聯(lián)系!, vbOKOnly + vbExclamation, 檢索錯(cuò)誤 GetKuCun = 0End IfExit FunctionerrEnd: MsgBox 檢索數(shù)據(jù)庫(kù)出錯(cuò)!, vbOKOnly + vbExc

43、lamation, 檢索錯(cuò)誤 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(實(shí)收金額) as 總金額 from 售書記錄 where 會(huì)員卡號(hào)= & HYKaHao & If Adodc1.Recordset.RecordCount 0 Then SUMBook = CInt(Adodc1.Recordset!總金額)Else SUMBook = 0End IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 會(huì)員標(biāo)準(zhǔn) from 會(huì)員政策 where 會(huì)員級(jí)別=BiaoZhun = CIn

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

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

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

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

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

50、fEnd IfCommitTransHYShengJi = FalseExit FunctionerrEnd: Rollback HYShengJi = True Screen.MousePointer = vbDefault MsgBox 檢查會(huì)員是否應(yīng)升級(jí)時(shí)操作失?。? 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 請(qǐng)輸入交易的數(shù)量!, vbOKOnly + vbExclamation, 填寫數(shù)量 CmdSellBook.Enabled = True Exit SubEnd IfIf GetKuCun(TuShuBianHao) = 0 Or GetKuCun(TuShuBianHao) TxtShuLiang.Text Then MsgBox 該類圖書庫(kù)存量缺乏,請(qǐng)與倉(cāng)庫(kù)管理員聯(lián)系!, vbOKOnly + vbExclama

52、tion, 庫(kù)存缺乏s CmdSellBook.Enabled = True Exit SubEnd IfIf TxtZheKou.Text = Then MsgBox 請(qǐng)輸入交易的實(shí)際折扣率!, vbOKOnly + vbExclamation, 填寫折扣 CmdSellBook.Enabled = True Exit SubEnd IfIf TxtZheKou.Text 1 Then MsgBox 實(shí)際折扣率填寫錯(cuò)誤!請(qǐng)?jiān)?0 與 1 之間選擇., vbOKOnly + vbExclamation, 填寫折扣 CmdSellBook.Enabled = True Exit SubEnd I

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

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

55、dType = adCmdTextAdodc1.RecordSource = select * from Book where 圖書編號(hào)= & TuShuBianHao & If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset!庫(kù)存量 = Adodc1.Recordset!庫(kù)存量Else Rollback Screen.MousePointer = vbDefault MsgBox 圖書資料喪失，請(qǐng)與倉(cāng)庫(kù)管理員聯(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ù)庫(kù)出錯(cuò) 交易失敗 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 圖書分類號(hào)= & UID & 翻開(kāi)數(shù)據(jù)庫(kù)Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗(yàn)證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 關(guān)閉數(shù)據(jù)庫(kù) Set userRD = Nothing S

59、et userDB = Nothing checkGYSID = True Screen.MousePointer = vbDefaultElse 關(guān)閉數(shù)據(jù)庫(kù) 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ù)庫(kù) 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