frmquerymain2.frm

网上教务管理系统 包括（教师

'GifAni1.Enabled = False
'Me.Hide
Unload Me

End Sub

Private Sub cmdLook_Click()
On Error Resume Next
sqlForMain = "select xh,xm,csny,xb,mz,xl,yx,bj,hksx,nj,sy,zzmm,tc,sfzhm,ltkhm,ss,dh,zy,pyfs,byzx from zbqkb"
sqlForPrint = " "
frmGrid.Show 1
End Sub

Private Sub cmdQuery_Click()
'On Error Resume Next
Dim Start As Integer '从此开始组建SQL语句
Dim EmpetyAll As Boolean '为空则无法组建SQL语句
Dim EmpetyThis As Boolean
Dim recForMain As Recordset
Dim I As Integer
'为生成班级成绩库作准备
banj = Trim(txtBJ.Text)
'开始组建查询语句
sqlForMain = "select xh as 学号,xm as 姓名,csny as 出生年月,xb as 性别,mz as 民族,xl as 学历,yx as 院系,bj as 班级,hksx as 户口属性,nj as 年级,sy as 生源,zzmm as 政治面貌,tc as 特长,sfzhm as 身份证号码 ,ltkhm as 灵通卡号码,ss as 宿舍,dh as 电话,zy as 专业,pyfs as 培养方式,byzx as 毕业中学 from zbqkb where "
sqlForPrint = ""
EmpetyAll = True
EmpetyThis = False
'寻找第一个有效选项 院系
For I = 0 To 14
  Start = I
  If chkYX(I).Value = 1 Then
      sqlForMain = sqlForMain + "(yx='" + Trim(chkYX(I).Caption) + "' "
      sqlForPrint = sqlForPrint + "({zbqkb.yx}='" + Trim(chkYX(I).Caption) + "' "
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'组建完整的SQL语句 院系
If Start < 14 Then
    For I = Start + 1 To 14
      If chkYX(I).Value = 1 Then
          sqlForMain = sqlForMain + "or yx='" + Trim(chkYX(I).Caption) + "' "
          sqlForPrint = sqlForPrint + "or {zbqkb.yx}='" + Trim(chkYX(I).Caption) + "' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
    sqlForPrint = sqlForPrint + ") "
End If
'寻找第一个有效选项 生源
EmpetyThis = False
For I = 0 To 29
  Start = I
  If chkSY(I).Value = 1 Then
      If Right(RTrim(sqlForMain), 5) = "where" Then
          sqlForMain = sqlForMain + "(sy like '" + chkSY(I).Caption + "*'"
          sqlForPrint = sqlForPrint + "({zbqkb.sy} like '" + chkSY(I).Caption + "*'"
      Else
          sqlForMain = sqlForMain + "and (sy like '" + chkSY(I).Caption + "*'"
          sqlForPrint = sqlForPrint + "and ({zbqkb.sy} like '" + chkSY(I).Caption + "*'"
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'组建完整的SQL语句 生源
If Start < 29 Then
    For I = Start + 1 To 29
      If chkSY(I).Value = 1 Then
          sqlForMain = sqlForMain + "or  SY like '" + chkSY(I).Caption + "*' "
          sqlForPrint = sqlForPrint + "or {zbqkb.sy} like '" + chkSY(I).Caption + "*' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
    sqlForPrint = sqlForPrint + ") "
End If
'寻找第一个有效选项 民族
EmpetyThis = False
For I = 0 To 4
  Start = I
  If chkMZ(I).Value = 1 Then
      If Right(RTrim(sqlForMain), 5) = "where" Then
          sqlForMain = sqlForMain + "(mz='" + Trim(chkMZ(I).Caption) + "' "
          sqlForPrint = sqlForPrint + "({zbqkb.mz}='" + Trim(chkMZ(I).Caption) + "' "
      Else
          sqlForMain = sqlForMain + "and (mz='" + Trim(chkMZ(I).Caption) + "' "
          sqlForPrint = sqlForPrint + "and ({zbqkb.mz}='" + Trim(chkMZ(I).Caption) + "' "
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'组建完整的SQL语句 民族
If Start < 4 Then
    For I = Start + 1 To 4
      If chkMZ(I).Value = 1 Then
          sqlForMain = sqlForMain + "or mz='" + Trim(chkMZ(I).Caption) + "' "
          sqlForPrint = sqlForPrint + "or {zbqkb.mz}='" + Trim(chkMZ(I).Caption) + "' "
      End If
    Next I
