chaizhiwei774818的博客

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.

“第一条”按钮的代码如下： 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. “保存”按钮的代码如下： if empty(xm) messagebox("姓名不能为空！") else replace 通讯录.家庭地址 with jtdz; 通讯录.姓名 with xm,通讯录.办公电话 with bgdh; 通讯录.性别 with xb,通讯录.qq with qq; 通讯录.e_mail with email,; 通讯录.住宅电话 with zzdh,通讯录.备注 with bz; 通讯录.邮政编码 with yzbm,通讯录.手机 with sj; 通讯录.小灵通 with xlt endif thisform.txt姓名.readonly=.t. thisform.txt邮政编码.readonly=.t. thisform.txt性别.readonly=.t. thisform.txt手机.readonly=.t. thisform.txt小灵通.readonly=.t. thisform.txt住宅电话.readonly=.t. thisform.txtqq.readonly=.t. thisform.txte_mail.readonly=.t. thisform.txt办公电话.readonly=.t. thisform.txt家庭地址.readonly=.t. thisform.txt备注.readonly=.t. thisform.command6.enabled=.f. “退出”按钮的代码如下：

do form 登录.scx read events set sysmenu to default set safety on close all clear all clear windows clear events cancel