【源码示例】上传与显示——再谈图片在报表与窗体中的应用

roych

       尽管OLE对象类型（长二进制）可以存放图片，我还是不赞成在数据表中存储图片对象的，因为这样会引起数据库体积膨胀。而实际上图片的应用也是非常广的，例如人事管理方面。为此我们只能进行“迂回”处理（详见【源码分享】直接与迂回——浅谈图片在报表中的使用）。
       大家可以根据下面几点来理解这个实例：
       1、利用FileDialog对象的文件拾取器获取客户端文件路径（并同时获取文件名），并实现多选。
       2、用FileCopy方法，把客户端图片复制到后台数据库文件夹。
       3、用ADO记录集，把存放在后台数据库的图片路径字符串追加到数据表中。
       4、通过设置窗体或者报表中图片路径的方法在窗体或者报表中显示图片。

       附件说明：              

• 由于原数据表未保存数据，因此需要先在窗体界面上传照片，填写好数据之后，报表才会显示图片。
• 客户端为源文件夹 ，服务端为目标文件夹 。
• 2012-7-17，针对Mid函数可能会出错的情况重新写了代码。
• 2013-1-27，加上错误处理，并改用ADO来处理数据。
• 2019-1-5，修改部分bug，清除2003版本的datetimepicker（新版Access默认不再安装mscomctl）。
  

      

roych

拉登需要我 发表于 2012-9-4 14:21
您好！我按照附件的指令做了一个报表，但是不知道为什么图片就是显示不出来，有空帮我看一下吗？谢谢

仔细看了你的附件，函数是写了，问题在于并没有把这个函数引用到事件当中。如图所示，在主体（Detail）的格式化事件（OnFormat）中，加入以下语句=InsertPic()，即可显示。

roych

hxx3970 发表于 2018-8-25 14:48
报表中没有图片

需要先在主窗体上上传照片了，报表才有数据。
——源文件是没有任何记录的。