数据库课设职工工资管理系统.doc

1、沈阳理工大学课程设计专用纸摘 要企业的工资管理是公司管理的一个重要内容。随着企业人员数量增加，企业的工资管理工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的主要元素，资金的流动影响到 企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分。早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。早期工

2、资管理多采取纸质材料和具有较强的时间限制。基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。关键词 关键词1：职工关键词2：工资 关键词3：职工工资目 录1 系统功能概述11.1 系统功能分析11.2 系统模块设计12 数据库设计22.1 需求分析22.2 表结构设计23 系统各功能模块的详细设计33.1 表的设计33.2 各窗体设计5参考文献14141 系统功能概述1.1 系统功能分析工资管理系统系是为了更好地实现工资各种信息的管理以及各种信息的安全性管理。本系统主要对查看员工的各种工资信息需求所设计的，可以很好的管理数据。 本系统的主

3、要功能由以下几个部分组成：经过调研及分析，工资管理信息系统主要完成以下功能：（1）能够进行职工基本信息的浏览、编辑（2）能够进行职工工资信息的浏览、编辑（3）能够按姓名、或部门、或职称查询职工的基本信息；查询职工工资信息1.2 系统物理模块设计职工工资管理系统职工信息工资基本设定缴税实发工资应发工资保险费奖金基本工资员工信息修改员工信息删除员工信息添加2 数据库设计2.1 需求分析 登录信息 返回信息 操作 登录用户 错误信息 寻找信息 数据库需求分析数据流图2.2 表结构设计职工工资管理系统 3 系统各功能模块的详细设计3.1 表的设计1.职工信息表字段名是否为空数据类型职工编号 NULLi

4、nt姓名NULLnchar(10)性别NULLnchar(10)部门名称NULLnchar(10)学历NULLnchar(10)职称NULLnchar(10)2.职工工资表字段名是否为空数据类型工资号NULLint基本工资NULLint姓名NULLnchar(10)奖金NULLint缴税NULLint保险费NULLint应发工资NULLint实发工资NULLint3.系统信息表字段名是否为空数据类型用户名NULLnchar(10)密码NULLint4.岗位信息表字段名是否为空数据类型编号NULLint职称类别NULLnchar(10)薪酬标准NULLnchar(10)3.2 各窗体设计3.2.

5、1启动封面窗体及登录对话框的设计要求：图片背景、欢迎类文字、单击显示“进入系统”标题的标签或按钮，将打开“登录”对话框，用户输入用户名和密码，若正确则打开下面的主窗体；否则提示密码错误，请重新输入。最多允许输入3次。进入系统后进入登陆主窗体的编码为： Private Sub Command1_Click() 登录.Show End Sub登陆编码如下：Dim miCount As IntegerPrivate Sub CmdLand_Click()Dim SQLStr As StringSQLStr = Select * From 系统信息 Where 用户名= & Text1 & Adodc

6、1.RecordSource = SQLStrAdodc1.RefreshIf Adodc1.Recordset.EOF Then MsgBox 用户名错误，重新输入, vbExclamation, 警告 Text1.Text = Text1.SetFocusElse If Adodc1.Recordset.Fields(密码) = Text2 Then MDIForm1.Show Unload Me Else MsgBox 密码错误，重新输入 , vbExclamation, 警告Text2.Text = Text2.SetFocus End IfEnd IfmiCount = miCoun

7、t + 1If miCount = 3 Then Unload MeEnd SubPrivate Sub CmdCancel_Click() Unload MeEnd Sub3.2.2主窗体要求：设计为MDI窗体，含有主菜单：文件、数据管理、数据查询。 文件菜单包含以下子菜单及其功能：注册新用户菜单：打开“注册新用户”窗体退出：结束程序运行 数据管理 包含以下子菜单：职工基本信息菜单：显示职工信息窗体职工工资信息菜单：显示工资信息窗体岗位信息菜单：显示岗位信息窗体职工工资信息录入菜单：显示职工工资录入窗体 数据查询包含以下子菜单：查询职工信息：显示职工信息查询窗体查询工资信息：显示工资信息查询

