frmcountmain.frm

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

         Y2              =   1580
      End
      Begin VB.Line Line3 
         BorderColor     =   &H00FFFFFF&
         X1              =   2870
         X2              =   2870
         Y1              =   200
         Y2              =   1580
      End
      Begin VB.Line Line2 
         BorderColor     =   &H00808080&
         X1              =   2850
         X2              =   2850
         Y1              =   200
         Y2              =   1580
      End
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00000000&
      X1              =   0
      X2              =   2700
      Y1              =   0
      Y2              =   0
   End
   Begin VB.Menu MNUFILE 
      Caption         =   "【文件&F】"
      Begin VB.Menu MNUFILE1 
         Caption         =   "退出[&X]"
      End
   End
   Begin VB.Menu MNUQHH 
      Caption         =   "【功能切换&C】"
      Begin VB.Menu MNUQHH1 
         Caption         =   "信息录入[&W]"
      End
      Begin VB.Menu mnu28 
         Caption         =   "-"
      End
      Begin VB.Menu MNUQHH2 
         Caption         =   "全屏修改[&R]"
      End
      Begin VB.Menu MNU29 
         Caption         =   "-"
      End
      Begin VB.Menu MNUQH3 
         Caption         =   "记录查询[&S]"
      End
   End
   Begin VB.Menu MNUHELP 
      Caption         =   "【帮助&H】"
      Begin VB.Menu MNUHELP1 
         Caption         =   "使用说明[&N]"
      End
   End
End
Attribute VB_Name = "frmCount"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdCount_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
sqlForMain = "select xh,xm,csny,xb,mz,yx,bj,hksx,nj,sy,zzmm,zy,pyfs,byzx,xl,tc,sfzhm,ltkhm,ss,dh from zbqkb where "
EmpetyAll = True
EmpetyThis = False
'寻找第一个有效选项 院系
For I = 0 To 14
  Start = I
  If chkYX(I).Value = 1 Then
      sqlForMain = sqlForMain + "(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) + "' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
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 + "*' "
      Else
          sqlForMain = sqlForMain + "and (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 + "*' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
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) + "' "
      Else
          sqlForMain = sqlForMain + "and (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) + "' "
      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<>'藏族' "
    Else
        If Start = 4 And chkMZ(4).Value = 0 Then
            sqlForMain = sqlForMain + "and (mz<>'汉族' and mz<>'回族' and mz<>'满族' and mz<>'壮族' and mz<>'藏族' "
        Else
            sqlForMain = sqlForMain + "or (mz<>'汉族' and mz<>'回族' and mz<>'满族' and mz<>'壮族' and mz<>'藏族') "
        End If
    End If
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
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) + "' "
      Else
          sqlForMain = sqlForMain + "and (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) + "' "
      End If
    Next I
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
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) + "' "
      Else
          sqlForMain = sqlForMain + "and (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) + "' "
      End If
    Next I
End If
If txtNJ <> " " Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "nj='" + Trim(txtNJ) + "'"
    Else
        sqlForMain = sqlForMain + "and nj='" + Trim(txtNJ) + "'"
    End If
End If
If EmpetyThis Then
    sqlForMain = sqlForMain + ") "
End If
'学号
If txtXH <> " " Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xh like '" + Trim(txtXH) + "*') "
    Else
        sqlForMain = sqlForMain + "and (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) + "*') "
    Else
        sqlForMain = sqlForMain + "and (xm like '" + Trim(txtXM) + "*') "
    End If
End If

'身份证
If txtSFZ <> " " Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(sfzhm LIKE '" + Trim(txtSFZ) + "*') "
    Else
        sqlForMain = sqlForMain + "and (sfzhm LIKE '" + Trim(txtSFZ) + "*') "
    End If
End If
'户口属性
If optCity = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(hksx='城市') "
    Else
        sqlForMain = sqlForMain + "and (hksx='城市') "
    End If
End If
If optCountry = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(hksx='农村') "
    Else
        sqlForMain = sqlForMain + "and (hksx='农村') "
    End If
End If
'性别
If optMan = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xb='男') "
    Else
        sqlForMain = sqlForMain + "and (xb='男') "
    End If
End If
If optWoman = True Then
    EmpetyAll = False
    If Right(RTrim(sqlForMain), 5) = "where" Then
        sqlForMain = sqlForMain + "(xb='女') "
    Else
        sqlForMain = sqlForMain + "and (xb='女') "
    End If
End If
'如果无选择项,则退出过程
If EmpetyAll Then
    MsgBox "无选择条件", vbInformation, "错误提示"
    Exit Sub
End If
'符合统计条件的记录数
Set recForMain = Dbstudent.OpenRecordset(sqlForMain, dbOpenSnapshot)
If recForMain.RecordCount = 0 Then
    txtCount = 0
Else
    recForMain.MoveLast
    txtCount = recForMain.RecordCount
End If
End Sub

Private Sub cmdDelete_Click()
On Error Resume Next
GiveUp
End Sub

Private Sub cmdExit_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 = " "
txtCount = " "
txtXM = " "
txtXH = " "
txtSFZ = " "
optCity = False
optCountry = False
optMan = False
optWoman = False
End Sub

Private Sub Form_Load()
On Error Resume Next
Line1.X1 = 0
Line1.X2 = frmCount.Width
End Sub

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

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

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

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

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

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