学生信息管理系统—优化总结part2

简介: 学生信息管理系统

学生信息管理系统无时无刻不在进行优化,接下来继续给大家分享我对学生信息管理系统的优化,希望对大家有所帮助哦。

一、显示当前数据位置

Private Sub nextCommand_Click()
    If mrc.EOF = True Then
        MsgBox "已经是最后一条数据"
    Else
         mrc.MoveNext
    End If
    Call viewData
End Sub
Private Sub previousCommand_Click()
    If mrc.BOF = True Then
        MsgBox "已经是第一条数据"
    Else
         mrc.MovePrevious
    End If
    Call viewData
End Sub

二、判断输入的分数

Private Sub txtResult_Change()
    If Val(txtResult.Text) > 150 Then
        MsgBox "成绩已超出范围,成绩范围为0~150哦"
        txtResult.SetFocus
        txtResult.Text = ""
    End If
End Sub

三、修改密码前输入旧密码

txtSQL = "select * from user_Info where user_ID ='" & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If (Userpwd = Text2.Text) Then
      MsgBox "请输入正确的旧密码!"
      Text2.Text = ""
end if

四、新密码和旧密码是否一致

txtSQL = "select * from user_Info where user_ID ='" & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If (Userpwd = Text1(1).Text) Then
    MsgBox "与旧密码重复,请重新修改!"
    Text1(1).Text = ""
    Text1(2).Text = ""
    Text1(1).SetFocus
else
    mrc.Fields(1) = Text1(1).Text
    mrc.Update
    mrc.Close
    MsgBox "密码修改成功!", vbOKOnly + vbExclamation, "修改密码"
    Unload Me
End If

五、不重复添加课程

Static b  As Integer
Dim s As String
Dim w As Integer
If listAllcourse.ListIndex <> -1 Then
    For b = 0 To listSelectcourse.ListCount - 1
        If listSelectcourse.List(b) = listAllcourse.List(listAllcourse.ListIndex) Then
            MsgBox "不能重复添加课程!"
            w = 3
        End If
    Next
        If w = 3 Then
    Exit Sub
Else
    listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
End If
相关文章
|
消息中间件 RocketMQ
RocketMQ报错:MQClientException:no route info of this topic的解决
RocketMQ报错:MQClientException:no route info of this topic的解决
688 0
|
安全 Oracle 网络协议
第4章 数据库安全性——4.1 数据库安全性概述
第4章 数据库安全性——4.1 数据库安全性概述
|
11月前
|
传感器 存储 数据采集
深入调查研究GE-Predix
【11月更文挑战第8天】
1186 2
|
前端开发 Java Maven
使用 @GrpcClient 实现客户端
使用 @GrpcClient 实现客户端
201 0
|
10月前
|
机器学习/深度学习 人工智能 自然语言处理
FullStack Bench:字节豆包联合M-A-P社区开源的全新代码评估基准
FullStack Bench是由字节跳动豆包大模型团队与M-A-P社区联合推出的全新代码评估基准,专注于全栈编程和多语言编程能力评估。该基准覆盖超过11种真实编程场景,包含3374个问题,涉及16种编程语言,旨在更有效地衡量大模型在现实世界中的代码开发能力。
244 5
FullStack Bench:字节豆包联合M-A-P社区开源的全新代码评估基准
|
10月前
|
IDE 测试技术 开发工具
10个必备Python调试技巧:从pdb到单元测试的开发效率提升指南
在Python开发中,调试是提升效率的关键技能。本文总结了10个实用的调试方法,涵盖内置调试器pdb、breakpoint()函数、断言机制、logging模块、列表推导式优化、IPython调试、警告机制、IDE调试工具、inspect模块和单元测试框架的应用。通过这些技巧,开发者可以更高效地定位和解决问题,提高代码质量。
981 8
10个必备Python调试技巧:从pdb到单元测试的开发效率提升指南
|
Web App开发 监控 UED
如何解决Angular中的Error: HTTP request failed, call timeout问题
在Angular应用中,遇到HTTP请求超时错误`Error: HTTP request failed, call timeout`时,可通过多种途径解决。首先,可增加请求超时时间,Angular默认无超时限制,设置合理的超时时间如5秒有助于避免长时间等待无响应。其次,检查服务器响应时间,利用开发者工具监控网络请求,优化服务器端代码或调整超时值。最后,确认网络连接稳定性,使用`navigator.onLine`检测网络状态,并在不同网络环境中测试。这些策略共同作用,能够有效提升应用的稳定性和用户体验。
684 1
|
12月前
|
数据挖掘 C语言 C++
R语言是一种强大的统计分析工具,提供了丰富的函数和包用于时间序列分析。
【10月更文挑战第21天】时间序列分析是一种重要的数据分析方法,广泛应用于经济学、金融学、气象学、生态学等领域。R语言是一种强大的统计分析工具,提供了丰富的函数和包用于时间序列分析。本文将介绍使用R语言进行时间序列分析的基本概念、方法和实例,帮助读者掌握R语言在时间序列分析中的应用。
240 3
|
数据采集 自然语言处理 数据挖掘
ftfy,一个超强的 Python 编码问题修复库!
ftfy,一个超强的 Python 编码问题修复库!
213 0
|
缓存 前端开发 JavaScript