VFP6.0中實(shí)現(xiàn)記錄刪除后自動調(diào)整編號

1、.VFP6.0中實(shí)現(xiàn)記錄刪除后自動調(diào)整編號好，言歸正傳，下面就來看看筆者是怎么樣實(shí)現(xiàn)記錄刪除后自動調(diào)整記錄編號這一功能的。首先大家來看一下我的這個人事管理系統(tǒng)的刪除表單：見圖1，這里面的各個控件我想大家一看就知道是干什么用的了，在此我就不再介紹，有一點(diǎn)要說明的是，數(shù)據(jù)庫（或表）打開的時候是不能帶除了編號以外的索引的，也就是說必須要以編號排序的方式。在圖1的表單中，“取消”，“確定”這兩個按鈕的代碼筆者就不詳細(xì)介紹了，根據(jù)程序作用的不同這兩個按鈕的代碼可能會有一些出入?！吧弦粋€”和“下一個”按鈕的代碼也很簡單，主要是一些判斷記錄有沒有到頭或到尾的代碼和跳轉(zhuǎn)記錄時刷新的代碼，在此也不多做介紹。下面

2、我們主要來看看“刪除”這個按鈕的代碼，整個“刪除”按鈕的代碼如圖2所示：下面我來介紹一下各段代碼的作用：scyesno=messagebox("真的要刪除嗎？",4+32,"確認(rèn)")&&這一句不用我多說吧？產(chǎn)生一個“確認(rèn)”對話框。if scyesno=6&&如果用戶按下“確定”按鈕。b=recno() &&首先把要刪除的記錄號儲存下來，以下要用到。delete&&把選定的記錄作刪除標(biāo)記。pack&&把選定的記錄從數(shù)據(jù)庫中徹底刪除。messagebox("已經(jīng)搞定!&

3、quot;,0+64,"刪除完畢")&&產(chǎn)生一個“刪除完畢”的對話框。go bottom &&數(shù)據(jù)庫的記錄指針移到尾部。if reccount()>0 &&判斷表中的記錄個數(shù)是不是大于0，即還有沒有記錄。如果剛才刪除的是數(shù)據(jù)庫中最后一條記錄，不加這條判斷語句截止的話再向下執(zhí)行會出錯！所以這是一條相當(dāng)重要的判斷代碼。if b<recno() .or. b=recno()&&如果剛才刪除的記錄號小于或等于最后一條記錄的記錄號。（在此注意一下上面“go bottom”這句代碼的作用。）go b&&

4、amp;跳轉(zhuǎn)到剛才刪除的記錄的記錄號上，從這一條記錄開始修改記錄的編號。do whil .not. eof()&&如里不到數(shù)據(jù)庫結(jié)尾則重復(fù)執(zhí)行以下修改編號的代碼：replace 編號 with 編號-1&&把當(dāng)前記錄的編號減1并保存。skip&&跳轉(zhuǎn)到下一條記錄。enddo&&結(jié)束假設(shè)和循環(huán)。go b&&這句要不要都行，主要是為了方便在表單里顯示刪除的那條記錄的下一條記錄的內(nèi)容的。endif&&結(jié)束判斷。endif &&結(jié)束判斷。endif&&結(jié)束判斷。&&a

5、mp;以下的代碼是為了刪除后刷新用的，大家一看就明白的，不用我說了。thisform.text1.refreshthisform.text2.refreshbo1.refreshthisform.text4.refreshthisform.text5.refreshthisform.text6.refreshthisform.text7.refreshthisform.edit1.refreshThisForm.Oleboundcontrol1.refresh好了，代碼向大家看完了，在此筆者再向大家介紹個建議：就是在圖1的表單中，如果這是個修改記錄的表單的話，有相當(dāng)一部分書或資料上都介紹把各個控件的controlsource的值直接指向數(shù)據(jù)庫中相對應(yīng)的字段名，筆者認(rèn)為這樣做不是很好，因?yàn)檫@樣的話如果不小心動了表單中各個文本框的值的話，程序是沒有一點(diǎn)提示就直接修改數(shù)據(jù)庫中相對應(yīng)的字段的值的。筆者的做法是：把各個控件的controlsource的值指向一個變量，比如說“姓名”文本框的controlsource值指向xgxm，然后在“確定修改”按鈕的代碼里再用“replace 姓名 with alltrim(xgxm)”來真正