你不知道的事——《學生資訊管理系統》

學生資訊管理系統，拖拖拉拉曆時十二天，終於完工了，我人生中的第一個系統，雖然有源碼的參照，但是，畢竟花費了很多的精力和時間才完成。

第一次做一個完整的系統，從需求分析開始，分析了整個系統的所有功能，主要分為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的各種事務，所以，做這個系統的時間少之又少，感覺每天都是擠時間來做，有的時候一天下來，發現自己一個表單都沒有寫完，就利用晚上的時間再寫一點，為了保證自己的休息時間，晚上回去的時候，我通常只拿著本，不拿電池，電腦沒電了，就可以宣告這一天完美的結束了。

你知道嗎？當我打包發布以後，去五樓開啟了三台電腦，安裝完，多使用者同時登入，系統與資料庫分離、異地訪問……全部實現時的那種興奮，是任何一種物質獎勵都無法取代的。

              很多事情，只要我們去做，去努力，就一定會有回報。我相信“守得雲開見日明”~~~

                                堅持著去做，沒有什麼不可能。