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

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

 

问题：

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