sqlca.autocommit = true
IF fh <> -1 THEN
IF flen > 32765 THEN
IF Mod(flen,32765) = 0 THEN
loops = flen/32765
ELSE
loops = (flen/32765) + 1
END IF
ELSE
loops = 1
END IF
FOR i = 1 to loops
bytes_read = FileRead(fh, b)
emp_id_pic = emp_id_pic + b
NEXT
FileClose(fh)
FileRead(fh, emp_id_pic)
UPDATEBLOB Employee SET photo = :emp_id_pic
WHERE employee.empid = :empid;
if sqlca.sqlcode = 0 then
COMMIT;
messagebox( '提示, "员工相片保存成功! ")
p_1.setpicture(emp_id_pic)
else
rollback;
messagebox( '提示, "员工相片保存失败! ")
end if
END IF
sqlca.autocommit =false
setpointer(arrow!)