mrc.Close
MsgBox "添加成绩成功！", vbOKOnly + vbExclamation, "警告"
Unload Me
End If
End Sub
Private Sub comboClassno_Click()
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
comboSID.Clear
comboCourse.Clear
txtSQL = "select * from student_Info where class_NO = '" & comboClassno.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
While (mrc.EOF = False)
comboSID.AddItem mrc!student_ID
mrc.MoveNext
Wend
mrc.Close
txtSQL = "select * from class_Info where class_No = '" & comboClassno.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
Grade = mrc!Grade
mrc.Close
txtSQL = "select * from gradecourse_Info where grade = '" & Grade & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
While (mrc.EOF = False)
comboCourse.AddItem mrc!course_Name
mrc.MoveNext
Wend
mrc.Close
Flagselect = True
End Sub
Private Sub comboCourseno_Change()
<< 上一页 [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] ... 下一页 >>