工资管理系统数据图_工资管理系统实训报告_工资管理系统需求规格说明书(19)

y = x - 800 If y >

0 Then adoPrimaryRS.Fields("个人所得税") = y * 0.2 Else adoPrimaryRS.Fields("个人所得税") = 0 End If 计算完应发工资和个人所得税后最终的实发工资就可以计算出来了。

实现的语句是：

adoPrimaryRS.Fields("实发工资") = x - adoPrimaryRS.Fields("个人所得税 ") 如果该月工资已经创建，则系统给出提示后，用户可以浏览该月的工资表记 录。导出到 EXCEL 表按钮的 clcik 事件：将工资记录集中的数据导出到 excel 表 中，通过 excel 表完成报表打印。

具体代码如下: Dim WithEvents adoPrimaryRS As Recordset Dim WithEvents adoPrimaryRS1 As Recordset Dim WithEvents adoPrimaryRS2 As Recordset Dim WithEvents adoPrimaryRS3 As Recordset Dim WithEvents adoPrimaryRS4 As Recordset Dim WithEvents adoPrimaryRS5 As Recordset Dim WithEvents adoPrimaryRS6 As Recordset Private Sub Command1_Click() If Text1.Text = "输入年"

Or Combo1.Text = "选择月"

Then MsgBox "年月不能为空！", vbOKOnly + vbExclamation, "警告"47西北工业大学网络教育学院毕业论文End a = b = c =Exit Sub If Text1.Text Combo1.Text a &

bSet adoPrimaryRS = New RecordsetadoPrimaryRS.Open "select * from wageInfo where 年月="

&

c &

"", db, adOpenStatic, adLockOptimistic If adoPrimaryRS.EOF Then Set adoPrimaryRS6 = New Recordset adoPrimaryRS6.Open "select * from tbInfo ", db, adOpenStatic, adLockOptimistic kk1 = adoPrimaryRS6.RecordCount Set adoPrimaryRS1 = New Recordset adoPrimaryRS1.Open "select * from ygInfo ", db, adOpenStatic, adLockOptimistic kk2 = adoPrimaryRS1.RecordCount If kk1 <>

kk2 Then MsgBox "员工信息和业务信息不一致，请检查！", vbOKOnly + vbExclamation, "警告"

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-31446-19.html