DO CASE CASE This Value=1 &&下页 IF RECN( <RECC O SKIP CASE This value=2 &&上页 IF RECN (>1 SKIP -1 END I CASE This Value=3 &&首页 GO TOP CaSe This value=4 &&木 CASE This, value=5 &&寻页 D0 FORM srxldh&&调用表单,以输入修理单号;返回后寻页按钮获得焦点 Case This Value=6 &&增页 zy= MESSAGEBOX(’是要增页吗?,1+48+256,’确认增加修理单’) &&对话框含确定和取消按钮,惊叹号图标:第2个按钮(取消按钮)是默认 按钮 IF Zy=1 &&确定按钮 GO BOTT &为得到当前最大编号 INSERT INTO Xld(编号) VALUES(STR(VAL(编号)+1,4) &&在xld表木尾添加一个记录,并将编号加1后的值存入新记录的编号字段 ENDIE CASE This Value=7 &&删页 sy= MESSAGEBOXC是要删页吗?’,1+48+256,’确认删除修理单’) IF sy=l &&确定按钮 DELETE ENDIF BROW TITL’摩托车修改’+SPAC(20)+’单击行首可打删除标记,退出就删去 CASE This Value=9 SELE C: BROW TITI’车主修改+SPAC(20)+单击行首可打删除标记,退出就删去 PACK CASE This Value=10 Thisform. Release Thisform. Refresh ②寻页按钮的 Got Focus事件代码 SELE XId