If Option3.Value = True Then a = Trim(Combo2) Select Case a Case \
KCCX1 = \ Case \
KCCX1 = \End Select
a = Trim(Combo4) Select Case a Case \
KCCX2 = \ Case \
KCCX2 = \End Select
If Option1.Value = True Then If KCCX1 = \
strTiaoJian = \课程表 where \ ElseIf KCCX2 = \
strTiaoJian = \课程表 where \ Else
strTiaoJian = \课程表 where \ End If
ElseIf Option2.Value = True Then If KCCX1 = \
strTiaoJian = \课程表 where \ ElseIf KCCX2 = \
strTiaoJian = \课程表 where \ Else
21
strTiaoJian = \课程表 where \ End If Else
If KCCX1 = \
strTiaoJian = \课程表 where \ ElseIf KCCX2 = \
strTiaoJian = \课程表 where \ Else
MsgBox \请选择连接方式！\警告\ Exit Sub End If End If
If (KCCX1 & KCCX2) = \
MsgBox \请输入查询类别！\警告\Exit Sub Else
Unload Me
Frm_UpdateGrean.Show 1 End If End If
If Option4.Value = True Then
If Val(Combo6) > Val(Combo9) Then
MsgBox \请正确选择年份！\信息提示\ Combo6.SetFocus Exit Sub Else
If Val(Combo6) = Val(Combo9) Then If Val(Combo7) > Val(Combo10) Then
MsgBox \请正确选择月份！\信息提示\ Combo7.SetFocus
22
Exit Sub Else
If Val(Combo7) = Val(Combo10) Then If Val(Combo8) > Val(Combo11) Then
MsgBox \请正确选择日期！\信息提示\ Combo8.SetFocus Exit Sub End If End If End If End If End If
If Combo6.Text = \\ MsgBox \请输入完整的日期\警告\ Exit Sub End If
str1 = Trim(Combo6) & \ str2 = Trim(Combo9) & \ str1 = Format(str1, \ str2 = Format(str2, \ If sqlstr = \
sqlstr = \and \ Else
sqlstr = sqlstr & \and \Trim(Combo5.Text) & \& Format(str1, \& \and \& Trim(Combo5.Text) & \#\& Format(str2, \& \ End If
If sqlstr = \
23
MsgBox \请先输入查找时间！\ Exit Sub End If
strTiaoJian = \专业,年级,学期,课程名称,教材,任课老师,课时,上课地点,课程性质,考试性质 from 课程表 where \ Unload Me
Frm_UpdateGrean.Show 1 End If
If Option3.Value <> True And Option4.Value <> True Then MsgBox \请选择查询方式！\警告\ Exit Sub End If End Sub
Private Sub Command3_Click() Unload Me End Sub
Private Sub Form_Load() Dim i, j As Integer For i = 1999 To 2010 Combo6.AddItem i Combo9.AddItem i Next i
Combo6.ListIndex = 0 Combo9.ListIndex = 0
For i = 1 To 12
24
Combo7.AddItem i Combo10.AddItem i Next i
Combo7.ListIndex = 0 Combo10.ListIndex = 0 For i = 1 To 31 Combo8.AddItem i Combo11.AddItem i Next i
Combo8.ListIndex = 0 Combo11.ListIndex = 0 Combo1.AddItem (\专业\Combo1.AddItem (\年级\Combo1.AddItem (\课程名称\Combo1.AddItem (\教材\Combo1.AddItem (\任课老师\'Combo1.AddItem (\课时\Combo1.AddItem (\课程性质\Combo1.AddItem (\考试性质\Combo2.AddItem (\Combo3.AddItem (\专业\Combo3.AddItem (\年级\Combo3.AddItem (\课程名称\Combo3.AddItem (\教材\Combo3.AddItem (\任课老师\'Combo3.AddItem (\课时\Combo3.AddItem (\课程性质\Combo3.AddItem (\考试性质\Combo4.AddItem (\Combo5.AddItem (\学期\
25