學生管理系統之BUG(3)

2021-08-25 07:57:02 字數 1809 閱讀 1287

bug三:原**中的刪除存在乙個問題:

當你刪除最後乙個後,它沒有清除顯示內容且沒有提示,所以當你再單擊刪除時就會出現問題。

我們對它的刪除方法進行了修改,通過它的recordcount屬性來判斷是否到了最後一條記錄,如果刪除最後一條後會進行提示,並解除安裝窗體。

下面我們以frmmodifysinfo中(在其他修改窗體中類似錯誤)刪除問題為例:

原**:

private sub deletecommand_click()

mybookmark = mrc.bookmark

str2$ = msgbox("是否刪除當前記錄?", vbokcancel, "刪除當前記錄")

if str2$ = vbok then

mrc.movenext

if mrc.eof then

mrc.movefirst

mybookmark = mrc.bookmark

mrc.movelast

mrc.delete

mrc.bookmark = mybookmark

call viewdata

else

mybookmark = mrc.bookmark

mrc.moveprevious

mrc.delete

mrc.bookmark = mybookmark

call viewdata

end if

else

mrc.bookmark = mybookmark

call viewdata

end if

改後的**:

'先判斷有沒有進入編輯狀態,若進入了編輯狀態就提示

private sub cmddelete_click()

dim a as integer

if not (bedit) then

msgbox "請先單擊取消按鈕!", vbexclamation + vbokonly, "提示"

exit sub

else

a = msgbox("您確定要刪除嗎?", vbquestion + vbyesno, "詢問")

if a = vbyes then

if mrs.recordcount > 1 then

mrs.delete

mrs.movenext

if mrs.eof then mrs.movelast

call viewdata

exit sub

else

mrs.delete

mrs.movenext

mrs.moveprevious

msgbox "您已刪除最後一條記錄!", vbinformation + vbokonly, "提示"

unload me

end if

else

call viewdata

end if

end if

end sub

學生管理系統之Bug(1)

bug 一 組合框不可輸入 表與表之間都是相互聯絡的,它們都是通過乙個或幾個字段進行連線的,因此這些用來連線的字段不能隨便進行更改。改後表與表間就聯絡不起來了 下面我們以frmaddsinfo 中的班號為例 班號應先判定是否有班號,不可直接輸入,因為班號是由班級資訊表中的班號確定的,不能隨便更改。源...

寫程式中常遇到的Bug3

一 delete 問題 class a void testdelete int tmain int argc,tchar argv 二 標頭檔案包含 類宣告 類繼承 類互相指向對方 問題 參考設計模式之狀態模式 三 設計模板類,類的定義和實現必須在同一檔案,如果在.h檔案中定義,在.cpp檔案中實現...

學生資訊管理系統的Bug

今天在除錯學生資訊系統的時候出現了錯誤。public function executesql byval sql as string,msgstring as string as adodb.recordset dim cnn as adodb.connection dim rst as adodb...