11.w_score_query_student.txt

来自「pb开发学生成绩管理系统代码」· 文本 代码 · 共 48 行

open代码

dw_score_student.settrans(sqlca)
dw_score_student.settransobject(sqlca)






检索
string ls_sno,ls_sname
long ll_rows 
ls_sno=trim(sle_sno.text)
ls_sname=trim(sle_sname.text)
if ls_sno="" and ls_sname="" then
messagebox("提示","请输入学号或姓名!")
return
end if
if ls_sno=""then
dw_score_student.setfilter("student_sname='"+ls_sname+"'")
dw_score_student.filter()
ll_rows=dw_score_student.retrieve()
if ll_rows=0 then
messagebox("提示","无记录!")
else
sle_sno.text=dw_score_student.object.sc_sno[1]
end if
return
end if
dw_score_student.setfilter("sc_sno='"+ls_sno+"'")
dw_score_student.filter()
ll_rows=dw_score_student.retrieve()
if ll_rows=0 then
messagebox("提示","无纪录!")
else
sle_sname.text=dw_score_student.object.student_sname[1]
end if


下一个


sle_sno.text=""
sle_sname.text=""
sle_sno.setfocus()