【正文】 g Set userDB = Nothing Exit SubEnd Sub模塊名：LogOff模塊原型：Public Sub LogOff()代碼：Public Sub LogOff()Dim retVal As IntegerretVal = MsgBox(你確定要注銷(xiāo)嗎？, vbOKCancel + vbQuestion, 注銷(xiāo)當(dāng)前用戶(hù))If retVal = vbCancel Then Exit SubLoad FrmLogInIf UserShenFen = 經(jīng)理 Then Unload FrmAdminMain20ElseIf UserShenFen = 倉(cāng)庫(kù)管理員 Then Unload FrmCangGuanMainElseIf UserShenFen = 售書(shū)員 Then Unload FrmBookSellerMainElseIf UserShenFen = 會(huì)員 Then Unload FrmMemberMainElse Unload FrmGuestMainEnd IfUnload FrmMainUserShenFen = logOK = FalseEnd Sub模塊名：Sys_exit模塊原型：Public Sub Sys_exit()代碼：Public Sub Sys_exit()Dim retVal As IntegerretVal = MsgBox(你確定要退出嗎？, vbOKCancel + vbQuestion, 退出系統(tǒng))If retVal = vbCancel Then Exit SubIf UserShenFen = 經(jīng)理 Then Unload FrmAdminMainElseIf UserShenFen = 倉(cāng)庫(kù)管理員 Then Unload FrmCangGuanMainElseIf UserShenFen = 售書(shū)員 Then Unload FrmBookSellerMainElseIf UserShenFen = 會(huì)員 Then Unload FrmMemberMainElse Unload FrmGuestMainEnd IfUnload FrmMainEndEnd Sub模塊名：Form_Load模塊原型：Private Sub Form_Load()代碼：21Private Sub Form_Load()Dim dbName As StringDim connSTR As StringOn Error GoTo errEndChDir dbName = If Right(dbName, 1) \ Then dbName = dbName + \dbName = dbName + DataBase\connSTR = Provider=。Data Source= amp。 dbName amp。 。Persist Security Info=False = connSTRExit SuberrEnd: MsgBox 連接數(shù)據(jù)庫(kù)失敗!, vbOKOnly + vbExclamation, 打開(kāi)數(shù)據(jù)庫(kù)出錯(cuò) EndEnd Sub模塊名：GetHYDaZhe模塊原型：Public Function GetHYDaZhe(bianHao As String) As String代碼：Public Function GetHYDaZhe(bianHao As String) As StringOn Error GoTo errEndIf bianHao = ☆☆☆☆☆ Then GetHYDaZhe = 1 Exit FunctionEnd If = adCmdText = select [打折] from [會(huì)員政策] where [會(huì)員級(jí)別 ]= amp。 bianHao amp。 If 0 Then GetHYDaZhe = !打折Else MsgBox 會(huì)員政策數(shù)據(jù)丟失,請(qǐng)與經(jīng)理聯(lián)系!, vbOKOnly + vbExclamation, 檢索錯(cuò)誤 GetHYDaZhe = 1End If22Exit FunctionerrEnd: 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 StringOn Error GoTo errEnd = adCmdText = select [庫(kù)存量] from [Book] where [圖書(shū)編號(hào)]= amp。 bianHao amp。 If 0 Then GetKuCun = !庫(kù)存量Else MsgBox 圖書(shū)資料數(shù)據(jù)丟失,請(qǐng)與經(jīng)理聯(lián)系!, vbOKOnly + vbExclamation, 檢索錯(cuò)誤 GetKuCun = 0End IfExit FunctionerrEnd: 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 BooleanOn Error GoTo errEndDim BiaoZhun As IntegerDim SUMBook As IntegerIf HYKaHao = Guest Then HYShengJi = False Exit FunctionEnd If23BeginTrans = adCmdText = select sum([實(shí)收金額]) as [ 總金額] from [ 售書(shū)記錄](méi) where [ 會(huì)員卡號(hào)]= amp。 HYKaHao amp。 If 0 Then SUMBook = CInt(!總金額)Else SUMBook = 0End If = adCmdText = select [會(huì)員標(biāo)準(zhǔn)] from [會(huì)員政策] where [會(huì)員級(jí)別 ]=39?！铩睢睢睢?9。BiaoZhun = CInt(!會(huì)員標(biāo)準(zhǔn))If SUMBook = BiaoZhun Then = adCmdText = select * from [會(huì)員表] where [會(huì)員卡號(hào) ]= amp。 HYKaHao amp。 If 0 Then !會(huì)員等級(jí) = ★☆☆☆☆ End IfEnd If = adCmdText = select [會(huì)員標(biāo)準(zhǔn)] from [會(huì)員政策] where [會(huì)員級(jí)別 ]=39?！铩铩睢睢?9。BiaoZhun = CInt(!會(huì)員標(biāo)準(zhǔn))If SUMBook = BiaoZhun Then = adCmdText = select * from [會(huì)員表] where [會(huì)員卡號(hào) ]= amp。 HYKaHao amp。 If 0 Then !會(huì)員等級(jí) = ★★☆☆☆ 24 End IfEnd If = adCmdText = select [會(huì)員標(biāo)準(zhǔn)] from [會(huì)員政策] where [會(huì)員級(jí)別 ]=39?！铩铩铩睢?9。BiaoZhun = CInt(!會(huì)員標(biāo)準(zhǔn))If SUMBook = BiaoZhun Then = adCmdText = select * from [會(huì)員表] where [會(huì)員卡號(hào) ]= amp。 HYKaHao amp。 If 0 Then !會(huì)員等級(jí) = ★★★☆☆ End IfEnd If = adCmdText = select [會(huì)員標(biāo)準(zhǔn)] from [會(huì)員政策] where [會(huì)員級(jí)別 ]=39?！铩铩铩铩?9。BiaoZhun = CInt(!會(huì)員標(biāo)準(zhǔn))If SUMBook = BiaoZhun Then = adCmdText = select * from [會(huì)員表] where [會(huì)員卡號(hào) ]= amp。 HYKaHao amp。 If 0 Then !會(huì)員等級(jí) = ★★★★☆ End IfEnd If = adCmdText = select [會(huì)員標(biāo)準(zhǔn)] from [會(huì)員政策] where [會(huì)員級(jí)別 ]=39?！铩铩铩铩?9。BiaoZhun = CInt(!會(huì)員標(biāo)準(zhǔn))If SUMBook = BiaoZhun Then25 = adCmdText = select * from [會(huì)員表] where [會(huì)員卡號(hào) ]= amp。 HYKaHao amp。 If 0 Then !會(huì)員等級(jí) = ★★★★★ End IfEnd IfCommitTransHYShengJi = FalseExit FunctionerrEnd: Rollback HYShengJi = True = vbDefault MsgBox 檢查會(huì)員是否應(yīng)升級(jí)時(shí)操作失?。? vbOKOnly + vbExclamation, 圖書(shū)銷(xiāo)售 = TrueEnd Function模塊名：CmdSellBook_Click模塊原型：Private Sub CmdSellBook_Click()代碼：Private Sub CmdSellBook_Click()On Error GoTo errEndDim QD As Integer = FalseIf = Then MsgBox 請(qǐng)輸入交易的數(shù)量!, vbOKOnly + vbExclamation, 填寫(xiě)數(shù)量 = True Exit SubEnd IfIf GetKuCun(TuShuBianHao) = 0 Or GetKuCun(TuShuBianHao) Then MsgBox 該類(lèi)圖書(shū)庫(kù)存量不足,請(qǐng)與倉(cāng)庫(kù)管理員聯(lián)系!, vbOKOnly + vbExclamation, 庫(kù)存不足 = True Exit SubEnd IfIf = Then26 MsgBox 請(qǐng)輸入交易的實(shí)際折扣率!, vbOKOnly + vbExclamation, 填寫(xiě)折扣 = True Exit SubEnd IfIf = 0 Or 1 Then MsgBox 實(shí)際折扣率填寫(xiě)錯(cuò)誤!請(qǐng)?jiān)?0 與 1 之間選擇., vbOKOnly + vbExclamation, 填寫(xiě)折扣 = True Exit SubEnd IfIf = Then MsgBox 請(qǐng)輸入交易的實(shí)際金額!, vbOKOnly + vbExclamation, 填寫(xiě)金額 = True Exit SubEnd IfIf = Then = 無(wú)QD = MsgBox(確定入帳嗎?, vbOKCancel + vbQuestion, 確認(rèn)入帳)If QD = vbCancel Then = True Exit SubEnd If39。售書(shū)入帳 = 11BeginTrans = adCmdTable = 售書(shū)記錄!圖書(shū)編號(hào) = TuShuBianHao!數(shù)量 = !會(huì)員卡號(hào) = HuiYuanKaHao!實(shí)際打折 = !實(shí)收金額 = !日期 = Year(Now) amp。 amp。 Month(Now) amp。 amp。 Day(Now) amp。 .!備注 = = adCmdText = select * from [Book] where [圖書(shū)編號(hào)]= amp。 TuShuBianHao amp。 27If 0 Then !庫(kù)存量 = !庫(kù)存量 Else