学生信息管理系统——添加信息总结

今天，学生信息管理系统终于完成并且调试的差不多了，接下来，总结一下在这里面学到的东西和出现的一些问题。

     1.添加信息执行cmdOK的一般步骤：

（1）判断各个输入框是否为空

例：

     If Not Testtxt(comboExamtype.Text) Then
         MsgBox "请输入考试编号!", vbOKOnly + vbExclamation, "警告"
         Exit Sub
     End If

（2）判断是否重复

例：

     txtSQL = "select * from result_Info where exam_No = '" & comboExamtype.Text & "' 

              and student_ID = '" & comboSID.Text & "' and course_Name = '" & comboCourse.Text & "'"
     Set mrc = ExecuteSQL(txtSQL, MsgText)
     If mrc.EOF = False Then
        MsgBox "有相同纪录，请重新输入信息!", vbOKOnly + vbExclamation, "警告"
        mrc.Close

  （3）判断某些输入框的格式是否正确

  例：

<span style="font-size: 18px;">     </span><span style="font-size:18px;">If Not IsNumeric(txtResult.Text) Then
         MsgBox "分数请输入数字!", vbOKOnly + vbExclamation, "警告"
         Exit Sub
     End If</span>

     （4）添加信息

         <span style="font-size:18px;">mrc.AddNew
       mrc.Fields(0) = comboExamtype.Text
       mrc.Fields(1) = comboSID.Text
       mrc.Fields(2) = txtName.Text
       mrc.Fields(3) = comboClassno.Text
       mrc.Fields(4) = comboCourse.Text
       mrc.Fields(5) = txtResult.Text
       mrc.Update
       mrc.Close
       MsgBox "添加成绩成功！", vbOKOnly + vbExclamation, "警告"
       Unload Me</span>

    2.遇到的一些问题：

     （1）.对于BOF和EOF的理解（一张清晰的图片）：有了这张图片，我想好理解多了。

                

     （2）.在添加学号和手机号的时候如何按正常的位数添加就会出现这个错误

               

               原因就出现在了数据库的字段上，数据库中设置的字段要和自己输入的字段一致

      （3）

.             

              对于这个问题应该在我们整个过程中都存在，在代码中稍微不注意就会出现这个问题。

            （1）没有配置ODBC数据源或者ODBC数据源配置错误

            （2）代码错误

              txtSQL = "select * from result_Info where exam_No = '" & comboExamtype.Text & "' and student_ID = '"                         & <span style="font-family: Arial, Helvetica, sans-serif;">comboSID.Text & "' and course_Name = '" & comboCourse.Text & "'"</span>

              Set mrc = ExecuteSQL(txtSQL, MsgText)

              双引号，单引号和空格值得注意。