畢業(yè)設(shè)計(jì)考試管理系統(tǒng)的分析及設(shè)計(jì)-wenkub.com
2025-06-26 15:02 本頁面
【正文】 它綜合了信息報告系統(tǒng)（IRS）和決策支持系統(tǒng)（DSS）的許多特征的一種信息系統(tǒng)。戰(zhàn)略信息系統(tǒng)（SIS）。專家系統(tǒng)（ES）。在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師身上學(xué)到了很多東西，取人之長，補(bǔ)已之短。在系統(tǒng)設(shè)計(jì)過程中，我體會到了即使是一件小事也不能馬虎，在設(shè)計(jì)之前一定要對所設(shè)計(jì)的系統(tǒng)有較為深刻地了解,并對用戶的要求加以認(rèn)真的分析,并給予分類,對所分類進(jìn)行功能模塊化設(shè)計(jì),畫出系統(tǒng)數(shù)據(jù)流圖,學(xué)習(xí)的地方，不僅要掌握好相關(guān)知識，而且做事要細(xì)心，謹(jǐn)慎，這也是將來工作和學(xué)習(xí)應(yīng)該注意的地方。在設(shè)計(jì)應(yīng)用程序時，應(yīng)仔細(xì)考慮每個組件提供的功能以及與其他組件之間的關(guān)系。用戶登錄本系統(tǒng)，開始登錄畫面為：當(dāng)進(jìn)度條加載完成后出現(xiàn)登錄提示窗體如下:? 系統(tǒng)主畫面屏幕區(qū)域設(shè)計(jì)進(jìn)行系統(tǒng)的主畫面屏幕區(qū)域設(shè)計(jì)時，是將整個屏幕劃分為三個區(qū)域，如下圖所示：主 菜 單 區(qū)工 作 區(qū)狀 態(tài) 信 息 區(qū)登錄窗體的源代碼設(shè)計(jì)如下Private Sub CmdOk_Click() If = Then MsgBox 請輸入姓名, vbCritical, 登錄失敗 Exit Sub End If If = Then MsgBox 請輸入口令, vbCritical, 登錄失敗 Exit Sub End If Select Case Case 0 txtUserName, txtPassword, student Case 1 txtUserName, txtPassword, teacher Case 2 txtUserName, txtPassword, administrator End Select If Not Then Unload Me Else MsgBox 無法登錄, 請重試!, vbCritical, 用戶登錄 SendKeys {Home}+{End} End IfEnd Sub 各模塊的主要設(shè)計(jì) 學(xué)生考試模塊的設(shè)計(jì)如圖所示,學(xué)生考試主要是從題庫中抽取教師出的題,從數(shù)據(jù)庫中讀取出來,給學(xué)生考試,其源程序設(shè)計(jì)如下:界面上的工具欄跟交卷的功能設(shè)計(jì)如下:Private Sub CmdFirst_Click() If Not AnswerSet Then SetAnswer End If iCount = 1 PrepareQuestion (iCount)End SubPrivate Sub CmdLast_Click() If Not AnswerSet Then SetAnswer End If iCount = PrepareQuestion (iCount)End SubPrivate Sub CmdNext_Click() If Not AnswerSet Then SetAnswer End If If iCount Then iCount = iCount + 1 PrepareQuestion (iCount) End IfEnd SubPrivate Sub CmdPrev_Click() If Not AnswerSet Then SetAnswer End If If iCount 1 Then iCount = iCount 1 PrepareQuestion (iCount) End IfEnd SubPrivate Sub CmdSubmit_Click() If Not AnswerSet Then SetAnswer End If Unload MeEnd Sub 學(xué)生考試成績查詢模塊的設(shè)計(jì)在該模塊中,學(xué)生在進(jìn)行考試交卷后,在后臺由老師評評卷,給出評分,評分后,:Private Sub Form_Load() Dim t As Single, p As Single = = = = t = CSng() + CSng() = CStr(t) p = CSng() + CSng() txtPercent = Format(t / p, .0%) End Sub 教師管理模塊的設(shè)計(jì)在該模塊中一共有 6 個子模塊,現(xiàn)將各個子模塊分別介紹如下: 教師命題的設(shè)計(jì):從圖可以看出,教師可以進(jìn)行命題的題型為填空題,判斷題,單選題,多選題以及問題題,通過窗體中間的選入按鈕完成試卷的命題,:Private Sub CmdReport_Click() = Kill vbModal vbModalEnd SubPrivate Sub DelQ_Click() If 0 Then MsgBox 請選擇要刪減的題目, vbCritical, 錯誤 Exit Sub End If Dim S As String Dim p As Integer Dim RCount As Long S = p = InStr(S, .) RCount = Val(Left(S, p 1)) RCount End SubPrivate Sub Form_Load() QName(1) = 填空題 QName(2) = 判斷題 QName(3) = 單選題 QName(4) = 多選題 QName(5) = 問答題 = 試題選擇 Set dbrs = Set = dbrs = True Ttype = 1 ListQstEnd SubPrivate Sub Form_Unload(Cancel As Integer) Set dbrs = NothingEnd SubPrivate Sub OptEssayQ_Click()Set dbrs = Set = dbrs = 問答題題庫Ttype = 5End SubPrivate Sub OptFill_Click()Set dbrs = Set = dbrs = 填空題題庫Ttype = 1End SubPrivate Sub OptMulSel_Click()Set dbrs = Set = dbrs = 多選題題庫Ttype = 4End SubPrivate Sub OptRorW_Click()Set dbrs = Set = dbrs = 判斷題題庫Ttype = 2End SubPrivate Sub OptSglSel_Click()Set dbrs = Set = dbrs = 單選題題庫Ttype = 3End Sub修改和瀏覽試卷是在上一模塊,命題的基礎(chǔ)上進(jìn)行試卷的修改與查看,故不作重點(diǎn)描述. 試題管理的設(shè)計(jì)試題管理模塊進(jìn)行試題的添加,刪除,計(jì)窗體如下:添加按鈕代碼:Private Sub CmdAdd_Click() = False = False = False = True = True cmdType = 1 Dim i As Integer For i = 0 To 7 txtFields(i).Text = NextEnd Sub刪除按鈕代碼:Private Sub CmdDel_Click() If Not dbrs Is Nothing Then If Not And Not Then adAffectCurrent End If End IfEnd Sub修改按鈕代碼:Private Sub CmdUpdate_Click() On Error Resume Next = False = False = False = True = True cmdTyp
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1