【正文】 dent)Dim conn As New = dsnDim cmd As New = connDim ds1 As DataSet = New DataSetDim mydap1 As New = select top 10* from notice_infor order by nu_date desc = cmdTry()(ds1, teachingnotice_top10) = (teachingnotice_top10)()Catch ex As ExceptionFinally()End Try//綁定個(gè)人基本信息的學(xué)號(hào)、姓名兩項(xiàng) = SELECT * FROM student_infor WHERE s_id=39。 + student_id + 39。Try() = cmd(ds1, student_infor)Dim mytable1 As New DataTablemytable1 = (student_infor)If = 0 Then = 無(wú)！ = 無(wú)！Else = (0)(s_id) = (0)(s_name)End IfCatch ex As ExceptionFinally()End Try//綁定個(gè)人基本信息的班號(hào)、座號(hào)兩項(xiàng) = SELECT * FROM class_student WHERE s_id =39。 + student_id + 39。Try() = cmd(ds1, class_student)Dim mytable2 As New DataTablemytable2 = (class_student)If = 0 Then = 無(wú)！ = 無(wú)！Else = (0)(class_id) = Trim((0)(group_id)) + Trim((0)(seat_id))End IfCatch ex As ExceptionFinally()End Try該段代碼實(shí)現(xiàn)了學(xué)生用戶頁(yè)面初始化功能。 教師用戶圖64 教師用戶界面Dim teacher_id As String = (userInf).Values(userID) If = 6 And 12 Then = 早上好， amp。 (userInf).Values(userID) amp。 (userInf).Values(userIdent) ElseIf = 12 And 18 Then = 下午好， amp。 (userInf).Values(userID) amp。 (userInf).Values(userIdent) Else = 晚上好， amp。 (userInf).Values(userID) amp。 (userInf).Values(userIdent) End If Dim dsn As String = (DSN_teacher) Dim conn As New = dsn Dim cmd As New = conn Dim ds1 As DataSet = New DataSet Dim mydap1 As New = select top 10* from notice_infor order by nu_date desc = cmd Try () (ds1, teachingnotice_top10) = (teachingnotice_top10) () Catch Finally () End Try該段代碼實(shí)現(xiàn)了教師用戶頁(yè)面初始化功能。 班級(jí)管理圖65 班級(jí)管理界面 = select ,group_id,seat_id from student_infor,class_student where = and class_id=39。 + + 39。 order by seat_id asc Try () (ds1, student_class_infor) = (student_class_infor) () Catch = 讀取數(shù)據(jù)庫(kù)失敗，可能是服務(wù)器出現(xiàn)錯(cuò)誤，請(qǐng)稍后再試！ Finally () End Try //計(jì)算該班的人數(shù) = select * from class_student where class_id=39。 + + 39。 Try () (ds1, class_student_count) = (class_student_count). Catch = 讀取班級(jí)學(xué)生表失敗，可能是服務(wù)器出現(xiàn)錯(cuò)誤，請(qǐng)稍后再試！ Finally () End Try 以上代碼實(shí)現(xiàn)顯示查詢班級(jí)學(xué)生名單列表。 學(xué)生資料管理圖66 學(xué)生個(gè)人資料界面Try () = cmd (ds1, infor) Dim mytable1 As New DataTable mytable1 = (infor) 39。綁定各個(gè)控件的值 = (0)(s_id) = (0)(s_name) = (0)(sl_name) = (0)(sl_pwd) = (0)(sl_pwd) = (0)(sl_phone) = (0)(sl_) = (0)(sl_memo) Catch = 讀取學(xué)生注冊(cè)數(shù)據(jù)表操作失敗，可能是服務(wù)器出現(xiàn)錯(cuò)誤，請(qǐng)稍后再試！ Finally () End Try。 作業(yè)管理圖67 作業(yè)查詢Dim dsn As String = (DSN_teacher)Dim conn As New = dsnDim cmd As New = connDim ds1 As DataSet = New DataSetDim mydap1 As New = select eu_id,s_id,e_title,eu_date from exercise_update where s_id in(select s_id from class_student where class_id=39。 + + 39。) = cmdTry () (ds1, exerciseupdate) = (exerciseupdate) () = Catch = 讀取作業(yè)提交表失敗，可能是服務(wù)器出現(xiàn)錯(cuò)誤，請(qǐng)稍后再試！Finally()End Try以上代碼實(shí)現(xiàn)作業(yè)的查詢。 圖68 作業(yè)布置Dim dsn As String = (DSN_teacher)Dim conn As New = dsnDim cmd As New = connDim e_id As String = = insert into exercise_infor (e_ID,e_title,eu_deadline,e_content,e_memo) values (39。 + e_id + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。)Try()() = 提交成功！Catch = 提交作業(yè)信息失敗，可能是服務(wù)器出現(xiàn)錯(cuò)誤，請(qǐng)稍后再試！ Finally()End Try這段代碼實(shí)現(xiàn)了作業(yè)布置功能。7 總結(jié)在本系統(tǒng)的開(kāi)發(fā)過(guò)程中，由于本人是初次開(kāi)發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。另外，在整個(gè)開(kāi)發(fā)的過(guò)程中，時(shí)間也比較倉(cāng)促。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。因?yàn)閷?duì)教學(xué)管理的整個(gè)流程不夠熟悉，在需求分析時(shí)未能做到完全滿足用戶的需求。雖然網(wǎng)絡(luò)在教學(xué)管理系統(tǒng)中的應(yīng)用不是很多，但是未來(lái)的發(fā)展方向，在本次開(kāi)發(fā)過(guò)程已經(jīng)實(shí)現(xiàn)網(wǎng)絡(luò)功能。盡管本管理系統(tǒng)存在著很多不足，但其功能比較全面、易于日后程序更新、數(shù)據(jù)庫(kù)管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是本管理系統(tǒng)所必需的。相信本教學(xué)管理系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件，通過(guò)開(kāi)發(fā)這個(gè)系統(tǒng)，我掌握了的項(xiàng)本過(guò)程，但在這次畢業(yè)設(shè)計(jì)中的最大收獲并不是掌握這幾門(mén)開(kāi)發(fā)工具的應(yīng)用，而是學(xué)會(huì)了設(shè)計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。致謝在論文即將完成之際，回顧緊張但又充實(shí)的學(xué)習(xí)和開(kāi)發(fā)過(guò)程，本人在此向所有關(guān)心我的及幫助我的老師和同學(xué)們致以最真誠(chéng)的感謝。在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師徐向華老師身上學(xué)到了很多東西。他認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到很大的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，在此感謝他耐心的輔導(dǎo)。在撰寫(xiě)論文階段，徐向華老師幾次審閱我們的論文，提出了許多寶貴意見(jiàn)，沒(méi)有他的指導(dǎo)，我們就不能較好的完成課題設(shè)計(jì)的任務(wù)。另外，我還要感謝在這幾年來(lái)對(duì)我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識(shí)，而且讓我掌握了學(xué)習(xí)的方法，更教會(huì)了我做人處事的道理，在此表示感謝。同時(shí)，在系統(tǒng)開(kāi)發(fā)過(guò)程中還有同組的同學(xué)也給了我不少幫助，這里一并表示感謝。參考文獻(xiàn)[1] 李明剛． Web站點(diǎn) 高級(jí)編程范例[M]．北京：清華大學(xué)出版社，2004：6775．[2] 凱際咨詢工作室．[M]．北京：清華大學(xué)出版社，2004：156180．[3] Marco Bellinaso，Kevin Hoffman． WEBSITE Programming Problem[M]．北京：清華大學(xué)出版社，2003：201225．[4] Russ Basiura，Richard Conway．Professional Security [M]．Wrox Press Ltd，2001：89102．[5] 馬朝暉，Stephen Walther．[M]．北京：機(jī)械工業(yè)出版社，2002：3853．[6] 章小莉．SQL完全手冊(cè)（第二版）[M]．北京：電子工業(yè)出版社，2003：99115．[7] 詹文軍．[M]．北京：情話大學(xué)出版社，2003：3442．[8] 方力，劉鋒．SQL Server 2000 XML高級(jí)編程[M]．北京：中國(guó)電力出版社，2002：123134．[9] 郭常圳，李云錦．[M]．北京：情話大學(xué)出版社，2006：112118．[10] 王為．SQL Server 2005從入門(mén)到精通[M]．北京：清華大學(xué)出版社，：137148．[11] 鄭阿奇． 程序設(shè)計(jì)教程[M]．北京：機(jī)械工業(yè)出版社，2006：7579．[12] 唐金文．[J]．曲靖師范學(xué)院學(xué)報(bào)，2004， (06) ： 621．[13] 譚清．[J]．烏魯木齊成人教育學(xué)院學(xué)報(bào)，2005， (02) ：1018．[14] 曹建英．[J]．溫州師范學(xué)院學(xué)報(bào)，2005， (02) ：2125．[15] 王東升，徐鑫濤．SQL Server數(shù)據(jù)庫(kù)安全配置探討[J]．中國(guó)科技信息，2007， (02) ：1821．[16] 周靜．ASP 頁(yè)面間的數(shù)據(jù)傳遞方式探索[J]．微計(jì)算機(jī)信息，2006，53：114115．[17] 董方敏，彭代軍，吳西燕．應(yīng)用RBAC 技術(shù)實(shí)現(xiàn)MIS 用戶權(quán)限管理的統(tǒng)一[J]．信息技術(shù)，2005， (7) ：3644．[18] 段美英，魯紹坤，邱苑梅，許亮．[J]．云南農(nóng)業(yè)大學(xué)學(xué)報(bào)，2004，(05) ：2633．[19] 劉振華，戴維迪．管理信息系統(tǒng)的安全性研究[J]微機(jī)處理，2006，(04) ：612．[20] 許雋．CSS樣式表經(jīng)典應(yīng)用[J]計(jì)算機(jī)時(shí)代，2001， (10) ：816．40