基于delphi70sql企业人事信息档案管理系统设计

基于delphi70sql企业人事信息档案管理系统设计内容摘要：

课件之家精心整理资料 欢迎你的欣赏 课件之家精心整理资料 欢迎你的欣赏 第 4 章 数据库设计 根据对系统需求的分析和基于 C/S 开发模式的需求，数据库采用 Microsoft SQL Sever2020，它完全可以适合本系统的工作需求，它所支持的字段数据类型包括数值、字符、日期时间以及二进制和图片等类型，十分丰富，是当前基于 C/S 的主流数据库产品之一。 它还具有性能稳定，便于操作维护和具有很好的安全可靠性等特点，是作为服务器端数据库平台的理想选择 当然，这些表之间都存在着联系，如员工意外情况表和员工信息表，工资设定表，月底统计表等，都可以通过员工号进行联系。 根据系统功能模块的设计以及规范化的要求，该系统的数据库中主要的表结构设计如表。 表 考勤时间设 置 字段名称 数据类型 字段属性 字段大小 作用 必填字段 Swsbtime smalldatetime 4 上午上班时间 是 Swxbtime smalldatetime 4 上午下班时间 是 Xwsbtime smalldatetime 4 下午上班时间 是 Xwxbtime smalldatetime 4 下午下班时间 是 Wssbtime smalldatetime 4 晚上上班时间 是 Wsxbtime smalldatetime 4 晚上下班时间 是 字段名称 数据类型 字段属性 字段大小 作用 必填字段 Yno Nvarchar 25 员工号 是 Yname Nvarchar 25 姓名 是 Ysex Nvarchar 4 性别 否 Ybumen Nvarchar 50 部门 是 Chidaocs Int 4 迟到标志 否 Zaotuics Int 4 早退标志 否 Fadingjiaqis Int 4 假期中 否 Ycqk Int 4 异常情况 否 表 员工意外情况表 课件之家精心整理资料 欢迎你的欣赏 课件之家精心整理资料 欢迎你的欣赏 Yf Nvarchar 4 度假标志 否 Ytime Nvarchar 25 时间 是 Ydate Nvarchar 25 日期 是 Month Nvarchar 25 月份 是 表 月底结资表 字段名称 数据类型 字段属性 字段大小 作用 必填字段 Yno Nvarchar 25 员工号 是 Yname Nvarchar 25 姓名 否 Ysex Nvarchar 25 性别 是 Ybume Nvarchar 50 部门 是 yzhiwu Nvarchar 25 职务 是 Ygzzonger Float 4 工资总额 是 Ykouchugz Float 4 扣除工资 是 Yshijigz Float 4 实际工资 是 表 工资设定表 字段名称 数据类型 字段属性 字段大小 作用 必填字段 Ygno Nvarchar 25 员工号 是 Ygbume Nvarchar 25 部门 是 Ygzhiwei Nvarchar 25 职务 是 Yggongling Nvarchar 25 工龄 是 Yggongzi Nvarchar 25 工资 是 Ygjiangjin Nvarchar 25 奖金 是 课件之家精心整理资料 欢迎你的欣赏 课件之家精心整理资料 欢迎你的欣赏 第 5 章 模块设计 人事管理系统的功能模块主要有五大部分、员工信息管理、招聘管理、工资管理和考勤管理。 结构图如 所示： 图 人事管理系统结构图 考勤模块 考勤模块的主要功能是根据设定的考勤参数（上下班时间），确定员工的出勤情况。 在设计确定员工出勤情况的实现上，开始时是准备在这个模块上设计一个模拟员工刷卡考勤系统：由系统智能的确定和存储员工的出勤情况。 但因为实现起来比较复杂，调试过程中出现 错误加上时间仓促，最终是用考勤登记模块代替。 由管理员根据考勤参数，在系统中存储考勤异常情况（迟到，旷工等）。 对考勤情况的操作还包括修改，删除，按员工号，姓名，部门，月份等进行查询和统计。 数据流程图如图 所示。 图 考勤模块数据流程图 工资管理模块 课件之家精心整理资料 欢迎你的欣赏 课件之家精心整理资料 欢迎你的欣赏 工资模块的功能是根据员工的工龄，部门，职位等因素设置员工的工资和奖金，并参照员工的出勤情况，对所需发放工资进行智能的计算，并可以按员工名，员工号，月份等因素对工资情况进行调薪管理，查询和统计。 数据流程图如图 所示。 图 工资 管理模块数据流程图 课件之家精心整理资料 欢迎你的欣赏 课件之家精心整理资料 欢迎你的欣赏 第 6 章 窗体设计 考勤参数设置窗体 此窗体主要是设置考勤时依据的参数，即上下班时间，以此来判断员工的出勤异常情况（包括迟到、早退、缺勤、请假、和法定假期中）。 所用主要组件的主要属性如表 所示。 表 设置窗体和加入窗体的主要组件的属性以及说明 组件名称 属性 说明 label Transparent 若设置为 True,则标签是透明的 TimeClick Kind 若设置为 dtkTime,则按时间格式显示 Date 用来设置日期的初始值 Time 用来设置时 间的初始值 TbitBtn Default 可设置按钮的阴影效果，美化按钮 Glygh 可为按钮增加图片 Layout 设置为 blGlyphLeft图片在字体左边 Image Stretch 设置为 True,可以加入的背景图片等比例放缩 考勤参数设置的工作流程图如图 所示。 图 考勤参数设置的工作流程图 课件之家精心整理资料 欢迎你的欣赏 课件之家精心整理资料 欢迎你的欣赏 考勤参数的设置的界面如图 所示。 图 考勤参数设置的界面 考勤登记窗体 考勤登记窗体主要是登记员工的出勤情况，并将所有的情况记录到员工意外情况表中，以待计算和汇总员工的工资情况。 设置窗体时用到了一个与时间、日期有关的对象（ Delphi 中主要的与日期、时间有关的对象共三个，在我们的设计中全部用到了）： DateTimePicker 控件。 Time 控件可以实现日期和时间的快速输入和查看。 DateTimerPicker 空间有两种选择日期的形式，分别对应于其 DateMode 属性的２个选项： dmComboBox（组合框格式）和 dmUpDown(下拉格式 )。 本设计中用的是 dmComboBox（组合框格式）。 DateTimerPicker 控件的常用属性有 Date,DateFormate,DateMode,Kind,MaxDate, Mindate,time 等。 在使用 DateTimePicker 组件时应注意，如果 Kind 属性为 dtkDate,则输入的是日期，如 Kind 属性为 dtkTime,则输入的为时间。 要读取 DateTimePicker 控件的日期或时间，直接用 Date,Time 属性就可以了。 如果将其在编辑框中显示，必须首先使用转换函数 DateToStr,TimeToStr 将其转化为字符串型。 我一开始设计时就是把 DateTimePicker 控件拖得很短，然后在其 中增加了一个文本框，从外表看和现在的设计一样，但 DateMode 设置为 dmUpDown(下拉格式 )。 然后又使用了 DateFormare 函数返回时间。 procedure (Sender: TObject)。 begin :=formatdatetime(39。 hh:mm:ss39。 ,)。 end。 // edswxbtime 是返回上午下班时间的文本框 设置窗体时所用主要组件的主要属性如表。 课件之家精心整理资料 欢迎你的欣赏 课件之家精心整理资料 欢迎你的欣赏 表 考勤登记窗体所用主要组件的主要属性 组件名称 属性 说明 TCombobox Items 设置列表框中的字符串，每一项是一个字符串 Text 设置或返回编辑框的主要内容。 Style 设置组合框的风格。 本例中用 CsDropdown Kqdj(TADOQuery) Connection 设为 SQL(TStrings) 设置为 select * from 员工意外情况表 DataSource1 DateSet 在下拉菜 单中选择 kqdj,指定源泉数据源 DBGrid1 DataSource 设置为 DataSource1 数据表“员工意外情况表 ” 与控件的连接情况如图。 当 TADOQuery控件 kqdj的 Active属性决定了数据表与空间是否建立逻辑上的连接 ,只有建立了逻辑上的连接后 ,才能通过控件操纵数据表中的数据。 如图 所示。 图 考勤登记窗体中数据集、数据源和数据控件的关系示意图 考勤登记窗体的工作流程如图。 课件之家精心整理资料 欢迎你的欣赏 课件之家精心整理资料 欢迎你的欣赏 图 考勤登记的工作流程图 Active 属性值的确定有 2种方法，在设计期间 ，可在 Object Inspector 中单击 kqdj的 Active。 在运行期间可以执行语句： :=true。 或 :=false。 考勤登记窗体的界面如图 所示。 图 考勤登记窗体的界面 显示时间的代码为： procedure (Sender: TObject)。 begin 课件之家精心整理资料 欢迎你的欣赏 课件之家精心整理资料 欢迎你的欣赏 :=datetostr()+39。 39。 +timetostr(time)。 end。 异常情况查询窗体 异常情况查询窗体的主要功能是查询员工的出勤异常情况，并将其显示在查询结果区域中的表格中。 所用主要组件的主要属性如表 所示。 表 异常情况查询窗体所用组件的主要属性 组件名称 属性 说明 TEditComboBox BevelEdge 设置编辑框边框的风格 TBitBtn Kind bkCustom 铵钮对应的位图为用户自定义类型 BkClose 铵钮对应的位图为 Close 铵钮类型 异常情况查询窗体的界面如图 所示。 图 异常情况查询 窗体的界面 ComboBox1 下拉菜单显示主要代码为： procedure (Sender: TObject)。 begin with do 课件之家精心整理资料。