UPDATEBLOB a1 SET fsizebmp = :iblob_fsizebmp
WHERE foisno = :is_oisno;
if SqlCa.Sqlcode <> 0 Then
Rollback;
MessageBox(is_title,f_message("GEN","UNSUCCESSFUL UPDATE",{""}))
Return -1
else
Commit;
MessageBox(is_title,"Successful")
end if
selectblob fsizebmp into :lb_image from a1 where foisno = :is_oisno;
if Not f_write_pic(lb_image,ls_path + is_bmp_size) Then
MessageBox("","Error")
else
tab_1.tabpage_4.dw_oispm_process4.object.p_1.filename = ''
tab_1.tabpage_4.dw_oispm_process4.object.p_1.filename = ''
tab_1.tabpage_4.dw_oispm_process4.object.p_1.filename = ls_path + is_bmp_size
MessageBox("",is_oisno)
End if
if lb_rtn Then
if Not f_write_pic(iblob_fsizebmp,ls_path + is_bmp_size) Then
MessageBox("","Error")
else
dw_oispm_process4.object.p_2.filename = ''
dw_oispm_process4.object.p_2.filename = ''
dw_oispm_process4.object.p_2.filename = ls_path + is_bmp_size
ib_new_size = True
cb_update.Enabled = True
End if
end if
图片控件有个属性叫originalsize,大勾去掉就可以强制图片适应图片控件的大小,
定义个blob型的变量,用来保存从数据库中取出图片信息(可以用selectblob),然后再用图片控件的setpicture(blob型的变量),来显示图片.
如:
blob b
SELECTBLOB xp
INTO :b
FROM tb_xj_zxsjbxx
WHERE xh = :ls_xh;