把网页分享给身边的朋友
关于3.0实现发货单和配货汇总单中的图片显示问题的解决方案(给大家做个参考)
世界树之叶 微博首页
头像
等级: 实习生 实习生
身份: 会员 会员
帖子: 10
经验: 26
威望: 105
称号:
注册时间: 2013-08-30
最后登陆: 2017-02-22
收藏 加为好友 消息 引用 修改 回复 1楼

研究了打印模板一天,终于给我研究出来了。

下面我就以发货单为例子,讲讲如何实现图片打印。

 

效果如上图。

步骤如下:

1、确定下载的图片名字和商品编号相同,也就是说和打印模板中的字段TradeSnd_S."GoodsNO"相同,比如上图中的商品编号是:KA7K001093009,那么图片的名字就是KA7K001093009.jpg

2、确定图片的存放位置,本例子中我将图片都存放在d:\

3、在打印模板中的编号后面增加一个图片对象,并在其事件中添加一个OnBeforePrint事件,事件代码是

picture1.filelink:='d:\'+trim(memo2.text)+'.jpg';

其中picture1是这个图片对象的控件名,d:\是存放图片的目录名(也就是文件夹名),memo2是picture1左边商品编码的控件名。

全部代码如下图

上面用的语言是pascal

这样就ok了,有什么问题的可以联系我

------该帖子于2013-9-13 13:01:37被作者编辑过------

签名
Time:2013-9-13 10:43:07 IP:122.228.180.246
lgjwell
头像
等级: 正式员工 正式员工
身份: 会员 会员
帖子: 82
经验: 1076
威望: 122
称号:
注册时间: 2011-11-11
最后登陆: 2014-08-20
加为好友 消息 引用 修改 回复 2楼

马克一下有空再研究研究

签名
Time:2013-9-13 16:14:51 IP:113.72.154.110
msyydcg
头像
等级: 实习生 实习生
身份: 会员 会员
帖子: 26
经验: 64
威望: 100
称号:
注册时间: 2012-10-17
最后登陆: 2016-10-29
加为好友 消息 引用 修改 回复 3楼
回复:1楼 世界树之叶
楼主,你好,按照你这么说的话,不需要去执行数据库,可否保存你的发货单文档发一份文件到我的邮箱,谢谢,704237298@qq.com
签名
Time:2013-9-26 5:35:17 IP:221.234.44.133
洛克体育用品
头像
等级: 实习生 实习生
身份: 会员 会员
帖子: 6
经验: 12
威望: 100
称号:
注册时间: 2012-08-20
最后登陆: 2013-10-20
加为好友 消息 引用 修改 回复 4楼
楼主,好贴,顶一下!我想请教一下你!?这个方面的内容。。。
签名
Time:2013-10-6 16:07:37 IP:61.164.182.130
泰州人家 微博首页
头像
等级: 助理 助理
身份: 版主 版主
帖子: 884
经验: 19263
威望: 168
称号:
注册时间: 2009-02-10
最后登陆: 2018-09-07
加为好友 消息 引用 修改 回复 5楼
牛X
签名
畅捷网店管家客户服务QQ群:226017712 新浪微博:http://weibo.com/cntzrj 《网店管家》爱好者淘宝帮派地址(欢迎自学):http://bangpai.taobao.com/group/1340092.htm QQ:1034619058 E-Mail:cntzrj[at]gmail.com Web:http://tzrj.taobao.com/
Time:2013-10-7 21:43:37 IP:112.83.190.64
阳光网驿
头像
等级: 正式员工 正式员工
身份: 会员 会员
帖子: 166
经验: 1784
威望: 100
称号:
注册时间: 2011-05-16
最后登陆: 2015-01-18
加为好友 消息 引用 修改 回复 6楼

聪明!

签名
Time:2013-10-8 2:56:23 IP:110.52.182.51
世界树之叶 微博首页
头像
等级: 实习生 实习生
身份: 会员 会员
帖子: 10
经验: 26
威望: 105
称号:
注册时间: 2013-08-30
最后登陆: 2017-02-22
加为好友 消息 引用 修改 回复 7楼
回复:3楼 msyydcg
已发
签名
Time:2013-10-11 15:35:09 IP:122.228.180.246
世界树之叶 微博首页
头像
等级: 实习生 实习生
身份: 会员 会员
帖子: 10
经验: 26
威望: 105
称号:
注册时间: 2013-08-30
最后登陆: 2017-02-22
加为好友 消息 引用 修改 回复 8楼
回复:4楼 洛克体育用品
有什么不明白的可以加我微信:xthj2004
签名
Time:2013-10-11 15:36:04 IP:122.228.180.246
洛克体育用品
头像
等级: 实习生 实习生
身份: 会员 会员
帖子: 6
经验: 12
威望: 100
称号:
注册时间: 2012-08-20
最后登陆: 2013-10-20
加为好友 消息 引用 修改 回复 9楼
回复:8楼 世界树之叶
亲,可否发一份您设计好的发货单模版呢!谢谢!我的邮箱是:364967918@qq.com
签名
Time:2013-10-12 13:17:19 IP:61.164.182.130
世界树之叶 微博首页
头像
等级: 实习生 实习生
身份: 会员 会员
帖子: 10
经验: 26
威望: 105
称号:
注册时间: 2013-08-30
最后登陆: 2017-02-22
加为好友 消息 引用 修改 回复 10楼
回复:9楼 洛克体育用品
已发
签名
Time:2013-10-12 13:57:29 IP:122.228.180.246
feeling
头像
等级: 实习生 实习生
身份: 会员 会员
帖子: 1
经验: 2
威望: 100
称号:
注册时间: 2014-03-19
最后登陆: 2014-03-19
加为好友 消息 引用 修改 回复 11楼
楼主能发一份设计好的可打印图片的发货单模版给我吗!谢谢!邮箱:147899450@qq.com
签名
Time:2014-3-19 20:20:40 IP:111.165.61.114
labsky
头像
等级: 实习生 实习生
身份: 会员 会员
帖子: 5
经验: 16
威望: 104
称号:
注册时间: 2017-09-06
最后登陆: 2017-09-06
加为好友 消息 引用 修改 回复 12楼

procedure Picture1OnBeforePrint(Sender: TfrxComponent);
begin
  if FileExists( <GoodsPic."原图"> ) then
  begin
    Picture1.LoadFromFile( <GoodsPic."原图"> );
      
  end else
  begin
    Picture1.Picture := Picture2.Picture;                                                                                           
  end;            
          
end;

begin

end.
大神  帮我看看  我这样改   为什么只能打印一行呢  下面几行就没有图形了
签名
Time:2017-9-6 17:06:01 IP:171.214.206.42
[回复]
内容*
验证码* 看不清楚,点击更换 输入图片中看见的4位字符.
发表回复需要[登陆]