with thisform
sele * from students where 学号=.text1.text and 姓名=.text2.text and 班别=.text3.text and 性别=.text4.text and 年龄=val(.text5.text) and 籍贯=.text6.text into curs temp
endwith
if recc()>0
messagebox("记录存在!")
return
else
messagebox("新记录!")
endif
.......