7 w_student_query.txt

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

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







检索
long ll_rows
string ls_sno,ls_sname
if trim(sle_sno.text)=""and trim(sle_sname.text)=""then
    messagebox("提示","请输入学号和姓名!")
    sle_sno.setfocus()
    return
end if
ls_sno=trim(sle_sno.text)
if len(ls_sno) >0 then
    dw_student.setfilter("sno='"+ls_sno+"'")
    dw_student.filter()
    ll_rows=dw_student.retrieve()
    if ll_rows=0 then
        messagebox("提示","无记录!")
        return
    end if
    sle_sname.text=dw_student.object.sname[1]
    return
end if
ls_sname=trim(sle_sname.text)
dw_student.setfilter("sname='"+ls_sname+"'")
dw_student.filter()
ll_rows=dw_student.retrieve()
if ll_rows=0 then
    messagebox("提示","无记录!")
end if
sle_sno.text=dw_student.object.sno[1]