在我敲學生時,遇到了書籤bookmark 和movefirst、moveprevious、movenext、movelast,一開始我真是一頭霧水,最後**了一番總算理解了。那麼對資料庫的刪過程,是如何實現的呢,下面以修改學籍窗體裡的刪除按鈕為例,有不對的還請學的好的指出……
private sub deletecommand _click()mybookmark = mrc.bookmark '把記錄集的指標賦給乙個字元變數
str2$ = msgbox("確認是否刪除當前資料?", vbokcancel, "刪除當前記錄")
if str2$ = vbok then '假如你點了確認按鈕
mrc.movenext '顯示刪除後下一條記錄
if mrc.eof then '如果刪除的是最後一條有兩種情況1.
最後一條(僅有一條)
2.最後一條(但前邊還有)
mrc.moveprevious
mrc.moveprevious
if mrc.bof then '1.有且僅有一條記錄的處理
mrc.movenext
mrc.delete
msgbox "最後一條記錄已經刪除!", vbokonly + vbexclamation, "警告"
unload me
else '判斷是最後一條(但前邊還有)
mrc.movefirst
'這裡紅色字型的三行書籤的作用是:
mybookmark = mrc.bookmark
'使刪除記錄後回到第一條記錄
mrc.movelast
mrc.delete
'指標回到最後一行,並刪除
mrc.bookmark = mybookmark
call viewdata
'呼叫viewdata函式,使表顯示當前(也就是第一條)記錄。
end if
else '有很多記錄 ,也不是最後一條記錄的處理
mybookmark = mrc.bookmark
mrc.moveprevious
mrc.delete
mrc.bookmark = mybookmark
call viewdata
end if
end if
end sub
public sub viewdata() '把臨時表中當前記錄賦給文字框
txtsid.text = mrc.fields(0)
txtname.text = mrc.fields(1)
combo***.text = mrc.fields(2)
txtborndate.text = format(mrc.fields(3), "yyyy-mm-dd") '規定日期格式形如:2015-06-20
comboclassno.text = mrc.fields(4)
txttel.text = mrc.fields(5)
txtrudate.text = format(mrc.fields(6), "yyyy-mm-dd")
txtaddress.text = mrc.fields(7)
txtcomment.text = mrc.fields(8)
end sub
右值引用和move語義
標籤 c 11 c lvalue rvalue 2013 10 04 20 49 2909人閱讀收藏 舉報 c 6 目錄 lvalue 具有儲存性質的物件,即lvalue物件,是指要實際占用記憶體空間 有記憶體位址的那些實體物件,例如 變數 variables 函式 函式指標等。rvalue 相比較...
書籤推廣的特點和技巧
書籤推廣的特點和技巧 很多做 優化的朋友都在說,社會化書籤是一種不錯的推廣方式,簡單 方便 快捷。可是,我漸漸地發現,真正能把社會化書籤做到極致做出成果的人沒有幾個。做了有三年多的 推廣了,從最早接觸的網路書摘到後來的書籤 收藏夾,再到後來的sns 微博,以致到現如今的社會化分享 這些我都統稱為社會...
利用move和actived事件實現相對模態窗體
在sap b1的使用過程中,發現他存在相當多的優點。今天只說他的相對模態窗體。一般情況下我們所開發的winform程式,在對彈出窗體進行處理時,都比較不樂意用彈出窗體。因為如果使用模態窗體,就失去了程式的多工特性 如果不使用模態窗體,又怕因為使用者誤操作造成麻煩。我以前在做程式時一直處理兩難之中。而...