【正文】 g Set userDB = Nothing Exit SubEnd Sub模塊名：LogOff模塊原型：Public Sub LogOff()代碼：Public Sub LogOff()Dim retVal As IntegerretVal = MsgBox(你確定要注銷嗎？, vbOKCancel + vbQuestion, 注銷當前用戶)If retVal = vbCancel Then Exit SubLoad FrmLogInIf UserShenFen = 經(jīng)理 Then Unload FrmAdminMain20ElseIf UserShenFen = 倉庫管理員 Then Unload FrmCangGuanMainElseIf UserShenFen = 售書員 Then Unload FrmBookSellerMainElseIf UserShenFen = 會員 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 = 倉庫管理員 Then Unload FrmCangGuanMainElseIf UserShenFen = 售書員 Then Unload FrmBookSellerMainElseIf UserShenFen = 會員 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ù)庫失敗!, vbOKOnly + vbExclamation, 打開數(shù)據(jù)庫出錯 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 [會員政策] where [會員級別 ]= amp。 bianHao amp。 If 0 Then GetHYDaZhe = !打折Else MsgBox 會員政策數(shù)據(jù)丟失,請與經(jīng)理聯(lián)系!, vbOKOnly + vbExclamation, 檢索錯誤 GetHYDaZhe = 1End If22Exit FunctionerrEnd: MsgBox 檢索數(shù)據(jù)庫出錯!, vbOKOnly + vbExclamation, 檢索錯誤 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 [庫存量] from [Book] where [圖書編號]= amp。 bianHao amp。 If 0 Then GetKuCun = !庫存量Else MsgBox 圖書資料數(shù)據(jù)丟失,請與經(jīng)理聯(lián)系!, vbOKOnly + vbExclamation, 檢索錯誤 GetKuCun = 0End IfExit FunctionerrEnd: MsgBox 檢索數(shù)據(jù)庫出錯!, vbOKOnly + vbExclamation, 檢索錯誤 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([實收金額]) as [ 總金額] from [ 售書記錄] where [ 會員卡號]= amp。 HYKaHao amp。 If 0 Then SUMBook = CInt(!總金額)Else SUMBook = 0End If = adCmdText = select [會員標準] from [會員政策] where [會員級別 ]=39?！铩睢睢睢?9。BiaoZhun = CInt(!會員標準)If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表] where [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then !會員等級 = ★☆☆☆☆ End IfEnd If = adCmdText = select [會員標準] from [會員政策] where [會員級別 ]=39。★★☆☆☆39。BiaoZhun = CInt(!會員標準)If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表] where [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then !會員等級 = ★★☆☆☆ 24 End IfEnd If = adCmdText = select [會員標準] from [會員政策] where [會員級別 ]=39?！铩铩铩睢?9。BiaoZhun = CInt(!會員標準)If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表] where [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then !會員等級 = ★★★☆☆ End IfEnd If = adCmdText = select [會員標準] from [會員政策] where [會員級別 ]=39?！铩铩铩铩?9。BiaoZhun = CInt(!會員標準)If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表] where [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then !會員等級 = ★★★★☆ End IfEnd If = adCmdText = select [會員標準] from [會員政策] where [會員級別 ]=39?！铩铩铩铩?9。BiaoZhun = CInt(!會員標準)If SUMBook = BiaoZhun Then25 = adCmdText = select * from [會員表] where [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then !會員等級 = ★★★★★ End IfEnd IfCommitTransHYShengJi = FalseExit FunctionerrEnd: Rollback HYShengJi = True = vbDefault MsgBox 檢查會員是否應升級時操作失??！, vbOKOnly + vbExclamation, 圖書銷售 = TrueEnd Function模塊名：CmdSellBook_Click模塊原型：Private Sub CmdSellBook_Click()代碼：Private Sub CmdSellBook_Click()On Error GoTo errEndDim QD As Integer = FalseIf = Then MsgBox 請輸入交易的數(shù)量!, vbOKOnly + vbExclamation, 填寫數(shù)量 = True Exit SubEnd IfIf GetKuCun(TuShuBianHao) = 0 Or GetKuCun(TuShuBianHao) Then MsgBox 該類圖書庫存量不足,請與倉庫管理員聯(lián)系!, vbOKOnly + vbExclamation, 庫存不足 = True Exit SubEnd IfIf = Then26 MsgBox 請輸入交易的實際折扣率!, vbOKOnly + vbExclamation, 填寫折扣 = True Exit SubEnd IfIf = 0 Or 1 Then MsgBox 實際折扣率填寫錯誤!請在 0 與 1 之間選擇., vbOKOnly + vbExclamation, 填寫折扣 = True Exit SubEnd IfIf = Then MsgBox 請輸入交易的實際金額!, vbOKOnly + vbExclamation, 填寫金額 = True Exit SubEnd IfIf = Then = 無QD = MsgBox(確定入帳嗎?, vbOKCancel + vbQuestion, 確認入帳)If QD = vbCancel Then = True Exit SubEnd If39。售書入帳 = 11BeginTrans = adCmdTable = 售書記錄!圖書編號 = TuShuBianHao!數(shù)量 = !會員卡號 = HuiYuanKaHao!實際打折 = !實收金額 = !日期 = Year(Now) amp。 amp。 Month(Now) amp。 amp。 Day(Now) amp。 .!備注 = = adCmdText = select * from [Book] where [圖書編號]= amp。 TuShuBianHao amp。 27If 0 Then !庫存量 = !庫存量 Else