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

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