学生管理系统之完善

背景：

学生管理系统中，在添加学籍信息时，有个出生日期及入校日期，代码很复杂，因为其规定日期的各种格式，这样才能与数据库信息相匹配的。可是，我们都知道系统的研发是给客户用的，而客户又怎么能知道这个日期该怎么怎么填写，所以“全心全意为人民服务”这一点就缺乏好多。灵感源于生活，每个学校的教务系统中你就可以收获到很多。所以我有用到两个控件。 MonthView控件和DTPicker控件。

   使用方法：

      1· 添加控件：右击部件—勾选 Microsoft Windows Common controls-2 6.0

      2·往窗体上添加MonthView控件和DTPicker控件(其中把MonthView控件的属性visible改为false)

      3·然后我们添加学籍信息代码中，把txtBorndate.text和txtRudate.text分别换成                         DTPicker.value，就ok了。

      4·生活常识入校日期肯定要大于出生日期的，可是避免有些人犯糊涂，我们可以添加提醒。如下代   码：

    

   Date1=DTPickerborn.value
   Date2=DTPickerrudate.value
   if DateDiff("d",CDate(date1),CDate(date2)) < 0 then
        msgbox "入校日期需大于出生日期！请认真输入！",vbOKonly + vbExclamation,"警告"
        exit sub 
    end if

  代码解释：

      其中DateDiff()函数是算两个日期间隔的；Cdate()是转换为日期格式。

  效果如图所示：

2·如多个textbox,combobox,label常用控件内容全部清空问题

     背景：虽然我们现在做系统不多，可是在学生管理系统中遇到这样的问题，之前我们刚接触vb时，是这样解决的。

 

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong><span style="font-family:KaiTi_GB2312;</span></strong>

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;">">text1.text = ""
text2.text = ""
text3.text = ""</span></strong></span></strong>

.......

一个两个的这样可以，可是遇到20或30个文本框，然后全部“清空”，你会选择怎么做？这里给大家介绍一种简单办法。当然你也可以选择用数组的方式来达到想要的效果。（以textbox为例）

   

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;"><strong><span style="font-family:KaiTi_GB2312;"></span></strong>

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;">dim ctrl as control
    for each ctrl in me.controls
        if typeof ctrl is textbox then         '判断是否为文本框
            ctrl.text = ""
        end if
    next</span></strong></span></strong>

代码可以自己琢磨，如果是label标签框，则把textbox换成label且ctrl.text = "" 换成  ctrl.caption = ""即可其它同样道理，只是稍微变化就行。