txtSQL = "select * from gradecourse_Info where grade = '" & Grade & "'"
Set mrcc = ExecuteSQL(txtSQL, MsgText)
While (mrcc.EOF = False)
comboCourse.AddItem mrcc!course_Name
mrcc.MoveNext
Wend
mrcc.Close
End Sub
.........................................................................................................
.......................... frmSetcourseinfo 设置年级课程窗口代码 .................................
Option Explicit
Dim flagSet As Boolean
Dim flagGrade As Boolean
Private Sub cmdAdd_Click()
If listAllcourse.ListIndex <> -1 Then
listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
End If
End Sub
Private Sub cmdDelete_Click()
If listSelectcourse.ListIndex <> -1 Then
listSelectcourse.RemoveItem listSelectcourse.ListIndex
End If
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdModify_Click()
Dim i As Integer
Dim mrc As ADODB.Recordset
Dim mrcc As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
<< 上一页 [61] [62] [63] [64] [65] [66] [67] [68] [69] [70] ... 下一页 >>