【正文】 系統(tǒng)將實現(xiàn)人員、物流的全面管理，而物流管理是系統(tǒng)的核心部件，怎樣實現(xiàn)二者的共存，互不干擾，是本系統(tǒng)設計的難點。 圖例說明 ： ： ： ： (單向 ) ：（雙向） ： ： 系統(tǒng)總體結構圖 圖 過程、模塊 數(shù)據表 決策 數(shù)據表 實體 經理子系統(tǒng) 宛楓書社圖書管理系統(tǒng) 統(tǒng)計分析 基本統(tǒng)計 安全子系統(tǒng) 售書員子系統(tǒng) 倉庫管理員子系統(tǒng) 游客子系統(tǒng) 會員子系統(tǒng) 登陸驗證 身份鑒別 權限控制 員工管理 會員政策 書店概況 進貨統(tǒng)計 庫存統(tǒng)計 退貨統(tǒng)計 銷售統(tǒng)計 退貨子系統(tǒng) 庫存管理 進貨子系統(tǒng) 供應商管理 入庫登記 書目管理 銷售子系統(tǒng) 會員管理 銷售統(tǒng)計 創(chuàng)建帳號 修改資料 刪除帳號 個 人資料 修改密碼 購書記錄 書目檢索 會員注冊 信息反饋 銷售子系統(tǒng)流程圖 圖 11. 銷售子系統(tǒng)流程圖 進貨子系統(tǒng)流程圖 圖 退貨子系統(tǒng)流程圖 圖 系統(tǒng)模塊匯總 倉管員 供應商 Book 圖書進價表 選擇供應商 修改資料 供應商登記 選擇品種 添加品種 添加類別 修改資料 入庫登記 供應商 圖書分類 Book 進貨記錄 供應商 倉管員 選擇供應商 選擇品種 退貨登記 退貨記錄 進貨記錄 供應商 Book 售書員 選擇圖書 選擇會員 圖書銷售 售書記錄 會員表 Book 會員表 優(yōu)惠政策 模塊名 類型 原型 或聲明 模塊說明 CheckUser 子程序 Public Sub CheckUser(userID As String, passwd As String) 用戶帳號、密碼驗證和身份鑒別 LogOff 子程序 Public Sub LogOff() 注銷模塊 Sys_exit 子程序 Public Sub Sys_exit() 系統(tǒng)退出摸塊 Form_Load 子程序 Private Sub Form_Load() 初始化模塊，連接數(shù)據庫 GetHYDaZhe 函數(shù) Public Function GetHYDaZhe(bianHao As String) As String 提取會員政策的會員優(yōu)惠辦法 GetKuCun 函數(shù) Public Function GetKuCun(bianHao As String) As String 獲取、檢驗圖書現(xiàn)有庫存量 HYShengJi 函數(shù) Public Function HYShengJi(HYKaHao As String) As Boolean 會員升級維護 CmdSellBook_Click 子程序 Private Sub CmdSellBook_Click() 圖書銷售模塊 checkGYSID 函數(shù) Public Function checkGYSID(UID As String) As Boolean 檢驗數(shù)據表主鍵，避免插入錯誤 checkFenLei 函數(shù) Public Function checkFenLei(UID As String) As Boolean 檢測圖書分類是否已經存在 CmdNewFenLei_Click 子程序 Private Sub CmdNewFenLei_Click() 創(chuàng)建類別 checkUserID 函數(shù) Public Function checkUserID(UID As String) As Boolean 檢測用戶帳號是否存在 CmdChgPass_Click 子程序 Private Sub CmdChgPass_Click() 修改密碼 CmdRegMe_Click 子程序 Private Sub CmdRegMe_Click() 創(chuàng)建員工、會員帳號 GetJinJia 函數(shù) Public Function GetJinJia(bianHao As String) As String 提取圖書進價 CmdTH_Click 子程序 Private Sub CmdTH_Click() 退貨模塊 CmdSaveContinue_Click 子程序 Private Sub CmdSaveContinue_Click() 供應商信息登記 注：其他模塊（略） 系統(tǒng)核心模塊詳解 全局變量定義： 39。供應商編號 Public GongYingShangID As String 39。書名 Public ShuMing As String 39。 userID amp。打開數(shù)據庫 Set userDB = (0).OpenDatabase(dbName, False, True) 39。進入用戶環(huán)境 Load FrmMain Unload FrmLogIn logOK = True userName = userID = vbDefault Else 39。 dbName amp。 If 0 Then GetHYDaZhe = !打折 Else MsgBox 會員政策數(shù)據丟失 ,請與經理聯(lián)系 !, vbOKOnly + vbExclamation, 檢索錯誤 GetHYDaZhe = 1 End If Exit Function errEnd: MsgBox 檢索數(shù)據庫出錯 !, vbOKOnly + vbExclamation, 檢索錯誤 GetDingJia = 未知 End Function 模塊名： GetKuCun 模塊原型： Public Function GetKuCun(bianHao As String) As String 代碼： Public Function GetKuCun(bianHao As String) As String On Error GoTo errEnd = adCmdText = select [庫存量 ] from [Book] where [圖書編號 ]= amp。 If 0 Then SUMBook = CInt(!總金額 ) Else SUMBook = 0 End If = adCmdText = select [會員標準 ] from [會員政策 ] where [會員級別 ]=39。 If 0 Then !會員等級 = ★☆☆☆☆ End If End If = adCmdText = select [會員標準 ] from [會員政策 ] where [會員級別 ]=39。 If 0 Then !會員等級 = ★★☆☆☆ End If End If = adCmdText = select [會員標準 ] from [會員政策 ] where [會員級別 ]=39。 If 0 Then !會員等級 = ★★★☆☆ End If End If = adCmdText = select [會員標準 ] from [會員政策 ] where [會員級別 ]=39。 If 0 Then !會員等級 = ★★★★☆ End If End If = adCmdText = select [會員標準 ] from [會員政策 ] where [會員級別 ]=39。 If 0 Then !會員等級 = ★★★★★ End If End If CommitTrans HYShengJi = False Exit Function errEnd: Rollback HYShengJi = True = vbDefault MsgBox 檢查會員是否應升級時操作失??！ , vbOKOnly + vbExclamation, 圖書銷售 = True End Function 模塊名： CmdSellBook_Click 模塊原型： Private Sub CmdSellBook_Click() 代碼： Private Sub CmdSellBook_Click() On Error GoTo errEnd Dim QD As Integer = False If = Then MsgBox 請輸入交易的數(shù)量 !, vbOKOnly + vbExclamation, 填寫數(shù)量 = True Exit Sub End If If GetKuCun(TuShuBianHao) = 0 Or GetKuCun(TuShuBianHao) Then MsgBox 該類圖書庫存量不足 ,請與倉庫管理員聯(lián)系 !, vbOKOnly + vbExclamation, 庫存不足 = True Exit Sub End If If = Then
。 BiaoZhun = CInt(!會員標準 ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表 ] where [會員卡號 ]= amp。 BiaoZhun = CInt(!會員標準 ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表 ] where [會員卡號 ]= amp。 BiaoZhun = CInt(!會員標準 ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表 ] where [會員卡號 ]= amp。 BiaoZhun = CInt(!會員標準 ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表 ] where [會員卡號 ]= amp。 BiaoZhun = CInt(!會員標準 ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表 ] where [會員卡號 ]= amp。 If 0 Then GetKuCun = !庫存量 Else MsgBox 圖書資料數(shù)據丟失 ,請與經理聯(lián)系 !, vbOKOnly + vbExclamation, 檢索錯誤 GetKuCun = 0 End If Exit Function errEnd: MsgBox 檢索數(shù)據 庫出錯 !, vbOKOnly + vbExclamation, 檢索錯誤 GetDingJia = 未知 End Function 模塊名： HYShengJi 模塊原型： Public Function HYShengJi(HYKaHao As Stri