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

xlsheet.Cells(1, 2) = "姓名"

xlsheet.Cells(1, 3) = "基本工资"

xlsheet.Cells(1, 4) = "岗位津贴"

xlsheet.Cells(1, 5) = "加班津贴"

xlsheet.Cells(1, 6) = "考勤工资"

xlsheet.Cells(1, 7) = "行政性扣款"

xlsheet.Cells(1, 8) = "应发工资"

xlsheet.Cells(1, 9) = "个人所得税"

xlsheet.Cells(1, 10) = "实发工资"

xlsheet.Cells(1, 11) = "年月"

adoPrimaryRS.MoveFirst i = 0 Do While (adoPrimaryRS.EOF = False) For j = 0 To adoPrimaryRS.Fields.Count - 1xlsheet.Cells(i + 2, j + 1) = adoPrimaryRS.Fields(j) Next j adoPrimaryRS.MoveNext i = i + 1 Loop Set xlapp = Nothing Set xlbook = Nothing End Sub Private Sub Command3_Click() Text1.Text = "输入年"

Combo1.Text = "选择月"

With myFlexGrid .Rows = 2 End With52西北工业大学网络教育学院毕业论文adoPrimaryRS.Close Command3.Enabled = False End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() Left = (Screen.Width - Width) \ 2 Top = (Screen.Height - Height) \ 2 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) = "年月"

End With End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Text1_Click() Text1.Text = ""

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