学生信息管理系统之优化篇

学生系统的代码终于敲完，本以为优化就是几个文本框设置一下，改一下背景就完事了，结果是我太幼稚了，优化的内容远远不止我想的那些，还有很多很多，不过很幸运，我站在了巨人的肩膀上前行，感谢前面的巨人们，下面我也来分享一下我的汇总吧。

注：以下有一些代码是我自创出来的，比自己找的那些简单一些，也鼓励小伙伴们自己玩一下哦^_^

一、如何限制文本框输入内容的长度

txtClassno.MaxLength = 10

二、如何只输入数字和删除键

If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) ThenKeyAscii = 0end if

三、如何只输入数字和小数和删除键

If KeyAscii <> Asc(".") And (KeyAscii <> 8) And (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) ThenKeyAscii = 0End If

四、如何限制文本框输入内容的数值范围

           If Val(txtClassno.Text) > 2147483647 Or Val(txtClassno.Text) < 1ThenMsgBox "输入数值在1到2147483647范围内"txtClassno.SetFocusExit SubEnd If

五、文本框内只能输入文字及删除键

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 ThenElseKeyAscii = 0End If
End Sub

六、只能输入数字和英文字母

Private Sub Text1_KeyPress(KeyAscii As Integer)
If ((KeyAscii >= 48 And KeyAscii <= 57) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122)) = False Then KeyAscii = 0
End Sub

七、只能输入数字和文字

If ((KeyAscii <= 57 And KeyAscii >= 48) Or (KeyAscii <= -3652 And KeyAscii >= -20319) Or KeyAscii = 8) = False Then KeyAscii = 0

八、只能输入文字，英文和空格

Private Sub txtName_Change()txtName.MaxLength = 5
End SubPrivate Sub txtName_KeyPress(KeyAscii As Integer)If ((KeyAscii <= -3652 And KeyAscii >= -20319) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Or KeyAscii = 32 Or KeyAscii = 8) = False ThenKeyAscii = 0End If
End Sub

九、不同日期文本框的判断

利用VB中的DTPicker日期控件，这个是英杰分享给我的，嘻嘻，站在巨人的肩膀上前行就是这么高效。
添加过程：工具-部件-控件-“Microsoft Windows common control2.6.0”-应用-确定
选择DTPicker控件进行添加，效果如下：

而此控件的取值与Text不同的是它以Value属性来取值，所以代码中跟着两个文本框有关的text属性都需要改为Value属性他才会取值。
那日期如何判断呢，代码如下：

      Dim Borndate As DateDim Rudate As DateBorndate = Trim(txtBorndate.Value)Rudate = Trim(txtRudate.Value)If Rudate <= Borndate Then '进行比较MsgBox "还未出生就入学了，这么神奇？", vbOKOnly + vbInformation, "警告"txtRudate.SetFocusExit SubEnd If

十、日期文本框日期判定

以下代码是我自己编写的哦，没想到竟然能用，而且内容很少，逻辑也很棒，好开心，不过也要感谢那些走在我们前面分享给我们干货的小伙伴们哦，不然我都不知道有DTPicker这个控件。
代码如下：

 dim a as integera = txtBorndate.YearIf a - 1753 < 0 ThenMsgBox "出生日期请输入1753年以后的年份！", vbOKOnly + vbExclamation, "警告"txtBorndate.SetFocusExit SubEnd If

十一、仅限3次密码登录

If miCount = 1 ThenMsgBox "您还有两次机会哦^_^", 48, "温馨提示："Exit SubEnd IfIf miCount = 2 ThenMsgBox "您还有一次机会哦^_^", 48, "温馨提示："Exit SubEnd IfIf miCount = 3 ThenMsgBox "很遗憾，程序即将关闭!", 48, "温馨提示:"EndEnd If

十二、退出系统提示

Private Sub exitMenu_Click()Dim a As Stringa = MsgBox("确定退出系统吗？", vbOKCancel, "关闭程序")If a = vbOK ThenEndCancel = FalseEnd IfEnd Sub

OK，基本上用的最多的就是以上这些了吧，希望我也可以成为帮助别人的巨人，前方的路还很长，不过我们有巨人同行怕什么，继续加油吧^_^

学生信息管理系统之优化篇相关推荐

【学生信息管理系统】——优化篇（二）
优化内容 3.查询信息窗体--check复选框界面简洁.设计美观,提供给用户需要的.满足用户的需求,给用户带来方便.所以,我在查询信息的窗体中,对于选查询方式,这部分做了一些改动.当加载完窗体时,因 ...
【学生信息管理系统】——优化篇（一）
优化内容首先,从整个系统上来说,几乎每个窗体都需要重复做一些简单的优化工作,比如说添加用户使用的界面背景.调整用户使用窗体的大小.子窗体位于主窗体上的相对位置.子窗体是否可移出主窗体.调整界面字体字 ...
学生信息管理系统之测试篇
学生信息管理系统之测试篇一.学生信息管理系统测试用例设计二.使用selenium工具对项目进行自动化测试 2.1 测试登录功能及登录后的查询功能 2.2 测试列表页的增加用户和删除用户功能 2.3 ...
【学生信息管理系统】——总结篇
前言学生信息管理系统是小编接触到的第一个系统项目,小编对系统的初识便是从学生信息管理系统开始,同时也是了解数据库的开始. 正文当进行这个项目时,首先是要根据用户要求,做出需求分析:通过需求分析来确 ...
学生信息管理系统之总结篇
今天终于把学生管理系统优化完工了.从刚开始的纠错,到后来的优化这个过程真是异常艰辛.在这个过程中查找了很多资料也收获了很多知识.下面我对学生信息管理系统做一下自己的总结: 宏观:学生信息管理系统是一款 ...
学生信息管理系统之第二篇主要功能模块设计和数据库设计
4.2系统主要功能模块设计: (1)基本信息模块:是管理员对学生信息进行添加操作.通过本界面管理员可以对学生信息进行相应的修改,包括学号.姓名.出生日期等.可以通过该界面输入学生姓名实现查询该学 ...
【学生信息管理系统】——问题篇
Q1:实时错误91 answer 1:(1)首先是检查数据库的连接,检查VB与数据库是否连接成功. 在模块中的代码这里:ConnectString = "FileDSN=studentinf ...
学生信息管理系统模块问题篇
这个窗体可是出现了很多个问题,例如实时错误91错误,实时错误3021错误,这些就是比较常见的错误,下面对于这些错误有了一些认识,来分享一下一.实时错误91错误 1.引起的原因 1.ODBC连接没成功 ...
c语言成绩管理系统开题报告,学生信息管理系统,开题报告(共篇).doc
学生信息管理系统,开题报告(共篇).doc 学生信息管理系统,开题报告(共10篇) :开题信息管理系统报告学生论文开题报告有查重吗居民信息网络管理系统学生信息管理系统c语言篇一:学生信息 ...
学生信息管理系统—优化总结part2
学生信息管理系统无时无刻不在进行优化,接下来继续给大家分享我对学生信息管理系统的优化,希望对大家有所帮助哦. 一.显示当前数据位置 Private Sub nextCommand_Click()If ...