六。例二：按人員編號增刪改"工資情況表的數據

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

　　2.編寫代碼：

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

　　bh=alltrim(thisform.text1.value)

　　jlh=recno()

　　locate for 編號=bh

　　if eof()

　　go jlh

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

　　else

　　thisform.refresh

　　endif

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

　　append blank

　　thisform.refresh

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

　　yn=messagebox("是否要刪除?",4+32)

　　if yn=6

　　delete

　　if eof()

　　go top

　　else

　　skip

　　endif

　　thisform.refresh

　　endif

　　3.可進一步考慮問題：怎樣實現在文本框text1中輸完編號，回車即進行查找?

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

　　if !empty(this.value)

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

　　else

　　return .f.

　　endif

　　　　　　　全國計算機等級考試二級VF輔導筆記匯總

　　　　　　　計算機等級考試二級VFP上機試題及答案匯總

　　　　　　　2011年計算機等級考試二級VFP常用命令小結