8、窗体查询岗位信息：显示岗位信息查询窗体其编码如下：Private Sub MDIForm1_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(Inde

9、x As Integer)岗位信息.ShowEnd SubPrivate Sub mDjiaoshi_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 Sub3.2.3注册新用户窗体 用于添加新的用户名和密码。；单击“注册

10、新用户”菜单，打开对话框如图2要求：若新用户名与系统信息表原有用户名相同，则提示“用户名已存在，重新输入”；判断二次输入密码若不一致，则提示用户“输入密码不一致，重新输入密码”；判断若输入密码为空，则提示“密码不能为空”；若输入正确，则将输入的用户名保存到“系统信息”表，并提示“注册用户成功”，关闭本窗体。以下各窗体设为MDI主窗体的子窗体注册新用户的编码如下：Private Sub CmdOK_Click()Dim SQLStr As StringIf Text1 = Then MsgBox 请输入用户名！, vbExclamation, 确认用户名 Text1.SetFocus Exit

11、SubElse SQLStr = 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 Text3 Then MsgBox 二次输入的密码不一致，请重新输入, vbExclamation, 检验密码 Text2 = : T

12、ext3 = Text2.SetFocus Exit SubElseIf Text2 = Then MsgBox 密码不能为空！, vbExclamation, 检验密码 Text2.SetFocusElse Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户名) = Trim(Text1) Adodc1.Recordset.Fields(密码) = Trim(Text2) Adodc1.Recordset.Update Me.Hide MsgBox 成功注册新用户！, vbInformation, 添加用户End IfEnd SubPriva

13、te Sub CmdCancel_Click()Unload MeEnd Sub3.2.4分别设计各个信息窗体功能：浏览和录入各信息。该窗体以文本框显示当前记录，用按钮首记录、末记录、前一个、后一个，控制记录指针的移动；用一个标签Label显示：当前记录号/记录总数；单击表格显示按钮，显示DataGrid控件(Visible=True),以表格形式显示商品信息表，单击返回按钮，可以关闭本窗体，返回主窗体。可以对记录进行新增、确认、删除、取消操作。其编码如下：Private Sub CmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled = Fal

14、seCmdDel.Enabled = FalseCmdOk.Enabled = TrueCmdEsc.Enabled = TrueCombo1.AddItem 男Combo1.AddItem 女End SubPrivate Sub CmdOK_Click()Adodc1.Recordset.UpdateCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled = FalseEnd SubPrivate Sub CmdDel_Click()x = MsgBox(确实要删除当前记录吗？, vbYesN

15、o + vbQuestion, 确认)If x = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End IfElse Adodc1.RefreshEnd IfEnd SubPrivate Sub CmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled = TrueCmdDel.Enabled = TrueCmdOk.Enabled = FalseCmdEsc.Enabled =

16、FalseEnd Sub5.2.5各种信息的查询窗体 可以按各种条件查找，这些条件放在组合列表框Combo中,供用户选择。在文本框中输入要查询的内容，单击查询按钮，查询结果用网格控件显示.。其编码为：Private Sub Command1_Click()If Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF Then MsgBox 请选择要修改的行 Exit SubEnd If职工信息修改.ShowEnd SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub Form_Load()Combo1.Add

17、Item 姓名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参考文献1 王进强Visual Basic.NET 基础教程北京

18、:清华大学出版社，20042 童爱红刘凯.VB.NET应用教程清华大学出版社，2005-013 张立科Visual Basic.NET设计与开发实例机械工程出版社，2005-24 前导工作室中文Access 2000开发使用手册机械工业出版社，2002-015 Craig EddyTimothy Buchanan 中文Access 2000机械工业出版社，20036 甘仞初系统开发北京：经济科技出版社，19967 龚沛曾，杨志强，陆慰民Visual Basic.NET实验知道与测试北京：高等教育出版社，20058 王晟Visual Basic.NET数据库开发经典案例解析北京：清华大学出版社，

19、20059 王家华软件工程东北大学出版社，200110 文斌，刘长清，田原软件工程与软件文档写作北京：清华大学出版社，200511 Stephen R.Schach美Object-Oriented and Classical Software Engineering北京：机械工业出版社，199912 Clifton Nock美DataAccessPatterns: Database Interactionsinobjectoriented applications中国电力出版社，2004-613 Jeffrey RichterMicrosoft Press.Applied Microsoft.NET Framework programming2003