概述

待处理事项提醒功能，用于让用户方便即时了解有哪些需要处理的事项，在最短时间内完成处理，提高工作效率。

默认情况下该提醒列表会每间隔 1 分钟自动刷新，也可以点击右上的刷新图标手动立即刷新。

添加提醒事项

通过联合查询 qry_Sys_PendingList 来定义所有要处理的事项。该查询中 SQL 语句规范如以下示例代码所示：

SELECT 'Need to modify password' AS Name, COUNT(*) AS Num
FROM Sys_Users
WHERE Password='B11CFC4B68DF3C049F3068F258E1FCF6'

UNION ALL

SELECT '待审核采购订单' AS Name, COUNT(*) AS Num
FROM 采购订单表
WHERE 状态='待审核'

UNION ALL

SELECT '待完成采购订单' AS Name, COUNT(*) AS Num
FROM 采购订单表
WHERE 状态='待完成'
        

自定义提醒事项打开的关联窗体

在主界面的待处理事项提醒中，可以点击相应的提醒事项，打开关联窗体。关联窗体的定义，需要在 SysLocalPendingList 表中定义。

在 qry_Sys_PendingList 查询中定义完提醒事项之后，需要重新打开主界面，此时该事项会在 SysLocalPendingList 表中自动生成一条记录（也可以手动添加记录，Name 字段的值 要和查询中对应）。在相应记录的 FormName 字段中，填写相应窗体名称后即可。

通过待处理事项提醒打开的窗体，可以通过 OpenArgs 参数进行判断，是否等于事项名称（即对应 Name 字段的值），然后加以处理。比如设置默认筛选或查询。例如：

Private Sub Form_Load()
    Set mclsQuery = New GeneralQuery
    With mclsQuery
        .QueryForm = Me.sfrQuickQuery
        .DataForm = Me.sfrList
        .AddAllFields
        
        '如果是从待处理事项中打开此窗体，则自动设置查询，只显示和该事项相关的数据。
        If Nz(Me.OpenArgs, "") = "待审核采购订单" Then
            .WhereSQL = "状态='待审核'"
            .QueryConditions = "待审核采购订单"
            .RunQuery
        End If

    End With
    Me.Recalc
End Sub

        

修订记录

1. 2019-07-08 2.5.0 加入