End If
'少数民族特殊处理
If chkMZ(5).Value = 1 Then
    EmpetyAll = False
    EmpetyThis = True
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(mz<>'汉族' and mz<>'回族' and mz<>'满族' and mz<>'壮族' and mz<>'藏族' "
        sqlForPrint = sqlForPrint + "({zbqkb.mz}<>'汉族' and {zbqkb.mz}<>'回族' and {zbqkb.mz}<>'壮族' and {zbqkb.mz}<>'满族' and {zbqkb.mz}<>'藏族' "
    Else
        If Start = 4 And chkMZ(4).Value = 0 Then
            sqlForMain = sqlForMain + "and (mz<>'汉族' and mz<>'回族' and mz<>'满族' and mz<>'壮族' and mz<>'藏族' "
            sqlForPrint = sqlForPrint + "and ({zbqkb.mz}<>'汉族' and {zbqkb.mz}<>'回族' and {zbqkb.mz}<>'满族' and {zbqkb.mz}<>'壮族' and {zbqkb.mz}<>'藏族' "
        Else
            sqlForMain = sqlForMain + "or (mz<>'汉族' and mz<>'回族' and mz<>'满族' and mz<>'壮族' and mz<>'藏族') "
            sqlForPrint = sqlForPrint + "or ({zbqkb.mz}<>'汉族' and {zbqkb.mz}<>'回族' and {zbqkb.mz}<>'满族' and {zbqkb.mz}<>'壮族' and {zbqkb.mz}<>'藏族' "
        End If
    End If
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
    sqlForPrint = sqlForPrint + ") "
End If
'寻找第一个有效选项 学历
EmpetyThis = False
For I = 0 To 5
  Start = I
  If chkXL(I).Value = 1 Then
      If Right(RTrim(sqlForMain), 5) = "where" Then
          sqlForMain = sqlForMain + "(xl='" + Trim(chkXL(I).Caption) + "' "
          sqlForPrint = sqlForPrint + "({zbqkb.xl}='" + Trim(chkXL(I).Caption) + "' "
      Else
          sqlForMain = sqlForMain + "and (xl='" + Trim(chkXL(I).Caption) + "' "
          sqlForPrint = sqlForPrint + "and ({zbqkb.xl}='" + Trim(chkXL(I).Caption) + "' "
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'组建完整的SQL语句 学历
If Start < 5 Then
    For I = Start + 1 To 5
      If chkXL(I).Value = 1 Then
          sqlForMain = sqlForMain + "or xl='" + Trim(chkXL(I).Caption) + "' "
          sqlForPrint = sqlForPrint + "or {zbqkb.xl}='" + Trim(chkXL(I).Caption) + "' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
    sqlForPrint = sqlForPrint + ") "
End If
'寻找第一个有效选项 年级
EmpetyThis = False
For I = 0 To 6
  Start = I
  If chkNJ(I).Value = 1 Then
      If Right(RTrim(sqlForMain), 5) = "where" Then
          sqlForMain = sqlForMain + "(nj='" + Trim(chkNJ(I).Caption) + "' "
          sqlForPrint = sqlForPrint + "({zbqkb.nj}='" + Trim(chkNJ(I).Caption) + "' "
      Else
          sqlForMain = sqlForMain + "and (nj='" + Trim(chkNJ(I).Caption) + "' "
          sqlForPrint = sqlForPrint + "and ({zbqkb.nj}='" + Trim(chkNJ(I).Caption) + "' "
      End If
      EmpetyAll = False
      EmpetyThis = True
      Exit For
  End If
Next I
'组建完整的SQL语句 年级
If Start < 6 Then
    For I = Start + 1 To 6
      If chkNJ(I).Value = 1 Then
          sqlForMain = sqlForMain + "or nj='" + Trim(chkNJ(I).Caption) + "' "
          sqlForPrint = sqlForPrint + "or {zbqkb.nj}='" + Trim(chkNJ(I).Caption) + "' "
      End If
    Next I
End If
If txtNJ <> "" Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "nj='" + Trim(txtNJ) + "'"
        sqlForPrint = sqlForPrint + "{zbqkb.nj}='" + Trim(txtNJ) + "'"
    Else
        sqlForMain = sqlForMain + "and nj='" + Trim(txtNJ) + "'"
        sqlForPrint = sqlForPrint + "and {zbqkb.nj}='" + Trim(txtNJ) + "'"
    End If
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
    sqlForPrint = sqlForPrint + ") "
End If
'学号
If txtXH <> "" Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xh like '" + Trim(txtXH) + "*') "
        sqlForPrint = sqlForPrint + "({zbqkb.xh} like '" + Trim(txtXH) + "*') "
    Else
        sqlForMain = sqlForMain + "and (xh like '" + Trim(txtXH) + "*') "
        sqlForPrint = sqlForPrint + "and ({zbqkb.xh} like '" + Trim(txtXH) + "*') "
    End If
