學生資訊管理系統總結

前言

學生資訊管理系統歷時乙個多月，經過乙個多月的努力，敲完了所有**，改完了所有bug，優化了某些方面。

****是程式設計的靈魂。在我們開始學生的時候往往會有點迷惑，會不知道從**開始學習學生，不知道是先敲**呢？還是先安裝資料庫呢？在改bug的時候，是乙個乙個窗體的改呢還是敲完一起改呢？現在我提出一些自己的建議，僅供參考。在開始學生之後，如果你選擇的是乙個乙個窗體的去除錯，那就先安裝上資料庫，因為有的窗體是需要資料庫，存一些資料，查一些資料的。如果你選擇的是敲完之後再除錯，那就敲完之後去安裝資料庫。

424是我在除錯學生的時候經常出現的錯誤。解決方法：一般遇到這種情況，是因為你命名的屬性框裡邊的控制項名字和你所敲**裡邊的名字不一樣，仔細檢視，自己的錯誤在**。

遇到此類問題有三種情況：1.資料庫設定有問題2.odbc沒有配置好3.**有問題.

其他bug

在我們敲的過程中，還會遇到一些其他的錯誤，大部分都是因為自己粗心，**的問題，所以大家一定要仔細。

優化單引號問題

if keyascii = 39 then '禁止輸入單引號

keyascii = 0

end if

end sub

加入這段**之後就限制了單引號的輸入。

重複新增課程

解決方法：修改箭頭裡的**

private sub cmdadd_click()
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 thenexit for
next
if i = listselectcourse.listcount thenlistselectcourse.additem s
'if listallcourse.listindex <> -1then
'listselectcourse.additemlistallcourse.list(listallcourse.listindex)
' end if
end sub

字元和字數限制

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
這個只能輸入數字

心得

大家在敲的過程中一定要仔細，還有梳理邏輯。

學生資訊管理系統總結

學生資訊管理系統總結

學生資訊管理系統總結

學生資訊管理系統總結

相關推薦