学生信息管理系统VB课程设计(14)

wherestr = wherestr + " and " Else

wherestr = wherestr + " or " End If End If

wherestr = wherestr + "Class like '%" & txtClassKey & "%'" End If

'性别关键字

If frameGender1.Visible And chkGenderKey.Value = 1 Then If wherestr <> "" Then

If optnGenderand.Value Then wherestr = wherestr + " and " Else

wherestr = wherestr + " or " End If End If

If OptnMale.Value Then

wherestr = wherestr + "Gender like '%" & "男" & "%'" ElseIf OptnFemale.Value Then

wherestr = wherestr + "Gender like '%" & "女" & "%'" End If End If '入学时间

If frameTime.Visible And chkTimeKey.Value = 1 Then If optnKeyFore.Value Or optnKeyBack.Value Then

If txtYearKeyFore.Text = "" Or txtMonKeyFore.Text = "" Then

MsgBox "请完整填写查询时间！", vbOKOnly + vbInformation, "查询" Exit Sub End If

If wherestr <> "" Then

If optnTimeand.Value Then

wherestr = wherestr + " and " Else

wherestr = wherestr + " or " End If End If

If optnKeyFore Then

wherestr = wherestr + "publishtime <'" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'" Else

wherestr = wherestr + "publishtime >'" & txtYearKeyFore.Text + "-" + txtMonKeyFore.Text & "'" End If

ElseIf optnKeyBetween.Value Then

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库学生信息管理系统VB课程设计(14)在线全文阅读。