End If
'姓名
If txtXM <> "" Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xm like '" + Trim(txtXM) + "*') "
        sqlForPrint = sqlForPrint + "({zbqkb.xm} like '" + Trim(txtXH) + "*') "
    Else
        sqlForMain = sqlForMain + "and (xm like '" + Trim(txtXM) + "*') "
        sqlForPrint = sqlForPrint + "and ({zbqkb.xm like '" + Trim(txtXH) + "*') "
    End If
End If
'身份证
If txtSFZ <> "" Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(sfzhm like '" + Trim(txtSFZ) + "*') "
        sqlForPrint = sqlForPrint + "({zbqkb.sfzhm} like '" + Trim(txtSFZ) + "*') "
    Else
        sqlForMain = sqlForMain + "and (sfzhm like '" + Trim(txtSFZ) + "*') "
        sqlForPrint = sqlForPrint + "and ({zbqkb.sfzhm} like '" + Trim(txtSFZ) + "*') "
    End If
End If
'户口属性
If optCity = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(hksx='城市') "
        sqlForPrint = sqlForPrint + "({zbqkb.hksx}='城市') "
    Else
        sqlForMain = sqlForMain + "and (hksx='城市') "
        sqlForPrint = sqlForPrint + "and ({zbqkb.hksx}='城市') "
    End If
End If
If optCountry = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(hksx='农村') "
        sqlForPrint = sqlForPrint + "({zbqkb.hksx}='农村') "
    Else
        sqlForMain = sqlForMain + "and (hksx='农村') "
        sqlForPrint = sqlForPrint + "and ({zbqkb.hksx}='农村') "
    End If
End If
'性别
If optMan = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xb='男') "
        sqlForPrint = sqlForPrint + "({zbqkb.xb}='男') "
    Else
        sqlForMain = sqlForMain + "and (xb='男') "
        sqlForPrint = sqlForPrint + "and ({zbqkb.xb}='男') "
    End If
End If
If optWoman = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xb='女') "
        sqlForPrint = sqlForPrint + "({zbqkb.xb}='女') "
    Else
        sqlForMain = sqlForMain + "and (xb='女') "
        sqlForPrint = sqlForPrint + "and ({zbqkb.xb}='女') "
    End If
End If
'班级
If txtBJ <> "" Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(bj like '" + Trim(txtBJ) + "*') "
    Else
        sqlForMain = sqlForMain + "and (bj like '" + Trim(txtBJ) + "*') "
    End If
