你不知道的事——《学生信息管理系统》

学生信息管理系统，拖拖拉拉历时十二天，终于完工了，我人生中的第一个系统，虽然有源码的参照，但是，毕竟花费了很多的精力和时间才完成。

第一次做一个完整的系统，从需求分析开始，分析了整个系统的所有功能，主要分为5个部分：用户管理、学籍管理、班级管理、课程设置、成绩管理，每一部分又有相应的添加、修改、查询，看似功能单一，但在代码实践的过程中，也充分验证了“想和做是两码事”。

开始的时候自己有很多的想法，总想改改这，改改那，可是真改了，就发现这个系统，牵一发而动全身，于是有一部分想法便被搁浅了。

比如说登录界面，当同一个用户名错误登录三次以后，便无法登录系统，登录错误时，只提示密码错误，当时自己想的时候，想着在登录窗体加上登录次数提醒，当用户第一次错误登录时，提示用户“错误登录一次，还有两次机会”，依此类推……但等到真正去敲代码的时候，才发现，哪有那么简单呀，不是说麻烦，只是我现在接触的东西还太少，有种迫不及待想要去学习的感觉，想多学点，会得再多一点……

整个系统做下来，很多东西都是相通的，一个功能一个功能地敲下来，发现并没有花费多少时间，只要清楚地知道每一个功能所发挥的作用，代码实现起来也变得容易多了，说到底，就是一些添加记录、修改记录、查询记录，除了这些，还是这些。说道真正的代码，无非是几个函数，几条select语句，几个if语句……

Private Sub cmdOK_Click()
   Dim txtSQL As String
   Dim rst As ADODB.Recordset
   Dim MsgText As String
   
   If Trim(txtClassNo.Text = "") Then                        
      MsgBox "班号不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"
      txtClassNo.SetFocus
      Exit Sub
   End If
    
   If Trim(comboGrade.Text = "") Then                        
      MsgBox "年级不能为空，请重新选择！", vbOKOnly + vbExclamation, "警告"
      comboGrade.SetFocus
      Exit Sub
   End If
   
   If Trim(txtDirector.Text = "") Then      
      MsgBox "班主任不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"
      txtClassNo.SetFocus
      Exit Sub
   End If
   
   If Trim(txtClassroom.Text = "") Then                      
      MsgBox "教室不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"
      txtClassroom.SetFocus
      Exit Sub
   End If
   
   If Not IsNumeric(Trim(txtClassNo.Text)) Then                 
      MsgBox "班号必须为数字！", vbOKOnly + vbExclamation, "警告"
      txtClassNo.SetFocus
      Exit Sub
   End If

   
   txtSQL = "select * from class_info"
   Set rst = ExecuteSQL(txtSQL, MsgText)
   
   If Not (rst.BOF And rst.EOF) Then
      rst.MoveNext
   End If
   
   
   While (rst.EOF = False)                                      
     If Trim(rst.Fields(0)) = Trim(txtClassNo.Text) Then
        MsgBox "此记录已经存在！", vbOKOnly + vbExclamation, "警告"
        txtClassNo.Text = ""
        txtClassNo.SetFocus
     Else
        rst.MoveNext
     End If
   Wend
   
   rst.AddNew                
   rst.Fields(0) = Trim(txtClassNo.Text)
   rst.Fields(1) = Trim(comboGrade.Text)
   rst.Fields(2) = Trim(txtDirector.Text)
   rst.Fields(3) = Trim(txtClassroom.Text)
   rst.Update
   rst.Close
   Me.Hide
   MsgBox "添加班级信息成功！", vbOKOnly + vbExclamation, "添加成功"
End Sub

每一天，我都会记录一下自己做了多少，记录下每天的感受，每天要拿出时间来听英语，要处理CEO的各种事务，所以，做这个系统的时间少之又少，感觉每天都是挤时间来做，有的时候一天下来，发现自己一个窗体都没有写完，就利用晚上的时间再写一点，为了保证自己的休息时间，晚上回去的时候，我通常只拿着本，不拿电池，电脑没电了，就可以宣告这一天完美的结束了。

你知道吗？当我打包发布以后，去五楼打开了三台电脑，安装完，多用户同时登录，系统与数据库分离、异地访问……全部实现时的那种兴奋，是任何一种物质奖励都无法取代的。

很多事情，只要我们去做，去努力，就一定会有回报。我相信“守得云开见日明”~~~

坚持着去做，没有什么不可能。