【文章內(nèi)容簡(jiǎn)介】 g 全局變量 供應(yīng)商名稱(chēng) TuShuBianHao String 全局變量 圖書(shū)編號(hào) DingJia Single 全局變量 圖書(shū)定價(jià) ShuMing String 全局變量 書(shū)名 HuiYuanKaHao String 全局變量 會(huì)員 卡號(hào) HYXingMing String 全局變量 會(huì)員姓名 HYDengJi String 全局變量 會(huì)員等級(jí) 編碼應(yīng)清晰、可讀性好，運(yùn)用縮進(jìn)、空行，結(jié)合大小寫(xiě)區(qū)別等方法保持程序結(jié)構(gòu)良好。凡與數(shù)據(jù)庫(kù)操作相關(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 Database Dim userRD As Recordset Dim dbName As String Dim STRSQL As String = 11 On Error GoTo errEnd dbName = If Right(dbName, 1) 、 Then dbName = dbName + 、 dbName = dbName + DataBase、 第 9 頁(yè) 共 45 頁(yè) STRSQL = select [用戶身份 ] from [Admin] where [用戶 ID]= amp。 userID amp。 and [用戶密碼 ]= amp。 passwd amp。 39。打開(kāi)數(shù)據(jù)庫(kù) 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ù)庫(kù) Set userRD = Nothing Set userDB = Nothing 39。進(jìn)入用戶環(huán)境 Load FrmMain Unload FrmLogIn logOK = True userName = userID = vbDefault Else 39。關(guān)閉數(shù)據(jù)庫(kù) 第 10 頁(yè) 共 45 頁(yè) Set userRD = Nothing Set userDB = Nothing logOK = False = vbDefault MsgBox 用戶名或密碼錯(cuò)誤！請(qǐng)重新 輸入！ , vbOKOnly + vbExclamation, 登陸失敗 End If Exit Sub errEnd： = vbDefault MsgBox , vbOKOnly + vbExclamation, 登陸錯(cuò)誤 logOK = False 39。關(guān)閉數(shù)據(jù)庫(kù) Set userRD = Nothing Set userDB = Nothing Exit Sub End Sub 需用數(shù)據(jù)源的組件如： DataGrid一律采用 Adodb控件。有特殊需求的情況如：身份驗(yàn)證應(yīng)引用 DAO(數(shù)據(jù)訪問(wèn)對(duì)象 )。 第 11 頁(yè) 共 45 頁(yè) 數(shù)據(jù)庫(kù)引擎采用 ，由 Adodb 組件進(jìn)行數(shù)據(jù)庫(kù)的訪問(wèn)，并為其他組件提供數(shù)據(jù)源。特殊情況、身份驗(yàn)證等由 DAO 訪問(wèn)數(shù)據(jù)庫(kù)。 無(wú)需數(shù)據(jù)顯示的情況由 DAO提供數(shù)據(jù)庫(kù)支持，有數(shù)據(jù)顯示的情況由ADODB組件提供數(shù)據(jù)庫(kù)支持。 第 12 頁(yè) 共 45 頁(yè) 六 、數(shù)據(jù)庫(kù)分析與設(shè)計(jì) 考慮該系統(tǒng)的定位與現(xiàn)有技術(shù)力量 ,決定采用 Microsoft Access 20xx/20xx 作為系統(tǒng)的后臺(tái)數(shù)據(jù)庫(kù)開(kāi)發(fā)環(huán)境。 說(shuō)明：下表所列為數(shù)據(jù)庫(kù)及各表、視圖的命名方法，具體信息請(qǐng)參閱、視圖匯總。 名稱(chēng) 類(lèi)型 命名辦法約定 WFSSDataBase 系統(tǒng)數(shù)據(jù)庫(kù) 字母 表 基本表 漢字或字母 查詢 查詢 漢字 字段 字段 漢字或字母 圖 結(jié)構(gòu)圖 退貨記錄 圖書(shū)編號(hào) 供應(yīng)商編號(hào) ? Admin 用戶 ID ? 員工表 員工帳號(hào) ? 會(huì)員政策 會(huì)員級(jí)別 ? 圖書(shū)分類(lèi) 圖書(shū)分類(lèi)號(hào) ? Book 圖書(shū)分類(lèi)號(hào) 圖書(shū)編號(hào) ? 進(jìn)書(shū)記錄 圖書(shū)編號(hào) 供應(yīng) 商編號(hào) ? 供應(yīng)商 供應(yīng)商編號(hào) ? 會(huì)員表 會(huì)員級(jí)別 會(huì)員卡號(hào) ? 售書(shū)記錄 會(huì)員卡號(hào) 圖書(shū)編號(hào) ? 圖書(shū)進(jìn)價(jià)表 圖書(shū)編號(hào) ? 第 13 頁(yè) 共 45 頁(yè) （ 1） 表、視圖匯總 視圖 /表名 說(shuō)明 Admin 集中保存系統(tǒng)用戶的帳號(hào)、密碼 Book 集中存放書(shū)目信息 員工表 存放員工資料 供應(yīng)商 供應(yīng)商資料 會(huì)員表 會(huì)員資料 會(huì)員政策 會(huì)員標(biāo)準(zhǔn)及優(yōu)惠政策 進(jìn)書(shū)記錄 進(jìn)書(shū)歷史記錄 客戶反饋 客戶反饋信息 售書(shū)記錄 售書(shū)歷史記錄 書(shū)店簡(jiǎn)介 書(shū)店簡(jiǎn)介 圖書(shū)分類(lèi) 圖書(shū)類(lèi)別 圖書(shū)進(jìn)價(jià)表 圖書(shū)進(jìn)價(jià)列表 退貨記錄 退貨歷史記錄 讀者查詢 提供給所有用戶的書(shū)目查詢界面 基本統(tǒng)計(jì) 基本的統(tǒng)計(jì)分析 進(jìn)書(shū)查詢 進(jìn)書(shū)記錄查詢 ,含 進(jìn)書(shū)統(tǒng)計(jì) 售書(shū)查詢 圖書(shū)銷(xiāo)售記錄查詢 售書(shū)統(tǒng)計(jì) 圖書(shū)銷(xiāo)售記錄統(tǒng)計(jì) 退貨查詢 退貨記錄查詢 退貨統(tǒng)計(jì) 退貨統(tǒng)計(jì) 員工信息 員工信息查詢 庫(kù)存統(tǒng)計(jì) 現(xiàn)有庫(kù)存統(tǒng)計(jì) 反饋信息 客戶反饋信息查詢 第 14 頁(yè) 共 45 頁(yè) 七 、軟件體系結(jié)構(gòu)設(shè)計(jì)說(shuō)明書(shū) 在單機(jī)環(huán)境下進(jìn)行系統(tǒng)安全的考慮，有必要進(jìn)行用戶權(quán)限的劃分與控制，因而系統(tǒng)在總體上應(yīng)包含安全子系統(tǒng)之下的各類(lèi)用戶工作環(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ì)說(shuō)明書(shū) （ 1） 圖例說(shuō)明 ： ： ： ： (單向 ) ：（雙向） ： ： 過(guò)程、模塊 數(shù)據(jù)表 決策 數(shù)據(jù)表 實(shí)體 第 15 頁(yè) 共 45 頁(yè) （ 2） 系統(tǒng)總體結(jié)構(gòu)圖 圖 經(jīng)理子系統(tǒng) 圖書(shū)管理系統(tǒng) 統(tǒng)計(jì)分析 基本統(tǒng)計(jì) 安全子系統(tǒng) 售書(shū)員子系統(tǒng) 倉(cāng)庫(kù)管理員子系統(tǒng) 游客子系統(tǒng) 會(huì) 員子系統(tǒng) 登陸驗(yàn)證 身份鑒別 權(quán)限控制 員工管理 會(huì)員政策 書(shū)店概況 進(jìn)貨統(tǒng)計(jì) 庫(kù)存統(tǒng)計(jì) 退貨統(tǒng)計(jì) 銷(xiāo)售統(tǒng)計(jì) 退貨子系統(tǒng) 庫(kù)存管理 進(jìn)貨子系統(tǒng) 供應(yīng)商管理 入庫(kù)登記 書(shū)目管理 銷(xiāo)售子系統(tǒng) 會(huì)員管理 銷(xiāo)售統(tǒng)計(jì) 創(chuàng)建帳號(hào) 修改資料 刪除帳號(hào) 個(gè)人資料 修改密碼 購(gòu)書(shū)記錄 書(shū)目檢索 會(huì)員注冊(cè) 信息反饋 第 16 頁(yè) 共 45 頁(yè) （ 3） 銷(xiāo)售子系統(tǒng)流程圖 圖 11. 銷(xiāo)售子系統(tǒng)流程圖 （ 4） 退貨子系統(tǒng)流程圖 圖 倉(cāng)管員 選擇供應(yīng)商 選擇品種 退貨登記 退貨記錄 進(jìn)貨記錄 供應(yīng)商 Book 售書(shū)員 選擇圖書(shū) 選擇會(huì)員 圖書(shū)銷(xiāo)售 售書(shū)記錄 會(huì)員表 Book 會(huì)員表 優(yōu)惠政策 第 17 頁(yè) 共 45 頁(yè) （ 1） 系統(tǒng)模塊匯總 模塊名 原型或聲明 模塊說(shuō)明 CheckUser Public Sub CheckUser(userID As String, passwd As String) 用戶帳號(hào)、密碼驗(yàn)證和身份鑒別 LogOff Public Sub LogOff() 注銷(xiāo)模塊 Sys_exit Public Sub Sys_exit() 系統(tǒng)退出摸塊 Form_Load Private Sub Form_Load() 初始化模塊，連接數(shù)據(jù)庫(kù) GetKuCun Public Function GetKuCun(bianHao As String) As String 獲取、檢驗(yàn)圖書(shū)現(xiàn)有庫(kù)存量 CmdSellBook_Click Private Sub CmdSellBook_Click() 圖書(shū)銷(xiāo)售模塊 checkFenLei Public Function checkFenLei(UID As String) As Boolean 檢測(cè)圖書(shū)分類(lèi)是否已經(jīng)存在 CmdNewFenLei_Click Private Sub CmdNewFenLei_Click() 創(chuàng)建類(lèi)別 checkUserID Public Function checkUserID(UID As String) As Boolean 檢測(cè)用戶帳號(hào)是否存在 CmdChgPass_Click Private Sub CmdChgPass_Click() 修 改密碼 CmdRegMe_Click Private Sub 創(chuàng)建員工、會(huì)員第 18 頁(yè) 共 45 頁(yè) CmdRegMe_Click() 帳號(hào) GetJinJia Public Function GetJinJia(bianHao As String) As String 提取圖書(shū)進(jìn)價(jià) CmdTH_Click Private Sub CmdTH_Click() 退貨模塊 CmdSaveContinue_Click Private Sub CmdSaveContinue_Click() 供應(yīng)商信息登記 （ 2） 系統(tǒng)核心模塊詳解 全局變量定義： 39。用戶身份標(biāo)志 Public UserShenFen As String 39。登陸狀態(tài) Public logOK As Boolean 39。用戶名 Public userName As String 39。供應(yīng)商編號(hào) Public GongYingShangID As String 39。供應(yīng)商 Public GongYingShang As String 39。圖書(shū)編號(hào) Public TuShuBianHao As String 39。定價(jià) Public DingJia As String 39。書(shū)名 第 19 頁(yè) 共 45 頁(yè) Public ShuMing As String 39。會(huì)員卡號(hào) Public HuiYuanKaHao As String 39。會(huì)員姓名 Public HYXingMing As String 39。會(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 Database Dim userRD As Recordset Dim dbName As String Dim STRSQL As String = 11 On Error GoTo errEnd dbName = If Right(dbName, 1) \ Then dbName = dbName + \ dbName = dbName + DataBase\ STRSQL = select [用戶身份 ] from [Admin] where [用戶 ID]= amp。 userID amp。 and [用戶密碼 ]= amp。 passwd 第 20 頁(yè) 共 45 頁(yè) amp。