go top
thisform.command1.enabled=.f.
thisform.command4.enabled=.t.
thisform.command3.enabled=.t.
thisform.command2.enabled=.f.
thisform.dy
thisform.refresh
“上一条”按钮的代码如下:
skip -1
thisform.command3.enabled=.t.
thisform.command5.enabled=.t.
if bof( )
messagebox("已经到第一个!")
thisform.command2.enabled=.f.
thisform.command5.enabled=.f.
else
thisform.dy
endif
thisform.refresh
“下一条”按钮的代码如下:
skip
thisform.command5.enabled=.t.
if eof( )
messagebox("已经到最后一条!")
thisform.command3.enabled=.f.
thisform.command5.enabled=.f.
thisform.command2.enabled=.t.
else
thisform.command2.enabled=.t.
endif
thisform.dy
thisform.refresh
“最后一条”按钮的代码如下:
go bottom
thisform.command1.enabled=.t.
thisform.command4.enabled=.f.
thisform.command3.enabled=.f.
thisform.command2.enabled=.t.
thisform.dy
thisform.refresh
“修改”按钮的代码如下:
go recno( )
thisform.txt姓名.readonly=.f.
thisform.txt邮政编码.readonly=.f.
thisform.txt性别.readonly=.f.
thisform.txt手机.readonly=.f.
thisform.txt小灵通.readonly=.f.
thisform.txt住宅电话.readonly=.f.
thisform.txtqq.readonly=.f.
thisform.txte_mail.readonly=.f.
thisform.txt办公电话.readonly=.f.
thisform.txt家庭地址.readonly=.f.
thisform.txt备注.readonly=.f.
thisform.command6.enabled=.t.
1