【正文】 If 0 Then !會(huì)員等級(jí) = ★★★★★ End If End If CommitTrans HYShengJi = False Exit Function errEnd: Rollback HYShengJi = True = vbDefault MsgBox 檢查會(huì)員是否應(yīng)升級(jí)時(shí)操作失??！ , 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 請(qǐng)輸入交易的數(shù)量 !, vbOKOnly + vbExclamation, 填寫數(shù)量 = True Exit Sub End If If GetKuCun(TuShuBianHao) = 0 Or GetKuCun(TuShuBianHao) Then MsgBox 該類圖書庫(kù)存量不足 ,請(qǐng)與倉(cāng)庫(kù)管理員聯(lián)系 !, vbOKOnly + vbExclamation, 庫(kù)存不足 = True Exit Sub End If If = Then
。 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 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 !會(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ù)據(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 = adCmdText = select sum([實(shí)收金額 ]) as [總金額 ] from [售書記錄 ] 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 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 [圖書編號(hào) ]= amp。Persist Security Info=False = connSTR Exit Sub errEnd: MsgBox 連接數(shù)據(jù)庫(kù)失敗 !, vbOKOnly + vbExclamation, 打開數(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(你確定要注銷嗎？ , vbOKCancel + vbQuestion, 注銷當(dāng)前用戶 ) If retVal = vbCancel Then Exit Sub Load FrmLogIn If UserShenFen = 經(jīng)理 Then Unload FrmAdminMain ElseIf UserShenFen = 倉(cāng)庫(kù)管理員 Then Unload FrmCangGuanMain ElseIf UserShenFen = 售書員 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 = 售書員 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() 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)入用戶環(huán)境 Load FrmMain Unload FrmLogIn logOK = True userName = userID = vbDefault Else 39。設(shè)置用戶身份 UserShenFen = userRD![用戶身份 ] 39。打開數(shù)據(jù)庫(kù) Set userDB = (0).OpenDatabase(dbName, False, True) 39。 passwd amp。 userID amp。會(huì)員姓名 Public HYXingMing As String 39。書名 Public ShuMing As String 3