＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
scyesno=messagebox("真的要刪除嗎？",4+32,"確認") &&這一句不用我多說吧？產生一個“確認”對話框。
if scyesno=6 &&如果用戶按下“確定”按鈕。
b=recno() &&首先把要刪除的記錄號儲存下來，以下要用到。
delete &&把選定的記錄作刪除標記。
pack &&把選定的記錄從數據庫中徹底刪除。
messagebox("已經搞定!",0+64,"刪除完畢") &&產生一個“刪除完畢”的對話框。
go bottom &&數據庫的記錄指針移到尾部。
if reccount()>0 &&判斷表中的記錄個數是不是大于0，即還有沒有記錄。如果剛才刪除的是數據庫中最后 一條記錄，不加這條判斷語句截止的話 再向下執(zhí)行會出錯！所以這是一條相當重要的判斷代碼。
if b<recno() .or. b=recno() &&如果剛才刪除的記錄號小于或等于最后一條記錄的記錄號。（在此注意 一下上面“go bottom”這句代碼的作用。）
go b &&跳轉到剛才刪除的記錄的記錄號上，從這一條記錄開始修改記錄的編號。
do whil .not. eof() &&如里不到數據庫結尾則重復執(zhí)行以下修改編號的代碼：
replace 編號 with 編號-1 &&把當前記錄的編號減1并保存。
skip &&跳轉到下一條記錄。
enddo &&結束假設和循環(huán)。
go b &&這句要不要都行，主要是為了方便在表單里顯示刪除的那條記錄的下一條記錄的內容的。
endif &&結束判斷。
endif &&結束判斷。
endif &&結束判斷。 |
