学生信息管理系统技术点总结

        前几天把学生信息管理系统中所有的代码都看了一遍，不懂的也问了问同学。这几天敲了几个窗体。感觉有必要把技术要点总结下来。梳理梳理自己的知识。

       第一个问题           系统当中为什么会有模块？

   模块能够提高代码集成性，意思就是说我们的工作量减少了。学生信息管理系统模块有三个自定义函数分别是Testtxt(txt As String) 、ConnectString()、ExecuteSQL(ByVal SQL As String, MsgString As String)。如果不在模块中定义这些函数的话，就要在每个窗体下面定义这些函数。工作量会很大。在模块中定义这些函数，如果有的功能需要这些函数，直接调用就可以，非常方便。

第二个问题 异常处理语句的重要性

  On Error GoTo ExecuteSQL_Error ‘以下代码如果有错误

   代码部分

  ExecuteSQL_Error:

MsgString = "查询错误: " & _’直接跳转到此处退出语句
      Err.Description
   Resume ExecuteSQL_Exit

异常处理语句能够提高程序的健壮性，能够防止出现不可逆转的错误。防止出现卡死、等现象。此时你可能会问以前为什么没有异常处理语句，以为代码多了，程序大了，很多意想不到的错误会出现。所以会有异常处理语句。个人理解。

第三个问题 学生信息管理系统的增删改查

我以添加成绩信息窗体为例

 

这个功能的实现，除了表面的写入数据，还有两个要点就是 

1.在你单击选择学号的时候显示学号并在姓名文本框中显示姓名。

代码如下（在单击选择班号combobox后在单击选择学号combobox后才会出现数据库中                 的学号）

  '通过学号显示姓名
  Dim mrc As ADODB.Recordset
  Dim txtSQL As String
  Dim MsgTxt As String
  
  txtSQL = "select*from student_info where student_ID='" & CmoSelectNumber.Text & "'"
   Set mrc = ExecuteSQL(txtSQL, MsgTxt)
   TxtName.Text = mrc!student_Name
   mrc.Close

2.在选择班号Cmo中显示的班级不能重复

代码如下

<pre name="code" class="vb">txtSQL = "select distinct class_No from class_Info " <span style="color:#009900;">'不会出现重复的信班级</span>

txtSQL="select * from class_Info" <span style="color:#009900;">'会出现重复的班级</span>

增删改查的功能很类似。在这就不往上面搬代码了。