在学生信息管理系统的添加学籍部分,需要在text中输入出生日期和入学日期,这一步比较麻烦,大家在测试的时候应该都感觉到了,而且还要求yyyy-mm-dd格式。下面我分享一个通过选择输入日期的方法,让我们的系统更加人性化!
1.首先在工程—部件中添加 Microsoft Windows Common Controls-2 6.0,在工具栏中就会出现MonthView控件和DTPicker控件。
2.然后在添加学籍的窗体上添加这两个控件,DTPicker控件和combobox看上去一样,MonthView控件像个小日历,这两个控件配合使用。注意需要把MonthView控件的visible属性值设置成false。如果用户觉得这种方法不好使,也可以在DTPicker控件处用鼠标点击,变为蓝色后,直接输入年、月、日。效果图如下所示:
3.接下来需要修改原来的代码。原来的txtborndate.text就相当于现在的DTPickerborn.value。
4.我们都知道一个学生的出生日期肯定早于入学日期,在录入信息的时候,管理员可能由于粗心等种种人为因素,造成还没出生就入学的笑话,那么就让我们的系统给判断一下吧!只需在“确认添加”事件下添加几行代码。
date1 = DTPickerborn.Value
date2 = DTPickerruxiao.Value
If DateDiff("d", CDate(date1), CDate(date2)) < 0 Then '出生日期不可以大于入学日期
MsgBox "出生日期不可以大于入学日期,请认真输入!", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
最后思想上移一下:发现问题就要解决问题。办法总比困难多。全心全意为人民服务!