//存入图片
li_FileNum=getfileopenname("打开图片",ls_road,ls_filename, "BMP", "BMP Files (*.BMP),*.BMP,"+"JPEG(*.JPEG;*.JPG),*.JPG;*.JPEG")
if li_FileNum=1 then
ll_row=tab_1.tabpage_1.dw_1.getrow()
li_userid=tab_1.tabpage_1.dw_1.getitemnumber(ll_row,'fuserid')
li_FileNum=fileopen(ls_road,StreamMode!,read!,shared!)//返回打开文件的句柄
if li_FileNum>0 then
ll_FLength=fileread(li_FileNum,lb_image_1)//将句柄赋给变量BLOB型IMNGE
if ll_FLength>0 then
do while ll_FLength>0
lb_image_2=lb_image_2+lb_image_1
ll_FLength=fileread(li_FileNum,lb_image_1)
loop
SQLCA.AUTOCOMMIT = TRUE;
updateblob sys_user
set fimage=:lb_image_2
where fuserid=:li_userid;
SQLCA.AUTOCOMMIT = FALSE;
if sqlca.sqlcode=0 then
p_1.setpicture(lb_image_2)
end if
//读出图片更简单
selectblob fimage into :lb_image from sys_user where fuserid=:i_userid;