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

xlsheet.Cells(1, 2) = "迟到次数"

xlsheet.Cells(1, 3) = "早退次数"

xlsheet.Cells(1, 4) = "缺席次数"

xlsheet.Cells(1, 5) = "离岗次数"

xlsheet.Cells(1, 6) = "备注"

xlsheet.Cells(1, 7) = "年月"42西北工业大学网络教育学院毕业论文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 SubPrivate Sub Command3_Click() Text1.Text = "输入年"

Combo1.Text = "选择月"

With myFlexGrid .Rows = 2End With adoPrimaryRS.Close Command3.Enabled = False End SubPrivate Sub Command4_Click()43西北工业大学网络教育学院毕业论文Unload Me End SubPrivate 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) = "年月"End With End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Text1_Click() Text1.Text = ""44西北工业大学网络教育学院毕业论文End Sub4.7 考勤表的维护上面已经完成了对所有员工按照给定年月创建了或者说初始化了员工的考 勤表。初始化的时候，员工的考勤比如迟到，早退等次数设定为 0。当员工在该 年月中有迟到等情况发生时，管理员可以通过操作该窗体来记载该员工的迟到， 早退等考勤情况。每记载一次比如迟到，中迟到的次数就被加 1。

最后根据实际迟到的总次数来计算扣除的考勤工资。

下面是该窗体的设计界 面图：图 4-8 操作窗体界面图该窗体共有 4 个文本框控件，1 个组合框控件，4 个复选框按钮控件，2 个 按钮控件。文本框和组合框用来输入和显示考勤表记载的字段信息，复选框按钮 控件用来维护考勤情况。按钮控件用来触发相应事件的发生。下面简单分析一下 记载按钮的 click 事件：

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