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

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

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

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

4、amp;跳轉(zhuǎn)到剛才刪除的記錄的記錄號(hào)上，從這一條記錄開始修改記錄的編號(hào)。do whil .not. eof()&&如里不到數(shù)據(jù)庫(kù)結(jié)尾則重復(fù)執(zhí)行以下修改編號(hào)的代碼：replace 編號(hào) with 編號(hào)-1&&把當(dāng)前記錄的編號(hào)減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好了，代碼向大家看完了，在此筆者再向大家介紹個(gè)建議：就是在圖1的表單中，如果這是個(gè)修改記錄的表單的話，有相當(dāng)一部分書或資料上都介紹把各個(gè)控件的controlsource的值直接指向數(shù)據(jù)庫(kù)中相對(duì)應(yīng)的字段名，筆者認(rèn)為這樣做不是很好，因?yàn)檫@樣的話如果不小心動(dòng)了表單中各個(gè)文本框的值的話，程序是沒有一點(diǎn)提示就直接修改數(shù)據(jù)庫(kù)中相對(duì)應(yīng)的字段的值的。筆者的做法是：把各個(gè)控件的controlsource的值指向一個(gè)變量，比如說“姓名”文本框的controlsource值指向xgxm，然后在“確定修改”按鈕的代碼里再用“replace 姓名 with alltrim(xgxm)”來真正