【導(dǎo)讀】三、可行性分析報(bào)告···················································································5

　　

【正文】 rror GoTo errEnd dbName = If Right(dbName, 1) \ Then dbName = dbName + \ dbName = dbName + DataBase\ STRSQL = select [用戶身份 ] from [Admin] where [用戶 ID]= amp。 userID amp。 and [用戶密碼 ]= amp。 passwd amp。 39。打開數(shù)據(jù)庫 Set userDB = (0).OpenDatabase(dbName, False, True) 39。檢索用戶 ,驗(yàn)證密碼 Set userRD = (STRSQL, dbOpenSnapshot) If 0 Then 39。設(shè)置用戶身份 UserShenFen = userRD![用戶身份 ] 39。關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing 39。進(jìn)入用戶環(huán)境 Load FrmMain Unload FrmLogIn logOK = True userName = userID = vbDefault Else 39。關(guān)閉數(shù)據(jù)庫 Set userRD = Nothing Set userDB = Nothing logOK = False = vbDefault MsgBox 用戶名或密碼錯誤！請重新輸入！ , vbOKOnly + vbExclamation, 登陸失敗 End If Exit Sub errEnd: = vbDefault MsgBox , vbOKOnly + vbExclamation, 登陸錯誤 logOK = False 39。關(guān)閉數(shù)據(jù)庫 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 = 倉庫管理員 Then Unload FrmCangGuanMain ElseIf UserShenFen = 售書員 Then Unload FrmBookSellerMain ElseIf UserShenFen = 會員 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 = 倉庫管理員 Then Unload FrmCangGuanMain ElseIf UserShenFen = 售書員 Then Unload FrmBookSellerMain ElseIf UserShenFen = 會員 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=。Data Source= amp。 dbName amp。 。Persist Security Info=False = connSTR Exit Sub errEnd: MsgBox 連接數(shù)據(jù)庫失敗 !, vbOKOnly + vbExclamation, 打開數(shù)據(jù)庫出錯 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 [會員政策 ] where [會員級別 ]= amp。 bianHao amp。 If 0 Then GetHYDaZhe = !打折 Else MsgBox 會員政策數(shù)據(jù)丟失 ,請與經(jīng)理聯(lián)系 !, vbOKOnly + vbExclamation, 檢索錯誤 GetHYDaZhe = 1 End If Exit Function errEnd: MsgBox 檢索數(shù)據(jù)庫出錯 !, 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。 bianHao amp。 If 0 Then GetKuCun = !庫存量 Else MsgBox 圖書資料數(shù)據(jù)丟失 ,請與經(jīng)理聯(lián)系 !, vbOKOnly + vbExclamation, 檢索錯誤 GetKuCun = 0 End If Exit Function errEnd: MsgBox 檢索數(shù)據(jù) 庫出錯 !, vbOKOnly + vbExclamation, 檢索錯誤 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 [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then SUMBook = CInt(!總金額 ) Else SUMBook = 0 End If = adCmdText = select [會員標(biāo)準(zhǔn) ] from [會員政策 ] where [會員級別 ]=39?！铩睢睢睢?39。 BiaoZhun = CInt(!會員標(biāo)準(zhǔn) ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表 ] where [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then !會員等級 = ★☆☆☆☆ End If End If = adCmdText = select [會員標(biāo)準(zhǔn) ] from [會員政策 ] where [會員級別 ]=39。★★☆☆☆ 39。 BiaoZhun = CInt(!會員標(biāo)準(zhǔn) ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表 ] where [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then !會員等級 = ★★☆☆☆ End If End If = adCmdText = select [會員標(biāo)準(zhǔn) ] from [會員政策 ] where [會員級別 ]=39。★★★☆☆ 39。 BiaoZhun = CInt(!會員標(biāo)準(zhǔn) ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表 ] where [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then !會員等級 = ★★★☆☆ End If End If = adCmdText = select [會員標(biāo)準(zhǔn) ] from [會員政策 ] where [會員級別 ]=39?！铩铩铩铩?39。 BiaoZhun = CInt(!會員標(biāo)準(zhǔn) ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表 ] where [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then !會員等級 = ★★★★☆ End If End If = adCmdText = select [會員標(biāo)準(zhǔn) ] from [會員政策 ] where [會員級別 ]=39?！铩铩铩铩?39。 BiaoZhun = CInt(!會員標(biāo)準(zhǔn) ) If SUMBook = BiaoZhun Then = adCmdText = select * from [會員表 ] where [會員卡號 ]= amp。 HYKaHao amp。 If 0 Then !會員等級 = ★★★★★ End If End If CommitTrans HYShengJi = False Exit Function errEnd: Rollback HYShengJi = True = vbDefault MsgBox 檢查會員是否應(yīng)升級時操作失??！ , 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 = Th