學生優化篇（二）

一.查詢顯示查詢到的記錄條數

       當我們點擊查詢的時候，比如說我數據庫中有一個學號爲1的人的信息，然後我輸入學號爲2，點擊查詢，窗體毫無反應，我們需要優化，來給用戶提示，表示確實進行了查詢操作，其實非常簡單，在窗體中添加一個標籤框，輸入下面的代碼就可以了。

 n = mrc.RecordCount
 Label1.Caption = "查詢到" & n & "條記錄"

二.修改密碼後需重新登錄程序

 MsgBox "修改密碼成功！請重新登錄", vbOKOnly + vbExclamation, "修改密碼"
 Me.Hide
 frmmain.Hide
 Unload frmflogin
 frmflogin.Show

三.check控件

       在查詢窗體中我們設置了查詢條件後，單擊查詢，查詢到結果後如果我們想再次查詢的話，點擊check框後，後面的text框中的內容不會自動清除，用戶使用起來十分的不便，我們在check控件的單擊事件中添加下列代碼：

Private Sub Check1_Click()
If Not Check1.Value Then
    txtSID.Text = ""
End If
a = Check1.Value
 
  If a = 1 Then                 '當選中時候文本框可用
    txtSID.Text = ""
    txtSID.Enabled = True
    txtSID.SetFocus
  Else
 
    txtSID.Text = "
    txtSID.Enabled = False       '未選中時文本框不可用
  End If
End Sub

四.點擊修改未修改內容點擊更新提示更新成功

       在修改窗體中，我們點擊修改按鈕後直接點擊更新按鈕，它會提示修改記錄成功，然而我們沒有進行實際的修改操作，這時候我們需要寫一個很長的SQL語句來判斷記錄的內容是否改變，代碼如下：

txtSQL = "select*from student_info where student_ID='" & Trim(txtSID.Text) & "'and student_name='" & Trim(txtName.Text) & "' and student_Sex='" & Trim(comboSex.Text) & "' and born_Date='" & Trim(DTPicker1.Value) & "' and class_NO='" & Trim(comboClassNo.Text) & "' and tele_Number='" & Trim(txtTel.Text) & "' and ru_Date='" & Trim(DTPicker2.Value) & "' and address='" & Trim(txtAddress.Text) & "' and comment='" & Trim(txtComment.Text) & "'"
        Set mrs = ExecuteSQL(txtSQL, MsgText)

        If mrs.EOF = False Then
            MsgBox "記錄重複，請重新輸入", vbOKOnly + vbExclamation, "警告"
            mrs.Close
        Else

五.出生日期不能大於等於入校日期，入校日期不能大於系統當前日期

If DTPicker1.Value >= DTPicker2.Value Then
                    MsgBox "出生日期不能大於等於入校日期，請重新輸入！", vbOKOnly + vbExclamation, "警告"
                    Exit Sub

Else
      If DTPicker2.Value >= Date Then
                        MsgBox "入校日期不能大於當前日期，請重新輸入！", vbOKOnly + vbExclamation, "警告"
      Else

六.電話號碼只能輸入十一位數字

If Len(txtTel.Text) <> 11 Then
            MsgBox "請輸入11位數字電話號碼", vbOKOnly + vbExclamation, "警告"
            txtTel.Text = ""
            txtTel.SetFocus
            Exit Sub
End If


以及


Private Sub txtTel_KeyPress(KeyAscii As Integer)
 Select Case KeyAscii '只能輸入數字
        Case 8 '無變化，退格鍵
        Case 48 To 57
        Case Else '出來上邊的都屏蔽
        KeyAscii = 0
    End Select
End Sub