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

由于员工的考勤工资部 分是动态的， 也就是说相对其它的基本工资， 岗位工资而言， 每个月都是变化的， 所以为了科学管理、核算员工的考勤工资部分，这里分成二个子模块来完成员工 的考勤管理。这二个子模块是：创建考勤表，维护考勤表。下面先介绍创建考勤 表的设计过程。

下面是创建考勤表的界面图：

该窗体同时也完成浏览已经创建的考勤表的浏 览和报表功能。38西北工业大学网络教育学院毕业论文 图 4-7 系统考勤表界面图该窗体包括一个表格控件、一个文本框控件、一个组合框控件、四个按钮控 件。表格控件用来显示所设定的年月的员工的考勤表，比如设定 2000 年 1 月， 通过点击相关按钮触发事件的发生后，该表格就可以显示 2000 年 1 月的员工的 考勤记载表。用户可以通过该表格来浏览考勤西信息，但是不能通过表格显示的 数据来修改信息，信息的修改可以通过考勤信息维护窗体的功能来完成。文本框 控件用于输入年，组合框用于选择考勤的月份。创建/浏览考勤按钮的 click 事 件：根据输入的年、月在考勤表中查询，如果记录集为空，则表明该月的考勤表 还没有创建，则开始创建考勤表，初始化的数据中迟到次数、早退次数、缺席次 数等为 0，考勤记录以后可以通过考勤维护窗体对该员工的出勤情况进行修改。

如果记录集非空，则表明该月的考勤表已经创建，那么统给出提示后用户可以浏 览。通过记录集来创建考勤表的原理如下：当用记录集来完成了对考勤表按照年 月为查询条件查询后，如果记录集为空，通过 adoPrimaryRS.AddNew 语句来对记 录 集 增 加 一 条 员 工 记 录 ， 接 着 设 置 adoPrimaryRS.Fields("

员 工 编 号 ") ， adoPrimaryRS.Fields("迟到次数")，等记录集的字段值，再通过一个循环语句 逐一完成上述的每位员工的操作， 这样就完成了对考勤表的设定的年月的数据值 的创建。

导出到 excel 按钮的 click 事件将记录集中的数据导出到 excel 表中实 现报表打印。

具体代码如下: Dim WithEvents adoPrimaryRS As Recordset Dim WithEvents adoPrimaryRS1 As RecordsetPrivate Sub Command1_Click() If Text1.Text = "输入年"

Or Combo1.Text = "选择月"

Then MsgBox "年月不能为空！", vbOKOnly + vbExclamation, "警告"

Exit Sub End If a = Text1.Text b = Combo1.Text39西北工业大学网络教育学院毕业论文c = a &

bSet adoPrimaryRS = New Recordseta = Text1.Text adoPrimaryRS.Open "select * from kqinfo where db, adOpenStatic, adLockOptimistic If adoPrimaryRS.EOF Then Set adoPrimaryRS1 = New Recordset adoPrimaryRS1.Open "select * from ygInfo ", db, adOpenStatic, adLockOptimistic 年月="

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