免费获取|
论文天下网
  • 论文天下网 |
  • 原创毕业论文 |
  • 论文范文 |
  • 论文下载 |
  • 计算机论文 |
  • 论文降重 |
  • 毕业论文 |
  • 外文翻译 |
  • 免费论文 |
  • 开题报告 |
  • 心得体会 |

当前位置:论文天下网 -> 免费论文 -> 计算机论文

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

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
  &

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

相关论文
上一篇:公交车查询系统+vb 下一篇:VB+教学辅助系统
推荐论文 本专业最新论文
Tags:电子 教务 管理系统 access 论文 外文 翻译 开题 报告 答辩 ppt 源代码 【返回顶部】

相关栏目

自动化相关
计算机论文
工程管理论文
法律论文
医学论文
人力资源
电子专业
电气工程
英语论文
行政管理
电子商务
社科文学
教育论文
物流专业
金融专业
财务管理
会计专业
化学化工材料科学
电子通信
环境科学
经济类
机械模具类
报告,总结,申请书
其他专业论文


关于我们 | 联系方式 | 论文说明 | 网站地图 | 免费获取 | 钻石会员 | 原创毕业论文

 

论文天下网提供论文检测,论文降重,论文范文,论文排版,网站永久域名WWW.GEPUW.NET

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 893628136@qq.com

Copyright@ 2009-2022 GEPUW.NET 论文天下网 版权所有