数据库课程设计设职工工资管理系统

上传人:re****.1 文档编号:472615400 上传时间:2023-02-12 格式:DOC 页数:19 大小:610.50KB
返回 下载 相关 举报
数据库课程设计设职工工资管理系统_第1页
第1页 / 共19页
数据库课程设计设职工工资管理系统_第2页
第2页 / 共19页
数据库课程设计设职工工资管理系统_第3页
第3页 / 共19页
数据库课程设计设职工工资管理系统_第4页
第4页 / 共19页
数据库课程设计设职工工资管理系统_第5页
第5页 / 共19页
点击查看更多>>
资源描述

《数据库课程设计设职工工资管理系统》由会员分享,可在线阅读,更多相关《数据库课程设计设职工工资管理系统(19页珍藏版)》请在金锄头文库上搜索。

1、文档供参考,可复制、编制,期待您的好评与关注! 成 绩 评 定 表学生姓名 班级学号 专 业应用统计学课程设计题目职工工资管理系统评语组长签字:成绩日期 20 年 月 日 / 课程设计任务书学 院理学院专 业应用统计学学生姓名 班级学号 课程设计题目职工工资管理系统实践教学要求与任务:1.职工工资管理系统 (1)职工信息(2)职工工资信息(3)系统信息(4)岗位信息2.数据库的设计 (1)系统信息(用户名、密码)(2)职工信息(职工编号、姓名、性别、部门名称、学历、职称 )(3)职工工资信息(工资号、姓名、基本工资、奖金、缴税、保险费、应发工资、 实发工资 )(4)岗位信息(编号、职称类别、薪

2、酬标准 )工作计划与进度安排:第一周:数据库设计,利用SQL Server创建数据库及数据表。 总体结构设计,设计调试系统首页、登陆窗体及MDI窗体。第二周:管理功能设计,设计调试各种数据管理功能窗体及打印报表功能。 撰写课程设计报告,验收与答辩。指导教师: 2014 年11月20日专业负责人: 2014 年11 月20 日学院教学副院长: 2014年11 月21日摘 要企业的工资管理是公司管理的一个重要内容。随着企业人员数量增加,企业的工资管理工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理,同时也是企业财务管理的重要组成部分。工资管理需要和人事管理相联系,同时连接工时考勤和医疗保险

3、等等,来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的主要元素,资金的流动影响到 企业的整体运作,企业员工的工资是企业资金管理的一个重要的组成部分。早期的工资统计和发放都是使用人工方式处理纸质材料,不仅花费财务人员大量的时间且不易保存,往往由于个人的因素抄写不慎或计算疏忽,出现工资发放错误的现象。早期工资管理多采取纸质材料和具有较强的时间限制。基于以上原因,企业工资管理系统使用电脑安全保存、快速计算、全面统计,实现工资管理的系统化、规范化、自动化。关键词 关键词1:职工关键词2:工资 关键词3:职工工资目 录1 系统功能概述11.1 系统功能分析11.2

4、系统模块设计12 数据库设计22.1 需求分析22.2 表结构设计23 系统各功能模块的详细设计33.1 表的设计33.2 各窗体设计5参考文献141 系统功能概述1.1 系统功能分析工资管理系统系是为了更好地实现工资各种信息的管理以及各种信息的安全性管理。本系统主要对查看员工的各种工资信息需求所设计的,可以很好的管理数据。 本系统的主要功能由以下几个部分组成:经过调研及分析,工资管理信息系统主要完成以下功能:(1)能够进行职工基本信息的浏览、编辑(2)能够进行职工工资信息的浏览、编辑(3)能够按姓名、或部门、或职称查询职工的基本信息;查询职工工资信息1.2 系统物理模块设计职工工资管理系统职

5、工信息工资基本设定缴税实发工资应发工资保险费奖金基本工资员工信息修改员工信息删除员工信息添加2 数据库设计2.1 需求分析 登录信息 返回信息 操作 登录用户 错误信息 寻找信息 数据库需求分析数据流图2.2 表结构设计 3 系统各功能模块的详细设计3.1 表的设计1.职工信息表字段名是否为空数据类型职工编号 NULLint姓名NULLnchar(10)性别NULLnchar(10)部门名称NULLnchar(10)学历NULLnchar(10)职称NULLnchar(10)2.职工工资表字段名是否为空数据类型工资号NULLint基本工资NULLint姓名NULLnchar(10)奖金NULL

