bbs+論壇管理系統(tǒng)說明書.doc

濱州學(xué)院JAVA課程設(shè)計說明書 題目：bbs論壇管理系統(tǒng)班 級： 2006級軟件班姓 名： 商慶濤，張家國，代江波 李金玉，韓超指導(dǎo)老師： 宋鋒計算機科學(xué)技術(shù)系2008年12月Bbs論壇管理系統(tǒng)的設(shè)計與實現(xiàn)目錄一、序言和設(shè)計人員3二、需求分析說明書32.1編寫目的32.2系統(tǒng)介紹32.3系統(tǒng)面向的用戶群體42.4系統(tǒng)的基本功能性需求42.5系統(tǒng)的開發(fā)目標4三、可行性分析報告43.1技術(shù)可行性43.2人員可能性43.3時間、設(shè)備可能性43.4系統(tǒng)工作量43.5代碼工作量43.6文檔要求4四、開發(fā)環(huán)境與項目規(guī)劃44.1開發(fā)環(huán)境44.2項目規(guī)劃與管理5五、概要設(shè)計說明書55.1系統(tǒng)的劃分55.2用戶角色劃分55.3結(jié)構(gòu)化編碼約定65.4前臺服務(wù)的用例圖75.4.1各種信息的顯示75.4.2各種信息的用戶操作85.4.3各種留言信息的操作85.4.4各種個人信息的瀏覽操作8六、軟件詳細設(shè)計說明書126.1系統(tǒng)概述126.2設(shè)計約束126.3設(shè)計策略126.4系統(tǒng)概要設(shè)計說明書137.4.1圖例說明137.4.2系統(tǒng)總體結(jié)構(gòu)圖147.4.3銷售子系統(tǒng)流程圖147.4.4進貨子系統(tǒng)流程圖147.4.5退貨子系統(tǒng)流程圖147.5系統(tǒng)詳細設(shè)計說明書157.5.1系統(tǒng)模塊匯總157.5.2系統(tǒng)核心模塊詳解157.5.3系統(tǒng)模塊詳解15八、軟件測試分析報告388.1測試范圍與主要內(nèi)容388.2測試方法388.3測試報告388.4改進建議與措施39參考資料39一、序言和設(shè)計人員在網(wǎng)絡(luò)技術(shù)逐漸滲入社會生活各個層面的今天，以前網(wǎng)站上的論壇管理系統(tǒng)要用戶登陸以后才能進行相關(guān)訪問及互動。而隨著網(wǎng)絡(luò)互聯(lián)技術(shù)的進步，現(xiàn)在網(wǎng)站投票只需打開網(wǎng)頁就可進行論壇留言。論壇對象是很多的，各個層次都可進行論壇訪問，大至國家領(lǐng)導(dǎo)，小至一個普通干部，訪問和留言從到指定用戶進行表格到現(xiàn)在通過網(wǎng)絡(luò)直接點擊相應(yīng)就可進行。網(wǎng)上論壇管理系統(tǒng)可解決游客訪問及留言，致使現(xiàn)在幾乎各個網(wǎng)站都有各種類型網(wǎng)站論壇管理系統(tǒng)，用戶可選擇自己的看法。所以我提出了本課題的研究設(shè)計人員：李金玉商慶濤 代江波張家國韓超二、需求分析說明書2.1編寫目的在網(wǎng)絡(luò)技術(shù)逐漸滲入社會生活各個層面的今天，以前網(wǎng)站上的論壇管理系統(tǒng)要用戶登陸以后才能進行相關(guān)訪問及互動。而隨著網(wǎng)絡(luò)互聯(lián)技術(shù)的進步，現(xiàn)在網(wǎng)站投票只需打開網(wǎng)頁就可進行論壇留言。論壇對象是很多的，各個層次都可進行論壇訪問，大至國家領(lǐng)導(dǎo)，小至一個普通干部，訪問和留言從到指定用戶進行表格到現(xiàn)在通過網(wǎng)絡(luò)直接點擊相應(yīng)就可進行。網(wǎng)上論壇管理系統(tǒng)可解決游客訪問及留言，致使現(xiàn)在幾乎各個網(wǎng)站都有各種類型網(wǎng)站論壇管理系統(tǒng)，用戶可選擇自己的看法。所以我提出了本課題的研究。本系統(tǒng)開發(fā)的目的是為了學(xué)習(xí)這樣去做一個交互式的網(wǎng)頁以及了解這種強大的網(wǎng)絡(luò)編程工具，方便客戶端和瀏覽器端之間的交流。2.2系統(tǒng)介紹系統(tǒng)包括主要的功能：新用戶的注冊，會員密碼取回，會員登錄，用戶自己修改信息，管理員刪除用戶，游客瀏覽留言，會員新增留言，會員留言回復(fù)，管理員刪除留言這些功能，可以應(yīng)付一般的用戶需要。2.3系統(tǒng)面向的用戶群體網(wǎng)上論壇系統(tǒng)是一個會員登錄留言系統(tǒng)。網(wǎng)上游客能夠瀏覽論壇上的帖子，并且能夠注冊成為用戶。論壇注冊會員能夠修改自己的資料信息，申請版主，發(fā)表帖子，讓大家積極參與討論。論壇管理員能夠便于管理論壇，包括瀏覽游客留言，審核留言，對于不健康或是不利于社會穩(wěn)定的留言能進行刪除操作，會員管理以及論壇版主管理等等。2.4系統(tǒng)的基本功能性需求系統(tǒng)包括主要的功能：新用戶的注冊，會員密碼取回，會員登錄，用戶自己修改信息，管理員刪除用戶，游客瀏覽留言，會員新增留言，會員留言回復(fù)，管理員刪除留言這些功能，可以應(yīng)付一般的用戶需要2.5系統(tǒng)的開發(fā)目標這個系統(tǒng)預(yù)期的目的是為了做成交互式的網(wǎng)頁，方便客戶端和瀏覽器端之間的交流。通過論壇，人們能夠相互交流溝通，把疑惑在論壇里公布，大家獻計獻策，共同學(xué)習(xí)，共同進步。三、可行性分析報告3.1技術(shù)可行性系統(tǒng)的性質(zhì)為BBS論壇管理軟件，因而數(shù)據(jù)庫的設(shè)計與操縱和JSP的應(yīng)用是系統(tǒng)設(shè)計的核心。我在教師的指導(dǎo)下實習(xí)過很多項目的開發(fā)，具備一定的系統(tǒng)分析與設(shè)計能力，熟悉數(shù)據(jù)庫的設(shè)計與操縱；指導(dǎo)老師宋鋒多年從事數(shù)據(jù)庫的教學(xué)與研究工作，因而該系統(tǒng)的實現(xiàn)在技術(shù)上是可行的。3.2人員可能性我們組都擁有一定的的開發(fā)經(jīng)驗，目前時間充足，可以完成開發(fā)任務(wù)。李金玉的計算機功底很深，可以參與系統(tǒng)的數(shù)據(jù)庫設(shè)計與開發(fā)。代江波有深厚的文字功底，可以參與用戶文檔的制作、內(nèi)部文檔整理、后期測試等任務(wù)。所有人員均可立即投入開發(fā)工作。3.3時間、設(shè)備可能性系統(tǒng)設(shè)計與開發(fā)工作預(yù)計耗時一個月，所有參與開發(fā)的人員均能夠保證按時完成任務(wù)。實驗設(shè)備如：計算機、打印機、掃描儀等不足，上機任務(wù)可以完成，打印機、掃描儀的實驗根據(jù)具體條件暫時延緩執(zhí)行。3.4系統(tǒng)工作量該系統(tǒng)的工作量相對于我們的開發(fā)小組來說很大，必須保證按進度完成任務(wù)。實際工作量預(yù)計超過一個月。如包含軟件維護及技術(shù)文檔的整理、制作，工作量將更大。3.5代碼工作量預(yù)計需2個月左右。3.6文檔要求依據(jù)國家計算機軟件產(chǎn)品開發(fā)文件編制指南和現(xiàn)代軟件工程的理論與原則編制標準的軟件技術(shù)文檔。四、開發(fā)環(huán)境與項目規(guī)劃4.1開發(fā)環(huán)境前臺開發(fā)環(huán)境：Eclipse 3.2后臺數(shù)據(jù)庫環(huán)境：Microsoft Access 2000/20024.2項目規(guī)劃與管理系統(tǒng)分析與設(shè)計：商慶濤程序編制：李金玉數(shù)據(jù)庫設(shè)計：張家國、韓超文檔整理與制作：代江波系統(tǒng)測試：全組人員五、概要設(shè)計說明書5.1系統(tǒng)的劃分該網(wǎng)站建設(shè)包含以下子系統(tǒng)：前臺服務(wù)功能后臺管理功能登錄、注冊、修改信息、注銷管理個人的留言信息查看、發(fā)表、回復(fù)留言用戶管理BBS論壇系統(tǒng)查詢留言（分類、高級）管理員后臺管理版主后臺系統(tǒng)設(shè)置留言管理公告管理其它管理5.2用戶角色劃分1、 普通（游客）用戶是該論壇的一種用戶，普通用戶以游客身份登錄本系統(tǒng)，只具有察看帖子的功能，不能留言。2、 注冊用戶具備普通用戶所有的能力。并且是已經(jīng)注冊了的用戶，可以登錄、修改個人信息，并且可以發(fā)表留言。3、版主具備注冊用戶所有的能力，其主要權(quán)限是對分論壇進行文章管理。4、管理員管理員登錄以后可以對論壇系統(tǒng)進行管理，包括論壇的基本信息、用戶設(shè)置，還可以修改管理員密碼。5.3結(jié)構(gòu)化編碼約定編碼應(yīng)清晰、可讀性好，運用縮進、空行，結(jié)合大小寫區(qū)別等方法保持程序結(jié)構(gòu)良好。凡與數(shù)據(jù)庫操作相關(guān)的模塊一律加上容錯代碼，涉及多表操作的模塊應(yīng)運用“事務(wù)”處理，以保持數(shù)據(jù)完整性。編碼風(fēng)格參照下例進行：Public Sub CheckUser(userID As String, passwd As String)Dim userDB As DatabaseDim userRD As RecordsetDim dbName As StringDim STRSQL As StringScreen.MousePointer = 11On Error GoTo errEnddbName = App.PathIf Right(dbName, 1) 、 Then dbName = dbName + 、dbName = dbName + DataBase、WFSSDataBase.mdbSTRSQL = select 用戶身份 from Admin where 用戶ID= & userID & and 用戶密碼= & passwd & 打開數(shù)據(jù)庫Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 設(shè)置用戶身份 UserShenFen = userRD!用戶身份 關(guān)閉數(shù)據(jù)庫 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing 進入用戶環(huán)境 Load FrmMain FrmMain.Show Unload FrmLogIn logOK = True userName = userID Screen.MousePointer = vbDefaultElse 關(guān)閉數(shù)據(jù)庫 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing logOK = False Screen.MousePointer = vbDefault MsgBox 用戶名或密碼錯誤！請重新輸入！, vbOKOnly + vbExclamation, 登陸失敗End IfExit SuberrEnd： Screen.MousePointer = vbDefault MsgBox Err.Description, vbOKOnly + vbExclamation, 登陸錯誤 logOK = False Err.Clear 關(guān)閉數(shù)據(jù)庫 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing Exit SubEnd Sub5.4前臺服務(wù)的用例圖5.4.1各種信息的顯示（面向游客）5.4.2各種信息的用戶操作（面向注冊用戶）5.4.3各種留言信息的操作（面向注冊用戶）5.4.4各種個人信息的瀏覽操作（面向注冊用戶）六、軟件詳細設(shè)計說明書6.1系統(tǒng)概述基于Struts框架的BBS論壇系統(tǒng)摘要：本文從系統(tǒng)概述到系統(tǒng)詳細設(shè)計對基于struts框架的bbs論壇系統(tǒng)的設(shè)計做了深入而詳細的介紹.開發(fā)過程中使用到的開發(fā)工具有：web服務(wù)器tomcat，數(shù)據(jù)庫服務(wù)器oracle，集成開發(fā)工具myeclipse和jdk。整個論壇系統(tǒng)分為前臺，和后臺兩個大的模塊。其中前臺模塊實現(xiàn)的基本功能主要有：用戶注冊，用戶登陸，查看和修改用戶個人信息，瀏覽帖子，發(fā)表回復(fù)，發(fā)表新帖子，注銷登陸；后臺模塊實現(xiàn)的基本功能主要有：管理員登陸，模糊查找用戶，編輯用戶權(quán)限，編輯論壇版塊，刪除論壇版塊，模糊搜索帖子，刪除帖子6.2設(shè)計約束 系統(tǒng)將實現(xiàn)人員、帖子的全面管理，而帖子管理是系統(tǒng)的核心部件，怎樣實現(xiàn)二者的相互聯(lián)系，和帖子系統(tǒng)的管理，是本系統(tǒng)設(shè)計的難點。本系統(tǒng)必須實現(xiàn)對用戶權(quán)限的有效合理控制。6.3設(shè)計策略由于所有的帖子都需要有人員的活動才能夠發(fā)生，因此，我們決定采用一種“人員活動對應(yīng)帖子流動”的策略來解決人員管理與帖子管理的統(tǒng)一管理問題。這個想法是模擬現(xiàn)實而來的，比如說，只有已注冊人員進行了“發(fā)表帖子”活動，才會將這個人的帖子放入這個人的帖子庫中。6.4系統(tǒng)詳細設(shè)計說明書6.4.1系統(tǒng)核心模塊詳解全局變量定義：用戶身份標志Public UserShenFen As String登陸狀態(tài)Public logOK As Boolean用戶名Public userName As String用戶名編號Public YongHuMingID As String會員卡號Public HuiYuanKaHao As String會員姓名Public HYXingMing As String會員等級Public HYDengJi As String模塊名：CheckUser原型：Public Sub CheckUser(userID As String, passwd As String)代碼：Public Sub CheckUser(userID As String, passwd As String)Dim userDB As DatabaseDim userRD As RecordsetDim dbName As StringDim STRSQL As StringScreen.MousePointer = 11On Error GoTo errEnddbName = App.PathIf Right(dbName, 1) Then dbName = dbName + dbName = dbName + DataBaseWFSSDataBase.mdbSTRSQL = select 用戶身份 from Admin where 用戶ID= & userID & and 用戶密碼= & passwd & 打開數(shù)據(jù)庫Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 設(shè)置用戶身份 UserShenFen = userRD!用戶身份 關(guān)閉數(shù)據(jù)庫 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing 進入用戶環(huán)境 Load FrmMain FrmMain.Show Unload FrmLogIn logOK = True userName = userID Screen.MousePointer = vbDefaultElse 關(guān)閉數(shù)據(jù)庫 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing logOK = False Screen.MousePointer = vbDefault MsgBox 用戶名或密碼錯誤！請重新輸入！, vbOKOnly + vbExclamation, 登陸失敗End IfExit SuberrEnd: Screen.MousePointer = vbDefault MsgBox Err.Description, vbOKOnly + vbExclamation, 登陸錯誤 logOK = False Err.Clear 關(guān)閉數(shù)據(jù)庫 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing Exit SubEnd Sub模塊名：LogOff模塊原型：Public Sub LogOff()代碼：Public Sub LogOff()Dim retVal As IntegerretVal = MsgBox(你確定要注銷嗎？, vbOKCancel + vbQuestion, 注銷當(dāng)前用戶)If retVal = vbCancel Then Exit SubLoad FrmLogInFrmLogIn.ShowIf UserShenFen = 論壇總管理員 Then Unload FrmAdminMainElseIf UserShenFen = 論壇模塊管理員 Then Unload FrmCangGuanMainElseIf 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 = 論壇管理員 Then Unload FrmAdminMainElseIf UserShenFen = 論壇模塊管理員 Then Unload FrmCangGuanMainElseIf UserShenFen = 會員 Then Unload FrmMemberMainElse Unload FrmGuestMainEnd IfUnload FrmMainEndEnd Sub模塊名：Form_Load模塊原型：Private Sub Form_Load()代碼：Private Sub Form_Load()Dim dbName As StringDim connSTR As StringOn Error GoTo errEndChDir App.PathdbName = App.PathIf Right(dbName, 1) Then dbName = dbName + dbName = dbName + DataBaseWFSSDataBase.mdbconnSTR = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & dbName & ;Persist Security Info=FalseAdodc1.ConnectionString = 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 IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 打折 from 會員政策 where 會員級別= & bianHao & Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst GetHYDaZhe = Adodc1.Recordset!打折Else MsgBox 會員政策數(shù)據(jù)丟失,請與經(jīng)理聯(lián)系!, vbOKOnly + vbExclamation, 檢索錯誤 GetHYDaZhe = 1End IfExit 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 errEndAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 庫存量 from Book where 圖書編號= & bianHao & Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst GetKuCun = Adodc1.Recordset!庫存量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 IfBeginTransAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select sum(實收金額) as 總金額 from 售書記錄 where 會員卡號= & HYKaHao & Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst SUMBook = CInt(Adodc1.Recordset!總金額)Else SUMBook = 0End IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 會員標準 from 會員政策 where 會員級別=Adodc1.RefreshAdodc1.Recordset.MoveFirstBiaoZhun = CInt(Adodc1.Recordset!會員標準)If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 會員表 where 會員卡號= & HYKaHao & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset!會員等級 = Adodc1.Recordset.Update End IfEnd IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 會員標準 from 會員政策 where 會員級別=Adodc1.RefreshAdodc1.Recordset.MoveFirstBiaoZhun = CInt(Adodc1.Recordset!會員標準)If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 會員表 where 會員卡號= & HYKaHao & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset!會員等級 = Adodc1.Recordset.Update End IfEnd IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 會員標準 from 會員政策 where 會員級別=Adodc1.RefreshAdodc1.Recordset.MoveFirstBiaoZhun = CInt(Adodc1.Recordset!會員標準)If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 會員表 where 會員卡號= & HYKaHao & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset!會員等級 = Adodc1.Recordset.Update End IfEnd IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 會員標準 from 會員政策 where 會員級別=Adodc1.RefreshAdodc1.Recordset.MoveFirstBiaoZhun = CInt(Adodc1.Recordset!會員標準)If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 會員表 where 會員卡號= & HYKaHao & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset!會員等級 = Adodc1.Recordset.Update End IfEnd IfAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select 會員標準 from 會員政策 where 會員級別=Adodc1.RefreshAdodc1.Recordset.MoveFirstBiaoZhun = CInt(Adodc1.Recordset!會員標準)If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 會員表 where 會員卡號= & HYKaHao & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset!會員等級 = Adodc1.Recordset.Update End IfEnd IfCommitTransHYShengJi = FalseExit FunctionerrEnd: Rollback HYShengJi = True Screen.MousePointer = vbDefault MsgBox 檢查會員是否應(yīng)升級時操作失?。? vbOKOnly + vbExclamation, 圖書銷售 CmdOK.Enabled = TrueEnd Function模塊名：CmdSellBook_Click模塊原型：Private Sub CmdSellBook_Click()代碼：Private Sub CmdSellBook_Click()On Error GoTo errEndDim QD As IntegerCmdSellBook.Enabled = FalseIf TxtShuLiang.Text = Then MsgBox 請輸入交易的數(shù)量!, vbOKOnly + vbExclamation, 填寫數(shù)量 TxtShuLiang.SetFocus CmdSellBook.Enabled = True Exit SubEnd IfIf GetKuCun(TuShuBianHao) = 0 Or GetKuCun(TuShuBianHao) TxtShuLiang.Text Then MsgBox 該類圖書庫存量不足,請與倉庫管理員聯(lián)系!, vbOKOnly + vbExclamation, 庫存不足 TxtShuLiang.SetFocus CmdSellBook.Enabled = True Exit SubEnd IfIf TxtZheKou.Text = Then MsgBox 請輸入交易的實際折扣率!, vbOKOnly + vbExclamation, 填寫折扣 TxtZheKou.SetFocus CmdSellBook.Enabled = True Exit SubEnd IfIf TxtZheKou.Text 1 Then MsgBox 實際折扣率填寫錯誤!請在 0 與 1 之間選擇., vbOKOnly + vbExclamation, 填寫折扣 TxtZheKou.SetFocus CmdSellBook.Enabled = True Exit SubEnd IfIf TxtSJJinE.Text = Then MsgBox 請輸入交易的實際金額!, vbOKOnly + vbExclamation, 填寫金額 TxtSJJinE.SetFocus CmdSellBook.Enabled = True Exit SubEnd IfIf TxtMemo.Text = Then TxtMemo.Text = 無QD = MsgBox(確定入帳嗎?, vbOKCancel + vbQuestion, 確認入帳)If QD = vbCancel Then CmdSellBook.Enabled = True Exit SubEnd If售書入帳Screen.MousePointer = 11BeginTransAdodc1.CommandType = adCmdTableAdodc1.RecordSource = 售書記錄Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset!圖書編號 = TuShuBianHaoAdodc1.Recordset!數(shù)量 = TxtShuLiang.TextAdodc1.Recordset!會員卡號 = HuiYuanKaHaoAdodc1.Recordset!實際打折 = TxtZheKou.TextAdodc1.Recordset!實收金額 = TxtSJJinE.TextAdodc1.Recordset!日期 = Year(Now) & - & Month(Now) & - & Day(Now) & .Adodc1.Recordset!備注 = TxtMemo.TextAdodc1.Recordset.UpdateAdodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from Book where 圖書編號= & TuShuBianHao & Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset!庫存量 = Adodc1.Recordset!庫存量 - TxtShuLiang.Text Adodc1.Recordset.UpdateElse Rollback Screen.MousePointer = vbDefault MsgBox 圖書資料丟失，請與倉庫管理員聯(lián)系！, vbOKOnly + vbExclamation, 交易失敗 CmdSellBook.Enabled = True Exit SubEnd IfIf HYShengJi(HuiYuanKaHao) Then RollbackCommitTransScreen.MousePointer = vbDefaultMsgBox 恭喜您,交易成功!, vbOKOnly + vbInformation, 交易成功Unload MeExit SuberrEnd: Rollback Screen.MousePointer = vbDefault MsgBox Err.Description, vbOKOnly + vbExclamation, 操作數(shù)據(jù)庫出錯 交易失敗 CmdSellBook.Enabled = TrueEnd Sub8.5.3系統(tǒng)模塊詳解模塊名：checkGYSID模塊原型：Public Function checkGYSID(UID As String) As Boolean代碼：Public Function checkGYSID(UID As String) As BooleanDim userDB As DatabaseDim userRD As RecordsetDim dbName As StringDim STRSQL As StringScreen.MousePointer = 11On Error GoTo errEnddbName = App.PathIf Right(dbName, 1) Then dbName = dbName + dbName = dbName + DataBaseWFSSDataBase.mdbSTRSQL = select 圖書分類 from 圖書分類 where 圖書分類號= & UID & 打開數(shù)據(jù)庫Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 關(guān)閉數(shù)據(jù)庫 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing checkGYSID = True Screen.MousePointer = vbDefaultElse 關(guān)閉數(shù)據(jù)庫 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing Screen.MousePointer = vbDefault checkGYSID = FalseEnd IfExit FunctionerrEnd: Screen.MousePointer = vbDefault MsgBox Err.Description, vbOKOnly + vbExclamation, 創(chuàng)建類別 Err.Clear 關(guān)閉數(shù)據(jù)庫 userRD.Close Set userRD = Nothing userDB.Close Set userDB = NothingEnd Function模塊名：checkFenLei模塊原型：Public Function checkFenLei(UID As String) As Boolean代碼：Public Function checkFenLei(UID As String) As BooleanDim userDB As DatabaseDim userRD As RecordsetDim dbName As StringDim STRSQL As StringScreen.MousePointer = 11On Error GoTo errEnddbName = App.PathIf Right(dbName, 1) Then dbName = dbName + dbName = dbName + DataBaseWFSSDataBase.mdbSTRSQL = select 圖書分類 from 圖書分類 where 圖書分類= & UID & 打開數(shù)據(jù)庫Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)檢索用戶,驗證密碼Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)If userRD.RecordCount 0 Then 關(guān)閉數(shù)據(jù)庫 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing checkFenLei =