【文章內(nèi)容簡介】 g 全局變量 供應(yīng)商名稱 TuShuBianHao String 全局變量 圖書編號 DingJia Single 全局變量 圖書定價(jià) ShuMing String 全局變量 書名 HuiYuanKaHao String 全局變量 會員 卡號 HYXingMing String 全局變量 會員姓名 HYDengJi String 全局變量 會員等級 編碼應(yīng)清晰、可讀性好，運(yùn)用縮進(jìn)、空行，結(jié)合大小寫區(qū)別等方法保持程序結(jié)構(gòu)良好。凡與數(shù)據(jù)庫操作相關(guān)的模塊一律加上容錯代碼，涉及多表操作的模塊應(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 頁 共 45 頁 STRSQL = select [用戶身份 ] from [Admin] where [用戶 ID]= amp。 userID amp。 and [用戶密碼 ]= amp。 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 = vbDefault Else 39。關(guān)閉數(shù)據(jù)庫 第 10 頁 共 45 頁 Set userRD = Nothing Set userDB = Nothing logOK = False = vbDefault MsgBox 用戶名或密碼錯誤！請重新 輸入！ , vbOKOnly + vbExclamation, 登陸失敗 End If Exit Sub errEnd： = vbDefault MsgBox , vbOKOnly + vbExclamation, 登陸錯誤 logOK = False 39。關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing Exit Sub End Sub 需用數(shù)據(jù)源的組件如： DataGrid一律采用 Adodb控件。有特殊需求的情況如：身份驗(yàn)證應(yīng)引用 DAO(數(shù)據(jù)訪問對象 )。 第 11 頁 共 45 頁 數(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 20xx/20xx 作為系統(tǒng)的后臺數(shù)據(jù)庫開發(fā)環(huán)境。 說明：下表所列為數(shù)據(jù)庫及各表、視圖的命名方法，具體信息請參閱、視圖匯總。 名稱 類型 命名辦法約定 WFSSDataBase 系統(tǒng)數(shù)據(jù)庫 字母 表 基本表 漢字或字母 查詢 查詢 漢字 字段 字段 漢字或字母 圖 結(jié)構(gòu)圖 退貨記錄 圖書編號 供應(yīng)商編號 ? Admin 用戶 ID ? 員工表 員工帳號 ? 會員政策 會員級別 ? 圖書分類 圖書分類號 ? Book 圖書分類號 圖書編號 ? 進(jìn)書記錄 圖書編號 供應(yīng) 商編號 ? 供應(yīng)商 供應(yīng)商編號 ? 會員表 會員級別 會員卡號 ? 售書記錄 會員卡號 圖書編號 ? 圖書進(jìn)價(jià)表 圖書編號 ? 第 13 頁 共 45 頁 （ 1） 表、視圖匯總 視圖 /表名 說明 Admin 集中保存系統(tǒng)用戶的帳號、密碼 Book 集中存放書目信息 員工表 存放員工資料 供應(yīng)商 供應(yīng)商資料 會員表 會員資料 會員政策 會員標(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)對用戶權(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) 會 員子系統(tǒng) 登陸驗(yàn)證 身份鑒別 權(quán)限控制 員工管理 會員政策 書店概況 進(jìn)貨統(tǒng)計(jì) 庫存統(tǒng)計(jì) 退貨統(tǒng)計(jì) 銷售統(tǒng)計(jì) 退貨子系統(tǒng) 庫存管理 進(jìn)貨子系統(tǒng) 供應(yīng)商管理 入庫登記 書目管理 銷售子系統(tǒng) 會員管理 銷售統(tǒng)計(jì) 創(chuàng)建帳號 修改資料 刪除帳號 個(gè)人資料 修改密碼 購書記錄 書目檢索 會員注冊 信息反饋 第 16 頁 共 45 頁 （ 3） 銷售子系統(tǒng)流程圖 圖 11. 銷售子系統(tǒng)流程圖 （ 4） 退貨子系統(tǒng)流程圖 圖 倉管員 選擇供應(yīng)商 選擇品種 退貨登記 退貨記錄 進(jìn)貨記錄 供應(yīng)商 Book 售書員 選擇圖書 選擇會員 圖書銷售 售書記錄 會員表 Book 會員表 優(yōu)惠政策 第 17 頁 共 45 頁 （ 1） 系統(tǒng)模塊匯總 模塊名 原型或聲明 模塊說明 CheckUser Public Sub CheckUser(userID As String, passwd As String) 用戶帳號、密碼驗(yàn)證和身份鑒別 LogOff Public Sub LogOff() 注銷模塊 Sys_exit Public Sub Sys_exit() 系統(tǒng)退出摸塊 Form_Load Private Sub Form_Load() 初始化模塊，連接數(shù)據(jù)庫 GetKuCun Public Function GetKuCun(bianHao As String) As String 獲取、檢驗(yàn)圖書現(xiàn)有庫存量 CmdSellBook_Click Private Sub CmdSellBook_Click() 圖書銷售模塊 checkFenLei Public Function checkFenLei(UID As String) As Boolean 檢測圖書分類是否已經(jīng)存在 CmdNewFenLei_Click Private Sub CmdNewFenLei_Click() 創(chuàng)建類別 checkUserID Public Function checkUserID(UID As String) As Boolean 檢測用戶帳號是否存在 CmdChgPass_Click Private Sub CmdChgPass_Click() 修 改密碼 CmdRegMe_Click Private Sub 創(chuàng)建員工、會員第 18 頁 共 45 頁 CmdRegMe_Click() 帳號 GetJinJia Public Function GetJinJia(bianHao As String) As String 提取圖書進(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)商編號 Public GongYingShangID As String 39。供應(yīng)商 Public GongYingShang As String 39。圖書編號 Public TuShuBianHao As String 39。定價(jià) Public DingJia As String 39。書名 第 19 頁 共 45 頁 Public ShuMing As String 39。會員卡號 Public HuiYuanKaHao As String 39。會員姓名 Public HYXingMing As String 39。會員等級 Public HYDengJi As String 模塊名： CheckUser （ 用戶帳號、密碼驗(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 頁 共 45 頁 amp。