新建 文本文档.txt

这是一个科研成果管理系统,适用于中小型管理.

if dw_1.update()=1 then
	commit;
else
	rollback;
	return(0)
end if
if isnull(ib_emp_pic)=false then
	string ls_code
	ls_code=dw_1.getitemstring(1,"em_code")
	updateblob employees
	set picture=:ib_emp_pic
	where em_code=:ls_code;
	if sqlca.sqlnrows<=0 then
		messagebox("error!","图片存储错误!")
		return(0)
	end if
end if
long ll_row
ll_row=dw_1.retrieve()
ls_code=dw_1.getitemstring(1,"em_code")
long ll_findnum
ll_findnum=dw_1.find("em_code='"+ls_code+"'",1,ll_row)
dw_1.scrolltorow(ll_findnum)