《数据库课程设计设职工工资管理系统》由会员分享，可在线阅读，更多相关《数据库课程设计设职工工资管理系统（18页珍藏版）》请在金锄头文库上搜索。
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 系
4、统功能概述11.1 系统功能分析.11.2 系统模块设计.12 数据库设计22.1 需求分析.22.2 表结构设计.23 系统各功能模块的详细设计33.1 表的设计.33.2 各窗体设计.5参考文献141 系统功能概述1.1 系统功能分析工资管理系统系是为了更好地实现工资各种信息的管理以及各种信息的安全性管理。本系统主要对查看员工的各种工资信息需求所设计的，可以很好的管理数据。 本系统的主要功能由以下几个部分组成：经过调研及分析，工资管理信息系统主要完成以下功能：（1）能够进行职工基本信息的浏览、编辑 （2）能够进行职工工资信息的浏览、编辑 （3）能够按姓名、或部门、或职称查询职工的基本信息；
5、查询职工工资信息1.2 系统物理模块设计职工工资管理系统职工信息工资基本设定员 工 信 息 添 加员 工 信 息 删 除员 工 信 息 修 改基 本 工 资奖 金缴 税保 险 费应 发 工 资实 发 工 资2 数据库设计2.1 需求分析登录信息 返回信息错误信息 寻找信息数据库需求分析数据流图2.2 表结构设计登录用户 操作3 系统各功能模块的详细设计3.1 表的设计1.职工信息表字段名是否为空数据类型职工编号NULLint姓名NULLnchar(10)性别NULLnchar(10)部门名称NULLnchar(10)学历NULLnchar(10)职称NULLnchar(10)2.职工工资表职工
6、工资表字段名是否为空数据类型工资号NULLint基本工资NULLint姓名NULLnchar(10)奖金NULLint缴税NULLint保险费NULLint应发工资NULLint实发工资NULLint3.系统信息表系统信息表字段名是否为空数据类型用户名NULLnchar(10)密码NULLint4.岗位信息表岗位信息表字段名是否为空数据类型编号NULLint职称类别NULLnchar(10)薪酬标准NULLnchar(10)3.2 各窗体设计3.2.1启动封面窗体及登录对话框的设计要求：图片背景、欢迎类文字、单击显示“进入系统”标题的标签或按钮，将打开“登录”对话 框，用户输入用户名和密码，若
7、正确则打开下面的主窗体；否则提示密码错误，请重新输入。最 多允许输入 3 次。进入系统后进入登陆主窗体的编码为：Private Sub Command1_Click()登录.ShowEnd Sub登陆编码如下：Dim miCount As IntegerPrivate Sub CmdLand_Click()Dim SQLStr As StringSQLStr = “Select * From 系统信息 Where 用户名= “ & Text1 & “Adodc1.RecordSource = SQLStrAdodc1.RefreshIf Adodc1.Recordset.EOF ThenMsg
8、Box “用户名错误，重新输入“, vbExclamation, “警告“Text1.Text = “ “Text1.SetFocusElseIf Adodc1.Recordset.Fields(“密码“) = Text2 ThenMDIForm1.ShowUnload MeElseMsgBox “密码错误，重新输入 “, vbExclamation, “警告“Text2.Text = “ “Text2.SetFocusEnd IfEnd IfmiCount = miCount + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub CmdCanc
9、el_Click()Unload MeEnd Sub3.2.2 主窗体要求：设计为 MDI 窗体，含有主菜单：文件、数据管理、数据查询。文件菜单包含以下子菜单及其功能： 注册新用户菜单：打开“注册新用户”窗体 退出：结束程序运行数据管理 包含以下子菜单： 职工基本信息菜单：显示职工信息窗体 职工工资信息菜单：显示工资信息窗体 岗位信息菜单：显示岗位信息窗体 职工工资信息录入菜单：显示职工工资录入窗体数据查询包含以下子菜单： 查询职工信息：显示职工信息查询窗体 查询工资信息：显示工资信息查询窗体 查询岗位信息：显示岗位信息查询窗体其编码如下： Private Sub MDIForm1_Load(
10、) mDataMng.Enabled = FalseEnd Sub Private Sub mDcaxun_Click(Index As Integer) 职工信息查询.Show End Sub Private Sub mDcaxun1_Click(Index As Integer) 职工工资查询.Show End Sub Private Sub mDcaxun2_Click(Index As Integer) 岗位信息查询.Show End Sub Private Sub mDgangwei_Click(Index As Integer) 岗位信息.Show End Sub Private
11、Sub mDjiaoshi_Click(Index As Integer) 职工工资.Show End Sub Private Sub mFxinyonghu_Click(Index As Integer) 注册新用户.Show End Sub Private Sub mFExit_Click(Index As Integer) End End Sub Private Sub mDzhigong_Click(Index As Integer)职工信息.Show End Sub3.2.3注册新用户窗体用于添加新的用户名和密码。 ；单击“注册新用户”菜单，打开对话框如图 2 要求：若新用户名与系统
12、信息表原有用户名相同，则提示“用户名已存在，重新输入” ；判断二次输入 密码若不一致，则提示用户“输入密码不一致，重新输入密码” ；判断若输入密码为空，则提示“密码 不能为空” ；若输入正确，则将输入的用户名保存到“系统信息”表，并提示“注册用户成功” ，关闭 本窗体。 以下各窗体设为 MDI 主窗体的子窗体注册新用户的编码如下： Private Sub CmdOK_Click() Dim SQLStr As String If Text1 = “ ThenMsgBox “请输入用户名！“, vbExclamation, “确认用户名“Text1.SetFocusExit Sub ElseSQ
13、LStr = “Select * from 系统信息 where 用户名=“ & Text1 & “Adodc1.RecordSource = SQLStrAdodc1.Refresh If Adodc1.Recordset.EOF = False ThenMsgBox “用户名已存在，请重新输入！“, vbExclamation, “检验用户名“Text1 = “Text1.SetFocusExit SubEnd If End If If Text2 Text3 ThenMsgBox “二次输入的密码不一致，请重新输入“, vbExclamation, “检验密码“Text2 = “: Te
14、xt3 = “Text2.SetFocusExit Sub ElseIf Text2 = “ ThenMsgBox “密码不能为空！“, vbExclamation, “检验密码“Text2.SetFocus ElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(“用户名“) = Trim(Text1)Adodc1.Recordset.Fields(“密码“) = Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox “成功注册新用户！“, vbInformation, “添加用户“ End If End
15、 Sub Private Sub CmdCancel_Click() Unload Me End Sub3.2.4分别设计各个信息窗体功能：浏览和录入各信息。该窗体以文本框显示当前记录，用按钮首记录、末记录、前一个、 后一个，控制记录指针的移动；用一个标签 Label 显示：当前记录号/记录总数；单击表格显示按钮， 显示 DataGrid 控件(Visible=True),以表格形式显示商品信息表，单击返回按钮，可以关闭本窗体，返 回主窗体。可以对记录进行新增、确认、删除、取消操作。其编码如下： Private Sub CmdAdd_Click() Adodc1.Recordset.AddNe
16、w CmdAdd.Enabled = False CmdDel.Enabled = FalseCmdOk.Enabled = True CmdEsc.Enabled = True Combo1.AddItem “男“ Combo1.AddItem “女“ End Sub Private Sub CmdOK_Click() Adodc1.Recordset.Update CmdAdd.Enabled = True CmdDel.Enabled = True CmdOk.Enabled = False CmdEsc.Enabled = False End Sub Private Sub CmdDel_Click() x = MsgBox(“确实要删除
