简单叙述动态公式的工资系统的计算方式

最新推荐文章于 2025-05-07 07:15:12 发布

changechange

最新推荐文章于 2025-05-07 07:15:12 发布

阅读量1.1k

点赞数

本文链接：https://blog.youkuaiyun.com/changechange/article/details/18591

版权

发布、打包、应用项目专栏收录该内容

3 篇文章

订阅专栏

简单叙述动态公式的工资系统的计算方式

问题：

简单叙述 Access 动态公式的工资系统的计算方式

回答：

以下方法显示了最简单的动态公式系统
如果用于实际，你还可以将公式分组，将人员分部门不同组对应不同部门的人员等等。
当然，还涉及到窗体界面编程的内容，也可以通过用代码更改控件的数据源来解决。

Private Sub UpdateFormula()
    'tbl_pay 表用于存放工资资料，有很多类似 FLD1 FLD2 FLD3 ... 这样的货币型字段
    'tbl_formula 表用于存放计算公式
    'tbl_formula 表有几个字段
    'FieldName 字段用于存放 tbl_pay 中有的字段名
    'formula 字段用于存放公式，类似  FLD1*FLD2+FLD3 这样的公式，前面不要放 "=" 符号
    'CanPrint 字段用于标识是否允许打印

    Dim strSql As String
    Dim Rs As New ADODB.Recordset
    Dim Conn As New ADODB.Connection
    Set Conn = CurrentProject.Connection
    Rs.Open "select * from tbl_formula where CanPrint=1 order by ID", Conn, adOpenDynamic, adLockBatchOptimistic
    Do Until Rs.EOF
        If IsNull(Rs("formula")) = False Then
            Conn.Execute "update tbl_pay set " & Rs("FieldName") & "=" & Rs("formula")
        End If
        Rs.MoveNext
    Loop
    Rs.Close
    Set Rs = Nothing
End Sub

http://www.access911.net 站长收藏