9 w_course_query.txt

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

检索
long ll_rows
string ls_cno,ls_cname
if trim(sle_cno.text)=""and trim(sle_cname.text)=""then
    messagebox("提示","请输入课程代号和课程名称!")
    sle_cno.setfocus()
    return
end if
ls_cno=trim(sle_cno.text)
if len(ls_cno) >0 then
    dw_course.setfilter("cno='"+ls_cno+"'")
    dw_course.filter()
    ll_rows=dw_course.retrieve()
    if ll_rows=0 then
        messagebox("提示","无记录!")
        return
    end if
    sle_cname.text=dw_course.object.cname[1]
    return
end if
ls_cname=trim(sle_cname.text)
dw_course.setfilter("cname='"+ls_cname+"'")
dw_course.filter()
ll_rows=dw_course.retrieve()
if ll_rows=0 then
    messagebox("提示","无记录!")
end if
sle_cno.text=dw_course.object.cno[1]