是青青11.txt

来自「着 是 学生管理系统的代码」· 文本 代码 · 共 37 行

11.窗口的Open事件代码：
dw_score_student.settransobject(sqlca)
sle_sno.setfocus()
"检索"按钮（cb_retrieve）的事件代Clicked码。
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_scroe_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_scroe_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
"下一个"按钮（cb_next）的Clicked事件代码:
sle_sno.text=""
sle_sname.text=""
sle_sno.setfocus()
“退出”按钮（cb_exit）的Clicked事件代码：
close(parent)