=========================================== scyesno=messagebox("真的要删除吗?",4+32,"确认") &&这一句不用我多说吧?产生一个“确认”对话框。 if scyesno=6 &&如果用户按下“确定”按钮。 b=recno() &&首先把要删除的记录号储存下来,以下要用到。 delete &&把选定的记录作删除标记。 pack &&把选定的记录从数据库中彻底删除。 messagebox("已经搞定!",0+64,"删除完毕") &&产生一个“删除完毕”的对话框。 go bottom &&数据库的记录指针移到尾部。 if reccount()>0 &&判断表中的记录个数是不是大于0,即还有没有记录。如果刚才删除的是数据库中最后 一条记录,不加这条判断语句截止的话 再向下执行会出错!所以这是一条相当重要的判断代码。 if b<recno() .or. b=recno() &&如果刚才删除的记录号小于或等于最后一条记录的记录号。(在此注意 一下上面“go bottom”这句代码的作用。) go b &&跳转到刚才删除的记录的记录号上,从这一条记录开始修改记录的编号。 do whil .not. eof() &&如里不到数据库结尾则重复执行以下修改编号的代码: replace 编号 with 编号-1 &&把当前记录的编号减1并保存。 skip &&跳转到下一条记录。 enddo &&结束假设和循环。 go b &&这句要不要都行,主要是为了方便在表单里显示删除的那条记录的下一条记录的内容的。 endif &&结束判断。 endif &&结束判断。 endif &&结束判断。 |