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

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

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

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

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

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

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

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

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

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

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

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

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

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

16、戶身份 關閉數據庫 Set userRD = Nothing Set userDB = Nothing 進入用戶環境 Load FrmMain FrmMa Unload FrmLogIn logOK = True userName = userID Screen.MousePointer = vbDefaultElse 關閉數據庫 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 關閉數據庫 Set userRD = Nothing Set userDB = Nothing Exit SubEnd Sub數據源的約定需用數據源的組件如：DataGrid一律采用Adodb控件。有特殊需求的情況如：身份驗證應引用DAO(數據訪問對象)。數據庫訪問約定數據庫引擎采用，由Adodb組件進行數據庫的訪問，并為其他組件提供

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

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

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

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

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

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

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

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

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

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

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

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

30、bianHao As String) As String提取圖書進價CmdTH_Click子程序Private Sub CmdTH_Click()退貨模塊CmdSaveContinue_Click子程序Private Sub CmdSaveContinue_Click()供給商信息登記注：其他模塊略系統核心模塊詳解全局變量定義：用戶身份標志Public UserShenFen As String登陸狀態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 & 翻開數據庫Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 設置用戶身份 UserShenFen = userRD!用戶身份 關閉數據庫 Set userRD = Nothing Set userDB = Nothing 進入用戶環境 Load FrmMain Unload

34、FrmLogIn logOK = True userName = userID Screen.MousePointer = vbDefaultElse 關閉數據庫 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 關閉數據庫 Set userRD = Nothing Set userDB = Nothing Exit SubEnd Sub模塊名：LogOff模塊原型：Public Sub LogOff()代碼：Public Sub LogOff()Dim retVal As IntegerretVal = MsgBox(你確定要注銷嗎？, vbOKCancel + vbQuestion, 注銷當前用戶)If retVal = vbCancel Then Exit SubLoad FrmLogInIf UserShenFen = 經理

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, 退出系統)If retVal = vbCancel Then Exit SubIf UserShenFen = 經理 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 連接數據庫失敗!, vbOKOnly + vbExclamation, 翻開數據庫出錯 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 會員政策數據喪失,請與

41、經理聯系!, vbOKOnly + vbExclamation, 檢索錯誤 GetHYDaZhe = 1End IfExit FunctionerrEnd: MsgBox 檢索數據庫出錯!, 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 圖書資料數據喪失,請與經理聯系!, vbOKOnly + vbExclamation, 檢索錯誤 GetKuCun = 0End IfExit FunctionerrEnd: MsgBox 檢索數據庫出錯!, 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 會員標準 from 會員政策 where 會員級別=BiaoZhun = CIn

45、t(Adodc1.Recordset!會員標準)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 會員標準 from 會員政策 where

46、 會員級別=BiaoZhun = CInt(Adodc1.Recordset!會員標準)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 會員標準 from 會員政策 where 會員級別=BiaoZhun = CInt(Adodc1.Recordset!會員標準)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 會員標準 from 會員政策 where 會員級別=BiaoZhun = CInt(Adodc1.Recordset!會員標準)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 會員標準 from 會員政策 where 會員級別=BiaoZhun = CInt(Adodc1.Recordset!會員標準)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 檢查會員是否應升級時操作失??！, 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 請輸入交易的數量!, vbOKOnly + vbExclamation, 填寫數量 CmdSellBook.Enabled = True Exit SubEnd IfIf GetKuCun(TuShuBianHao) = 0 Or GetKuCun(TuShuBianHao) TxtShuLiang.Text Then MsgBox 該類圖書庫存量缺乏,請與倉庫管理員聯系!, 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!數量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 圖書資料喪失，請與倉庫管理員聯系！, 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, 操作數據庫出錯 交易失敗 CmdSellBook.Enabled = TrueEn

57、d Sub系統模塊詳解模塊名：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 & 翻開數據庫Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 關閉數據庫 Set userRD = Nothing S

59、et userDB = Nothing checkGYSID = True Screen.MousePointer = vbDefaultElse 關閉數據庫 Set userRD = Nothing Set userDB = Nothing Screen.MousePointer = vbDefault checkGYSID = FalseEnd IfExit FunctionerrEnd: Screen.MousePointer = vbDefault MsgBox Err.Description, vbOKOnly + vbExclamation, 創立類別 關閉數據庫 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