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

0 Then adoPrimaryRS.Fields("个人所得税") = Y * 0.2 Else adoPrimaryRS.Fields("个人所得税") = 0 End If adoPrimaryRS.Fields("

实 发 工 adoPrimaryRS.Fields("个人所得税") adoPrimaryRS.Fields("年月") = c adoPrimaryRS1.MoveNext adoPrimaryRS2.Close adoPrimaryRS3.Close adoPrimaryRS4.Close adoPrimaryRS5.Close Loop adoPrimaryRS1.Close adoPrimaryRS.Update Else MsgBox "该 月工资 表已经 创建 ，确认 开始浏 览！", vbOKOnly + vbExclamation, "警告"

End If50资")=X-西北工业大学网络教育学院毕业论文adoPrimaryRS.Close Set adoPrimaryRS = New Recordset adoPrimaryRS.Open "select wageInfo. 员 工 编 号 ,ygInfo. 姓 名,wageInfo.基本工资,wageInfo.岗位津贴,wageInfo.加班津贴,wageInfo.考 勤 工 资 ,wageInfo. 行 政 性 扣 款 ,wageInfo. 应 发 工 资 ,wageInfo. 个 人 所 得 税,wageInfo.实发工资,wageInfo.年月 from wageInfo,ygInfo where wageInfo. 员 工 编 号 =ygInfo. 员 工编 号 and 年月 ="

&

c &

"", db, adOpenStatic, adLockOptimistic With myFlexGrid .Rows = 2 .CellAlignment = 4 .TextMatrix(1, 0) = "员工编号"

.TextMatrix(1, 1) = "姓名"

.TextMatrix(1, 2) = "基本工资"

.TextMatrix(1, 3) = "岗位津贴"

.TextMatrix(1, 4) = "加班津贴"

.TextMatrix(1, 5) = "考勤工资"

.TextMatrix(1, 6) = "行政性扣款"

.TextMatrix(1, 7) = "应发工资"

.TextMatrix(1, 8) = "个人所得税"

.TextMatrix(1, 9) = "实发工资"

.TextMatrix(1, 10) = "年月"

adoPrimaryRS.MoveFirst Do While Not adoPrimaryRS.EOF .Rows = .Rows + 1 .CellAlignment = 4 For j = 0 To adoPrimaryRS.Fields.Count - 1 .TextMatrix(.Rows 1, j) adoPrimaryRS.Fields(j) Next j adoPrimaryRS.MoveNext Loop End With Command3.Enabled = True End Sub Private Sub Command2_Click() Dim i As Integer, j As Integer51=西北工业大学网络教育学院毕业论文Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xlapp = CreateObject("excel.application") xlapp.Visible = True Set xlbook = xlapp.Workbooks.Add Set xlsheet = xlbook.Worksheets(1) xlsheet.Cells(1, 1) = "员工编号"

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