菜鳥也能飛之系統整體構架

1使用者名稱登入

既然是使用者名稱登入定要用到了資料庫查詢，但是查詢語句出錯了，不僅僅是沒有資料，直接的後果就是系統的報錯癱瘓，還沒登入進去你的系統就不能用了，這肯定不行。所以程式員要事先想到一切可能發生的情況，確保軟體的正常使用，也就是說軟體的容錯性要好

結合SQL查詢語句，如果避免了“'”和“=”，這些符號會直接造成語句的不正確，提示錯誤資訊

Private Sub txtUserName_KeyPress(KeyAscii As Integer)      Dim s As String      Dim i As Integer      For i = 1 To Len(txtUserName.Text)          s = Mid(txtUserName.Text, i, 1)          If s Like "'" Or s Like "=" Then              txtUserName = Replace(txtUserName.Text, s, "")          End If      Next  end sub  

2密碼控制

       除了和使用者名稱的基本限制相同的之外，就是還要考慮不要輸入中文，一般都是大小寫字母（區別大小寫），數字，一些特殊符號。

不過要有位元的限制，這是一個很通有的報錯點。

3小數輸入

 一開始，只想著限制只能輸入數字，可是後來想到，如果分數是小數了，那怎麼辦呢，所以這個小數是一定要有的，那麼怎麼限制小數呢。小數點後限制一個小數。

方法

Private Sub txtCash_Change()      Dim S As String      Dim x() As String            If (IsNumeric(txtCash.Text)) Then              x = Split(txtCash.Text, ".")              If (UBound(x) >= 1) Then                      If (Len(x(UBound(x))) > 1) Then                              txtCash.Text = S                              txtCash.SelStart = Len(txtCash.Text)                      End If              End If      End If      S = txtCash.Text  End Sub 

4 一些極端的情況沒有想過

(其實這是最應該考慮的)

a 資料庫中沒有資料，測試的時候都是一大堆資料，卻忽悠沒有資料的時候

b 比如學號定義為數字，但是如果輸入幾十位的數位話，就會出錯，原因是超範圍了,卻沒有提出報錯提示