学生信息管理系统毕业论文和原代码 第63页

comboCourse.Clear

txtSQL = "select * from result_Info"

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.MoveLast

Call viewData

firstCommand.Enabled = True

lastCommand.Enabled = True

previousCommand.Enabled = True

nextCommand.Enabled = True

updateCommand.Enabled = False

cancelCommand.Enabled = False

comboExamtype.Enabled = False

comboClassno.Enabled = False

comboSID.Enabled = False

comboCourse.Enabled = False

txtName.Enabled = False

txtResult.Enabled = False

End Sub

Private Sub comboClassno_Click()

Dim mrcc As ADODB.Recordset

Dim txtSQL As String

Dim MsgText As String

txtSQL = "select * from student_Info where class_NO = '" & comboClassno.Text & "'"

Set mrcc = ExecuteSQL(txtSQL, MsgText)

While (mrcc.EOF = False)

comboSID.AddItem mrcc!student_ID

mrcc.MoveNext

Wend

mrcc.Close

txtSQL = "select * from class_Info where class_No = '" & comboClassno.Text & "'"

Set mrcc = ExecuteSQL(txtSQL, MsgText)

Grade = mrcc!Grade

mrcc.Close

 << 上一页  [61] [62] [63] [64] [65] [66] [67] [68] [69] [70]  ... 下一页  >>