注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

邢玉 廊坊师范学院信息技术提高班 十一期

自己选的路,就算跪着也要走完!

 
 
 

日志

 
 

学生信息管理系统系列博客之优化一  

2014-08-01 21:08:57|  分类: 学生信息管理系统 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

学生信息管理系统的功能大概都能运行了,下面就体现我们为人民服务态度的时候到了……

我们要不断的对我们的系统进行优化,只有用户用的方便了,才是我们的终极目标!!

优化1、日期不用输

因为我们在添加日期的时候要求格式,如果格式不对,也不能正常添加,会提示格式重新添加。输入格式式的日期很麻烦,还可能出错,所以,设置一个日历,让用户自己选择即可。

我们先添加部件Microsoft Windows Common Controls-2 6.0,之后将它的visible属性设为false。每当我们点击日期文本框的时候,日历弹出来便可以选择日期,选完之后再隐藏。

学生信息管理系统系列博客之优化一 - 邢玉 - 邢玉 廊坊师范学院信息技术提高班 十一期

 代码如下:

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

      txtBorndate.Text = MonthView1.Year & "-" & MonthView1.Month & "-" & MonthView1.Day

      MonthView1.Visible = False

End Sub

 

Private Sub MonthView2_DateClick(ByVal DateClicked As Date)

      txtRudate.Text = MonthView2.Year & "-" & MonthView2.Month & "-" & MonthView2.Day

      MonthView2.Visible = False

End Sub

Private Sub txtBorndate_Click()

     MonthView1.Visible = True

End Sub

Private Sub txtRudate_Click()

     MonthView2.Visible = True

End Sub

优化2、出生日期和入校日期比较

因为我们只有出生了才能入校,所以出生日期一定比入校日期早。但是当用户添加的时候不保证不会手抖,让出生日期比入校日期晚,所以我们当添加学籍的时候要进行一下比较才能将信息导入数据库。

代码如下:

Dim a as integer

a = DateDiff("d", txtRudate.Text, txtBorndate.Text)

 If a > 0 Then

    MsgBox "出生日期应早于入校日期!!请修改……", vbOKOnly, "警告"

    Exit Sub

'   txtRudate.Text = ""

'   txtRudate.SetFocus

 End If

优化3、电话号码

因为电话号码分为手机号和座机号,位数不一样,但是每个人在输自己的联系方式时,不能确定是否不会因为手误少输一位,所以我们要设置一个提示,以确保用户输对了电话。首先我们要先限制联系方式的输入框最多输入11位。代码如下           

 If Len(txtTel.Text) < 11 Then

    str2$ = MsgBox("你的电话号码不到11位吗?确定输对了吗?", vbOKCancel, "提示")

       If Not str2$ = vbOK Then

          txtTel.SetFocus

          Exit Sub

       End If

  End If

这样当电话输到11位时,添加成功,不到11为会提示再检查一遍。

优化4、限制成绩输入大小

当我们添加成绩的时候,一定要限制成绩的大小输入,否则无限制的输入不符合我们这个系统的初衷。代码如下:

Private Sub Text1_Change()

On Error Resume Next

If Val(Trim(Text1.Text)) > 100 Then

MsgBox "输入数字过大,请重新输入"

Text1.Text = ""

End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii >= 33 Then

If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Then

Else

KeyAscii = 0

MsgBox "请输入数字!"

End If

End If

End Sub

这样我们成绩只能输入比100小的数啦……

全心全意为人民服务的道路很长,我们还在路上………………

  评论这张
 
阅读(45)| 评论(42)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017