添加学籍窗体的 优化 地方还是有很多地方
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.和点击完添加按钮, 不退出窗体, 继续输入学籍信息。