电子教务管理系统vb(八)

电子教务管理系统vb(八) nbsp;         If CInt(PicRs!cj) >= CInt(TxtFsd(3).Text) And CInt(PicRs!cj) < CInt(TxtFsd(2).Text) Then
                Icj(3) = Icj(3) + 1
                ComLst(3).AddItem PicRs!XM
            End If
            If CInt(PicRs!cj) >= CInt(TxtFsd(4).Text) And CInt(PicRs!cj) < CInt(TxtFsd(3).Text) Then
                Icj(4) = Icj(4) + 1
                ComLst(4).AddItem PicRs!XM
            End If
            If CInt(PicRs!cj) >= CInt(TxtFsd(5).Text) And CInt(PicRs!cj) < CInt(TxtFsd(4).Text) Then
                Icj(5) = Icj(5) + 1
                ComLst(5).AddItem PicRs!XM
            End If
            If CInt(PicRs!cj) >= CInt(TxtFsd(6).Text) And CInt(PicRs!cj) < CInt(TxtFsd(5).Text) Then
                Icj(6) = Icj(6) + 1
                ComLst(6).AddItem PicRs!XM
            End If
            If CInt(PicRs!cj) >= CInt(TxtFsd(7).Text) And CInt(PicRs!cj) < CInt(TxtFsd(6).Text) Then
                Icj(7) = Icj(7) + 1
                ComLst(7).AddItem PicRs!XM
            End If

            .MoveNext
        Loop
    End With
   
    Label5.Caption = PicRs.RecordCount
   
    For i = 0 To 7
        TxtCount(i).Caption = Icj(i)
    Next i
   
    PicRs.Close

End Sub

Private Sub DataOut()
For i = 0 To 7
    Icj(i) = 0
    ComLst(i).Clear
    ComLst(i).Text = "请选"
    TxtCount(i).Caption = ""
Next i

End Sub

 

4.数据分析统计界面与代码设计:

代码分析:
Dim RSCount As ADODB.Recordset
Dim CmdExec As ADODB.Command
Dim i As Integer
Dim Jwsf As String
Dim AddFlg As Boolean

首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/14/14

电子教务管理系统vb(八)由毕业论文网（www.huoyuandh.com）会员上传。