611
社区成员
发帖
与我相关
我的任务
分享数据窗口中的图片控件如何自定义显示图片
在员工的资料页面的数据窗口中放置图片控件，怎么使数据窗口中的图片控件显示员工的照片呢？在数据窗口画板中好像不能编程吧，在窗口画板中怎么写代码控制数据窗口中的图片控件呢？
...全文
请发表友善的回复…
发表回复
iamdohero 2003-09-11
- 打赏
- 举报
图片存放在数据库中（ASA9）。
需要实现：点击一按钮，从数据库中取出BLOB类型数据，然后P_1.setpicture(BLOB),才在图片控件中显示图片。怎么做呢？
需要实现：点击一按钮，从数据库中取出BLOB类型数据，然后P_1.setpicture(BLOB),才在图片控件中显示图片。怎么做呢？
iamdohero 2003-09-11
- 打赏
- 举报
从我上面的代码可以看出图片是存在数据库中的啊
jinqiang520 2003-09-11
- 打赏
- 举报
要是图片的路径变了怎么办，能不能把图片直接存入数据库，从数据库取出
iamdohero 2003-09-11
- 打赏
- 举报
白兔的方法可以
无名的方法试了有错误，看看是不是我代码写错了：
blob lb_pic
long l_row
string j_id
l_row = dw_job_seeker.getrow()
j_id = dw_job_seeker.getitemstring(l_row,'s_id')
selectblob photo
into :lb_pic
from job_seeker
where s_id = :j_id;
if not isnull(lb_pic) then
dw_job_seeker.Object.p_pic.Filename="D:\employment.jpg" //可行
dw_job_seeker.Object.p_pic.setpicture(lb_pic) //不行
else
messagebox('提示信息','未存入照片！ ')
end if
无名的方法试了有错误，看看是不是我代码写错了：
blob lb_pic
long l_row
string j_id
l_row = dw_job_seeker.getrow()
j_id = dw_job_seeker.getitemstring(l_row,'s_id')
selectblob photo
into :lb_pic
from job_seeker
where s_id = :j_id;
if not isnull(lb_pic) then
dw_job_seeker.Object.p_pic.Filename="D:\employment.jpg" //可行
dw_job_seeker.Object.p_pic.setpicture(lb_pic) //不行
else
messagebox('提示信息','未存入照片！ ')
end if
thelazyman 2003-09-11
- 打赏
- 举报
楼上的方法不错！
也可以：
直接用SelectBlob取出数据，然后
dw_1.Object.p_1.setpicture(BLOB)
也可以：
直接用SelectBlob取出数据，然后
dw_1.Object.p_1.setpicture(BLOB)
klbt 2003-09-11
- 打赏
- 举报
用SelectBlob取出数据，存到一个临时文件中，最后，把该临时文件名，赋值给数据窗口中的图片文件名。
dw_1.Object.p_1.Filename=path+"temp1.bmp"
dw_1.Object.p_1.Filename=path+"temp1.bmp"
