简单叙述动态公式的工资系统的计算方式数据库教程 -电脑资料

    动态

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

    问题：

    简单叙述 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 站长收藏