【正文】 圖10代碼如下：Private Sub addCmbClass() Dim str1 As String Dim str2 As String Dim str3 As String Dim str4 As String Try Dim sql As String = SELECT , , FROM CLASSINFO A,DEPARTMENTINFO B WHERE = Dim dt As DataTable = GetDataTable(sql) For i As Integer = 0 To 1 str1 = (i)(classyear) str2 = (i)(department) str3 = (i)(classnumber) str4 = (i)(classid) (str4 + | + str1 + 級 + str2 + str3) Next Catch ex As Exception WriteErr(ex) End Try End Sub Private Sub addCmbCourse() Try Dim sql As String = SELECT COURSENAME FROM COURSEINFO Dim dt As DataTable = GetDataTable(sql) For i As Integer = 0 To 1 ((i)(coursename)) Next Catch ex As Exception WriteErr(ex) End Try End Sub Private Sub addCmbStudent() Dim str1 As String Dim str2 As String () Dim ClassID As String Dim sql As String Try If And Then Dim iditem() As String iditem = (|c) ClassID = iditem(0) sql = SELECT STUDENTID,STUDENTNAME FROM STUDENTINFO WHERE CLASSID= + ClassID ElseIf And = Then (請先選擇班級) Return Else sql = SELECT STUDENTID,STUDENTNAME FROM STUDENTINFO End If Dim dt As DataTable = GetDataTable(sql) For i As Integer = 0 To 1 str1 = (i)(STUDENTNAME) str2 = (i)(STUDENTID) (str1 + | + str2) Next Catch ex As Exception WriteErr(ex) End Try End Sub Private Sub CmbStudent_DropDown(ByVal sender As Object, ByVal e As ) Handles addCmbStudent() End Sub Private Function CourseNametoID(ByVal name As String) Try Dim sql As String = SELECT COURSEID FROM COURSEINFO WHERE COURSENAME=39。 + name + 39。 Dim dt As DataTable = GetDataTable(sql) If 0 Then Return (0)(COURSEID) End If Catch ex As Exception WriteErr(ex) End Try End Function Private Sub BtnQuery_Click(ByVal sender As , ByVal e As ) Handles If And = Then (請選擇班級) Return ElseIf And = Then (請選擇課程) Return ElseIf And = Then (請選擇學生) Return End If Dim sql As String sql = SELECT AS 39。學生編號39。, AS 39。學生姓名39。, AS 39。課程39。, AS 39。分數(shù)39。 FROM RESULTINFO A,STUDENTINFO B,COURSEINFO C WHERE = AND = Dim Query As String = If Then Dim iditem() As String iditem = (|c) Dim ClassID As String = iditem(0) Query = Query + and = + ClassID End If If Then Dim CourseID As String = CourseNametoID() Query = Query + and = + CourseID End If If Then Dim iditem() As String iditem = (|c) Dim StudentID As String = iditem(1) Query = Query + and = + StudentID End If sql = sql + Query Try Dim dt As DataTable = GetDataTable(sql) = dt Catch ex As Exception WriteErr(ex) End Try End Sub Private Sub CheckClass_CheckStateChanged(ByVal sender As Object, ByVal e As ) Handles = End Sub Private Sub CheckCourse_CheckStateChanged(ByVal sender As Object, ByVal e As ) Handles = End Sub Private Sub CheckStudent_CheckStateChanged(ByVal sender As Object, ByVal e As ) Handles = End Sub Private Sub BtnExit_Click(ByVal sender As , ByVal e As ) Handles () End SubEnd Class第四章 測試現(xiàn)在這個系統(tǒng)基本上是可以運行的，但是還是有很多的警告之類的。雖然不影響系統(tǒng)的整體運行，但還是說明系統(tǒng)是有問題的，需要好好研究。雖然說各個模塊不同，但是它們的功能大體相同的，都只是簡單的增加、修改和刪除。本系統(tǒng)本來是含有課表的模塊，但是因為要和EXCEl相聯(lián)系，而我在這方面沒有知識，不太會弄，本想作為一個亮點，卻因為各種因素，不得不放棄。第五章 結(jié)論通過做課程設(shè)計，有幾點感想，歸納如下。1. 扎實的理論基礎(chǔ)。如果不掌握它們，很難寫出高水平的程序。而這一點又是我們所缺乏的。 2. 不鉆牛角尖。當遇到障礙的時候，暫時遠離電腦，當重新開始工作的時候，也許會發(fā)現(xiàn)那些難題現(xiàn)在竟然可以迎刃而解?！　?. 多與別人交流。三人行必有我?guī)煛?. 良好的編程風格。注意養(yǎng)成良好的習慣，代碼的縮進編排，變量的命名規(guī)則要始終保持一致。如果注釋和代碼不一致，那就更加糟糕。該系統(tǒng)的界面比較單一，如果在界面上增加歡迎圖片，應(yīng)該會有不錯的，會下去繼續(xù)進行，還有課表模塊的添加。參 考 文 獻1 薩師煊，（第三版）. 2 齊治昌，譚慶平，寧洪，軟件工程（第二版）.北京：3 David ，Visual . 4 +SQL Server 5林立軍，程斌， Basic 》.7 Server2000s實驗指導(dǎo)書. 30