六。例二：按人员编号增删改"工资情况表的数据

　　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

　　 编辑推荐：

　　 计算机等级考试：二级VFP机试汇总

　　 2010年全国计算机等级考试二级VFP习题及答案汇总

　　 计算机等级考试二级VFP考前密卷及答案