【文章內(nèi)容簡介】 Set userRD = Nothing Set userDB = Nothing Exit SubEnd Sub需用數(shù)據(jù)源的組件如：DataGrid 一律采用 Adodb 控件。有特殊需求的第 11 頁 共 45 頁情況如：身份驗(yàn)證應(yīng)引用 DAO(數(shù)據(jù)訪問對(duì)象)。數(shù)據(jù)庫引擎采用 ，由 Adodb 組件進(jìn)行數(shù)據(jù)庫的訪問，并為其他組件提供數(shù)據(jù)源。特殊情況、身份驗(yàn)證等由 DAO 訪問數(shù)據(jù)庫。無需數(shù)據(jù)顯示的情況由 DAO 提供數(shù)據(jù)庫支持，有數(shù)據(jù)顯示的情況由ADODB 組件提供數(shù)據(jù)庫支持。第 12 頁 共 45 頁六、數(shù)據(jù)庫分析與設(shè)計(jì)考慮該系統(tǒng)的定位與現(xiàn)有技術(shù)力量,決定采用 Microsoft Access 2022/2022 作為系統(tǒng)的后臺(tái)數(shù)據(jù)庫開發(fā)環(huán)境。說明：下表所列為數(shù)據(jù)庫及各表、視圖的命名方法，具體信息請(qǐng)參閱 表、視圖匯總。名稱 類型 命名辦法約定WFSSDataBase 系統(tǒng)數(shù)據(jù)庫 字母表 基本表 漢字或字母查詢 查詢 漢字字段 字段 漢字或字母 圖 退貨記錄圖書編號(hào)供應(yīng)商編號(hào)…Admin用戶 ID…員工表員工帳號(hào)…會(huì)員政策會(huì)員級(jí)別…圖書分類圖書分類號(hào)…Book圖書分類號(hào)圖書編號(hào)…進(jìn)書記錄圖書編號(hào)供應(yīng)商編號(hào)…供應(yīng)商供應(yīng)商編號(hào)…會(huì)員表會(huì)員級(jí)別會(huì)員卡號(hào)…售書記錄會(huì)員卡號(hào)圖書編號(hào)…圖書進(jìn)價(jià)表圖書編號(hào)…第 13 頁 共 45 頁（1）表、視圖匯總視圖/表名 說明Admin 集中保存系統(tǒng)用戶的帳號(hào)、密碼Book 集中存放書目信息員工表 存放員工資料供應(yīng)商 供應(yīng)商資料會(huì)員表 會(huì)員資料會(huì)員政策 會(huì)員標(biāo)準(zhǔn)及優(yōu)惠政策進(jìn)書記錄 進(jìn)書歷史記錄客戶反饋 客戶反饋信息售書記錄 售書歷史記錄書店簡介 書店簡介圖書分類 圖書類別圖書進(jìn)價(jià)表 圖書進(jìn)價(jià)列表退貨記錄 退貨歷史記錄讀者查詢 提供給所有用戶的書目查詢界面基本統(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ì)員工信息 員工信息查詢庫存統(tǒng)計(jì) 現(xiàn)有庫存統(tǒng)計(jì)反饋信息 客戶反饋信息查詢第 14 頁 共 45 頁七、軟件體系結(jié)構(gòu)設(shè)計(jì)說明書在單機(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ì)的核心。系統(tǒng)將實(shí)現(xiàn)人員、物流的全面管理，而物流管理是系統(tǒng)的核心部件，怎樣實(shí)現(xiàn)二者的共存，互不干擾，是本系統(tǒng)設(shè)計(jì)的難點(diǎn)。本系統(tǒng)必須實(shí)現(xiàn)對(duì)用戶權(quán)限的有效合理控制。3 系統(tǒng)概要設(shè)計(jì)說明書（1）圖例說明：：：：(單向)：（雙向）：：過程、模塊數(shù)據(jù)表 決策數(shù)據(jù)表實(shí)體第 15 頁 共 45 頁（2）系統(tǒng)總體結(jié)構(gòu)圖圖 經(jīng)理子系統(tǒng)圖書管理系統(tǒng)統(tǒng)計(jì)分析基本統(tǒng)計(jì)安全子系統(tǒng)售書員子系統(tǒng)倉庫管理員子系統(tǒng)游客子系統(tǒng)會(huì)員子系統(tǒng)登陸驗(yàn)證身份鑒別權(quán)限控制員工管理會(huì)員政策書店概況進(jìn)貨統(tǒng)計(jì)庫存統(tǒng)計(jì)退貨統(tǒng)計(jì)銷售統(tǒng)計(jì)退貨子系統(tǒng)庫存管理進(jìn)貨子系統(tǒng)供應(yīng)商管理入庫登記書目管理銷售子系統(tǒng)會(huì)員管理銷售統(tǒng)計(jì)創(chuàng)建帳號(hào)修改資料刪除帳號(hào)個(gè)人資料修改密碼購書記錄書目檢索會(huì)員注冊(cè)信息反饋第 16 頁 共 45 頁（3）銷售子系統(tǒng)流程圖圖 11. 銷售子系統(tǒng)流程圖（4）退貨子系統(tǒng)流程圖圖 倉管員選擇供應(yīng)商選擇品種退貨登記退貨記錄進(jìn)貨記錄供應(yīng)商Book售書員選擇圖書選擇會(huì)員圖書銷售售書記錄會(huì)員表Book會(huì)員表優(yōu)惠政策第 17 頁 共 45 頁（1）系統(tǒng)模塊匯總模塊名 原型或聲明 模塊說明CheckUserPublic 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ù)庫GetKuCunPublic Function GetKuCun(bianHao As String) As String獲取、檢驗(yàn)圖書現(xiàn)有庫存量CmdSellBook_ClickPrivate Sub CmdSellBook_Click()圖書銷售模塊checkFenLeiPublic Function checkFenLei(UID As String) As Boolean檢測(cè)圖書分類是否已經(jīng)存在CmdNewFenLei_ClickPrivate Sub CmdNewFenLei_Click()創(chuàng)建類別checkUserIDPublic Function checkUserID(UID As String) As Boolean檢測(cè)用戶帳號(hào)是否存在CmdChgPass_ClickPrivate Sub CmdChgPass_Click()修改密碼CmdRegMe_Click Private Sub 創(chuàng)建員工、會(huì)員第 18 頁 共 45 頁CmdRegMe_Click() 帳號(hào)GetJinJiaPublic Function GetJinJia(bianHao As String) As String提取圖書進(jìn)價(jià)CmdTH_ClickPrivate SubCmdTH_Click() 退貨模塊CmdSaveContinue_ClickPrivate Sub CmdSaveContinue_Click()供應(yīng)商信息登記（2）系統(tǒng)核心模塊詳解全局變量定義：39。用戶身份標(biāo)志Public UserShenFen As String39。登陸狀態(tài)Public logOK As Boolean39。用戶名Public userName As String39。供應(yīng)商編號(hào)Public GongYingShangID As String39。供應(yīng)商Public GongYingShang As String39。圖書編號(hào)Public TuShuBianHao As String39。定價(jià)Public DingJia As String39。書名第 19 頁 共 45 頁P(yáng)ublic ShuMing As String39。會(huì)員卡號(hào)Public HuiYuanKaHao As String39。會(huì)員姓名Public HYXingMing As String39。會(huì)員等級(jí)Public HYDengJi As String模塊名：CheckUser （用戶帳號(hào)、密碼驗(yàn)證和身份鑒別原型：Public Sub CheckUser(userID As String, passwd As String)代碼：Public Sub CheckUser(userID As String, passwd As String)Dim userDB As DatabaseDim userRD As RecordsetDim dbName As StringDim STRSQL As String = 11On Error GoTo errEnddbName = If Right(dbName, 1) \ Then dbName = dbName + \dbName = dbName + DataBase\STRSQL = select [用戶身份] from [Admin] where [用戶 ID]= amp。 userID amp。 and [用戶密碼]= amp。 第 20 頁 共 45 頁passwd amp。 39。打開數(shù)據(jù)庫Set userDB = (0).OpenDatabase(dbName, False, True)39。檢索用戶,驗(yàn)證密碼Set userRD = (STRSQL, dbOpenSnapshot)If 0 Then 39。設(shè)置用戶身份 UserShenFen = userRD![用戶身份] 39。關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing 39。進(jìn)入用戶環(huán)境 Load FrmMain Unload FrmLogIn logOK = True userName = userID = vbDefaultElse 39。關(guān)閉數(shù)據(jù)庫 第 21 頁 共 45 頁 Set userRD = Nothing Set userDB = Nothing logOK = False = vbDefault MsgBox 用戶名或密碼錯(cuò)誤！請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 登陸失敗End IfExit SuberrEnd: = vbDefault MsgBox , vbOKOnly + vbExclamation, 登陸錯(cuò)誤 logOK = False 39。關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing Exit SubEnd Sub 模塊名：CmdNewFenLei_Click （創(chuàng)建類別第 22 頁 共 45 頁模塊原型：Private Sub CmdNewFenLei_Click()代碼：Private Sub CmdNewFenLei_Click()On Error GoTo errEndIf = Then MsgBox 請(qǐng)?zhí)顚憟D書分類號(hào)!, vbOKOnly + vbExclamation, 創(chuàng)建分類 Exit SubEnd IfIf = Then MsgBox 請(qǐng)?zhí)顚憟D書分類名稱!, vbOKOnly + vbExclamation, 創(chuàng)建分類 Exit SubEnd IfIf checkFenLei() Then MsgBox 圖書分類名稱不唯一，請(qǐng)另選一個(gè)！, vbOKOnly + vbExclamation, 創(chuàng)建分類 = 0 = Len() Exit SubEnd IfIf And 選擇父類 Then If Not checkFenLei() Then MsgBox 所選父類不存在！請(qǐng)重試！, vbOKOnly + vbExclamation, 選擇父類 Exit Sub第 23 頁 共 45 頁 End If = adCmdText = select [圖書分類號(hào)] from [圖書分類] where [圖書分類號(hào)]=[所屬父類編號(hào)] and [圖書分類]= amp。 amp。 FuLeiBianHao = !圖書分類號(hào)End IfIf checkGYSID() Then MsgBox 圖書分類編號(hào)不唯一，請(qǐng)另選一個(gè)！, vbOKOnly + vbExclamation, 創(chuàng)建分類 = 0 = Len() Exit SubEnd IfIf FuLeiBianHao = Then FuLeiBianHao = = adCmdTable = 圖書分類!圖書分類號(hào) = !圖書分類 = !所屬父類編號(hào) = FuLeiBianHao第 24 頁 共 45 頁MsgBox 創(chuàng)建分類成功！, vbOKOnly + vbInformation, 創(chuàng)建分類 = = = 選擇父類FuLeiBianHao = = Exit SuberrEnd: MsgBox 更新數(shù)據(jù)庫失敗!, vbOKOnly + vbExclamation, 數(shù)據(jù)庫出錯(cuò)End Sub模塊名：CmdChgPass_Click （修改密碼模塊原型：Private Sub CmdChgPass_Click()代碼：Private Sub CmdChgPass_Click()On Error GoTo errEndIf = Then MsgBox 請(qǐng)輸入你的帳號(hào)！, vbOKOnly + vbExclamation, 更改密碼 Exit SubEn