【正文】 圖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 + 級(jí) + 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 (請(qǐng)先選擇班級(jí)) 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 (請(qǐng)選擇班級(jí)) Return ElseIf And = Then (請(qǐng)選擇課程) Return ElseIf And = Then (請(qǐng)選擇學(xué)生) Return End If Dim sql As String sql = SELECT AS 39。學(xué)生編號(hào)39。, AS 39。學(xué)生姓名39。, AS 39。課程39。, AS 39。分?jǐn)?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第四章 測(cè)試現(xiàn)在這個(gè)系統(tǒng)基本上是可以運(yùn)行的，但是還是有很多的警告之類的。雖然不影響系統(tǒng)的整體運(yùn)行，但還是說(shuō)明系統(tǒng)是有問(wèn)題的，需要好好研究。雖然說(shuō)各個(gè)模塊不同，但是它們的功能大體相同的，都只是簡(jiǎn)單的增加、修改和刪除。本系統(tǒng)本來(lái)是含有課表的模塊，但是因?yàn)橐虴XCEl相聯(lián)系，而我在這方面沒(méi)有知識(shí)，不太會(huì)弄，本想作為一個(gè)亮點(diǎn)，卻因?yàn)楦鞣N因素，不得不放棄。第五章 結(jié)論通過(guò)做課程設(shè)計(jì)，有幾點(diǎn)感想，歸納如下。1. 扎實(shí)的理論基礎(chǔ)。如果不掌握它們，很難寫(xiě)出高水平的程序。而這一點(diǎn)又是我們所缺乏的。 2. 不鉆牛角尖。當(dāng)遇到障礙的時(shí)候，暫時(shí)遠(yuǎn)離電腦，當(dāng)重新開(kāi)始工作的時(shí)候，也許會(huì)發(fā)現(xiàn)那些難題現(xiàn)在竟然可以迎刃而解。　　3. 多與別人交流。三人行必有我?guī)煛?. 良好的編程風(fēng)格。注意養(yǎng)成良好的習(xí)慣，代碼的縮進(jìn)編排，變量的命名規(guī)則要始終保持一致。如果注釋和代碼不一致，那就更加糟糕。該系統(tǒng)的界面比較單一，如果在界面上增加歡迎圖片，應(yīng)該會(huì)有不錯(cuò)的，會(huì)下去繼續(xù)進(jìn)行，還有課表模塊的添加。參 考 文 獻(xiàn)1 薩師煊，（第三版）. 2 齊治昌，譚慶平，寧洪，軟件工程（第二版）.北京：3 David ，Visual . 4 +SQL Server 5林立軍，程斌， Basic 》.7 Server2000s實(shí)驗(yàn)指導(dǎo)書(shū). 30