簡單敘述動態公式的工資系統的計算方式

 

問題：

簡單敘述 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 站長收藏