基于vb的员工考勤系统的设计与实现

基于vb的员工考勤系统的设计与实现内容摘要：

d1 Caption 登陆 Command2 caption 取消 9 实现该模块功能的主要代码如下： Private Sub Command1_Click() If Not Then End If Do While Not If !用户名 = Then If !密码 = Then Unload check Unload begain Exit Sub Else MsgBox 密码错误 , 16, 公司考勤系统 = Exit Sub End If Else End If Loop MsgBox 没有这个管理员 , 48, 公司考勤系统 主界面的显示 该界面 可以 完成几乎所有的功能。 在左侧的工具条可以看到 8 个功能的实现都在右侧的图片框中得以实现，看似简单的流程图，其实包含了 12 个窗体完成的功能。 主界面 所 用 的 主要 控件 及其 属性 设置 列表如 下 表 所示： 10 表 52 窗体控件属性列表 控件 属性 取值 Adodc1 Caption 员工情况表 Adodc2 Caption 签到表 Adodc3 Caption 今日签到表 Adodc4 Caption 用户密码表 Adodc5 caption 部门表 Combo l caption NULL Combo2 caption NULL Command1 caption 友好导航 Command2 caption 签到 Command3 caption 以表单形式添加 Command4 caption 查找开始 Command5 caption 查找 Command6 caption 清除 Command7 caption 统计开始 Command8 caption 清除信息 Command9 caption 添加部门 Command10 caption 删除部门 Command12 caption 添加用户 /修改 /删除 Command13 caption 删除 Command15 caption 删除 Command16 caption 更改数据表格 Datablol1 Listfield 部门 Databol2 Listfield 部门 Datagridl Datasource Adodc1 Frame1 Caption 今日签到情况 Frame10 Caption 添加删除 Frame11 Caption 用户列表 Frame12 Caption 员工信息 Frame13 Caption 删除部门下员工 Frame14 Caption 按员工号删除 Frame15 Caption 按时间删除 Frame16 Caption 签到信息 Frame17 Caption 添加员工名单 Frame2 Caption 单 一查找 11 表 53 窗体控件属性列表（续表） Frame3 Caption 多个查找 Frame4 Caption Frame5 Caption Frame6 Caption 统计条件 Frame7 Caption 部门列表 Gongjupicturebox Hide Picture Lable1（ 0） caption 员工签到 Lable1(1) caption 员工查找 Lable1(2) caption 签到查找 Lable1(3) caption 签到统计 Lable1(4) caption 部门维护 Lable1(5) caption 密码维护 Lable1(6) caption 员工总表 左侧 包含 7 个功能实现 的主界面运行效果 图 如 下图 52 所示 ： 图 52 主界面 运行效果 主要 功能模块的实现 命令模块 系统运行时， 单击友好导航调用 hidee 函数 可 将工具条隐藏。 当鼠标移动到上面时，将显示一个提示消息 “单击返回友好导航 ”。 运行界面 如图 53 所示 ： 图 53 友好导航 12 实现该模块功能的主要代码如 下： Public transdata As Long Private Sub Image1 Click(Index As Integer) End Sub Private Sub Command1 Click() = False = True For i = 0 To 7 Picture1(i).Left = 240 Next i = 6582 End Sub 签到模块 考勤界面是通过信息提示框来实现的，提 示框的实现是利用 VB 提供的函数Msgbox[9]。 该函数的 参数的设定是 3 个参数的组合。 运行界面 如图 54 所示 ： 图 54 考勤输入界面 实现该模块功能的主要代码如下： Private Sub Command2_Click() Dim aa As String aa = InputBox(输入员工编号 ) If aa = Then Exit Sub Else If Not Then End If Do While Not If !员工编号 = aa Then Exit Do Else End If Loop If Then MsgBox 没有这个员工 , 48, 公司考勤系统 13 Exit Sub Else If Not Then End If Do While Not If !员工编号 = aa Then MsgBox 此人已经签到 , 48, 公司考勤系统 Exit Sub Else End If Loop End If !员工编号 = aa !签到日期 = Date = 1000 End If End Sub 输入模块 输入界面是用来输入员工有关的各种信息 ， 包括员工姓名、编号、 所属部门等信息。 运行界面如图 55 所示： 图 55 员工添加界面 实现该模块功能的主要代码如下： Private Sub Command1_Click() If = Then MsgBox 编号不能为空 , 16, 公司考勤系统 Call clears Else If Not Then 14 End If Do While Not If !员工编号 = Then MsgBox 员工编号重复 , 48, 公司考勤系统 = Exit Sub Else End If Loop With Adodc1 . .Recordset!员工编号 = .Recordset!员工姓名 = .Recordset!部门 = .Recordset!省份 = .Recordset!城市 = .Recordset!年龄 = .Recordset!性别 = .Recordset!电子邮件 = .Recordset!联系地址 = .Recordset!邮政编码 = .Recordset!电话号码 = .Recordset!昏否 = .Recordset!生肖 = .Recordset!学历 = .Recordset!血型 = .Recordset!职称 = .Recordset!专业技术职称 = .Recordset!备注 = End With = 1000 End If Call clears 统计模块 统计页面 利用 listcount 的属性来统计本月签到次数和计算本月奖金。 统计是用 来实现的。 在统计条件中，年份的计算是可以输入，如果 text11 的值为 NULL ， 则利用 VB 提供的函数 now 来确定本统计的年份。 而月份则不能为 NULL，统计编号也不能为 NULL。 否则，系统会提醒 正确的输入。 运行界面 如图 56 所示 ： 15 图 56 签到统计界面 实现该模块功能的主要代码如下： private Sub Command15_Click() Dim ii As Integer If = Then = 2020 End If If Then ii = MsgBox(是否真的删除 amp。 amp。 年 amp。 amp。 月的签到信息。 , 292, 公司考勤系统 ) If ii = 6 Then = Trim() If Not Then End If Do While Not If = Year(!签到日期 ) And = Month(!签到日期 ) Then End If Loop = 1000 = = End If End If End Sub 16 查找模块 员工的查找界面是唯一图片容器功能的设计，它的查找结果是通过 SSTABLE 控件 [10]来实现的。 运行界面如 图 57 所示： 图 57 员工查找界面 返回查找结果的页面运行效果如 图 58 所示： 图 58 查找 结果 界面 实现该模块功能的 主要代码如下： Private Sub Command5_Click() If Not Then End If If Then Do While Not If !部门 = Then amp。 amp。 !员工姓名 amp。 amp。 !员工编号 amp。 amp。 !性别 amp。 amp。 !年龄 开始查找 输入 0001 17 End If Loop = 500 Else Do While Not If !员工姓名 = Trim() Then amp。 amp。 !员工姓名 amp。 amp。 !员工编号 amp。 amp。 !性别 amp。 amp。 !年龄 End If Loop = 500 End If If = 0 Then MsgBox 找不到符合条件的员工。 , 48, 公司考勤系统 End If End Sub 维护模块 (1) 部门维护 该模块 可以添加或者删除一个部门。 比如查找中的 “按 部门查找 ”，如果你删除一个 部门，查找中的部门也会少一个。 运行界面 如图 59 所示 ： 图 59 部门维 护界面 实现该模块功能的主要代码如下： Private Sub Command10_Click() Dim ii As Boolean ii = True If Then If Not Then 18。