学生信息管理系统优化篇（二） 之 添加学籍 手机号

添加学籍窗体的 优化 地方还是有很多地方
1.优化各个文本控件的字符限制。
上一篇 已经讲到
2.优化出生日期和入校日期， 改为日历表 添加日期。
在工程部件里 找到 Micorosoft windows Common Controls-2 6.0的 打上对勾 应用。 添加上两个MonthView1 控件
之后就是把你添加的日期赋值到Text box 控件中

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    txtBorndate.Text = MonthView1.Year & "-" & MonthView1.Month & "-" & MonthView1.Day
    MonthView1.Visible = False
End Sub
 还有就是点击 text box 控件  之后在显示  MonthView1 。
  
 3.判断出生日期 和入校日期。

'设置出生日期不得大于入校日期
If (Year(txtBorndate.Text) & Month(txtBorndate.Text) & Day(txtBorndate.Text)) _
>= (Year(txtRudate.Text) & Month(txtRudate.Text) & Day(txtRudate.Text)) Then
MsgBox “出生日期不得大于或等于入校日期，请您重新输入！”, vbOKOnly + vbExclamation, “提示”

       txtBorndate.Text = ""
       txtRudate.Text = ""
       
       Exit Sub
    End If

 4.联系电话 不能输入11位号码。
   打开数据库-studunt -表-dbo.student_lnfo- 列 - tele Number  右键属性 
   将长度  10 改为11 ， 保存。
 
 5.和点击完添加按钮， 不退出窗体， 继续输入学籍信息。