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

数据库课程设计设职工工资管理系统精品文档成绩评定表学生姓名 班级学号专业 应用统计学 课程设计题目 职工工资管理系统评语组长签字：成绩日期 20 年 月 日课程设计任务书学 院 理学院 专业 应用统计学学生姓名 班级学号课程设计题目 职工工资管理系统收集于网络，如有侵权请联系管理员删除精品文档实践教学要求与任务:职工工资管理系统（1）职工信息（2）职工工资信息（3）系统信息（4）岗位信息数据库的设计（1）系统信息（用户名、密码）（2）职工信息（职工编号、姓名、性别、部门名称、学历、职称 ）（3）职工工资信息（工资号、姓名、基本工资、奖金、缴税、保险费、应发工资、 实发工资 ）（4）岗位信息（编号、职称类别、薪酬标准 ）工作计划与进度安排:第一周：数据库设计，利用 SQLServer创建数据库及数据表。总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。第二周：管理功能设计，设计调试各种数据管理功能窗体及打印报表功能。撰写课程设计报告，验收与答辩。指导教师： 专业负责人： 学院教学副院长：2014 年11月20 2014年11月20日 2014年11月21日日摘要收集于网络，如有侵权请联系管理员删除精品文档企业的工资管理是公司管理的一个重要内容。随着企业人员数量增加，企业的工资管理工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的主要元素，资金的流动影响到 企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分。早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。早期工资管理多采取纸质材料和具有较强的时间限制。基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。关键词 关键词1：职工关键词2：工资关键词3：职工工资收集于网络，如有侵权请联系管理员删除精品文档目录1系统功能概述 01.1系统功能分析⋯ 01.2系统模块设计⋯ 02数据库设计 22.1需求分析 22.2表结构设计 23系统各功能模块的详细设计 33.1表的设计 33.2各窗体设计⋯⋯ 5参考文献 14收集于网络，如有侵权请联系管理员删除精品文档系统功能概述1.1系统功能分析工资管理系统系是为了更好地实现工资各种信息的管理以及各种信息的安全性管理。本系统主要对查看员工的各种工资信息需求所设计的，可以很好的管理数据。 本系统的主要功能由以下几个部分组成：经过调研及分析，工资管理信息系统主要完成以下功能：1）能够进行职工基本信息的浏览、编辑2）能够进行职工工资信息的浏览、编辑3）能够按姓名、或部门、或职称查询职工的基本信息；查询职工工资信息1.2系统物理模块设计职工工资管理系职工信 工资基本设员员员基奖缴保应实工工工本金税险发发信信信工费工工收集于网络，如有侵权请联系管理员删除精品文档2数据库设计2.1需求分析登录信息 返回信息用户 登录 操作错误信息 寻找信息数据库需求分析——数据流图2.2表结构设计收集于网络，如有侵权请联系管理员删除精品文档系统各功能模块的详细设计3.1表的设计1.职工信息表字段名是否为空数据类型职工编号NULLint姓名NULLnchar(10)性别NULLnchar(10)部门名称NULLnchar(10)学历NULLnchar(10)职称NULLnchar(10)职工工资表字段名 是否为空 数据类型收集于网络，如有侵权请联系管理员删除精品文档工资号NULLint基本工资NULLint姓名NULLnchar(10)奖金NULLint缴税NULLint保险费NULLint应发工资NULLint实发工资NULLint系统信息表字段名 是否为空 数据类型用户名 NULL nchar(10)密码 NULL int收集于网络，如有侵权请联系管理员删除精品文档岗位信息表字段名是否为空数据类型编号NULLint职称类别NULLnchar(10)薪酬标准NULLnchar(10)3.2各窗体设计启动封面窗体及登录对话框的设计要求：图片背景、欢迎类文字、单击显示“进入系统”标题的标签或按钮，将打开“登录”对话框，用户输入用户名和密码，若正确则打开下面的主窗体；否则提示密码错误，请重新输入。最多允许输入 3次。收集于网络，如有侵权请联系管理员删除精品文档进入系统后进入登陆主窗体的编码为：PrivateSubCommand1_Click()登录.ShowEndSub收集于网络，如有侵权请联系管理员删除精品文档登陆编码如下：DimmiCountAsIntegerPrivateSubCmdLand_Click()DimSQLStrAsStringSQLStr="Select*From 系统信息Where用户名='"&Text1&"'"Adodc1.RecordSource=SQLStrAdodc1.RefreshMsgBox"用户名错误，重新输入",vbExclamation," 警告"Text1.Text=""Text1.SetFocusElse 密码")=Text2ThenMDIForm1.ShowUnloadMeElseMsgBox" 密码错误，重新输入 ",vbExclamation," 警告"Text2.Text=""Text2.SetFocus收集于网络，如有侵权请联系管理员删除精品文档EndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCmdCancel_Click()UnloadMeEndSub主窗体要求：设计为MDI窗体，含有主菜单：[文件]、[数据管理]、[数据查询]。[文件]菜单包含以下子菜单及其功能：[注册新用户]菜单：打开“注册新用户”窗体[退出]：结束程序运行[数据管理]包含以下子菜单：[职工基本信息]菜单：显示职工信息窗体[职工工资信息]菜单：显示工资信息窗体[岗位信息]菜单：显示岗位信息窗体[职工工资信息录入]菜单：显示职工工资录入窗体[数据查询]包含以下子菜单：[查询职工信息]：显示职工信息查询窗体[查询工资信息]：显示工资信息查询窗体[查询岗位信息]：显示岗位信息查询窗体收集于网络，如有侵权请联系管理员删除精品文档其编码如下：PrivateSubMDIForm1_Load()mDataMng.Enabled=FalseEndSubPrivateSubmDcaxun_Click(IndexAsInteger)职工信息查询.ShowEndSubPrivateSubmDcaxun1_Click(IndexAsInteger)职工工资查询.ShowEndSubPrivateSubmDcaxun2_Click(IndexAsInteger)岗位信息查询.ShowEndSubPrivateSubmDgangwei_Click(IndexAsInteger)岗位信息.ShowEndSubPrivateSubmDjiaoshi_Click(IndexAsInteger)职工工资.ShowEndSubPrivateSubmFxinyonghu_Click(IndexAsInteger)注册新用户.ShowEndSubPrivateSubmFExit_Click(IndexAsInteger)End收集于网络，如有侵权请联系管理员删除精品文档EndSubPrivateSubmDzhigong_Click(IndexAsInteger)职工信息.ShowEndSub注册新用户窗体用于添加新的用户名和密码。；单击“注册新用户”菜单，打开对话框如图 2要求：若新用户名与系统信息表原有用户名相同，则提示“用户名已存在，重新输入”；判断二次输入密码若不一致，则提示用户“输入密码不一致，重新输入密码”；判断若输入密码为空，则提示“密码不能为空”；若输入正确，则将输入的用户名保存到“系统信息”表，并提示“注册用户成功”，关闭本窗体。以下各窗体设为 MDI主窗体的子窗体注册新用户的编码如下：PrivateSubCmdOK_Click()DimSQLStrAsStringIfText1=""ThenMsgBox"请输入用户名！",vbExclamation,"确认用户名"收集于网络，如有侵权请联系管理员删除精品文档Text1.SetFocusExitSubElseSQLStr="Select*from系统信息where用户名='"&Text1&"'"Adodc1.RecordSource=SQLStrAdodc1.RefreshMsgBox"用户名已存在，请重新输入！ ",vbExclamation,"检验用户名"Text1=""Text1.SetFocusExitSubEndIfEndIfIfText2<>Text3ThenMsgBox"二次输入的密码不一致，请重新输入 ",vbExclamation,"检验密码"Text2="":Text3=""Text2.SetFocusExitSubElseIfText2=""ThenMsgBox"密码不能为空！",vbExclamation,"检验密码"Text2.SetFocusElse用户名")=Trim(Text1)密码")=Trim(Text2)Me.HideMsgBox"成功注册新用户！",vbInformation,"添加用户"EndIfEndSubPrivateSubCmdCancel_Click()UnloadMeEndSub收集于网络，如有侵权请联系管理员删除精品文档分别设计各个信息窗体功能：浏览和录入各信息。该窗体以文本框显示当前记录，用按钮 [首记录]、[末记录]、[前一个]、[后一个]，控制记录指针的移动；用一个标签 Label显示：当前记录号/记录总数；单击[表格显示]按钮，显示DataGrid控件(Visible=True),以表格形式显示商品信息表，单击[返回]按钮，可以关闭本窗体，返回主窗体。可以对记录进行新增、确认、删除、取消操作。其编码如下：PrivateSubCmdAdd_Click()CmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueCombo1.AddItem"男"收集于网络，如有侵权请联系管理员删除精品文档Combo1.AddItem"女"EndSubPrivateSubCmdOK_Click()CmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdDel_Click()x=MsgBox("确实要删除当前记录吗？ ",vbYesNo+vbQuestion,"确认")Ifx=vbYesThenEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubCmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSub各种信息的查询窗体可以按各种条件查找，这些条件放在组合列表框 Combo中,供用户选择。在文本框中输入要查询的内容，单击 [查询]按钮，查询结果用网格控件显示 .。收集于网络，如有侵权请联系管理员删除精品文档其编码为：PrivateSubCommand1_Click()MsgBox"请选择要修改的行"ExitSubEndIf职工信息修改.ShowEndSubPrivateSubCommand3_Click()EndEndSubPrivateSubForm_Load()Combo1.AddItem"姓名"Combo1.AddItem"部门" '为组合列表框添加各选项Combo1.AddItem"职称"Combo1.Text=""Text1.Text="" '清空文本框EndSubPrivateSubCmd1_Click()收集于网络，如有侵权请联系管理员删除精品文档DimstrAsStringstr="Select职工信息.*From职工信息"str=str&"Where职工信息."&Combo1.Text&"Like'"&Text1&"%'"Adodc1.RecordSource=strAdodc1.RefreshEndSub参考文献王进强．VisualBasic.NET基础教程．北京:清华大学出版社，2004童爱红．刘凯.VB.NET应用教程．清华大学出版社，2005-01[3]张立科．VisualBasic.NET设计与开