CSDN博客

img changechange

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

发表于2004/1/25 21:32:00  850人阅读

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

 

问题:

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

相关博文

我的热门文章

img
取 消
img