【正文】 If 0 Then !會(huì)員等級(jí) = ★★★★☆ End If End If = adCmdText = select 。 BiaoZhun = CInt(!會(huì)員標(biāo)準(zhǔn) ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會(huì)員表 ] where [會(huì)員卡號(hào) ]= amp。 If 0 Then !會(huì)員等級(jí) = ★★★☆☆ End If End If = adCmdText = select [會(huì)員標(biāo)準(zhǔn) ] from [會(huì)員政策 ] where [會(huì)員級(jí) 別 ]=39。 BiaoZhun = CInt(!會(huì)員標(biāo)準(zhǔn) ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會(huì)員表 ] where [會(huì)員卡號(hào) ]= amp。 If 0 Then !會(huì)員等級(jí) = ★★☆☆☆ End If 25 End If = adCmdText = select [會(huì)員標(biāo)準(zhǔn) ] from [會(huì)員政策 ] where [會(huì)員級(jí)別 ]=39。 BiaoZhun = CInt(!會(huì)員標(biāo)準(zhǔn) ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會(huì)員表 ] where [會(huì)員卡號(hào) ]= amp。 If 0 Then !會(huì)員等級(jí) = ★☆☆☆☆ End If End If = adCmdText = select [會(huì)員標(biāo)準(zhǔn) ] from [會(huì)員政策 ] where [會(huì)員級(jí)別 ]=39。 BiaoZhun = CInt(!會(huì)員標(biāo)準(zhǔn) ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會(huì)員表 ] where [會(huì)員卡號(hào) ]= amp。 If 0 Then SUMBook = CInt(!總金額 ) Else SUMBook = 0 End If = adCmdText = select [會(huì)員標(biāo)準(zhǔn) ] from [會(huì)員政策 ] where [會(huì)員級(jí)別 ]=39。 If 0 Then GetKuCun = !庫(kù)存量 Else MsgBox 圖書(shū)資料數(shù)據(jù)丟失 ,請(qǐng)與經(jīng)理聯(lián)系 !, vbOKOnly + vbExclamation, 檢索錯(cuò)誤 GetKuCun = 0 End If Exit Function errEnd: MsgBox 檢索數(shù)據(jù)庫(kù)出錯(cuò) !, vbOKOnly + vbExclamation, 檢索錯(cuò)誤 GetDingJia = 未知 End Function 模塊名： HYShengJi 模塊原型： Public Function HYShengJi(HYKaHao As String) As Boolean 代碼： Public Function HYShengJi(HYKaHao As String) As Boolean On Error GoTo errEnd Dim BiaoZhun As Integer Dim SUMBook As Integer If HYKaHao = Guest Then HYShengJi = False Exit Function End If BeginTrans 24 = adCmdText = select sum([實(shí)收金額 ]) as [總金額 ] from [售書(shū)記錄 ] where [會(huì)員卡號(hào) ]= amp。 If 0 Then GetHYDaZhe = !打折 Else MsgBox 會(huì)員政策數(shù)據(jù)丟失 ,請(qǐng)與經(jīng)理聯(lián)系 !, vbOKOnly + vbExclamation, 檢索錯(cuò)誤 GetHYDaZhe = 1 End If 23 Exit Function errEnd: MsgBox 檢索數(shù)據(jù)庫(kù)出錯(cuò) !, vbOKOnly + vbExclamation, 檢索錯(cuò)誤 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 [庫(kù)存量 ] from [Book] where [圖書(shū)編號(hào) ]= amp。Persist Security Info=False = connSTR Exit Sub errEnd: MsgBox 連接數(shù)據(jù)庫(kù)失敗 !, vbOKOnly + vbExclamation, 打開(kāi)數(shù)據(jù)庫(kù)出錯(cuò) End End Sub 模塊名： GetHYDaZhe 模塊原型： Public Function GetHYDaZhe(bianHao As String) As String 代碼： Public Function GetHYDaZhe(bianHao As String) As String On Error GoTo errEnd If bianHao = ☆☆☆☆☆ Then GetHYDaZhe = 1 Exit Function End If = adCmdText = select [打折 ] from [會(huì)員政策 ] where [會(huì)員級(jí)別 ]= amp。 dbName amp。關(guān)閉 數(shù)據(jù)庫(kù) Set userRD = Nothing Set userDB = Nothing Exit Sub End Sub 模塊名： LogOff 模塊原型： Public Sub LogOff() 代碼： Public Sub LogOff() Dim retVal As Integer retVal = MsgBox(你確定要注銷(xiāo)嗎？ , vbOKCancel + vbQuestion, 注銷(xiāo)當(dāng)前用戶(hù) ) If retVal = vbCancel Then Exit Sub Load FrmLogIn If UserShenFen = 經(jīng)理 Then Unload FrmAdminMain ElseIf UserShenFen = 倉(cāng)庫(kù)管理員 Then 21 Unload FrmCangGuanMain ElseIf UserShenFen = 售書(shū)員 Then Unload FrmBookSellerMain ElseIf UserShenFen = 會(huì)員 Then Unload FrmMemberMain Else Unload FrmGuestMain End If Unload FrmMain UserShenFen = logOK = False End Sub 模塊名： Sys_exit 模塊原型： Public Sub Sys_exit() 代碼： Public Sub Sys_exit() Dim retVal As Integer retVal = MsgBox(你確定要退出嗎？ , vbOKCancel + vbQuestion, 退出系統(tǒng) ) If retVal = vbCancel Then Exit Sub If UserShenFen = 經(jīng)理 Then Unload FrmAdminMain ElseIf UserShenFen = 倉(cāng)庫(kù)管理員 Then Unload FrmCangGuanMain ElseIf UserShenFen = 售書(shū)員 Then Unload FrmBookSellerMain ElseIf UserShenFen = 會(huì)員 Then Unload FrmMemberMain Else Unload FrmGuestMain End If Unload FrmMain End End Sub 模塊名： Form_Load 模塊原型： Private Sub Form_Load() 代碼： Private Sub Form_Load() 22 Dim dbName As String Dim connSTR As String On Error GoTo errEnd ChDir dbName = If Right(dbName, 1) \ Then dbName = dbName + \ dbName = dbName + DataBase\ connSTR = Provider=。進(jìn)入用戶(hù)環(huán)境 Load FrmMain 20 Unload FrmLogIn logOK = True userName = userID = vbDefault Else 39。設(shè)置用戶(hù)身份 UserShenFen = userRD![用戶(hù)身份 ] 39。打開(kāi)數(shù)據(jù)庫(kù) Set userDB = (0).OpenDatabase(dbName, False, True) 39。 passwd amp。 userID amp。會(huì)員姓名 Public HYXingMing As String 39。書(shū)名 Public ShuMing As String 39。圖書(shū)編號(hào) Public TuShuBianHao As String 39。供應(yīng)商編號(hào) Public GongYingShangID As String 39。登陸狀態(tài) Public logOK As Boolean 39。 ： ： ： ： (單向 ) ：（雙向） ： ： 圖 過(guò)程、模塊 數(shù)據(jù)表 決策 數(shù)據(jù)表 實(shí)體 經(jīng)理子系統(tǒng) 宛楓書(shū)社圖書(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è) 信息反饋 17 圖 11. 銷(xiāo)售子系統(tǒng)流程 圖 圖 圖 倉(cāng)管員 供應(yīng)商 Book 圖書(shū)進(jìn)價(jià)表 選擇供應(yīng)商 修改資料 供應(yīng)商登記 選擇品種 添加品種 添加類(lèi)別 修改資料 入庫(kù)登記 供應(yīng)商 圖書(shū)分類(lèi) Book