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

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 系统模块设计12 数据库设计22.1 需求分析22.

4、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)奖金NULLint缴税NULLint保险费NULLint应发工资

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

7、登陆编码如下：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, "警告"

8、Text1.Text = " "Text1.SetFocusElse If Adodc1.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 Sub

9、Private Sub CmdCancel_Click() Unload MeEnd Sub主窗体要求：设计为MDI窗体，含有主菜单：文件、数据管理、数据查询。 文件菜单包含以下子菜单及其功能：注册新用户菜单：打开“注册新用户”窗体退出：结束程序运行 数据管理 包含以下子菜单：职工基本信息菜单：显示职工信息窗体职工工资信息菜单：显示工资信息窗体岗位信息菜单：显示岗位信息窗体职工工资信息录入菜单：显示职工工资录入窗体 数据查询包含以下子菜单：查询职工信息：显示职工信息查询窗体查询工资信息：显示工资信息查询窗体查询岗位信息：显示岗位信息查询窗体其编码如下：Private Sub MDIForm1_

10、Load()mDataMng.Enabled = FalseEnd SubPrivate Sub mDcaxun_Click(Index As Integer)职工信息查询.ShowEnd 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 mDjia

11、oshi_Click(Index As Integer)职工工资.ShowEnd SubPrivate Sub mFxinyonghu_Click(Index As Integer)注册新用户.ShowEnd SubPrivate Sub mFExit_Click(Index As Integer)EndEnd SubPrivate Sub mDzhigong_Click(Index As Integer) 职工信息.ShowEnd Sub注册新用户窗体 用于添加新的用户名和密码。；单击“注册新用户”菜单，打开对话框如图2要求：若新用户名与系统信息表原有用户名相同，则提示“用户名已存在，重新输

12、入”；判断二次输入密码若不一致，则提示用户“输入密码不一致，重新输入密码”；判断若输入密码为空，则提示“密码不能为空”；若输入正确，则将输入的用户名保存到“系统信息”表，并提示“注册用户成功”，关闭本窗体。以下各窗体设为MDI主窗体的子窗体注册新用户的编码如下：Private Sub CmdOK_Click()Dim SQLStr As StringIf Text1 = "" Then MsgBox "请输入用户名！", vbExclamation, "确认用户名" Text1.SetFocus Exit SubElse SQLStr

13、 = "Select * from 系统信息 where 用户名='" & Text1 & "'" Adodc1.RecordSource = SQLStr Adodc1.RefreshIf Adodc1.Recordset.EOF = False Then MsgBox "用户名已存在，请重新输入！", vbExclamation, "检验用户名" Text1 = "" Text1.SetFocus Exit Sub End IfEnd IfIf Text2 &

14、lt;> Text3 Then MsgBox "二次输入的密码不一致，请重新输入", vbExclamation, "检验密码" Text2 = "": Text3 = "" Text2.SetFocus Exit SubElseIf Text2 = "" Then MsgBox "密码不能为空！", vbExclamation, "检验密码" Text2.SetFocusElse Adodc1.Recordset.Fields("用户名&

15、quot;) = Trim(Text1) Adodc1.Recordset.Fields("密码") = Trim(Text2) Me.Hide MsgBox "成功注册新用户！", vbInformation, "添加用户"End IfEnd SubPrivate Sub CmdCancel_Click()Unload MeEnd Sub分别设计各个信息窗体功能：浏览和录入各信息。该窗体以文本框显示当前记录，用按钮首记录、末记录、前一个、后一个，控制记录指针的移动；用一个标签Label显示：当前记录号/记录总数；单击表格显示按钮，显

16、示DataGrid控件(Visible=True),以表格形式显示商品信息表，单击返回按钮，可以关闭本窗体，返回主窗体。可以对记录进行新增、确认、删除、取消操作。其编码如下：Private Sub CmdAdd_Click()CmdAdd.Enabled = FalseCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueCombo1.AddItem "男"Combo1.AddItem "女"End SubPrivate Sub CmdOK_Click()CmdAdd.Enabled

17、 = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdDel_Click()x = MsgBox("确实要删除当前记录吗？", vbYesNo + vbQuestion, "确认")If x = vbYes Then If Adodc1.Recordset.EOF Then End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.Refre

18、shCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd Sub各种信息的查询窗体 可以按各种条件查找，这些条件放在组合列表框Combo中,供用户选择。在文本框中输入要查询的内容，单击查询按钮，查询结果用网格控件显示.。其编码为：Private Sub Command1_Click()If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox "请选择要修改的行" Exit SubEnd If

19、职工信息修改.ShowEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Combo1.AddItem "姓名"Combo1.AddItem "部门" ' 为组合列表框添加各选项Combo1.AddItem "职称"Combo1.Text = ""Text1.Text = "" ' 清空文本框End SubPrivate Sub Cmd1_Click()Dim str As String str = " Select 职工信息.* From 职工信息" str = str & " Where 职工信息." & Combo1.Text & " Like '" & Text1 & "%'" Adodc1.RecordSource = str Adodc1.RefreshEnd Sub参考文献