包括源程序和课程设计报告
简单的职工管理系统
1.问题描述
对单位的职工进行管理，包括插入、删除、查找、排序等功能。
2.要求
职工对象包括工号、姓名、性别、出生年月、工作年月、学历、职务、住址、电话等信息。
（1）新增一名职工：将新增职工对象按姓名以字典方式存入职工管理文件中。
（2）删除一名职工：从职工管理文件中删除一名职工对象。
（3）查询：从职工管理文件中查询符合某些条件的职工。
（4）修改：检索某个职工对象，对其某些属性进行修改。
（5）排序：按某种需要对职工对象文件进行排序。
2022-12-25 00:16:06
394KB
1
C++ 代码要求 功能设计要求 1. 输入记录:将每一个职工的姓名、ID号以及基本工资、职务工资、岗位津贴、医疗保险、公积金的数据作为一个记录。该软件能建立一个新的数据文件或给已建立好的数据文件增加记录。 2. 显示记录:根据用户提供的记录或者根据职工姓名显示一个或几个职工的各项工资和平均工资。 3. 修改记录:可以对数据文件的任意记录的数据进行修改并在修改前后对记录内容进行显示。 4．查找记录:可以对数据文件的任意记录的数据进行查找并在查找前后对记录内容进行显示。 5. 删除记录:可删除数据文件中的任一记录。 6. 统计: (A)计算各项工资平均工资及总工资,(B)统计符合指定条件(如职工工资前三项之和在3000元以上、3000~2000元、2000~10 00元) 以内的工资职工人数及占总职工人数的百分比。(C)按字符表格形式打印全部职工工资信息表及平均工资(包括各项总的平均工资)。 7．保存数据文件功能。
2022-12-21 13:17:26
4KB
1
vba代码很简单，如下；数据来源于“国务院办公厅关于2020年部分节假日安排的通知”
=workDay(YEAR(TODAY())&"-"&MONTH(TODAY())&"-"&B3)
'判断指定日期是否上班
Function workDay(rq)
Dim cel As Range
If Weekday(rq) = 1 Or Weekday(rq) = 7 Then
temp = "休"
For Each cel In Range("节假日表!B2:B17")
a = DateDiff("d", cel.Value, rq)
If a = 0 Then
temp = "○"
Exit For
End If
Next
Else
temp = "○"
For Each cel In Range("节假日表!A2:A37")
a = DateDiff("d", cel.Value, rq)
If a = 0 Then
temp = "休"
Exit For
End If
Next
End If
workDay = temp
End Function
2022-12-15 23:08:08
51KB
1