基于BS架構(gòu)的在線選課信息管理系統(tǒng)設(shè)計(jì)

1、GDGM-QR-03-077-A/0 Guangdong College of Industry ) Exit Sub End If If dbm.checkUser(username, password, limit) = True Then Select Case limit Case 0 Session(sid) = username Response.Redirect(StudentMain.aspx) Case 1 Session(tid) = username Response.Redirect(TeacherMain.aspx) Case 2 Session(aid) = use

2、rname Response.Redirect(Admin.aspx) End Select Else Me.Response.Write(alert(用戶名或密碼不正確！);) Exit Sub End If End Sub 4.2 管理員設(shè)置選課時(shí)間模塊 圖 4-2 設(shè)置選課時(shí)間界面 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim startTime As Date = txtStartTIme.Text Dim endTim

3、e As Date = txtEndTime.Text If dbm.setChooseTime(startTime, endTime) = True Then Response.Write(alert(設(shè)置時(shí)間成功) Else Response.Write(alert(設(shè)置時(shí)間失敗) End If End Sub 4.3 教室管理模塊 圖 4-3 教室設(shè)置界面 Dim str As String = dbm.str_Trim(txtRNum.Text.ToString() + , + dbm.str_Trim(txtRName.Text.ToString() + , + dbm.str_Tr

4、im(txtRpn.Text.ToString() If dbm.addRoom(str) = True Then Response.Write(alert(添加成功) Else Response.Write(alert(添加失敗，請(qǐng)檢查教室編號(hào)時(shí)候已經(jīng)存在) End If End Sub 4.4 教師與學(xué)生信息管理模塊 圖 4-4 教師與學(xué)生信息管理界面 If dbm.addTeacher(Str) = True Then Response.Write(alert(添加成功) Else Response.Write(alert(添加失敗，請(qǐng)檢查教師編號(hào)時(shí)候已經(jīng)存在) End If End S

5、ub If dbm.addStudent(str) = True Then Response.Write(alert(添加成功) Else Response.Write(alert(添加失敗，請(qǐng)檢查學(xué)生編號(hào)時(shí)候已經(jīng)存在) End If End Sub 4.5 查看教師所任課程模塊 圖 4-5 教師個(gè)人所開課程界面 4.6 教師管理個(gè)人信息模塊 圖 4-6 教師個(gè)人信息管理界面 Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Dim str

6、 As String = dbm.str_Trim(lbSID.Text.ToString() + , + dbm.str_Trim(txtName.Text.ToString() + , + dbm.str_Trim(ddlSex.Text.ToString() + _ dbm.str_Trim(txtBirthday.Text.ToString() dbm.updateStudentInfo(str) Response.Write(alert(保存成功) End Sub Protected Sub Button4_Click(ByVal sender As Object, ByVal e

7、As System.EventArgs) Handles Button4.Click If txtOldPsd.Text = txtNewPsd.Text Then Dim s_id As String = Session(sid).ToString() dbm.change_password(s_id, Student, txtOldPsd.Text.ToString() Response.Write(alert(修改成功) Else Response.Write(alert(兩次密碼不一致) End If End Sub 4.7 教師評(píng)定成績模塊 圖 4-7 教師評(píng)定成績界面 4.8 教師

8、課程安排管理模塊 圖 4-8 課程安排管理界面 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sw, ew As String If dbm.hasCoures(ddlCName.SelectedValue.ToString() Then Response.Write(alert(該課程已經(jīng)設(shè)置了開課時(shí)間) Else Dim str As String = ddlCName.SelectedValue.ToString() +

9、, + sw + , + ew + , + txtTime.Text.ToString() + , + ddlRName.SelectedValue.ToString() dbm.addCourseTime(str) Response.Write(alert(添加成功) Response.Redirect(/CourseTime.aspx) End If End Sub 4.9 教師開設(shè)新課程模塊 圖 4-9 開設(shè)新課程界面 If txtCname.Text.ToString() = Or txtCscore.Text.ToString() = Or dbm.str_Trim(txtMaxNu

10、m.Text.ToString() = Then Response.Write(alert(請(qǐng)?zhí)钊胪暾畔? Exit Sub Else dbm.addCourse(str) Response.Write(alert(開設(shè)成功) End If End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Session(tid) = Or Session(tid) = Nothing Then Response.Redirect(/login.asp

11、x) Exit Sub End If End Sub 4.10 學(xué)生個(gè)人信息模塊 圖 4-10 學(xué)生個(gè)人信息界面 4.11 學(xué)生個(gè)人信息管理模塊 圖 4-11 學(xué)生個(gè)人信息管理界面 Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Dim str As String = dbm.str_Trim(lbSID.Text.ToString() + , + dbm.str_Trim(txtName.Text.ToString() + , + db

12、m.str_Trim(ddlSex.Text.ToString() + _ dbm.str_Trim(txtBirthday.Text.ToString() dbm.updateStudentInfo(str) Response.Write(alert(保存成功) End Sub Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click If txtOldPsd.Text = txtNewPsd.Text Then Dim s_id As Stri

13、ng = Session(sid).ToString() dbm.change_password(s_id, Student, txtOldPsd.Text.ToString() Response.Write(alert(修改成功) Else Response.Write(alert(兩次密碼不一致) End If End Sub 4.12 學(xué)生選擇課程模塊 圖 4-12 學(xué)生選擇課程管理界面 If Not IsPostBack Then If dbm.isChooseTime = False Then Dim startTime As String = dbm.getChooseTime()

14、.Split(,)(0) Dim endTime As String = dbm.getChooseTime().Split(,)(1) Response.Write(alert(選課時(shí)間為： + startTime + 到 + endTime + 現(xiàn)在不是選課時(shí)間) End If lbselect.Text += dbm.getchoose(sid) End If End Sub 第五章調(diào)試與測(cè)試 5.1 測(cè)試環(huán)境 該系統(tǒng)需要在網(wǎng)絡(luò)環(huán)境下運(yùn)行，對(duì)整個(gè)系統(tǒng)的性能要求較高，測(cè)試環(huán)境如下：瀏覽器 采用 IE6.0，數(shù)據(jù)庫采用穩(wěn)定性好的 SQL Server 2005, 操作系統(tǒng)為 WINDOS X

15、P；本系統(tǒng)采 用 ASP.NET 平臺(tái)。 5.2 測(cè)試的項(xiàng)目 該系統(tǒng)分為管理員、教師、學(xué)生三種用戶，因此該測(cè)試項(xiàng)目的內(nèi)容主要是三種用戶實(shí) 現(xiàn)的功能，主要如下： 管理員：學(xué)生信息、教師信息以及課室信息的添加、刪除；選課時(shí)間的設(shè)置。 教師：已任課程的查看；開設(shè)新課程；評(píng)定選課學(xué)生成績；個(gè)人信息以及密碼的修改。 學(xué)生：查看已選課程；查看所有課程信息；查看能選的課程信息；課程的退選；課程 信息的查看；個(gè)人信息及密碼的修改。 5.3 系統(tǒng)測(cè)試 （1）測(cè)試目標(biāo) 用戶通過 Internet 可以訪問到登錄窗口，并可以在用戶名，密碼框內(nèi)輸入用戶 ID 和 密碼，如果數(shù)據(jù)庫中存在該用戶 ID 和密碼就可以進(jìn)入不

16、同權(quán)限的主頁內(nèi)，否則就會(huì)提示 輸入錯(cuò)誤的用戶名或密碼，要求重新輸入。 （2）測(cè)試步驟 首先，用戶在出現(xiàn)登錄界面時(shí)，要求輸入用戶名和密碼。其次，在用戶名處輸入用戶 本人的用戶 ID，在密碼處輸入正確的密碼，然后選擇操作權(quán)限，最后點(diǎn)擊“登錄”按鈕。 （3）測(cè)試結(jié)果 在正確輸入用戶名和密碼時(shí)，可以順利進(jìn)入到不同權(quán)限的主頁，但如果輸入錯(cuò)誤的用 戶名或密碼信息就會(huì)彈出一個(gè)提示框“用戶名或密碼不正確！”。此時(shí)就要重新輸入正確 的用戶名和密碼。 5.4 測(cè)試結(jié)果的分析與總結(jié) 經(jīng)過測(cè)試，本系統(tǒng)達(dá)到了預(yù)期效果，實(shí)現(xiàn)了選課、退課、查詢、課程信息瀏覽等功能。 由于本身能力的局限性，編寫的代碼，即使經(jīng)過反復(fù)檢查也難免

17、出錯(cuò)，所以在本階段力求 使用有限的時(shí)間找出盡可能多的錯(cuò)誤，力求系統(tǒng)盡量正確。 本系統(tǒng)所涉及的數(shù)據(jù)庫設(shè)計(jì)的重要步驟加載測(cè)試。加載測(cè)試工作貫穿于程序測(cè)試工作 的全過程，整個(gè)錄入、修改、查詢、處理工作均可視為對(duì)數(shù)據(jù)庫的加載測(cè)試工作。要設(shè)計(jì) 出一個(gè)好的學(xué)生在線選課系統(tǒng)數(shù)據(jù)庫，除滿足系統(tǒng)所要求的功能外，所有基本表的設(shè)計(jì)還 應(yīng)盡量符合第三范式。數(shù)據(jù)庫的設(shè)計(jì)中，如何處理多對(duì)多的關(guān)系和如何設(shè)置主鍵，是兩個(gè) 有著較大難度、需要重點(diǎn)考慮的問題。 結(jié)束語 經(jīng)過近兩個(gè)月的努力，通過網(wǎng)上查詢資料，本人對(duì)學(xué)生選課系統(tǒng)有了較深刻的認(rèn)識(shí)， 也具備了一定的實(shí)際開發(fā)經(jīng)驗(yàn)。認(rèn)識(shí)到開發(fā)系統(tǒng)首先要明確用戶的需求，然后進(jìn)行系統(tǒng)分 析，其

18、次構(gòu)建系統(tǒng)模型、建立完善的數(shù)據(jù)庫，接著編寫代碼，最后測(cè)試系統(tǒng)。 在明確用戶需求階段，網(wǎng)上查閱了相關(guān)資料，并瀏覽了部分網(wǎng)上選課系統(tǒng)，分析總結(jié) 后將系統(tǒng)分為學(xué)生信息管理、教師信息管理、課程信息管理和權(quán)限的判斷四個(gè)模塊。 在系統(tǒng)分析階段，查閱了大量基于不同技術(shù)的網(wǎng)站開發(fā)的文章，具備了一定的理論基 礎(chǔ)，比較分析后采用了 ASP.NET 編程技術(shù)和 SQL Server 2005 數(shù)據(jù)庫，在 Windows XP 操 作系統(tǒng)環(huán)境下，運(yùn)用 Dreamweaver 8 開發(fā)工具，開發(fā)了這個(gè)基于 B/S 結(jié)構(gòu)的學(xué)生在線選課 系統(tǒng)的實(shí)現(xiàn)。本系統(tǒng)不但有良好的系統(tǒng)運(yùn)行穩(wěn)定性、可靠性和實(shí)用性，而且操作簡(jiǎn)單，維 護(hù)方便，具有一定的實(shí)用價(jià)值。 系統(tǒng)進(jìn)入編程階段后，遇到了很多的困難，主要是數(shù)據(jù)的存取。但經(jīng)過自己的努力及 老師的指導(dǎo)，最終解決了這些問題，開發(fā)出一個(gè)學(xué)生選課系統(tǒng)，并達(dá)到了預(yù)期的設(shè)想。 雖然系統(tǒng)還有很多不足之處，如：程序中錯(cuò)誤處理和輸入控制不夠全面，可能導(dǎo)致輸 入無效引發(fā)錯(cuò)誤。但在整個(gè)開發(fā)過程中我學(xué)到了很多的知識(shí)，增強(qiáng)了動(dòng)手能力，積累了解 決各種難題的經(jīng)驗(yàn)。同時(shí)也讓我發(fā)現(xiàn)了自己的許多不足之處，有待在將來的工作中進(jìn)一步 的學(xué)習(xí)和完善，掌握和運(yùn)用更多的知識(shí)。 參