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...