學生資訊管理系統優化(一)
阿新 • • 發佈:2019-02-11
第一個問題就是登陸的時候如果在姓名哪輸入 “‘ ’” 單引號會報錯的解決方法是
解決方法
1 給姓名的文字框建立個鍵盤輸入事件
2然後就是用ASCI碼的方式來禁止輸入單引號
Private Sub txtUserName_KeyPress(KeyAscii As Integer)
If KeyAscii = 39 Then '禁止輸入單引號
KeyAscii = 0
End If
End Sub
就是記錄清空
學生的新增使用者和修改密碼,當用戶再次點開的時候上次修改的記錄還存在這就對客戶再次操作就不放便了 1 當我們點選確認的時候建立個確認按鈕的 彈起事件 在彈起是解除安裝當前窗體下次在開啟的時候就不會有上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 暫時總結怎麼多,還又很多沒有優化的