【学生系统】——添加窗体

        添加信息是学生管理系统中的一大功能，不管是哪一个方面都得有添加信息的功能。添加信息可以说是进入系统正式操作的第一步，不同的添加窗体添加的信息不同，但是功能是一样的，代码也相差不大，要注意的问题也很相似：

        一、添加用户窗体：

        1、判断用户名和密码不能为空

              If Trim(Text1(0).Text) = "" Then                '判断用户名是否为空
                   MsgBox "请输入用户名称！", vbOKOnly + vbExclamation, "警告"
                   Exit Sub
             Text1(0).SetFocus

             If Text1(1).Text = "" Then                '判断密码是否为空
                   MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
                   Text1(1).SetFocus
                   Text1(1).Text = ""
                   Text1(2).Text = ""

             Else

        2、判断用户名是否已存在

              txtsql = "select * from user_info"
             Set mrc = executesql(txtsql, msgtext)
             While (mrc.EOF = False)
             If Trim(mrc.Fields(0)) = Trim(Text1(0)) Then
                  MsgBox "用户已经存在，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
                  Text1(0).SetFocus
                  Text1(0).Text = ""

          Text1(1).Text = ""

         Text1(2).Text = ""

          Exit Sub

3、判断两次输入的密码是否一致

     If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then              '判断两次密码是否一致

        MsgBox "两次输入密码不一样，请确认！", vbOKOnly + vbExclamation, "警告"

        Text1(1).SetFocus

        Text1(1).Text = ""

        Text1(2).Text = ""

        Exit Sub

     Else    

       二、添加课程信息窗体

       添加课程信息窗体中除了判断是否为空、是否为数字、是否已存在等问题之外，还应该注意的是年级一项时，最好是限制手动输入，因为如果是对系统完全陌生的用户，输入的年级格式可能会是错误的，这样就会出错。所以说要么将年级一项限制手动输入，要么就设置提醒。我觉得限制手动输入，只设置下拉菜单比较方便一些。

       三、添加课程信息窗体

       添加课程信息窗体要注意的问题其实就三项，判断各项输入是否为空、输入项是否为数字，各输入项是否已存在。

       四、添加成绩信息窗体

       添加成绩信息窗体跟添加课程信息窗体要注意的问题是一样的，除了上述三项之外，应该设置选择班号、学号、课程这三项只能为选择，不能为手动输入。

       ComboBox.Style=2

       或者直接在设计时将ComboBox控件的Style属性值设置为2（默认值为0，即既能手动输入又能选择）

       五、添加学籍信息窗体

       添加学籍信息窗体特殊的要注意的问题是输入的出生日期不能晚于入校日期：

       If CDate(txtborndate.Text) > CDate(txtrudate.Text) Then
          MsgBox "出生时间不能晚于入校时间！", vbOKOnly + vbExclamation, "警告"
          txtborndate.SetFocus
          txtborndate.Text = ""
          txtrudate.Text = ""
        Else

       另外，出生日期和入校日期的输入格式也要注意，你可以限制用户的输入格式，通过MsgBox来提醒用户输入正确的格式，但是这样的话对于用户输入时有些麻烦，可以让用户直接输入一串数字，然后系统自动添加格式。数据库每个数据是要求数据类型的，日期的类型不能随便输入，但是可以对文本框进行设置，让用户输入的数字直接转换成你所要求的日期格式(以“2000-01-01”为例)：

       Private Sub txtborndate_Change()
           If Len(Trim(txtborndate.Text)) = 4 Then
                 txtborndate = txtborndate & "-"
                 txtborndate.SelStart = 6
           End If
  
          If Len(Trim(txtborndate)) = 7 Then
                txtborndate = txtborndate & "-"
                txtborndate.SelStart = 9
          End If
     End Sub

        添加窗体有些需要注意的问题和登录界面是一样的，但是根据添加的信息不同，各个添加窗体又有各自的注意点，为了使系统更好的为用户服务，人性化修改还在继续！