學(xué)生信息管理系統(tǒng)優(yōu)化（一）

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

解決方法

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

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

Private Sub txtUserName_KeyPress(KeyAscii As Integer)

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

KeyAscii = 0

End If

End Sub

就是記錄清空

學(xué)生的添加用戶和修改密碼，當(dāng)用戶再次點開的時候上次修改的記錄還存在這就對客戶再次操作就不放便了

1 當(dāng)我們點擊確認(rèn)的時候創(chuàng)建個確認(rèn)按鈕的 彈起事件 在彈起是卸載當(dāng)前窗體下次在打開的時候就不會有上

次的記錄了請他的窗體清空記錄我用的都是這個辦法

2 用卸載窗體來清空上次記錄不是最好的辦法，所以大家評論的時候有什么好的方法，一起分享一下

Private Sub cmdOK_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Unload Me

End Su

字符和字?jǐn)?shù)限制

1字符限制有的字段的數(shù)據(jù)類型是字符的有的是整形的那這問題就來了 如果往字符類型里輸入數(shù)字那不就報錯了，相反也一樣

2通過給文本框創(chuàng)建鍵盤輸入事件來限制

Private Sub txtDirector_KeyPress(KeyAscii As Integer)

Select Case KeyAscii '禁止輸入數(shù)字和特殊字符

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 '只能輸入數(shù)字

Case 8 '無變化，退格鍵

Case 48 To 57

Case Else '出來上邊的都屏蔽

KeyAscii = 0

End Select

這個只能輸入數(shù)字

設(shè)置課程防止重復(fù)添加

在添加課程的時候，點擊設(shè)置課程在點擊第二次的時候它還回在輸出一次跟上面的一模一樣

1 給設(shè)置課程的命令按鈕創(chuàng)建個鼠標(biāo)彈起事件但鼠標(biāo)彈起是禁用 設(shè)置課程按鈕

Private Sub cmdSet_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

cmdSet.Enabled = False

End Sub

2已選擇的課程重復(fù)修改一下代碼

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 '在列表框中循環(huán)找一遍

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的屬性來設(shè)置

Private Sub comboCoursetype_KeyPress(KeyAscii As Integer)

Select Case KeyAscii '禁止寫入

Case 1 To 127

KeyAscii = 0

End Select

學(xué)籍查詢和成績查詢的復(fù)選框

當(dāng)點擊那個復(fù)選框那個復(fù)選框后邊的文本框可用

1在設(shè)計階段，禁用文本框

2給復(fù)選框創(chuàng)建單機(jī)事件，當(dāng)單機(jī)復(fù)選框文本框可用

Private Sub Check1_Click(Index As Integer) '選擇復(fù)習(xí)框文本框才可用

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

暫時總結(jié)怎么多，還又很多沒有優(yōu)化的

項目管理 ProjectMan

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。