计算机应用 | 古代文学 | 市场营销 | 生命科学 | 交通物流 | 财务管理 | 历史学 | 毕业 | 哲学 | 政治 | 财税 | 经济 | 金融 | 审计 | 法学 | 护理学 | 国际经济与贸易
计算机软件 | 新闻传播 | 电子商务 | 土木工程 | 临床医学 | 旅游管理 | 建筑学 | 文学 | 化学 | 数学 | 物理 | 地理 | 理工 | 生命 | 文化 | 企业管理 | 电子信息工程
计算机网络 | 语言文学 | 信息安全 | 工程力学 | 工商管理 | 经济管理 | 计算机 | 机电 | 材料 | 医学 | 药学 | 会计 | 硕士 | 法律 | MBA
现当代文学 | 英美文学 | 通讯工程 | 网络工程 | 行政管理 | 公共管理 | 自动化 | 艺术 | 音乐 | 舞蹈 | 美术 | 本科 | 教育 | 英语 |

电子教务管理系统vb(一)毕业论文(7)

2013-05-06 18:02
导读:nbsp; ComLst(i).Width = ComLst(i).Width Next i End Sub Private Sub TxtFsd_KeyPress(Index As Integer, KeyAscii As Integer) If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 End If End Sub Private Sub E
nbsp;   ComLst(i).Width = ComLst(i).Width
    Next i
   
End Sub

Private Sub TxtFsd_KeyPress(Index As Integer, KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
   KeyAscii = 0
End If
End Sub

Private Sub ExecPass()
    For i = 0 To 7
        If TxtFsd(i).Text = "" Then
            MsgBox "分数段数值错误!此次统计不实。", , "错误项" & i & ":"
            Exit Sub
        End If
    Next i
   
    If CInt(TxtFsd(0).Text) > CInt(TxtFsd(1).Text) And CInt(TxtFsd(1).Text) > CInt(TxtFsd(2).Text) And CInt(TxtFsd(2).Text) > CInt(TxtFsd(3).Text) And CInt(TxtFsd(3).Text) > CInt(TxtFsd(4).Text) And CInt(TxtFsd(4).Text) > CInt(TxtFsd(5).Text) And CInt(TxtFsd(5).Text) > CInt(TxtFsd(6).Text) And CInt(TxtFsd(6).Text) > CInt(TxtFsd(7).Text) Then
   
    Else
        MsgBox "请保持数值递减顺序!此次统计不实。", , "数值错误:"
        Exit Sub
    End If
End Sub

Private Sub LoadData()
    Dim Query As String
    Dim PicRs As ADODB.Recordset
    Set PicRs = New ADODB.Recordset


    Query = "select b.姓名 as xm , a." & Combo2.Text & " as Cj from 成绩表 AS a INNER JOIN 学籍表 AS b ON a.考试号 = b.考试号 where 班级 = '" & Combo1.Text & "' and 考试性质 = '" & Combo3.Text & "'"
    PicRs.Open Query, Con, adOpenStatic, , adCmdText


    With PicRs
        Do While Not .EOF
            If CInt(PicRs!cj) >= CInt(TxtFsd(0).Text) Then
                Icj(0) = Icj(0) + 1
                ComLst(0).AddItem PicRs!XM
            End If
            If CInt(PicRs!cj) >= CInt(TxtFsd(1).Text) And CInt(PicRs!cj) < CInt(TxtFsd(0).Text) Then
                Icj(1) = Icj(1) + 1
                ComLst(1).AddItem PicRs!XM
            End If
            If CInt(PicRs!cj) >= CInt(TxtFsd(2).Text) And CInt(PicRs!cj) < CInt(TxtFsd(1).Text) Then
                Icj(2) = Icj(2) + 1
                ComLst(2).AddItem PicRs!XM
            End If
  &
上一篇:计算机专业实习总结毕业论文网 下一篇:没有了