Question

VFP修改记录表单 事件代码

每个按钮的时间代码，急求。。。。
3. 修改记录表单。根据输入的数据，可以对指定的数据表修改指定的记录。
本表单设计要求：
（1）能对输入的关键字段，如编号、代码等进行校验。
（2）修改记录成功应有提示信息框。
（3）如能先在表单中进行不同数据表的选择，然后再对选定的数据表修改记录者为佳。
这是题目要求，现在我就只设计了个表面，但是不会写每个按钮的代码，我用的是在编辑框中直接修改记录，现在需要些代码的是：上一个，下一个，第一个，最后一个，修改。这几个按钮都是从command按钮，数据环境是xs1.

Answer 1

1. 不推荐对字符字段使用 Editbox 控件, 最好用 TextBox
2. 如果你使用数据绑定的话就容易, 直接使用下列语句, 且修改按钮是不起作用的, 因为系统会自动保存.

2.1 上一个:
If !bof()
skip -1
endif
thisform.refresh

2.2. 下一个
if !eof()
skip
endif
thisform.refresh

2.3. 第一个
go top
thisform.refresh

2.4. 最后一个
go bottom
thisform.refresh

3. 如果你没有数据绑定的话, 就比较麻烦一点.
3.1. 上一条
if !eof()
skip
endif
this.edit1.value = xs1.xh
this.edit2.value = xs1.xm
this.edit3.value = xs1.xb
this.edit4.value = xs1.zy

3.2 其它按钮类似

3.3 修改按钮
try
with thisform
replace xs1.xh with alltr(.edit1.value), xs1.xm with alltr(.edit2.value), xs1.xb with alltrim(.edit3.value), xs1.zy with alltr(.edit4.value)
endwith
messageb("数据修改成功!")
catch
messageb("数据修改失败, 原因: " + message())
Endtry

4. 推荐使用 事务处理, 或者缓冲.

Derek Shu

Answer 2

说的详细点好吗？