|
问题：
|
简单叙述 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 |
|
| |
