【學生資訊管理系統】對輸入框-TextBox的限制

    學生資訊管理系統中的輸入框，需要限制。就像我們從來沒有見過誰的名字是數字一樣，另外介面還要跟後臺的資料庫相聯絡，我們不能讓輸入框輸入的長度超過資料庫對該欄位長度的範圍。

    對輸入框的限制是通過TextBox的KeyPress事件實現的，通過限制鍵盤上鍵對應的Ascii碼值達到效果。每一個輸入框，都要保證退格鍵和Delete鍵可用，達到修改的目的

學號：我們限制它只能是數字

Private Sub txtSID_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then Exit Sub                                   <span style="white-space:pre">		</span>'退格鍵可用
    If KeyAscii = 127 Then Exit Sub                                 <span style="white-space:pre">		</span>'Delete鍵可用
    
    If KeyAscii > 48 And KeyAscii < 57 Then                         <span style="white-space:pre">		</span>'只用數字鍵可用
    Else
    <span style="white-space:pre">	</span>MsgBox "學號請輸入數字", vbOKOnly + vbExclamation, "警告"  <span style="white-space:pre">		</span> '當輸入的不是數字時給出提示
        KeyAscii = 0
        txtSID.SelStart = 0
        txtSID.SelLength = Len(txtSID.Text)                        <span style="white-space:pre">		</span> '選中輸入框中的內容
   End If
End Sub

姓名：我們只能讓這個框中輸入字母或者是漢字

Private Sub txtName_KeyPress(KeyAscii As Integer)

   If (KeyAscii < 0) Or (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Or (KeyAscii = 8) Then
  
   Else
     MsgBox "姓名由字母和漢字組成", vbOKOnly + vbExclamation, "警告"
     KeyAscii = 0
     txtName.SelStart = 0
     txtName.SelLength = Len(txtName.Text)
  End If
  
End Sub

入學日期：格式為 yyyy-mm-dd，所以我們除了保證只能輸入數字外，還要讓符合 “-”能夠輸入，找到該符號對應的Ascii值。

Private Sub txtBorndate_KeyPress(KeyAscii As Integer)
    If KeyAscii = 8 Then Exit Sub
    If KeyAscii = 127 Then Exit Sub
    If KeyAscii = 45 Then Exit Sub<span style="white-space:pre">						</span>'符號“-”對應的Ascii值
    If KeyAscii < 48 Or KeyAscii > 57 Then
        MsgBox "出生日期請輸入數字", vbOKOnly + vbExclamation, "警告"
        KeyAscii = 0
        txtBorndate.SelStart = 0
        txtBorndate.SelLength = Len(txtBorndate.Text)
    End If
End Sub

聯絡電話：我們還要設定它的長度，不能超過11位，這通過TextBox的Chang事假實現

Private Sub txtTel_Change()
    txtTel.MaxLength = 11  <span style="white-space:pre">							</span>'限制長度最長是11位 
End Sub

這幾種通過自由的變形，設定了整個學生資訊管理系統中的輸入框的限制，剛開始敲的時候只是照著程式碼敲完了，沒有做到思考。後來驗收的時候，問題就全部暴露出來了。站在一個使用者的角度思考問題，得民心者得天下，要做到全心全意為人民服務。