12.w_score_query_course.txt

pb开发学生成绩管理系统代码

open代码
dw_score_student.settrans(sqlca)
dw_score_student.settransobject(sqlca)







检索
string ls_sno,ls_sname
long ll_rows 
ls_sno=trim(sle_cno.text)
ls_sname=trim(sle_cname.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_cno.text=dw_score_student.object.sc_cno[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_cname.text=dw_score_student.object.student_sname[1]
end if

下一个

sle_cno.text=""
sle_cname.text=""
sle_cno.setfocus()