open代碼

dw_score_student.settrans(sqlca)
dw_score_student.settransobject(sqlca)






檢索
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("提示","請輸入學(xué)號或姓名!")
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_sno.text=dw_score_student.object.sc_sno[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("提示","無紀(jì)錄!")
else
sle_sname.text=dw_score_student.object.student_sname[1]
end if


下一個


sle_sno.text=""
sle_sname.text=""
sle_sno.setfocus()