yu (7) .txt

着 是 学生管理系统的代码

窗口的Open事件代码：
dw_student.settransobject(sqlca)
“搜索”按钮（cb_retrieve)的Clicked事件代码：
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=dwstudent.retrieve()
if ll_rows=0 then
    messagebox(“提示”，“无记录！”)
end if
sle_sno.text=dw_student.object.sno[1]
“退出”按钮（cb_exit)的Clicked事件代码：
close(parent)