2011年度計(jì)算機(jī)等級(jí)考試二級(jí)VFP基礎(chǔ)教程(37)

　　六。例二：按人員編號(hào)增刪改"工資情況表的數(shù)據(jù)

　　1.設(shè)計(jì)表單的界面：新建表單→打開數(shù)據(jù)環(huán)境→將"工資情況"表添加到數(shù)據(jù)環(huán)境中→從數(shù)據(jù)環(huán)境中，拖動(dòng)"工資情況"表的所有字段到表單中，并添加文本框 text1用于輸入定位人員的編號(hào)，添加"定位"(command1),"追加"(command2)和"刪除"(command3)三個(gè)命令按鈕，界面如圖24所示，并將文本框text1的inputmark屬性設(shè)為99999

　　2.編寫代碼：

　　*"定位"按鈕的click事件代碼：

　　bh=alltrim(thisform.text1.value)

　　jlh=recno()

　　locate for 編號(hào)=bh

　　if eof()

　　go jlh

　　=messagebox("沒有找到該編號(hào)!")

　　else

　　thisform.refresh

　　endif

　　*"追加"按鈕的click事件代碼：

　　append blank

　　thisform.refresh

　　*"刪除"按鈕的click事件代碼：

　　yn=messagebox("是否要?jiǎng)h除?",4+32)

　　if yn=6

　　delete

　　if eof()

　　go top

　　else

　　skip

　　endif

　　thisform.refresh

　　endif

　　3.可進(jìn)一步考慮問題：怎樣實(shí)現(xiàn)在文本框text1中輸完編號(hào)，回車即進(jìn)行查找?

　　可在text1的valid事件加入如下代碼：

　　if !empty(this.value)

　　thisform.command1.click &&調(diào)用命令按鈕"查找"(即command1)的click事件代碼，進(jìn)行查找

　　else

　　return .f.

　　endif

　　　　　　　全國計(jì)算機(jī)等級(jí)考試二級(jí)VF輔導(dǎo)筆記匯總

　　　　　　　計(jì)算機(jī)等級(jí)考試二級(jí)VFP上機(jī)試題及答案匯總

　　　　　　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VFP常用命令小結(jié)