End If
'通过时间
If mskCSNYfrom = "__/__/____" And mskCSNYto <> "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "csny <=" + "#" + "" + Trim(mskCSNYto.Text) + "" + "#" + " "
        sqlForPrint = sqlForPrint + "{zbqkb.csny} <=" + "#" + "" + Trim(mskCSNYto.Text) + "" + "#" + " "
    Else
        sqlForMain = sqlForMain + "and csny <=" + "#" + "" + Trim(mskCSNYto.Text) + "" + "#" + " "
        sqlForPrint = sqlForPrint + "and {zbqkb.csny} <=" + "#" + "" + Trim(mskCSNYto.Text) + "" + "#" + " "
    End If
End If
If mskCSNYfrom.Text <> "__/__/____" And mskCSNYto = "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "csny>=" + "#" + "" + Trim(mskCSNYfrom.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.csny}>=" + "#" + "" + Trim(mskCSNYfrom.Text) + "" + "#" + " "
    Else
        sqlForMain = sqlForMain + "and csny>=" + "#" + "" + Trim(mskCSNYfrom.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.csny}>=" + "#" + "" + Trim(mskCSNYfrom.Text) + "" + "#" + " "
    End If
End If
If mskCSNYfrom <> "__/__/____" And mskCSNYto <> "__/__/____" Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "csny between" + " #" + "" + Trim(mskCSNYfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskCSNYto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "{party.csny} between" + " #" + "" + Trim(mskCSNYfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskCSNYto.Text) + "" + "#" + " "
    Else
        sqlForMain = sqlForMain + "and csny between" + " #" + "" + Trim(mskCSNYfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskCSNYto.Text) + "" + "#" + " "
        sqlPartyPrint = sqlPartyPrint + "and {party.csny} between" + " #" + "" + Trim(mskCSNYfrom.Text) + "" + "#" + " and " + "#" + "" + Trim(mskCSNYto.Text) + "" + "#" + " "
    End If
End If
'政治面貌
If cboZZMM <> "" Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(zzmm = '" + Trim(cboZZMM) + "') "
    Else
        sqlForMain = sqlForMain + "and (zzmm = '" + Trim(cboZZMM) + "') "
    End If
End If
'如果无选择项,则退出过程
If EmpetyAll Then
    MsgBox "无选择条件", vbInformation + vbOKOnly, "错误提示"
    Exit Sub
End If
'完成查询动作
frmGrid.Show 1
End Sub

Private Sub Command1_Click()
On Error Resume Next
Unload Me
End Sub


Public Sub GiveUp()
On Error Resume Next
Dim I As Integer
For I = 0 To 14
  chkYX(I).Value = 0
Next I
For I = 0 To 29
  chkSY(I).Value = 0
Next I
For I = 0 To 5
  chkMZ(I).Value = 0
Next I
For I = 0 To 5
  chkXL(I).Value = 0
Next
For I = 0 To 6
  chkNJ(I).Value = 0
Next I
txtNJ = ""
txtXM = ""
txtXH = ""
txtSFZ = ""
optCity = False
optCountry = False
optMan = False
optWoman = False
txtBJ = ""
cboZZMM = ""
mskCSNYfrom = "__/__/____"
mskCSNYto = "__/__/____"
End Sub

Private Sub Form_Load()
On Error Resume Next
Line2.X1 = 0
Line2.X2 = frmQuery.Width
'frmQuery.Picture = LoadPicture(App.Path + "\picture\sky.bmp")
'GifAni1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Unload Me
End Sub

Private Sub mnu11_Click()
On Error Resume Next
'GifAni1.Enabled = False
Unload Me
End Sub

Private Sub MNU21_Click()
On Error Resume Next
Dim TTT  As String
Dim X
TTT = App.Path + "\help\cxxx.txt"
X = Shell("Notepad " + TTT, 1)
Exit Sub
End Sub

Private Sub MNUQH1_Click()
On Error Resume Next
frmBaseInput.Show 1
End Sub

Private Sub MNUQH2_Click()
On Error Resume Next
frmGridModify.Show 1

End Sub

Private Sub MNUQH3_Click()
On Error Resume Next
frmCount.Show 1
End Sub