宛楓書社圖書管理系統(tǒng)的設計與實現(xiàn)樣本

河南職業(yè)技術師范學院畢業(yè)論文題目：宛楓書社圖書管理系統(tǒng)設計與實現(xiàn)班級：信管993/992班姓名：胡孟杰、蔡大臣、張航指引教師：王改性信息工程與管理學院TIME\@"yyyy'年'M'月'd'日'"5月12日宛楓書社圖書管理系統(tǒng)設計與實現(xiàn)文檔信息開發(fā)小組：組長：胡孟杰成員：蔡大臣、張航單位：信管993/992班文獻類型：軟件開發(fā)用技術文檔當前版本：V1.0Beta作者：胡孟杰DATE5/12/完畢日期：TIME\@"yyyy'年'M'月'd'日'"5月12日軟件信息軟件名稱：宛楓書社圖書管理系統(tǒng)版本號：V1.0Beta語言類型：簡體中文軟件主頁：授權類型：免費軟件/測試版運營環(huán)境：Windows95/98/NT/Me//XP等下載地址：/download/WFSSBookShopV1.0Beta.zip軟件大小：3069KB指引教師：王改性軟件作者：胡孟杰參加開發(fā)：蔡大臣、張航等參加測試：開發(fā)人員、考試通書店（李明友）、張科偉等聯(lián)系信箱：版權所有：Copyright?-.Poweredby胡孟杰.開發(fā)日期：3月-5月有關站點：華軍軟件園、PChome、21CN、典型下載等軟件簡介：宛楓書社圖書管理系統(tǒng)V1.0Beta測試版面向中小型書店、個體書店進行全面人員、物流管理，旨在實現(xiàn)書店管理信息化。本系統(tǒng)采用會員制管理，將人員分為經(jīng)理、倉庫管理員、售書員、會員、游客等，分別擁有不同權限，各司其職，以便提高工作效率。系統(tǒng)功能涉及：供應商管理、進書管理、圖書資料管理、售書管理、會員管理、員工管理、庫存記錄、售書記錄、退貨記錄、基本記錄分析等。河南職業(yè)技術師范學院信息工程與管理學院信息管理與信息系統(tǒng)專業(yè)99級中華人民共和國.河南.新鄉(xiāng)TIME\@"yyyy-MM-dd"-05-12目錄一、前言 4二、需求分析闡明書 42.1系統(tǒng)簡介 42.2系統(tǒng)面向顧客群體 42.3系統(tǒng)功能性需求 42.4系統(tǒng)非功能性需求 52.4.1顧客界面需求 52.4.2軟硬件環(huán)境需求 52.4.3軟件質量需求 5三、可行性分析報告 53.1技術可行性 53.2人員也許性 53.3時間、設備也許性 53.4系統(tǒng)工作量 53.5代碼工作量 53.6文檔規(guī)定 5四、開發(fā)環(huán)境與項目規(guī)劃 54.1開發(fā)環(huán)境 54.2項目規(guī)劃與管理 54.2.1開發(fā)人員安排 54.2.2開發(fā)進度安排 6五、軟件界面設計原則與規(guī)范 65.1編寫目 65.2界面設計思想 65.3界面設計原則 65.4界面設計樣式 65.5常用提示信息樣式 65.6常用錯誤信息樣式 75.7其她界面商定 7六、軟件編碼設計原則與規(guī)范 76.1對象命名商定 76.2常量和變量命名商定 86.3構造化編碼商定 86.4數(shù)據(jù)源商定 96.5數(shù)據(jù)庫訪問商定 96.6其她商定 9七、數(shù)據(jù)庫分析與設計 107.1數(shù)據(jù)庫環(huán)境闡明 107.2數(shù)據(jù)庫命名原則與規(guī)范 107.3數(shù)據(jù)庫邏輯設計 107.4數(shù)據(jù)庫物理設計 107.4.1表、視圖匯總 107.4.2各表、視圖設計詳解 11八、軟件體系構造設計闡明書 158.1系統(tǒng)概述 158.2設計約束 158.3設計方略 158.4系統(tǒng)概要設計闡明書 168.4.1圖例闡明 168.4.2系統(tǒng)總體構造圖 168.4.3銷售子系統(tǒng)流程圖 178.4.4進貨子系統(tǒng)流程圖 178.4.5退貨子系統(tǒng)流程圖 178.5系統(tǒng)詳細設計闡明書 178.5.1系統(tǒng)模塊匯總 178.5.2系統(tǒng)核心模塊詳解 188.5.3系統(tǒng)模塊詳解 28九、顧客界面設計報告 429.1界面設計規(guī)范 429.2系統(tǒng)窗體匯總 429.3主界面設計 439.4子界面設計 439.5界面資源設計 44十、軟件測試分析報告 4410.1測試范疇與重要內(nèi)容 4410.2測試辦法 4410.3測試報告 4410.4改進建議與辦法 45十一、軟件使用闡明書 4511.1軟件概述 4511.2系統(tǒng)安裝 4511.3使用闡明 4511.3.1系統(tǒng)登陸 4511.3.2注銷與退出 4611.3.3辦理進貨登記 4611.3.4辦理退貨登記 4811.3.5銷售圖書 4811.3.6會員管理 4911.3.7員工管理 4911.3.8書目檢索 5011.3.9查看記錄信息 5011.3.10修改密碼 5011.3.11關于/協(xié)助 50參照資料 51一、前言宛楓書社圖書管理系統(tǒng)設計與推出是多方面因素促成，我有一位老鄉(xiāng)名叫李明友，畢業(yè)后經(jīng)營一家小書店：“考試通書店”，其尋常管理工作都是人工操作，歷史數(shù)據(jù)很難保存和運用，對于書店經(jīng)營非常不利。而其她中小型書店、個體書店大多如此。針對這種狀況，我籌劃開發(fā)一種面向中小型書店、個體書店圖書管理系統(tǒng)，實現(xiàn)對人員、物流全面管理，以協(xié)助這些書店早日實現(xiàn)書店管理信息化。正在我考慮系統(tǒng)規(guī)劃時候，我有幸得到王改性教師指引，我兩位同窗：蔡大臣、張航也加入了開發(fā)隊伍，這更加堅定了我完畢系統(tǒng)開發(fā)任務決心。為了系統(tǒng)順利開發(fā)和維護，特編制如下技術文檔：二、需求分析闡明書2.1系統(tǒng)簡介本系統(tǒng)定位于中小型書店、個體書店，暫時考慮單機環(huán)境下實現(xiàn)；操作系統(tǒng)選取當前慣用Windows98/。系統(tǒng)性質為MIS（管理信息系統(tǒng)）或財務軟件。本系統(tǒng)采用會員制管理，系統(tǒng)功能應包括進書管理、售書管理、退貨管理、庫存管理、記錄分析、有關人員管理等。系統(tǒng)界面力求簡潔、易用，在原則化基本上考慮界面美觀和新穎。系記錄劃3月初開始，4月初完畢初步開發(fā)工作，別的工作依照時間安排進行。2.2系統(tǒng)面向顧客群體系統(tǒng)面向中小型書店、個體書店，顧客群體為這些書店經(jīng)理、采購員／倉庫管理員、圖書銷售人員、書店會員／游客等。2.3系統(tǒng)功能性需求功能序號功能名稱功能闡明1供應商管理包括供應商信息登記、修改等2圖書種類管理包括圖書大類、小類創(chuàng)立3圖書資料管理包括圖書資料添加、修改等4新書入庫管理登記新書來源、數(shù)量、單價、折扣、金額等5庫存記錄分門別類記錄圖書既有庫存量、入庫時間等6進貨記錄查詢查詢歷次進貨記錄7退貨登記登記供應商、圖書種類、退貨數(shù)量、因素等8退貨記錄按供應商記錄退貨記錄9退貨記錄查詢查詢歷次退貨記錄10圖書銷售管理登記銷售種類、數(shù)量、單價、折扣、顧客/會員等11會員管理包括會員創(chuàng)立、修改、刪除等12優(yōu)惠政策管理包括優(yōu)惠政策制定與執(zhí)行13本日售書記錄記錄本日銷售圖書數(shù)量、金額等14售書記錄查詢查詢歷次售書記錄15員工管理包括員工帳號創(chuàng)立、修改、刪除等16記錄分析按年月日時段記錄書店經(jīng)營狀況17圖書檢索提供按圖書編號、書名、責任者、出版社等途徑檢索18系統(tǒng)帳號管理提供上級對下級資料、密碼管理，19個人資料、密碼管理提供修改個人資料、密碼工具2.4系統(tǒng)非功能性需求2.4.1顧客界面需求簡潔、易用、易懂，美觀、大方、原則，具備一定兼容性。2.4.2軟硬件環(huán)境需求軟件環(huán)境：兼容當前主流操作系統(tǒng)Windows95/98/NT/Me//XP等。硬件環(huán)境：386以上計算機，打印機、掃描儀等。2.4.3軟件質量需求易用、健壯、兼容性好、運營穩(wěn)定、有一定安全保障。三、可行性分析報告3.1技術可行性系統(tǒng)性質為MIS或財務軟件，因而數(shù)據(jù)庫設計與操縱是系統(tǒng)設計核心。我在11月至3月曾經(jīng)成功完畢了“藍色夢幻留言板”開發(fā)與維護任務，具備一定系統(tǒng)分析與設計能力，熟悉數(shù)據(jù)庫設計與操縱；指引教師王改性近年從事數(shù)據(jù)庫教學與研究工作，因而該系統(tǒng)實當前技術上是可行。3.2人員也許性我有“藍色夢幻留言板”開發(fā)經(jīng)驗，當前時間充分，可以完畢開發(fā)任務。蔡大臣計算機功底很深，可以參加系統(tǒng)數(shù)據(jù)庫設計與開發(fā)。張航有深厚文字功底，可以參加顧客文檔制作、內(nèi)部文檔整頓、后期測試等任務。所有人員均可及時投入開發(fā)工作。3.3時間、設備也許性系統(tǒng)設計與開發(fā)工作預測耗時一種月，所有參加開發(fā)人員均可以保證準時完畢任務。實驗設備如：計算機、打印機、掃描儀等局限性，上機任務可以完畢，打印機、掃描儀實驗依照詳細條件暫時延緩執(zhí)行。3.4系統(tǒng)工作量該系統(tǒng)工作量相對于咱們開發(fā)小組來說很大，必要保證按進度完畢任務。實際工作量預測超過一種月（每天4-8小時）。如包括軟件維護及技術文檔整頓、制作，工作量將更大。3.5代碼工作量預測需25天左右。3.6文檔規(guī)定根據(jù)國家《計算機軟件產(chǎn)品開發(fā)文獻編制指南》和《當代軟件工程》理論與原則編制原則軟件技術文檔。四、開發(fā)環(huán)境與項目規(guī)劃4.1開發(fā)環(huán)境前臺開發(fā)環(huán)境：MicrosoftVisualBasic6.0后臺數(shù)據(jù)庫環(huán)境：MicrosoftAccess/4.2項目規(guī)劃與管理4.2.1開發(fā)人員安排系統(tǒng)分析與設計：胡孟杰程序編制：胡孟杰數(shù)據(jù)庫設計：胡孟杰、蔡大臣文檔整頓與制作：蔡大臣、張航系統(tǒng)測試：胡孟杰、蔡大臣、張航、考試通書店(李明友)等4.2.2開發(fā)進度安排3月1日至3月5日：系統(tǒng)分析，進行需求定義，定義系統(tǒng)概況3月6日至3月7日：數(shù)據(jù)庫分析與設計3月8日至3月9日：軟件體系構造設計3月10日至3月31日：軟件編碼4月1日至4月2日：系統(tǒng)測試五、軟件界面設計原則與規(guī)范5.1編寫目制定界面設計原則規(guī)范目是為了規(guī)范和統(tǒng)一軟件界面設計制定軟件界面設計原則與規(guī)范。5.2界面設計思想一方面考慮原則化，在原則化基本上進行界面美工設計。5.3界面設計原則簡樸易用、簡潔明了、兼容性好、原則、規(guī)范。5.4界面設計樣式工具條采用原則Windows界面，自上至下依次為：標題欄、菜單欄、工具條、工作區(qū)、狀態(tài)欄等。如下圖示：工具條菜單欄菜單欄狀態(tài)欄工作區(qū)狀態(tài)欄工作區(qū)圖1.系統(tǒng)界面5.5常用提示信息樣式提示信息按如下原則進行：采用原則Windows對話框樣式，添加信息圖標，后接提示信息文本和相應按鈕。如下圖示：按鈕信息圖標提示文本按鈕信息圖標提示文本圖2.常用提示信息樣式5.6常用錯誤信息樣式錯誤信息根據(jù)提示信息樣式設計，將信息圖標更改為警告圖標。如下圖示：警告圖標提示文本警告圖標提示文本圖3.常用錯誤信息樣式5.7其她界面商定除主界面外，所有子界面均采用模式窗體，即該窗體不消失，不可以在本程序內(nèi)將焦點移出子窗體。六、軟件編碼設計原則與規(guī)范6.1對象命名商定對象名對象類型命名商定（前綴碼）Form窗體FrmCommand按鈕CmdLabel標簽LabTextBox文本框TxtComboBox組合框ComBListBox列表框LstBAdodb數(shù)據(jù)庫訪問對象AdodbDataGrid數(shù)據(jù)表格顯示組件DataGridFrame框架FamOption單選框OptCheckBox復選框ChkPictureBox圖象顯示組件PtBCommonDialog通用對話框組件ComDlgTimer時間組件TimToolBar工具欄TlBarMenu菜單MnuSSTab頁框SSTabImageList界面資源組件ImgLst6.2常量和變量命名商定變量名數(shù)據(jù)類型變量類型含義UserShenFenString全局變量顧客身份標志LogOKBoolean全局變量登陸狀態(tài)UserNameString全局變量顧客名GongYingShangIDString全局變量供應商編號GongYingShangString全局變量供應商名稱TuShuBianHaoString全局變量圖書編號DingJiaSingle全局變量圖書定價ShuMingString全局變量書名HuiYuanKaHaoString全局變量會員卡號HYXingMingString全局變量會員姓名HYDengJiString全局變量會員級別6.3構造化編碼商定編碼應清晰、可讀性好，運用縮進、空行，結合大小寫區(qū)別等辦法保持程序構造良好。凡與數(shù)據(jù)庫操作有關模塊一律加上容錯代碼，涉及多表操作模塊應運用“事務”解決，以保持數(shù)據(jù)完整性。編碼風格參照下例進行：PublicSubCheckUser(userIDAsString，passwdAsString)DimuserDBAsDatabaseDimuserRDAsRecordsetDimdbNameAsStringDimSTRSQLAsStringScreen.MousePointer=11OnErrorGoToerrEnddbName=App.PathIfRight(dbName，1)<>"、"ThendbName=dbName+"、"dbName=dbName+"DataBase、WFSSDataBase.mdb"STRSQL="select[顧客身份]from[Admin]where[顧客ID]="""&userID&"""and[顧客密碼]="""&passwd&""""'打開數(shù)據(jù)庫SetuserDB=DBEngine.Workspaces(0).OpenDatabase(dbName，F(xiàn)alse，True)'檢索顧客,驗證密碼SetuserRD=userDB.OpenRecordset(STRSQL，dbOpenSnapshot)IfuserRD.RecordCount>0Then'設立顧客身份UserShenFen=userRD![顧客身份]'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=Nothing'進入顧客環(huán)境LoadFrmMainFrmMain.ShowUnloadFrmLogInlogOK=TrueuserName=userIDScreen.MousePointer=vbDefaultElse'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothinglogOK=FalseScreen.MousePointer=vbDefaultMsgBox"顧客名或密碼錯誤！請重新輸入！"，vbOKOnly+vbExclamation，"登陸失敗"EndIfExitSuberrEnd：Screen.MousePointer=vbDefaultMsgBoxErr.Description，vbOKOnly+vbExclamation，"登陸錯誤"logOK=FalseErr.Clear'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingExitSubEndSub6.4數(shù)據(jù)源商定需用數(shù)據(jù)源組件如：DataGrid一律采用Adodb控件。有特殊需求狀況如：身份驗證應引用DAO(數(shù)據(jù)訪問對象)。6.5數(shù)據(jù)庫訪問商定數(shù)據(jù)庫引擎采用Microsoft.Jet.OLEDB.4.0，由Adodb組件進行數(shù)據(jù)庫訪問，并為其她組件提供數(shù)據(jù)源。特殊狀況、身份驗證等由DAO訪問數(shù)據(jù)庫。6.6其她商定無需數(shù)據(jù)顯示狀況由DAO提供數(shù)據(jù)庫支持，有數(shù)據(jù)顯示狀況由ADODB組件提供數(shù)據(jù)庫支持。七、數(shù)據(jù)庫分析與設計7.1數(shù)據(jù)庫環(huán)境闡明考慮該系統(tǒng)定位與既有技術力量,決定采用MicrosoftAccess/作為系統(tǒng)后臺數(shù)據(jù)庫開發(fā)環(huán)境。7.2數(shù)據(jù)庫命名原則與規(guī)范闡明：下表所列為數(shù)據(jù)庫及各表、視圖命名辦法，詳細信息請參閱7.4.1表、視圖匯總。名稱類型命名辦法商定WFSSDataBase系統(tǒng)數(shù)據(jù)庫字母表基本表中文或字母查詢查詢中文字段字段中文或字母7.3數(shù)據(jù)庫邏輯設計會員表會員級別會員表會員級別會員卡號…會員政策會員級別…Admin顧客ID…員工表員工帳號…Admin顧客ID…員工表員工帳號…圖書分類圖書分類圖書分類號…售書記錄會員卡號圖書編號售書記錄會員卡號圖書編號…Book圖書分類號圖書編號…圖書進價表圖書進價表圖書編號…進書記錄圖書編號供應商編號進書記錄圖書編號供應商編號…退貨記錄圖書編號供應商編號…退貨記錄圖書編號供應商編號…供應商供應商編號…圖4.數(shù)據(jù)庫邏輯構造圖7.4數(shù)據(jù)庫物理設計7.4.1表、視圖匯總視圖/表名類型闡明Admin基本表集中保存系統(tǒng)顧客帳號、密碼Book基本表集中存儲書目信息員工表基本表存儲員工資料供應商基本表供應商資料會員表基本表會員資料會員政策基本表會員原則及優(yōu)惠政策進書記錄基本表進書歷史記錄客戶反饋基本表客戶反饋信息售書記錄基本表售書歷史記錄書店簡介基本表書店簡介圖書分類基本表圖書類別圖書進價表基本表圖書進價列表退貨記錄基本表退貨歷史記錄讀者查詢查詢提供應所有顧客書目查詢界面基本記錄查詢基本記錄分析進書查詢查詢進書記錄查詢,含進書記錄售書查詢查詢圖書銷售記錄查詢售書記錄查詢圖書銷售記錄記錄退貨查詢查詢退貨記錄查詢退貨記錄查詢退貨記錄員工信息查詢員工信息查詢庫存記錄查詢既有庫存記錄反饋信息查詢客戶反饋信息查詢7.4.2各表、視圖設計詳解[闡明]：空缺位置表達無規(guī)定，主鍵在約束欄注明?；颈恚篬Admin]字段類型長度格式約束顧客ID文本250主鍵顧客密碼文本250顧客身份文本250基本表：[Book]字段類型長度格式約束圖書編號文本250主鍵圖書分類號文本150書名文本255叢書文本150作者文本255出版社文本255版次文本150ISBN文本250定價貨幣庫存量數(shù)字（整型）內(nèi)容簡介備注核心詞文本255出版日期文本150入庫時間日期/時間長日期Now()基本表：[供應商]字段類型長度格式約束供應商編號文本250主鍵供應商文本255地址文本255網(wǎng)址文本255聯(lián)系人文本255電話文本50傳真文本150電子郵件文本150單位簡介備注基本表：[會員表]字段類型長度格式約束會員卡號文本50主鍵會員級別文本50姓名文本150性別文本50地址文本250單位文本250電話文本50電子郵件文本150人生格言備注注冊日期日期/時間長日期基本表：[會員政策]字段類型長度格式約束會員級別文本50主鍵會員原則數(shù)字(整型)打折文本50贈送禮物文本250備注備注基本表：[進書記錄]字段類型長度格式約束ID自動編號（長整型）主鍵供應商編號文本250圖書編號文本250數(shù)量數(shù)字（長整型）單價貨幣折扣數(shù)字（單精度型）金額貨幣進書日期日期/時間長日期備注備注基本表：[客戶反饋]字段類型長度格式約束ID自動編號（長整型）主鍵姓名文本150身份文本50性別文本50單位文本255地址文本255電子郵件文本150反饋信息備注反饋日期日期/時間長日期基本表：[售書記錄]字段類型長度格式約束ID自動編號（長整型）主鍵圖書編號文本250數(shù)量數(shù)字（整型）會員卡號文本250實際打折數(shù)字（單精度型）實收金額貨幣日期文本50長日期備注備注基本表：[書店簡介]字段類型長度格式約束書店名稱文本255主鍵地址文本255網(wǎng)址文本255聯(lián)系人文本150電話文本50手機數(shù)字（長整型）電子郵件文本150書店簡介備注備注備注基本表：[圖書分類]字段類型長度格式約束圖書分類號文本150主鍵圖書分類文本250所屬父類編號文本150基本表：[圖書進價表]字段類型長度格式約束圖書編號文本150主鍵進價貨幣進書日期日期/時間長日期基本表：[退貨記錄]字段類型長度格式約束ID自動編號（長整型）主鍵供應商編號文本250圖書編號文本250進價貨幣退貨數(shù)量數(shù)字（整型）金額貨幣退貨因素備注退貨日期日期/時間長日期備注備注基本表：[員工表]字段類型長度格式約束員工帳號文本250主鍵姓名文本150性別文本50地址文本255電話文本50手機文本150電子郵件文本150人生格言備注創(chuàng)立日期日期/時間長日期Now()視圖：[基本記錄]圖5.基本記錄視圖構造視圖：[讀者查詢]圖6.讀者查詢視圖構造視圖：[退貨記錄]圖7.退貨記錄視圖構造視圖：[售書記錄]圖8.售書記錄視圖構造視圖：[售書查詢]圖9.售書查詢視圖構造注：其她視圖構造：[略]。八、軟件體系構造設計闡明書8.1系統(tǒng)概述在單機環(huán)境下進行系統(tǒng)安全考慮，有必要進行顧客權限劃分與控制，因而系統(tǒng)在總體上應包括安全子系統(tǒng)之下各類顧客工作環(huán)境。顧客權限合理劃分與有效控制是本系統(tǒng)體系構造設計核心。8.2設計約束系統(tǒng)將實現(xiàn)人員、物流全面管理，而物流管理是系統(tǒng)核心部件，如何實現(xiàn)兩者共存，互不干擾，是本系統(tǒng)設計難點。本系統(tǒng)必要實現(xiàn)對顧客權限有效合理控制。8.3設計方略由于所有物流都需要有人員活動才可以發(fā)生，因而，我決定采用一種“人員活動帶動物流”方略來解決人員管理與物流管理統(tǒng)一管理問題。這個想法是模仿現(xiàn)實而來，例如說，只有采購人員進行了“采購”或“進書”活動，才會引起“入庫登記”或“新書入庫”這個物流。8.4系統(tǒng)概要設計闡明書8.4.1圖例闡明過程、模塊1.解決過程：過程、模塊數(shù)據(jù)表2.數(shù)據(jù)存儲：數(shù)據(jù)表決策3.決策4.數(shù)據(jù)流：(單向)5.數(shù)據(jù)流：（雙向）實體實體6.外部實體：數(shù)據(jù)表7.帶有變動歷史數(shù)據(jù)存儲：數(shù)據(jù)表8.4.2系統(tǒng)總體構造圖登陸驗證登陸驗證會員政策員工管理書店概況記錄分析安全子系統(tǒng)權限控制身份鑒別會員政策員工管理書店概況記錄分析安全子系統(tǒng)權限控制身份鑒別經(jīng)理子系統(tǒng)經(jīng)理子系統(tǒng)宛楓書社圖書管理系統(tǒng)宛楓書社圖書管理系統(tǒng)基本記錄退貨記錄庫存記錄進貨記錄銷售記錄基本記錄退貨記錄庫存記錄進貨記錄銷售記錄進貨子系統(tǒng)庫存管理退貨子系統(tǒng)進貨子系統(tǒng)庫存管理退貨子系統(tǒng)書目管理入庫登記供應商管理倉庫管理員子系統(tǒng)書目管理入庫登記供應商管理倉庫管理員子系統(tǒng)刪除帳號修改資料創(chuàng)立帳號銷售記錄會員管理銷售子系統(tǒng)刪除帳號修改資料創(chuàng)立帳號銷售記錄會員管理銷售子系統(tǒng)售書員子系統(tǒng)售書員子系統(tǒng)購書記錄修改密碼個人資料購書記錄修改密碼個人資料會員子系統(tǒng)會員子系統(tǒng)信息反饋會員注冊書目檢索信息反饋會員注冊書目檢索游客子系統(tǒng)游客子系統(tǒng)圖10.系統(tǒng)總體構造圖8.4.3銷售子系統(tǒng)流程圖售書員售書員BookBook會員表選取圖書選取會員會員表選取圖書選取會員會員表圖書銷售優(yōu)惠政策會員表圖書銷售優(yōu)惠政策售書記錄售書記錄圖11.銷售子系統(tǒng)流程圖8.4.4進貨子系統(tǒng)流程圖倉管員倉管員選取供應商供應商選取供應商供應商修改資料供應商登記修改資料供應商登記選取品種供應商供應商選取品種供應商供應商添加類別添加品種添加類別添加品種BookBook入庫登記修改資料圖書分類入庫登記修改資料圖書分類BookBook圖書進價表進貨記錄圖書進價表進貨記錄圖12.進貨子系統(tǒng)流程圖8.4.5退貨子系統(tǒng)流程圖選取供應商倉管員供應商選取品種退貨記錄退貨登記Book進貨記錄選取供應商倉管員供應商選取品種退貨記錄退貨登記Book進貨記錄圖13.退貨子系統(tǒng)流程圖8.5系統(tǒng)詳細設計闡明書8.5.1系統(tǒng)模塊匯總模塊名類型原型或聲明模塊闡明CheckUser子程序PublicSubCheckUser(userIDAsString，passwdAsString)顧客帳號、密碼驗證和身份鑒別LogOff子程序PublicSubLogOff()注銷模塊Sys_exit子程序PublicSubSys_exit()系統(tǒng)退出摸塊Form_Load子程序PrivateSubForm_Load()初始化模塊，連接數(shù)據(jù)庫GetHYDaZhe函數(shù)PublicFunctionGetHYDaZhe(bianHaoAsString)AsString提取會員政策會員優(yōu)惠辦法GetKuCun函數(shù)PublicFunctionGetKuCun(bianHaoAsString)AsString獲取、檢查圖書既有庫存量HYShengJi函數(shù)PublicFunctionHYShengJi(HYKaHaoAsString)AsBoolean會員升級維護CmdSellBook_Click子程序PrivateSubCmdSellBook_Click()圖書銷售模塊checkGYSID函數(shù)PublicFunctioncheckGYSID(UIDAsString)AsBoolean檢查數(shù)據(jù)表主鍵，避免插入錯誤checkFenLei函數(shù)PublicFunctioncheckFenLei(UIDAsString)AsBoolean檢測圖書分類與否已經(jīng)存在CmdNewFenLei_Click子程序PrivateSubCmdNewFenLei_Click()創(chuàng)立類別checkUserID函數(shù)PublicFunctioncheckUserID(UIDAsString)AsBoolean檢測顧客帳號與否存在CmdChgPass_Click子程序PrivateSubCmdChgPass_Click()修改密碼CmdRegMe_Click子程序PrivateSubCmdRegMe_Click()創(chuàng)立員工、會員帳號GetJinJia函數(shù)PublicFunctionGetJinJia(bianHaoAsString)AsString提取圖書進價CmdTH_Click子程序PrivateSubCmdTH_Click()退貨模塊CmdSaveContinue_Click子程序PrivateSubCmdSaveContinue_Click()供應商信息登記注：其她模塊（略）8.5.2系統(tǒng)核心模塊詳解全局變量定義：'顧客身份標志PublicUserShenFenAsString'登陸狀態(tài)PubliclogOKAsBoolean'顧客名PublicuserNameAsString'供應商編號PublicGongYingShangIDAsString'供應商PublicGongYingShangAsString'圖書編號PublicTuShuBianHaoAsString'定價PublicDingJiaAsString'書名PublicShuMingAsString'會員卡號PublicHuiYuanKaHaoAsString'會員姓名PublicHYXingMingAsString'會員級別PublicHYDengJiAsString模塊名：CheckUser原型：PublicSubCheckUser(userIDAsString，passwdAsString)代碼：PublicSubCheckUser(userIDAsString，passwdAsString)DimuserDBAsDatabaseDimuserRDAsRecordsetDimdbNameAsStringDimSTRSQLAsStringScreen.MousePointer=11OnErrorGoToerrEnddbName=App.PathIfRight(dbName，1)<>"\"ThendbName=dbName+"\"dbName=dbName+"DataBase\WFSSDataBase.mdb"STRSQL="select[顧客身份]from[Admin]where[顧客ID]="""&userID&"""and[顧客密碼]="""&passwd&""""'打開數(shù)據(jù)庫SetuserDB=DBEngine.Workspaces(0).OpenDatabase(dbName，F(xiàn)alse，True)'檢索顧客,驗證密碼SetuserRD=userDB.OpenRecordset(STRSQL，dbOpenSnapshot)IfuserRD.RecordCount>0Then'設立顧客身份UserShenFen=userRD![顧客身份]'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=Nothing'進入顧客環(huán)境LoadFrmMainFrmMain.ShowUnloadFrmLogInlogOK=TrueuserName=userIDScreen.MousePointer=vbDefaultElse'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothinglogOK=FalseScreen.MousePointer=vbDefaultMsgBox"顧客名或密碼錯誤！請重新輸入！"，vbOKOnly+vbExclamation，"登陸失敗"EndIfExitSuberrEnd:Screen.MousePointer=vbDefaultMsgBoxErr.Description，vbOKOnly+vbExclamation，"登陸錯誤"logOK=FalseErr.Clear'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingExitSubEndSub模塊名：LogOff模塊原型：PublicSubLogOff()代碼：PublicSubLogOff()DimretValAsIntegerretVal=MsgBox("你擬定要注銷嗎？"，vbOKCancel+vbQuestion，"注銷當前顧客")IfretVal=vbCancelThenExitSubLoadFrmLogInFrmLogIn.ShowIfUserShenFen="經(jīng)理"ThenUnloadFrmAdminMainElseIfUserShenFen="倉庫管理員"ThenUnloadFrmCangGuanMainElseIfUserShenFen="售書員"ThenUnloadFrmBookSellerMainElseIfUserShenFen="會員"ThenUnloadFrmMemberMainElseUnloadFrmGuestMainEndIfUnloadFrmMainUserShenFen=""logOK=FalseEndSub模塊名：Sys_exit模塊原型：PublicSubSys_exit()代碼：PublicSubSys_exit()DimretValAsIntegerretVal=MsgBox("你擬定要退出嗎？"，vbOKCancel+vbQuestion，"退出系統(tǒng)")IfretVal=vbCancelThenExitSubIfUserShenFen="經(jīng)理"ThenUnloadFrmAdminMainElseIfUserShenFen="倉庫管理員"ThenUnloadFrmCangGuanMainElseIfUserShenFen="售書員"ThenUnloadFrmBookSellerMainElseIfUserShenFen="會員"ThenUnloadFrmMemberMainElseUnloadFrmGuestMainEndIfUnloadFrmMainEndEndSub模塊名：Form_Load模塊原型：PrivateSubForm_Load()代碼：PrivateSubForm_Load()DimdbNameAsStringDimconnSTRAsStringOnErrorGoToerrEndChDirApp.PathdbName=App.PathIfRight(dbName，1)<>"\"ThendbName=dbName+"\"dbName=dbName+"DataBase\WFSSDataBase.mdb"connSTR="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbName&";PersistSecurityInfo=False"Adodc1.ConnectionString=connSTRExitSuberrEnd:MsgBox"連接數(shù)據(jù)庫失敗!"，vbOKOnly+vbExclamation，"打開數(shù)據(jù)庫出錯"EndEndSub模塊名：GetHYDaZhe模塊原型：PublicFunctionGetHYDaZhe(bianHaoAsString)AsString代碼：PublicFunctionGetHYDaZhe(bianHaoAsString)AsStringOnErrorGoToerrEndIfbianHao="☆☆☆☆☆"ThenGetHYDaZhe="1"ExitFunctionEndIfAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select[打折]from[會員政策]where[會員級別]="""&bianHao&""""Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstGetHYDaZhe=Adodc1.Recordset!打折ElseMsgBox"會員政策數(shù)據(jù)丟失,請與經(jīng)理聯(lián)系!"，vbOKOnly+vbExclamation，"檢索錯誤"GetHYDaZhe="1"EndIfExitFunctionerrEnd:MsgBox"檢索數(shù)據(jù)庫出錯!"，vbOKOnly+vbExclamation，"檢索錯誤"GetDingJia="未知"EndFunction模塊名：GetKuCun模塊原型：PublicFunctionGetKuCun(bianHaoAsString)AsString代碼：PublicFunctionGetKuCun(bianHaoAsString)AsStringOnErrorGoToerrEndAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select[庫存量]from[Book]where[圖書編號]="""&bianHao&""""Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstGetKuCun=Adodc1.Recordset!庫存量ElseMsgBox"圖書資料數(shù)據(jù)丟失,請與經(jīng)理聯(lián)系!"，vbOKOnly+vbExclamation，"檢索錯誤"GetKuCun="0"EndIfExitFunctionerrEnd:MsgBox"檢索數(shù)據(jù)庫出錯!"，vbOKOnly+vbExclamation，"檢索錯誤"GetDingJia="未知"EndFunction模塊名：HYShengJi模塊原型：PublicFunctionHYShengJi(HYKaHaoAsString)AsBoolean代碼：PublicFunctionHYShengJi(HYKaHaoAsString)AsBooleanOnErrorGoToerrEndDimBiaoZhunAsIntegerDimSUMBookAsIntegerIfHYKaHao="Guest"ThenHYShengJi=FalseExitFunctionEndIfBeginTransAdodc1.CommandType=adCmdTextAdodc1.RecordSource="selectsum([實收金額])as[總金額]from[售書記錄]where[會員卡號]="""&HYKaHao&""""Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstSUMBook=CInt(Adodc1.Recordset!總金額)ElseSUMBook=0EndIfAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select[會員原則]from[會員政策]where[會員級別]='★☆☆☆☆'"Adodc1.RefreshAdodc1.Recordset.MoveFirstBiaoZhun=CInt(Adodc1.Recordset!會員原則)IfSUMBook>=BiaoZhunThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from[會員表]where[會員卡號]="""&HYKaHao&""""Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset!會員級別="★☆☆☆☆"Adodc1.Recordset.UpdateEndIfEndIfAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select[會員原則]from[會員政策]where[會員級別]='★★☆☆☆'"Adodc1.RefreshAdodc1.Recordset.MoveFirstBiaoZhun=CInt(Adodc1.Recordset!會員原則)IfSUMBook>=BiaoZhunThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from[會員表]where[會員卡號]="""&HYKaHao&""""Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset!會員級別="★★☆☆☆"Adodc1.Recordset.UpdateEndIfEndIfAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select[會員原則]from[會員政策]where[會員級別]='★★★☆☆'"Adodc1.RefreshAdodc1.Recordset.MoveFirstBiaoZhun=CInt(Adodc1.Recordset!會員原則)IfSUMBook>=BiaoZhunThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from[會員表]where[會員卡號]="""&HYKaHao&""""Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset!會員級別="★★★☆☆"Adodc1.Recordset.UpdateEndIfEndIfAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select[會員原則]from[會員政策]where[會員級別]='★★★★☆'"Adodc1.RefreshAdodc1.Recordset.MoveFirstBiaoZhun=CInt(Adodc1.Recordset!會員原則)IfSUMBook>=BiaoZhunThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from[會員表]where[會員卡號]="""&HYKaHao&""""Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset!會員級別="★★★★☆"Adodc1.Recordset.UpdateEndIfEndIfAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select[會員原則]from[會員政策]where[會員級別]='★★★★★'"Adodc1.RefreshAdodc1.Recordset.MoveFirstBiaoZhun=CInt(Adodc1.Recordset!會員原則)IfSUMBook>=BiaoZhunThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from[會員表]where[會員卡號]="""&HYKaHao&""""Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset!會員級別="★★★★★"Adodc1.Recordset.UpdateEndIfEndIfCommitTransHYShengJi=FalseExitFunctionerrEnd:RollbackHYShengJi=TrueScreen.MousePointer=vbDefaultMsgBox"檢查會員與否應升級時操作失?。?，vbOKOnly+vbExclamation，"圖書銷售"CmdOK.Enabled=TrueEndFunction模塊名：CmdSellBook_Click模塊原型：PrivateSubCmdSellBook_Click()代碼：PrivateSubCmdSellBook_Click()OnErrorGoToerrEndDimQDAsIntegerCmdSellBook.Enabled=FalseIfTxtShuLiang.Text=""ThenMsgBox"請輸入交易數(shù)量!"，vbOKOnly+vbExclamation，"填寫數(shù)量"TxtShuLiang.SetFocusCmdSellBook.Enabled=TrueExitSubEndIfIfGetKuCun(TuShuBianHao)<=0OrGetKuCun(TuShuBianHao)<TxtShuLiang.TextThenMsgBox"該類圖書庫存量局限性,請與倉庫管理員聯(lián)系!"，vbOKOnly+vbExclamation，"庫存局限性"TxtShuLiang.SetFocusCmdSellBook.Enabled=TrueExitSubEndIfIfTxtZheKou.Text=""ThenMsgBox"請輸入交易實際折扣率!"，vbOKOnly+vbExclamation，"填寫折扣"TxtZheKou.SetFocusCmdSellBook.Enabled=TrueExitSubEndIfIfTxtZheKou.Text<=0OrTxtZheKou.Text>1ThenMsgBox"實際折扣率填寫錯誤!請在0與1之間選取."，vbOKOnly+vbExclamation，"填寫折扣"TxtZheKou.SetFocusCmdSellBook.Enabled=TrueExitSubEndIfIfTxtSJJinE.Text=""ThenMsgBox"請輸入交易實際金額!"，vbOKOnly+vbExclamation，"填寫金額"TxtSJJinE.SetFocusCmdSellBook.Enabled=TrueExitSubEndIfIfTxtMemo.Text=""ThenTxtMemo.Text="無"QD=MsgBox("擬定入帳嗎?"，vbOKCancel+vbQuestion，"確認入帳")IfQD=vbCancelThenCmdSellBook.Enabled=TrueExitSubEndIf'售書入帳Screen.MousePointer=11BeginTransAdodc1.CommandType=adCmdTableAdodc1.RecordSource="售書記錄"Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset!圖書編號=TuShuBianHaoAdodc1.Recordset!數(shù)量=TxtShuLiang.TextAdodc1.Recordset!會員卡號=HuiYuanKaHaoAdodc1.Recordset!實際打折=TxtZheKou.TextAdodc1.Recordset!實收金額=TxtSJJinE.TextAdodc1.Recordset!日期=Year(Now)&"-"&Month(Now)&"-"&Day(Now)&"."Adodc1.Recordset!備注=TxtMemo.TextAdodc1.Recordset.UpdateAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from[Book]where[圖書編號]="""&TuShuBianHao&""""Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset!庫存量=Adodc1.Recordset!庫存量-TxtShuLiang.TextAdodc1.Recordset.UpdateElseRollbackScreen.MousePointer=vbDefaultMsgBox"圖書資料丟失，請與倉庫管理員聯(lián)系！"，vbOKOnly+vbExclamation，"交易失敗"CmdSellBook.Enabled=TrueExitSubEndIfIfHYShengJi(HuiYuanKaHao)ThenRollbackCommitTransScreen.MousePointer=vbDefaultMsgBox"恭喜您,交易成功!"，vbOKOnly+vbInformation，"交易成功"UnloadMeExitSuberrEnd:RollbackScreen.MousePointer=vbDefaultMsgBoxErr.Description，vbOKOnly+vbExclamation，"操作數(shù)據(jù)庫出錯交易失敗"CmdSellBook.Enabled=TrueEndSub8.5.3系統(tǒng)模塊詳解模塊名：checkGYSID模塊原型：PublicFunctioncheckGYSID(UIDAsString)AsBoolean代碼：PublicFunctioncheckGYSID(UIDAsString)AsBooleanDimuserDBAsDatabaseDimuserRDAsRecordsetDimdbNameAsStringDimSTRSQLAsStringScreen.MousePointer=11OnErrorGoToerrEnddbName=App.PathIfRight(dbName，1)<>"\"ThendbName=dbName+"\"dbName=dbName+"DataBase\WFSSDataBase.mdb"STRSQL="select[圖書分類]from[圖書分類]where[圖書分類號]="""&UID&""""'打開數(shù)據(jù)庫SetuserDB=DBEngine.Workspaces(0).OpenDatabase(dbName，F(xiàn)alse，True)'檢索顧客,驗證密碼SetuserRD=userDB.OpenRecordset(STRSQL，dbOpenSnapshot)IfuserRD.RecordCount>0Then'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingcheckGYSID=TrueScreen.MousePointer=vbDefaultElse'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingScreen.MousePointer=vbDefaultcheckGYSID=FalseEndIfExitFunctionerrEnd:Screen.MousePointer=vbDefaultMsgBoxErr.Description，vbOKOnly+vbExclamation，"創(chuàng)立類別"Err.Clear'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingEndFunction模塊名：checkFenLei模塊原型：PublicFunctioncheckFenLei(UIDAsString)AsBoolean代碼：PublicFunctioncheckFenLei(UIDAsString)AsBooleanDimuserDBAsDatabaseDimuserRDAsRecordsetDimdbNameAsStringDimSTRSQLAsStringScreen.MousePointer=11OnErrorGoToerrEnddbName=App.PathIfRight(dbName，1)<>"\"ThendbName=dbName+"\"dbName=dbName+"DataBase\WFSSDataBase.mdb"STRSQL="select[圖書分類]from[圖書分類]where[圖書分類]="""&UID&""""'打開數(shù)據(jù)庫SetuserDB=DBEngine.Workspaces(0).OpenDatabase(dbName，F(xiàn)alse，True)'檢索顧客,驗證密碼SetuserRD=userDB.OpenRecordset(STRSQL，dbOpenSnapshot)IfuserRD.RecordCount>0Then'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingcheckFenLei=TrueScreen.MousePointer=vbDefaultElse'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingScreen.MousePointer=vbDefaultcheckFenLei=FalseEndIfExitFunctionerrEnd:Screen.MousePointer=vbDefaultMsgBoxErr.Description，vbOKOnly+vbExclamation，"創(chuàng)立類別"Err.Clear'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingEndFunction模塊名：CmdNewFenLei_Click模塊原型：PrivateSubCmdNewFenLei_Click()代碼：PrivateSubCmdNewFenLei_Click()OnErrorGoToerrEndIfTxtBianHao.Text=""ThenMsgBox"請?zhí)顚憟D書分類號!"，vbOKOnly+vbExclamation，"創(chuàng)立分類"TxtBianHao.SetFocusExitSubEndIfIfTxtLeiBie.Text=""ThenMsgBox"請?zhí)顚憟D書分類名稱!"，vbOKOnly+vbExclamation，"創(chuàng)立分類"TxtLeiBie.SetFocusExitSubEndIfIfcheckFenLei(TxtLeiBie.Text)ThenMsgBox"圖書分類名稱不唯一，請另選一種！"，vbOKOnly+vbExclamation，"創(chuàng)立分類"TxtLeiBie.SetFocusTxtLeiBie.SelStart=0TxtLeiBie.SelLength=Len(TxtLeiBie.Text)ExitSubEndIfIfComboFuLei.Text<>""AndComboFuLei.Text<>"選取父類"ThenIfNotcheckFenLei(ComboFuLei.Text)ThenMsgBox"所選父類不存在！請重試！"，vbOKOnly+vbExclamation，"選取父類"ComboFuLei.SetFocusExitSubEndIfAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select[圖書分類號]from[圖書分類]where[圖書分類號]=[所屬父類編號]and[圖書分類]="""&ComboFuLei.Text&""""Adodc1.RefreshAdodc1.Recordset.MoveFirstFuLeiBianHao=Adodc1.Recordset!圖書分類號EndIfIfcheckGYSID(TxtBianHao.Text)ThenMsgBox"圖書分類編號不唯一，請另選一種！"，vbOKOnly+vbExclamation，"創(chuàng)立分類"TxtBianHao.SetFocusTxtBianHao.SelStart=0TxtBianHao.SelLength=Len(TxtBianHao.Text)ExitSubEndIfIfFuLeiBianHao=""ThenFuLeiBianHao=TxtBianHao.TextAdodc1.CommandType=adCmdTableAdodc1.RecordSource="圖書分類"Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset!圖書分類號=TxtBianHao.TextAdodc1.Recordset!圖書分類=TxtLeiBie.TextAdodc1.Recordset!所屬父類編號=FuLeiBianHaoAdodc1.Recordset.UpdateMsgBox"創(chuàng)立分類成功！"，vbOKOnly+vbInformation，"創(chuàng)立分類"TxtBianHao.Text=""TxtLeiBie.Text=""ComboFuLei.Text="選取父類"FuLeiBianHao=""TxtFuLei.Text=""TxtBianHao.SetFocusExitSuberrEnd:MsgBox"更新數(shù)據(jù)庫失敗!"，vbOKOnly+vbExclamation，"數(shù)據(jù)庫出錯"EndSub模塊名：checkUserID模塊原型：PublicFunctioncheckUserID(UIDAsString)AsBoolean代碼：PublicFunctioncheckUserID(UIDAsString)AsBooleanDimuserDBAsDatabaseDimuserRDAsRecordsetDimdbNameAsStringDimSTRSQLAsStringScreen.MousePointer=11OnErrorGoToerrEnddbName=App.PathIfRight(dbName，1)<>"\"ThendbName=dbName+"\"dbName=dbName+"DataBase\WFSSDataBase.mdb"STRSQL="select[顧客身份]from[Admin]where[顧客ID]="""&UID&""""'打開數(shù)據(jù)庫SetuserDB=DBEngine.Workspaces(0).OpenDatabase(dbName，F(xiàn)alse，True)'檢索顧客,驗證密碼SetuserRD=userDB.OpenRecordset(STRSQL，dbOpenSnapshot)IfuserRD.RecordCount>0Then'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingcheckUserID=TrueScreen.MousePointer=vbDefaultElse'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingScreen.MousePointer=vbDefaultcheckUserID=FalseEndIfExitFunctionerrEnd:Screen.MousePointer=vbDefaultMsgBoxErr.Description，vbOKOnly+vbExclamation，"修改密碼"Err.Clear'關閉數(shù)據(jù)庫userRD.CloseSetuserRD=NothinguserDB.CloseSetuserDB=NothingEndFunction模塊名：CmdChgPass_Click模塊原型：PrivateSubCmdChgPass_Click()代碼：PrivateSubCmdChgPass_Click()OnErrorGoToerrEndIfTxtUserID.Text=""ThenMsgBox"請輸入你帳號！"，vbOKOnly+vbExclamation，"更改密碼"TxtUserID.SetFocusExitSubEndIfIfTxtPasswd.Text=""ThenMsgBox"請輸入你舊密碼！"，vbOKOnly+vbExclamation，"更改密碼"TxtPasswd.SetFocusExitSubEndIfIfTxtNewPasswd.Text=""ThenMsgBox"請輸入你新密碼！"，vbOKOnly+vbExclamation，"更改密碼"TxtNewPasswd.SetFocusExitSubEndIfIfTxtNewPasswd.Text<>TxtNewPasswdC.TextThenMsgBox"密碼輸入不一致，請重試！"，vbOKOnly+vbExclamation，"更改密碼"TxtPasswd.Text=""TxtNewPasswd.Text=""TxtNewPasswdC.Text=""TxtPasswd.SetFocusExitSubEndIfIfcheckUserID(TxtUserID.Text)ThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from[Admin]where[顧客密碼]="""&TxtPasswd.Text&"""and[顧客ID]="""&TxtUserID.Text&""""Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset!顧客密碼=TxtNewPasswd.TextAdodc1.Recordset.UpdateElseMsgBox"顧客密碼驗證錯誤！你無權修改密碼！"，vbOKOnly+vbExclamation，"密碼錯誤"TxtPass