第一個問題就是登陸的時候如果在姓名哪輸入 “‘ ’” 單引號會報錯的解決方法是 

       解決方法

 1 給姓名的文字框建立個鍵盤輸入事件

2然後就是用ASCI碼的方式來禁止輸入單引號

Private Sub txtUserName_KeyPress(KeyAscii As Integer)

If KeyAscii = 39 Then '禁止輸入單引號
KeyAscii = 0
End If
End Sub

就是記錄清空

學生的新增使用者和修改密碼，當用戶再次點開的時候上次修改的記錄還存在這就對客戶再次操作就不放便了 1 當我們點選確認的時候建立個確認按鈕的 彈起事件 在彈起是解除安裝當前窗體下次在開啟的時候就不會有上 次的記錄了請他的窗體清空記錄我用的都是這個辦法 2 用解除安裝窗體來清空上次記錄不是最好的辦法，所以大家評論的時候有什麼好的方法，一起分享一下 Private Sub cmdOK_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Unload Me
End Su 

字元和字數限制

1字元限制有的欄位的資料型別是字元的有的是整形的那這問題就來了 如果往字元型別裡輸入數字那不就報錯了，相反也一樣 2通過給文字框建立鍵盤輸入事件來限制  Private Sub txtDirector_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii '禁止輸入數字和特殊字元
        Case 65 To 90
        Case 97 To 122
        Case 44
        Case 46
        Case 13
        Case 8
        Case Else
        KeyAscii = 0
    End Select
End Sub
禁止輸入字元的   Select Case KeyAscii '只能輸入數字
    Case 8 '無變化，退格鍵
    Case 48 To 57
    Case Else '出來上邊的都遮蔽
    KeyAscii = 0
    End Select
這個只能輸入數字

設定課程防止重複新增

在新增課程的時候，點選設定課程在點選第二次的時候它還回在輸出一次跟上面的一模一樣 1 給設定課程的命令按鈕建立個滑鼠彈起事件但滑鼠彈起是禁用 設定課程按鈕 Private Sub cmdSet_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cmdSet.Enabled = False
End Sub
2已選擇的課程重複修改一下程式碼 Private Sub cmdAdd_Click()
   ' If listAllcourse.ListIndex <> -1 Then
    'listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
    'End If '
    Dim s As String
    Dim i As Integer
    i = listSelectcourse.ListCount '已選擇課程列表框的專案
    s = listAllcourse.List(listAllcourse.ListIndex) '所有課程列表框選中的專案
    For i = 0 To listSelectcourse.ListCount - 1 '在列表框中迴圈找一遍
        If listSelectcourse.List(i) = s Then Exit For
    Next
    If i = listSelectcourse.ListCount Then listSelectcourse.AddItem s
    
End Sub

詳見竊子碩部落格http://m15732678364.blog.163.com/blog/static/25321606920165197303347

修改成績的comboCoursetype 課程型別禁止寫入 其他的可以通過style的屬性來設定

Private Sub comboCoursetype_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii '禁止寫入
        Case 1 To 127
            KeyAscii = 0
    End Select

學籍查詢和成績查詢的複選框

當點選那個複選框那個複選框後邊的文字框可用 1在設計階段，禁用文字框 2給複選框建立單機事件，當單機複選框文字框可用 Private Sub Check1_Click(Index As Integer) '選擇複習框文字框才可用
    Select Case Index
        Case 0
           txtSID.Enabled = True
       Case 1
            txtName.Enabled = True
       Case 2
        txtCourse.Enabled = True
    End Select
End Sub

新增日期控制元件

1新增 部件 microsoft windows common Controls-2.6.0 Private Sub DTPicker1_Change() '日期選擇 選擇
    txtRudate = Format(DTPicker1.Value, "yyyy-mm-dd")
    DTPicker2.Value = txtRudate
End Sub
Private Sub DTPicker2_Change() '選擇出生日期
    txtBorndate = Format(DTPicker2.Value, "YYYY-mm-dd")
    DTPicker2.Value = txtBorndate
End Sub 暫時總結怎麼多，還又很多沒有優化的