【正文】 同時，在系統(tǒng)開發(fā)過程中還有同組的同學(xué)也給了我不少幫助，這里一并表示感謝。在撰寫論文階段，徐向華老師幾次審閱我們的論文，提出了許多寶貴意見，沒有他的指導(dǎo)，我們就不能較好的完成課題設(shè)計的任務(wù)。他認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。致謝在論文即將完成之際，回顧緊張但又充實的學(xué)習(xí)和開發(fā)過程，本人在此向所有關(guān)心我的及幫助我的老師和同學(xué)們致以最真誠的感謝。盡管本管理系統(tǒng)存在著很多不足，但其功能比較全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是本管理系統(tǒng)所必需的。因為對教學(xué)管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。另外，在整個開發(fā)的過程中，時間也比較倉促。)Try()() = 提交成功！Catch = 提交作業(yè)信息失敗，可能是服務(wù)器出現(xiàn)錯誤，請稍后再試！ Finally()End Try這段代碼實現(xiàn)了作業(yè)布置功能。,39。,39。,39。,39。 圖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。 + + 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。 Try () (ds1, class_student_count) = (class_student_count). Catch = 讀取班級學(xué)生表失敗，可能是服務(wù)器出現(xiàn)錯誤，請稍后再試！ Finally () End Try 以上代碼實現(xiàn)顯示查詢班級學(xué)生名單列表。 order by seat_id asc Try () (ds1, student_class_infor) = (student_class_infor) () Catch = 讀取數(shù)據(jù)庫失敗，可能是服務(wù)器出現(xiàn)錯誤，請稍后再試！ Finally () End Try //計算該班的人數(shù) = select * from class_student where class_id=39。 班級管理圖65 班級管理界面 = select ,group_id,seat_id from student_infor,class_student where = and class_id=39。 (userInf).Values(userID) amp。 (userInf).Values(userID) amp。 (userInf).Values(userID) amp。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該段代碼實現(xiàn)了學(xué)生用戶頁面初始化功能。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//綁定個人基本信息的班號、座號兩項 = SELECT * FROM class_student WHERE s_id =39。 (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é)號、姓名兩項 = SELECT * FROM student_infor WHERE s_id=39。 (userInf).Values(userIdent)Else = 晚上好， amp。 (userInf).Values(userIdent)ElseIf = 12 And 18 Then = 下午好， amp。) Try () () Catch = 數(shù)據(jù)庫操作失敗，可能是服務(wù)器出現(xiàn)錯誤，請稍后再試！ 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。 WHERE (s_id = 39。判斷在注冊是是否出現(xiàn)意外情況， //將student_infor的對應(yīng)項的s_iflogin置為,表示已經(jīng)注冊過了 = UPDATE student_infor SET s_iflogin = 39。If bool1 Then 39。,39。,39。,39。,39。,39。,39。,39。s_iflogin//字段表示學(xué)生是否已經(jīng)注冊 = 該用戶已經(jīng)注冊 Else bool1 = True = End If Else = 您所輸入的號碼和姓名不匹配，請重新填寫 End If Else = 你所輸入的學(xué)號，請重新填寫 End If ()Catch = 數(shù)據(jù)庫操作失敗，可能是服務(wù)器出現(xiàn)錯誤，請稍后再試！Finally ()End TryElse = 頁面有錯誤End If //sql2表示插入語句中values中的值 Dim sql2 As String = 39。Try () Dim reader As IDataReader reader = () If Then 39。 學(xué)生注冊圖62 學(xué)生注冊界面Dim dsn As String = (DSN_student)//設(shè)置數(shù)據(jù)庫連接字符串Dim conn As New = dsnDim cmd As IDbCommand = () If Then //頁面驗證成功 = select * from student_infor where s_id=39。查詢語句Try () //打開數(shù)據(jù)庫連接 Dim reader As IDataReader reader = () strpassword = If Then strRealPw = (str_PW) If Trim(strpassword) = Trim(strRealPw) Then //比較密碼和輸入 bool1 = false Else = 密碼錯誤! bool1 = False End If Else = 用戶名輸入錯誤 bool1 = true End If () Catch = 數(shù)據(jù)庫操作失敗，可能是服務(wù)器出現(xiàn)錯誤，請稍后再試! Finally () strpassword = strRealPw = End Try以上代碼是驗證用戶ID和密碼。 39。 amp。Select Case strTableName//根據(jù)選擇的用戶不同，用case來選擇用戶Case student_login =(DSN_student)//設(shè)置數(shù)據(jù)庫連接字符串 strID = s_id str_PW = sl_pwd strPath = ../network_course/student/ strUserIdent = 同學(xué)Case teacher_login = (DSN_teacher)//設(shè)置數(shù)據(jù)庫連接字符串 strID = T_id str_PW = TL_pwd strPath = ../network_course/teacher/ strUserIdent = 老師End Select 以上代碼是處理下拉菜單選擇學(xué)生或老師的問題，以及設(shè)置字段名和頁面跳轉(zhuǎn)字符串。數(shù)據(jù)表selectInsertupdatedeleteStudent_infor√√Student_login√√√Class_student√√√√N(yùn)otice_infor√Exercise_update√√√√Student_mark√Lab_infor√Exercise_infor√圖59 學(xué)生權(quán)限表數(shù)據(jù)表selectInsertupdatedeleteStudent_infor√√√√Student_login√√√√Class_student√√√√N(yùn)otice_infor√√√√Exercise_update√√√√Student_mark√√√√Mark_rate√√√√Teacher_login√√√√Lab_infor√√√√Exercise_infor√√√√圖510教師權(quán)限表6 系統(tǒng)功能的實現(xiàn)