您的位置：首页 > 其它

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

2004-01-25 21:32 274 查看

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

问题：

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

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航