【正文】 Finally () End Try //顯示注冊成功信息 = False = True End IfEnd If 學(xué)生用戶圖63 學(xué)生用戶界面Dim student_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 IfDim dsn As String = (DSN_student)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//綁定個人基本信息的學(xué)號、姓名兩項(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 = 無！ = 無！Else = (0)(s_id) = (0)(s_name)End IfCatch ex As ExceptionFinally()End Try//綁定個人基本信息的班號、座號兩項(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 = 無！ = 無！Else = (0)(class_id) = Trim((0)(group_id)) + Trim((0)(seat_id))End IfCatch ex As ExceptionFinally()End Try該段代碼實(shí)現(xiàn)了學(xué)生用戶頁面初始化功能。 教師用戶圖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)了教師用戶頁面初始化功能。 班級管理圖65 班級管理界面 = 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ù)庫失敗，可能是服務(wù)器出現(xiàn)錯誤，請稍后再試！ Finally () End Try //計(jì)算該班的人數(shù) = select * from class_student where class_id=39。 + + 39。 Try () (ds1, class_student_count) = (class_student_count). Catch = 讀取班級學(xué)生表失敗，可能是服務(wù)器出現(xiàn)錯誤，請稍后再試！ Finally () End Try 以上代碼實(shí)現(xiàn)顯示查詢班級學(xué)生名單列表。 學(xué)生資料管理圖66 學(xué)生個人資料界面Try () = cmd (ds1, infor) Dim mytable1 As New DataTable mytable1 = (infor) 39。綁定各個控件的值 = (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é)生注冊數(shù)據(jù)表操作失敗，可能是服務(wù)器出現(xiàn)錯誤，請稍后再試！ Finally () End Try。圖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)錯誤，請稍后再試！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)錯誤，請稍后再試！ Finally()End Try這段代碼實(shí)現(xiàn)了作業(yè)布置功能。 成績管理：實(shí)現(xiàn)管理員用戶的添加，修改和刪除，以及對教師添加、教師修改、教師刪除、教師查詢、學(xué)生的添加、學(xué)生的修改、學(xué)生的查詢、修改等基本功能，并且參與開設(shè)課程、選擇課程的管理，安排教師的任課和學(xué)生的選課工作，管理員為每門課程設(shè)置一個學(xué)分，每門課程可以是必修或則選修，如果學(xué)生及格，學(xué)生將獲得該課程的學(xué)分。：各科教師登錄系統(tǒng)后可以查詢和修改個人信息、修改自己的賬號密碼，查詢自己的授課課程，實(shí)現(xiàn)對選修了自己課程的學(xué)生的成績進(jìn)行查詢、錄入和修改，各科老師可以對自己學(xué)生選修課程結(jié)束后給予分?jǐn)?shù)，同時可以對自己所帶課程的成績優(yōu)秀人數(shù)，及格人數(shù)和不及格人數(shù)的分布信息進(jìn)行查詢。：每個學(xué)生登錄系統(tǒng)后可以查詢和修改個人信息、修改自己的賬號密碼，以及自己所選課程任課老師的個人信息，同時在課程結(jié)束后可以查詢在校期間各個時間段選修課程的成績與學(xué)分，以及對單科成績和總分的排名查詢。學(xué)生：對各科成績的查詢及查看本班成績排名等情況。任課老師：輸入并維護(hù)所教科目的學(xué)生成績，計(jì)算本科的成績排名、本科成績在班上的排名。輸出本班科目的成績及排名情況。班主任：輸入并維護(hù)本班的基本信息，對本班的各科成績匯總，計(jì)算各科成績的總分，排名，本班平均分等需求。輸出學(xué)生的基本信息，各科的成績及各科成績的部分，各科成績的排名，總分的排名情況。教務(wù)處：學(xué)校全體成員的信息管理，對考試科目，時間及對所考科目的編號等進(jìn)行具體的管理，并對任課老師，班主任等輸入的信息進(jìn)行存庫，對學(xué)生的信息進(jìn)行必要的維護(hù)，可打印學(xué)生的所有信息。 系統(tǒng)模塊結(jié)構(gòu)圖6 總結(jié)在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識、經(jīng)驗(yàn)方面都存在著不足。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。因?yàn)閷σ魳方虒W(xué)管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。雖然網(wǎng)絡(luò)在音樂教學(xué)管理系統(tǒng)中的應(yīng)用不是很多，但是未來的發(fā)展方向，在本次開發(fā)過程已經(jīng)實(shí)現(xiàn)網(wǎng)絡(luò)功能。盡管本管理系統(tǒng)存在著很多不足之處，但其功能比較全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是本管理系統(tǒng)所必需的。相信本音樂教學(xué)管理系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，我掌握了的項(xiàng)本過程，但在這次畢業(yè)設(shè)計(jì)中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用，而是學(xué)會了設(shè)計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。致謝在畢業(yè)設(shè)計(jì)過程中，我的輔導(dǎo)老師始終給予的耐心幫助和講解，為我提供了輕松愉悅的開發(fā)氛圍，對我在開發(fā)過程中所遇到的很多概念模糊和技術(shù)難題的解決起了關(guān)鍵性作用,對我熟悉軟件工程開發(fā)流程和規(guī)范，提高動手能力作出了很大努力。其次,我的同窗好友在畢業(yè)設(shè)計(jì)過程中始終能夠團(tuán)結(jié)合作，一起解決難題，一起學(xué)習(xí)最新知識,最后，要特別鳴謝導(dǎo)師的無私幫助是系統(tǒng)設(shè)計(jì)能順利完成，這要感謝參與這次項(xiàng)目的小組各成員，因?yàn)樗麄兘o我許多幫助和鼓勵，還要感謝學(xué)院以及學(xué)院老師對我們的幫助，使我的畢業(yè)設(shè)計(jì)與論文能夠按時完成。我非常感謝我的指導(dǎo)老師。在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)教師身上學(xué)到了很多東西。老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我獲益匪淺。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助。然后，我要感謝教我各種專業(yè)知識的老師們以及幾年來對我無微不至的各位輔導(dǎo)員，還要感謝我的組員對該系統(tǒng)的認(rèn)真投入，以及在系統(tǒng)開發(fā)時對我提供無私幫助的同學(xué)。衷心感謝的感謝他們！最后，感謝大學(xué)對我?guī)啄陙淼慕逃团囵B(yǎng)，在這幾年里給我提供許多學(xué)習(xí)和實(shí)踐的機(jī)會。經(jīng)過這次畢業(yè)設(shè)計(jì)的實(shí)踐學(xué)習(xí)，對于我今后的工作打下了良好的基礎(chǔ)。參考文獻(xiàn)[1] 李明剛． Web站點(diǎn) 高級編程范例[M]．北京：清華大學(xué)出版社，2004：6775．[2] 凱際咨詢工作室．[M]．北京：清華大學(xué)出版社，2004：156180．[3] Marco Bellinaso，Kevin Hoffman． WEBSITE Programming