☆灰色轨迹☆

量身定制开发各种管理软件,如:人事管理,客户管理,库存管理,POS系统,进销存管理等各种管理软件,有需要的请联系QQ:543169042...

PB中数据库字段中存取图片的实例

 

最近有些网友问及在数据库的字段来存取图片,下面我将曾经做的一个实例放在下面,希望能给大家有帮助.

建一个表,表结构如下:

id numberic 8,img_text varchar 20,picture image . id为主键

在PB中新建一个窗口,保存为w_image_test,在窗口中放置一个DW控件dw1,一个IMAGE控件p_1,3个按钮cb_1,cb_2,cb_3,分别是浏览、更新、退出,如下图所示:

在窗体的open事件中,代码如下:

dw_1.settransobject(sqlca)
dw_1.retrieve()

在dw_1的clicked事件中

if row >0 then
long ll
ll=this.object.id[row]
ll_id=ll
wf_display_image(ll)
end if

在dw_1的retrieveend事件中

if rowcount >0 then
this.scrolltorow(1)
long ll
ll=this.object.id[1]
ll_id=ll
wf_display_image(ll)
end if

建一个函数wf_display_image,参数为as_id 类型numeric

Blob Emp_id_pic
SELECTBLOB picture
INTO :Emp_id_pic 
FROM img_test
WHERE id=:as_id
;
if isnull(len(emp_id_pic)) or len(emp_id_pic)=0 then 
else
p_1.SetPicture(Emp_id_pic)
end if

在cb_1的clicked事件中

openwithparm(w_picture,'1',parent)
gs_commodity s_return
s_return=message.powerobjectparm
string ls_filename
ls_filename=s_return.picture_name
is_filename=ls_filename
//(以上代码中引用了一个结构,结构中picture_name 类型为string,可以不用结构,直接返回一个字符串。)


在cb_2的clicked事件中

UPDATEBLOB img_test SET picture = :iEmp_id_pic
WHERE id = :ll_id;
IF sqlca.SQLNRows > 0 THEN
COMMIT ;
messagebox('a','ok')
Else
messagebox('b','cancel')
end if


再新建一个窗体,用于查找要保存的图片文件,将新窗体保存为w_picture,在该窗体中放上一个listbox控件lb_file_list,一个image控件p_picture,2个按钮cb_ok,cb_cancel,分别为确定及取消。如下图所示:

在窗体的open事件中

lb_file_list.dirlist("c:\picture\*.jpg",0)
在lb_file_list的selectionchanged事件中
is_update_type='1'
is_newfilename=lb_file_list.selecteditem()
p_picture.picturename="c:\picture\" + is_newfilename
在cb_ok的clicked事件中
gs_commodity s_return
s_return.commodityid=is_commodityid
s_return.picture_name=is_newfilename
s_return.update_type=is_update_type
long l_1
l_1 = closewithreturn(parent ,s_return)


在cb_cancel的clicked事件中

is_update_type='0'
gs_commodity s_return
s_return.commodityid=is_commodityid
s_return.update_type=is_update_type
closewithreturn(parent,s_return)


阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/lijianhe043/article/details/6874255
个人分类: pb实例
想对作者说点什么? 我来说一句

pb动态添加数据库字段

2010年03月11日 328B 下载

java 数据库图片文件的存取

2010年06月21日 59KB 下载

PB 存取数据库图片

2009年06月08日 42KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