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

叁歲伎倆 2022-06-18 06:28 320阅读 0赞

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

建一个表,表结构如下:

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,分别是浏览、更新、退出，如下图所示：

![0_13185851989xdg.gif][]

在窗体的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，分别为确定及取消。如下图所示：

![0_1318585203RHrA.gif][]

在窗体的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)

[0_13185851989xdg.gif]: /images/20220618/7da34eede83e478ba3ac14889b08aa0f.png
[0_1318585203RHrA.gif]: /images/20220618/a5539a940973486298adbc280fbf67e9.png