【正文】 ring () Try Dim sql As String = SELECT STUDENTID,STUDENTNAME FROM STUDENTINFO WHERE CLASSID= + ClassID 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 成績查詢“成績查詢”窗體界面運行如圖10所示：圖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。, AS 39。, AS 39。, AS 39。, AS 39。, AS 39。, AS 39。只簡單說明刪除班級的代碼如下： Private Sub DeleteData() Dim CourseID As Int16 = () Dim sql As String = DELETE FROM COURSEINFO WHERE COURSEID= + () Dim sqlCmd As New SqlCommand = SqlCon = sql Try () () (刪除記錄成功) Catch ex As Exception (刪除記錄失敗) WriteErr(ex) Finally () End Try BindData() bindTextBox(0) End SubEnd Class 學籍管理“學籍管理”窗體界面運行如圖8所示：圖8代碼如下：Imports Imports Public Class FrmStudentInherits Private Sub BtnOpen_Click(ByVal sender As , ByVal e As ) Handles = Select a picture file = (*.bmp)|*bmp|(*.jpg)|*.jpg () = () If Then = (()) End If End Sub Private Sub addCmbStuClass() 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 AddCmbStuSex() (男) (女) End Sub Private Function BindClass(ByVal classid As String) 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 = AND = + classid Dim dt As DataTable = GetDataTable(sql) For i As Integer = 0 To 1 str1 = (i)(classyear) str2 = (i)(department)