Access快速开发平台--《进销存管理系统》销售订单待审核数量为例，添加待处理事项提醒

时　间:2023-06-25 13:45:47
作　者:杨雪   ID：42182  城市：南京
摘　要:分享一个在快速开发平台中添加待处理事项提醒的文章。
正　文:

      以Access快速开发实战教程《进销存管理系统》的销售订单待审核数量为例：

查询数据：

效果图：

步骤一：用数据源建一个查询

步骤二：在图中模块刷新事件中添加如下代码，注意横线画出的地方。

'销售待审核订单
    Dim rst1 As Object: Set rst1 = OpenADORecordset("Select * FROM qry_Sys_PendingList_销售待审核", , CurrentProject.Connection)
    Do Until rst1.EOF
        If DCount("*", "SysLocalPendingList", "Name='" & rst1!Name & "'") > 0 Then
            ClientRunSQL "Update SysLocalPendingList SET Num=" & rst1!Num & " Where Name='" & rst1!Name & "'"
        Else
            ClientRunSQL "Insert INTO SysLocalPendingList(Name,Num) VALUES('" & rst1!Name & "'," & rst1!Num & ")"
        End If
        rst1.MoveNext
    Loop
    rst1.Close
    Me.Requery

步骤三：图表中添加销售NameLocal  、 NavMenu 的值

步骤四：销售订单主窗体的加载事件中添加如下代码。

 If GetParameter("PendingListArg") = "销售待审核订单" Then
            .QueryConditions = LoadString("销售待审核订单")
            .WhereSQL = "状态='待审核'"
            .RunQuery
            SetParameter "PendingListArg", dbText, ""
        End If

最终效果图：

在待处理事项提醒中点击打开销售订单菜单，显示效果。

直接打开销售订单菜单，显示效果：