6、int缴税NULLint保险费NULLint应发工资NULLint实发工资NULLint3.系统信息表字段名是否为空数据类型用户名NULLnchar(10)密码NULLint4.岗位信息表字段名是否为空数据类型编号NULLint职称类别NULLnchar(10)薪酬标准NULLnchar(10)3.2 各窗体设计3.2.1启动封面窗体及登录对话框的设计要求:图片背景、欢迎类文字、单击显示“进入系统”标题的标签或按钮,将打开“登录”对话框,用户输入用户名和密码,若正确则打开下面的主窗体;否则提示密码错误,请重新输入。最多允许输入3次。进入系统后进入登陆主窗体的编码为: Private Sub C

7、ommand1_Click() 登录.Show End Sub登陆编码如下:Dim miCount As IntegerPrivate Sub CmdLand_Click()Dim SQLStr As StringSQLStr = Select * From 系统信息 Where 用户名= & Text1 & Adodc1.RecordSource = SQLStrAdodc1.RefreshIf Adodc1.Recordset.EOF Then MsgBox 用户名错误,重新输入, vbExclamation, 警告 Text1.Text = Text1.SetFocusElse If A

8、dodc1.Recordset.Fields(密码) = Text2 Then MDIForm1.Show Unload Me Else MsgBox 密码错误,重新输入 , vbExclamation, 警告Text2.Text = Text2.SetFocus End IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub CmdCancel_Click() Unload MeEnd Sub3.2.2主窗体要求:设计为MDI窗体,含有主菜单:文件、数据管理、数据查询。 文件菜单包含以下子菜单及

9、其功能:注册新用户菜单:打开“注册新用户”窗体退出:结束程序运行 数据管理 包含以下子菜单:职工基本信息菜单:显示职工信息窗体职工工资信息菜单:显示工资信息窗体岗位信息菜单:显示岗位信息窗体职工工资信息录入菜单:显示职工工资录入窗体 数据查询包含以下子菜单:查询职工信息:显示职工信息查询窗体查询工资信息:显示工资信息查询窗体查询岗位信息:显示岗位信息查询窗体其编码如下:Private Sub MDIForm1_Load()mDataMng.Enabled = FalseEnd SubPrivate Sub mDcaxun_Click(Index As Integer)职工信息查询.ShowEn

10、d SubPrivate Sub mDcaxun1_Click(Index As Integer)职工工资查询.ShowEnd SubPrivate Sub mDcaxun2_Click(Index As Integer)岗位信息查询.ShowEnd SubPrivate Sub mDgangwei_Click(Index As Integer)岗位信息.ShowEnd SubPrivate Sub mDjiaoshi_Click(Index As Integer)职工工资.ShowEnd SubPrivate Sub mFxinyonghu_Click(Index As Integer)注册

11、新用户.ShowEnd SubPrivate Sub mFExit_Click(Index As Integer)EndEnd SubPrivate Sub mDzhigong_Click(Index As Integer) 职工信息.ShowEnd Sub3.2.3注册新用户窗体 用于添加新的用户名和密码。;单击“注册新用户”菜单,打开对话框如图2要求:若新用户名与系统信息表原有用户名相同,则提示“用户名已存在,重新输入”;判断二次输入密码若不一致,则提示用户“输入密码不一致,重新输入密码”;判断若输入密码为空,则提示“密码不能为空”;若输入正确,则将输入的用户名保存到“系统信息”表,并提示

12、“注册用户成功”,关闭本窗体。以下各窗体设为MDI主窗体的子窗体注册新用户的编码如下:Private Sub CmdOK_Click()Dim SQLStr As StringIf Text1 = Then MsgBox 请输入用户名!, vbExclamation, 确认用户名 Text1.SetFocus Exit SubElse SQLStr = Select * from 系统信息 where 用户名= & Text1 & Adodc1.RecordSource = SQLStr Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then Ms

13、gBox 用户名已存在,请重新输入!, vbExclamation, 检验用户名 Text1 = Text1.SetFocus Exit Sub End IfEnd IfIf Text2 Text3 Then MsgBox 二次输入的密码不一致,请重新输入, vbExclamation, 检验密码 Text2 = : Text3 = Text2.SetFocus Exit SubElseIf Text2 = Then MsgBox 密码不能为空!, vbExclamation, 检验密码 Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Trim(Te

展开阅读全文
相关资源
正为您匹配相似的精品文档
相关搜索

最新文档


当前位置:首页 > 资格认证/考试 > 自考

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号