度量快速开发平台中,字段可以设置为附件类型,设置为附件类型的字段,在上传了数据后,字段中保存的数据格式是这样:
   32位附件码|附件1名称
  32位附件码|附件1名称\附件2名称
   32位附件码|附件1名称\附件2名称\附件3名称

上面格式可以看到一个 附件 字段设置后,可以上传多个附件。根据存储数据格式情况,我们建议,附件这个字段长度尽量设置长,比如长度为1000或者2000,这样上传几个附件也不会提示字符超长。

度量快速开发平台中,附件字段是加密上传到服务器端的,数据库中实际上只记录了服务器上加密文件的指针位置。因此,我们要自己构建功能实现附件的查看和下载,就需要有专门的方法来实现。度量快速开发平台中也已经提供了该方法。

下面示例演示了读取业务中一条数据的附件的情况:

dim sql=""
sql="select  file_name,floder,file_save_name from sa_attachfiles where attachcode='32位附件码'"
dim dt = ExecuteSelect(sql)
网格部件1.DataTable=dt
网格部件1.RefreshDataByDataTable()


上面网格部件中,就列出该条业务数据的附件数据,有可能有多条附件数据。

在网格部件的双击事件上写:

DownloadFile(网格部件1.GetFocusedRowValue("FILE_NAME"),网格部件1.GetFocusedRowValue("FILE_SAVE_NAME"),1,网格部件1.GetFocusedRowValue("FLODER"))

就能下载与打开附件了。

downLoadFile 函数:
'第一个参数:本地文件名。如:文件.doc,即保存到本地的文件名。
'第二个参数:服务器上的文件名
'第三个参数:服务器上的文件目录,默认值为  1 
'第四个参数:服务器上的子目录名称,没有则传空值
DownloadFile("测试.xls","23b4709f0b034ef7a55f4c21ad365481.at",1,"文件目录")

原文地址:

转载请注明出处:

撰写人:度量科技