Question

vfp的问题

在vfp中，假设数据库sdb中数据库表s中有40条记录，其中年龄age小于20岁的记录有15个，20岁的记录有1个，年龄大于30岁的记录有10个。执行下面的程序后，屏幕显示的结果是
SET DELETE ON
OPEN DATABASE sdb
DELETE FROM s WHERE age BETWEEN 20 AND 30
SELECT s
?RECCOUNT()
请问括号填多少，麻烦解释下原因，谢谢咯~~

Answer 1

结果为40
SET DELETE ON
隐藏了带有删除标记的记录，
DELETE 命令是删除符合条件的记录（注意只是加上删除标记，用PACK命令后，彻底删除，用RECALL命令可以恢复）
但是RECCOUNT()函数是求记录数，包括带删除标记的记录，所以答案是40。

Answer 2

这一段程序运行的结果是26。程序的意思是：逻辑删除年龄在20与30之间的记录。然后求删除后的表中的记录数。

Answer 3

填39个，
第一行set delete on 被标删除的记录被忽略不会出现,这是个设置命令，设置成on后就起作用了
第二行是打开数据库
第三行 delete from。。。。意思是从表s中删除满足条件年龄在20与30之间的数据
第四行是打开表s
第五行是打印当前表或指定表（就是你上一行select s设定的那个表s了）的记录数
表s中满足条件年龄在20与30之间的就有一个，
所以结果就是40条记录－1个满足条件的＝39了。

Answer 4

答案25，因为小于20的有15个，大于30的有10个，这里就是25个了，age BETWEEN 20 AND 30
就是年龄在20到30之间的，这些加上了删除标记，不会显示出来，只会显示小于20和大于30的，所以是25。

Answer 5

改成：
if not used('帐号')
use 帐号 in 0
endif
select 帐号
if empty(thisform.text1.value)
messagebox('用户名不能为空，请输入用户名！',32,'数据精灵')
thisform.text1.setfocus
return
endif
locate for trim(用户名)==trim(thisform.text1.value)
if not found()
messagebox("无法确认此用户，请输入正确的用户名！",32,"数据精灵")
thisform.text1.value=""
thisform.text2.value=""
else
if trim(密码)==trim(thisform.text2.value)
messagebox("登陆成功,欢迎进入系统！")
do form zhucaidan.scx
thisform.release
*Do cd.mpr &&安装菜单系统
else
messagebox("密码错误")
thisform.text2.value=""
endif
endif