学生信息系统之有关日期信息设置

            在学生信息管理系统的添加学籍模块中，有学生出生日期和入校日期选项的添加，但是如果对这两个选项没有限制条件的话，就会出现这样的问题：在用户大量的录入数据时，如果用户存在信息录入错误时，但系统没有任何的的提示信息，这样用户就很难发现信息录入的错误，给用户带来很大的不便。比如，用户录入的信息（学生的出生日期比学生的入校日期晚），这样的情况是绝对不允许出现的。

 

学籍添加窗体

 

为此我对这学籍添加模块的“出生日期”和“入校日期”选项的代码稍做了一些改动，增加了一些输入信息的条件限制。见下面代码。

 

Private Sub cmdOK_Click()

     ·······
     '判断出生日期格式是否正确
  If Not IsDate(Trim(txtbithdate)) Then
     MsgBox "出生日期应输入日期格式（yyyy-mm-dd）!", vbOKOnly + vbExclamation, "警告"
     txtbithdate = ""
     txtbithdate.SetFocus
     Exit Sub
   
  End If
       
  '判断出生日期是否在允许的范围内（1990/1/1 - 2000/1/1）
  If DateValue(Trim(txtbithdate)) < #1/1/1990# Or DateValue(Trim(txtbithdate)) > #1/1/2000# Then

     MsgBox "请输入正确的出生日期！", vbOKOnly, "提示"
     txtbithdate.SetFocus
     txtbithdate = ""
     Exit Sub
  End If
    
  txtbithdate = Format(txtbithdate, "yyyy-mm-dd")
  
  '判断入学日期格式是否正确
  If Not IsDate(Trim(txtrudate)) Then
     MsgBox "入学日期应输入日期格式（yyyy-mm-dd）!", vbOKOnly + vbExclamation, "警告"
     txtrudate = ""
     txtrudate.SetFocus
     Exit Sub
  End If
      
  '判断入学日期是否在允许的范围内（2008/1/1 - 当日）
  If DateValue(Trim(txtrudate)) > Date Or DateValue(Trim(txtrudate)) < #1/1/2008# Then
     
     MsgBox "请输入正确的入校日期！", vbOKOnly, "提示"
     txtrudate.SetFocus
     txtrudate = ""
     Exit Sub
    
  End If

    ·······
End Sub

     

     虽然这是一个很小的问题，但是作为我们软件设计人员想设计出一款优秀的软件，必须得考虑到这些细节问题，处处为用户着想，把我们全心全意的为人们服务的思想落实到我们的实际中。