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

End Sub

Private Sub cmdSet_Click()

Dim mrc As ADODB.Recordset

Dim txtSQL As String

Dim MsgText As String

listAllcourse.Enabled = True

listSelectcourse.Enabled = True

cmdModify.Enabled = True

txtSQL = "select * from course_Info "

Set mrc = ExecuteSQL(txtSQL, MsgText)

While (mrc.EOF = False)

listAllcourse.AddItem mrc.Fields(1)

mrc.MoveNext

Wend

mrc.Close

flagSet = True

End Sub

Private Sub comboGrade_Click()

Dim mrc As ADODB.Recordset

Dim txtSQL As String

Dim MsgText As String

Dim i As Integer

listSelectcourse.Clear

txtSQL = "select * from gradecourse_Info where grade = '" & comboGrade.Text & "'"

Set mrc = ExecuteSQL(txtSQL, MsgText)

If Not mrc.EOF Then

For i = 1 To mrc.RecordCount

listSelectcourse.AddItem mrc.Fields(1)

mrc.MoveNext

Next i

End If

mrc.Close

End Sub

Private Sub Form_Load()

flagSet = False

flagGrade = False

listAllcourse.Enabled = False

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