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

首先通过语句：

adoPrimaryRS.Open "select * from kqinfo where 员工编号="

&

a &

"

and 年月="

&

d &

"", db, adOpenStatic, adLockOptimistic If adoPrimaryRS.EOF Then MsgBox "输入可能有误，考勤表中没有相应的考勤记录！", vbOKOnly + vbExclamation, "警告"

Exit Sub ?? 来对考勤表中该员工的在输入年月的情况下查询，如果记录集为空，则表明45西北工业大学网络教育学院毕业论文该考勤表中还没有该考勤记录存在，所以还不能进行考勤维护。需要先创建相应 的考勤表后来维护。

如果记录集非空， 则根据复选框的值来进行考勤字段的维护。

具体就是在考勤字段的基础上加 1。实现的语句如下：

If Check1.Value = 1 Then adoPrimaryRS.Fields("

迟 到 adoPrimaryRS.Fields("迟到次数") + 1 End If If Check2.Value = 1 Then adoPrimaryRS.Fields("

早 退 adoPrimaryRS.Fields("早退次数") + 1 End If If Check3.Value = 1 Then adoPrimaryRS.Fields("

缺 席 adoPrimaryRS.Fields("缺席次数") + 1 End If If Check4.Value = 1 Then adoPrimaryRS.Fields("离岗次数") = End If 次 数 ") =次数")=次数")=Text3.Text4.8 员工工资表窗体的设计通过管理人员输入年、月，系统即可生成当月的员工工资表。如果输入的年 月工资表已经生成，则系统给出提示，并可以浏览当月工资表。图 4-9 员工工资表浏览界面图书馆该窗体包括一个表格控件、一个文本框控件、一个组合框控件、四个按钮控 件。文本框控件用于输入年，组合框用于选择工资的月份。创建/浏览月工资表 按钮的 click 事件：根据输入的年月在工资表中查询，如果没有该月的工资则系 统开始创建该月的员工工资记录。创建时需要根据员工基本信息表中的基本工46西北工业大学网络教育学院毕业论文资、考勤表的该员工编号的考勤工资、加班表中的该员工编号的加班工资、业务 档案表中的岗位工资、 系数表中的工资系数进行计算分别得出员工的工资表中的 每项记录。最后生成的工资项有：员工号、姓名、基本工资、岗位工资、加班津 贴、考勤工资、行政性扣款、应发工资、个人所得税、实发工资、年月。应发工 资最后实现的语句：

x = adoPrimaryRS.Fields("基本工资") + adoPrimaryRS.Fields("岗位津 贴") + adoPrimaryRS.Fields("加班津贴") - adoPrimaryRS.Fields("考勤工资 ") - adoPrimaryRS.Fields("行政性扣款") adoPrimaryRS.Fields("应发工资") = x 通过以上语句可以看出， 应发工资是有基本工资＋岗位工资＋加班津贴－考 勤工资－个人所得税。个人所得税是在应发工资的基础上－800 的差乘 20%得到 的。实现的语句：

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