《盟威软件快速开发平台》在线帮助中心

在数据库管理系统中，尤其是对于一些基础资料，可能并不仅仅是文字信息，还可能带有相应的附件（尤其是图片）。对于这种情况，我们的通常做法是将文件放在共享服务器上，然后在数据库中仅记录相应的文件路径，需要的时候通过程序自动调用并进行管理维护。基于该实现思路，快速开发平台提供了一个通用的附件管理模块，让你不必再为附件的添加、修改、删除、查看等功能的实现费脑筋，而只需要简单的调用即可。

该附件管理模块可以和任意数据表进行结合，对一个数据表甚至还可以进行多重展示（如产品是机器，需要将部件分别管理）。

效果预览

附件服务器类型

可以系统设置中进行设置，使用共享文件夹或FTP服务器来存储附件。

使用方法

该模块使用方法相当简单，只需要编辑窗体中添加一个子窗体控件，控件名修改为“sfrAttachments”，其“源对象”属性设为“SysFrmAttachments”，然后在加载和保存数据时，添加一行调用代码即可。

调用函数说明

'函数用途：加载指定附件数据。注意！LoadAttachmentData 不但用于加载已有附件，还用于对附件子窗体进行初始化处理，所以新增模式下也要调用！不能和 LoadRecord 放在一起！
'参数说明：DataCategory     必需的，和数据表相关的标识，比如“产品表”该参数可以设为“产品照片”，“员工表”该参数可以设为“员工照片”等 。可以任意指定，但一旦确定了就不能改，否则可能会导致数据和文件不能正常关联！
'         DataID           必需的，设为数据表中的唯一标识 ID 字段的值，如“产品表”该参数对应“产品编号”字段，“员工表”该参数对应“工号”字段。新增模式下可以为Null，该值同样一旦确定就不能改，否则可能会导致数据和文件不能正常关联！
'         ActiveConnection 可选的，从数据库取数据时用到的 ADO 连接对象，如果未使用事务处理，可以省略该参数。
Public Function LoadAttachmentData _
    ( _
          DataCategory As String _
        , DataID As Variant _
        , Optional ActiveConnection As Variant _
    )

'函数用途：保存指定附件数据
'参数说明：参数和 LoadAttachmentData 函数中的参数意义一样。
Public Function SaveAttachmentData _
    ( _
          DataCategory As String _
        , DataID As Variant _
        , Optional ActiveConnection As Variant _
    )

代码调用示例

在版本v2.6.2.505中，InitData函数需要加入一行代码：

Public Function InitData()
    ClearControlValues Me
'由于新增模式下保存后Edit窗体不会关闭，所以这里需要再次调用进行重新初始化
    Call Me.sfrAttachments.Form.LoadAttachmentData("商品照片", Me!商品ID)'“商品照片”不能为变量
End Function

Private Sub Form_Load()
    On Error GoTo ErrorHandler
    
    Dim cnn: Set cnn = CurrentProject.Connection
    
    '编辑窗体的其它加载事件代码，此处省略
    
    If Nz(Me.OpenArgs) <> "" Then
        LoadRecord Me, "SELECT * FROM 商品信息表 WHERE 商品代码='" & Me.OpenArgs & "'"
        '再次强调，LoadAttachmentData 不能在这里调用！
    End If
    '
    '---------------------------------------------------------------------------------------------
    '通过这一行代码的调用实现附件的加载
    '不论是新增还是修改，都要调用 LoadAttachmentData 函数，因为它不光是用来加载已有附件，还用来对附件窗体进行初始化处理。
    '第1个参数 Category (即下方的"商品照片")必须是一个固定不变的字符串，一般可以用功能模块的名称，不能是变量，否则一旦变化就会导致数据和附件关联不上！
    '第2个参数 DataID 应该取数据的主键，即能确定数据唯一性的值。最好是一生成就不会被修改的值，否则也可能导致数据和附件关联不上！
    '第3个参数 ActiveConnection 如果没有可以省略，默认使用CurrentProject.Connection

    Call Me.sfrAttachments.Form.LoadAttachmentData("商品照片", Me!商品ID, cnn)'“商品照片”不能为变量

    '使用不同的子窗体，并且这里第一个参数设成不一样，可以实现多重展示，即同时可以显示多个图片
    Call Me.sfrAttachments2.Form.LoadAttachmentData("商品照片_旧款", Me!商品ID, cnn) '“商品照片_旧款”不能为变量
    '---------------------------------------------------------------------------------------------
    
ExitHere:
    Exit Sub

ErrorHandler:
    MsgBoxEx Err.Description, vbCritical
    Resume ExitHere
End Sub

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler
    
    Dim cnn: Set cnn = CurrentProject.Connection

    '编辑窗体的其它保存按钮单击事件代码，此处省略
    
    '---------------------------------------------------------------------------------------------
    '通过这一行代码的调用实现附件的保存
    Call Me.sfrAttachments.Form.SaveAttachmentData("商品照片", Me!商品ID, cnn)'“商品照片”不能为变量

    '多重展示时，将第二个子窗体的数据也进行保存
    Call Me.sfrAttachments2.Form.SaveAttachmentData("商品照片_旧款", Me!商品ID, cnn) '“商品照片_旧款”不能为变量
    '---------------------------------------------------------------------------------------------
    
    Form_frm商品信息.RefreshDataList
    MsgBoxEx "保存成功！" & vbCrLf & strMsg, vbInformation
    
    If Me.DataEntry Then
        ClearControlValues Me
    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
    End If
    
ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub
    
ErrorHandler:
    MsgBoxEx Err.Description, vbCritical
    Resume ExitHere
End Sub

加入版本：v2.0.1

修订记录

2021-06-03 v2.6.0 增加 FTP 支持，可将附件保存到 FTP 服务器上。