740
社区成员
发帖
与我相关
我的任务
分享
String num,name
String rrnum,rrname,rrsex,rrage,rrdno
num=snum.Text
name=sname.Text
int n,msg
if cbx_1.checked=TRUE then
else
if len(num)=0 and len(name)=0 then
messagebox("ERROR","请输入要查询的条件!")
else
num="%"+num+"%"
declare q_num cursor for
select sno,sname,sex,age,dno
from s
where sno like:num;
open q_num;
n=0
do while TRUE
fetch q_num into:rrnum,:rrname,:rrsex,:rrage,:rrdno;
if SQLCA.SQLCode=100 then
if n=0 then
messagebox("结果","没有符合条件的记录!")
else
messagebox("结果","符合条件的记录已经显示完毕!")
end if
exit
end if
rsno.Text=rrnum
rname.Text=rrname
rsex.Text=rrsex
rage.Text=rrage
rdno.Text=rrdno
n=n+1
messagebox("查询","这是第"+string(n)+"条符合条件的记录!")
msg=messagebox("查询","继续显示符合条件的记录么?",Question!,YesNo!,1)
if msg=2 then
exit
end if
loop
close q_num;
end if
String num,name
String rrnum,rrname,rrsex,rrage,rrdno
num=snum.Text
name=sname.Text
int n,msg
if cbx_1.checked=TRUE then
else
if len(num)=0 and len(name)=0 then
messagebox("ERROR","请输入要查询的条件!")
else
num="%"+num+"%"
declare q_num cursor for
select sno,sname,sex,age,dno
from s
where sno like:num;
open q_num;
n=0
do while TRUE
fetch q_num into:rrnum,:rrname,:rrsex,:rrage,:rrdno;
if SQLCA.SQLCode=100 then
if n=0 then
messagebox("结果","没有符合条件的记录!")
else
messagebox("结果","符合条件的记录已经显示完毕!")
end if
exit
end if
rsno.Text=rrnum
rname.Text=rrname
rsex.Text=rrsex
rage.Text=rrage
rdno.Text=rrdno
n=n+1
messagebox("查询","这是第"+string(n)+"条符合条件的记录!")
msg=messagebox("查询","继续显示符合条件的记录么?",Question!,YesNo!,1)
if msg=2 then
exit
end if
loop
close q_num;
end if //这里好像是少了个end if
end if