职员工资管理系统毕业论文.doc

目录1 系统简介 -(2)2 系统需求分析 -(2)3 系统运行环境 -(2)4 系统设计 -(3)4.1 数据库设计说明 -(3)4.2 各功能模块系统图 -(3)4.3 各功能说明和界面图 -(4)5 程序清单 -(7)6 论文总结 -(30)7 文献参考 -(30)职员工资管理系统摘要 本系统主要是根据职工工资发放情况展开的，根据工资的增长和减少，还包括扣除税费、公积金等方面设计。主要是为了更好的方便管理人员查询并统计工资，特设计本程序。 该工资管理系统主要用于职员工资的管理，管理员通过此系统保证职员信息的准确性，此系统的建立和使用有利于管理者和职员更好的了解自己的工资信息，提高工作效率。关键字：工资管理 VB6开发1 系统简介 本息系统是“职员工资管理系统”，其具备浏览、添加、修改、删除、查找、统计等功能。每一名职员每月都有工资，管理人员可根据职员的姓名、性别、电话等可以从本系统后去获取工资信息。为了更好的方便管理人员查询并统计工资，特设计本程序。可以通过该系统对工资信息进行查看和对职员的修改、添加和删除，提高工作效率。在此次的毕业设计中所使用的软件是：Microsoft Visual basic 6.0 。2 系统需求分析 该工资管理系统主要用于工资的管理，管理员通过此系统保证职员信息的准确性，此系统的建立和使用有利于管理者和职员更好的了解自己的工资信息，提高工作效率。3 系统运行环境 本设计所使用的系统环境为：Windows 98、Windows Xp、wingdows 2000 windows98 该系统环境是计算机内默认的系统环境Microsoft Visual basicVisual basic 6.0是Microsoft公司推出的编程工具软件，它采用面向对象的程序设计方法，在原有版本的基础上扩充了一系列新特性并采用了开放式结构。本软件采用了Visual basic 6.0编写，它主要分为五大部分：查看或修改信息部分、添加或删除信息部分、排序部分。Visual basic 6.0的安装1）将Microsoft Visual basic安装盘放入光驱，双击Vb6.0文件夹下的setup文件后，出现Microsoft Visual basic的安装向导；2）单击“下一步”，出现许可证协议，点击“是”；3）出现“目标路径”界面，使用系统默认的路径，单击“下一步”；4）依次单击“下一步”按系统提示自动进行安装；5）最后点击“完成”即可结束安装。4 系统设计 4.1 数据库设计说明工资管理系统所用到的数据库：数据库名：yu字段名类 型宽度姓名文本型20性别文本型20电话文本型20住址文本型20职称文本型20基本工资单精度4公积金单精度4奖金单精度4个人所得税单精度4实发工资切单精度4应发工资单精度4岗位津贴单精度44.2 各功能模块系统图 模块系统图如下：欢迎使用工资管理系统界面 关于窗体/帮助系统窗口浏览统计窗体查询窗体退出系统工资管理系统修改删除添加按职称为高经工程师统计实发应发按职秋为部门经理统计实发应发按职称为工程师统计实发应发按职称为职员统计应发实发4.3 各功能模块系统说明 4.3.1 登录界面 当运行工资管理系统程序后,出现如下界面 用户需输入用户名和密码，用户名:zhutaotao,密码当用户输入贴完毕后单击回车即可，系统对其用户名及密码进行验证，正确将进入系统主窗口界面；不正确系统会出现提示信息，如密码三次有误界面如下。如单击”确定”,将退出本系统。4.3.2 文件浏览窗口 当顺利通过登录窗体后，将出现系统主窗口界面，界面如下： 菜单“文件”中的“浏览”中有全部浏览和逐条浏览。在逐条浏览中“首记录”、“上一条“、“下一条”、“尾记录”可浏览数据库内容。图如下： 全部浏览责是把数据库中所有的纪录全部浏览。当单击“逐条”按钮时将切换到逐条浏览的界面。界面如下： 4.3.3 查询窗体 单击主窗体中菜单栏“查询”菜单，弹出查询界面。图如下当用户输入相关信息后点“查询”按钮，后数据库将显示用户所要查询的内容。（姓名为必填字段）4.4.4 关于窗体 5 程序清单5.1 表单 5.1.1 登录界面属性：Form1的caption=“登录”Picture1：e:study大猫59.gifWindowState：2-Maximized1) 标签1Caption: 欢迎进入工资管理系统FontNam: 楷体FontSize: 小二Backstyle: 0-透明Forecolor: H800000122) 标签2Caption: 帐号FontNam: 楷体FontSize: 五号Backstyle: 0-透明Forecolor: H800000123) 标签1Caption: 口令FontNam: 楷体FontSize: 五号Backstyle: 0-透明Forecolor: H80000012 4） 标签3Caption: 帐号正确FontName: 楷体FontSize: 四号Backstyle:0-透明Forecolor:H000000FF5） 命令按钮1Caption: 退出FontName: 黑体FontSize: 小五Height：375Left：975 5.1.2 浏览窗体 form11form11的caption:浏览 1) 标签1Caption: 姓名FontNam: 宋体FontSize: 小五Height：195Left：2402）标签2Caption: 性别FontNam: 宋体FontSize: 小五Height：195Left：2403）标签3Caption:职称FontNam: 宋体FontSize: 小五Height：195Left：2404）标签4Caption: 联系电话FontNam: 宋体FontSize: 小五Height：195Left：2405）标签5Caption: 基本工资FontNam: 宋体FontSize: 小五Height：195Left：31206）标签6Caption: 实发工资FontNam: 宋体FontSize: 小五Height：195Left：31207）标签7Caption: 奖金FontNam: 宋体FontSize: 小五Height：195Left：31208）标签8Caption: 家庭住址FontNam: 宋体FontSize: 小五Height：195Left：31209）文本框1text: FontNam: 宋体FontSize: 小五Height：375Left：108010）文本框2text: FontNam: 宋体FontSize: 小五Height：375Left：108011）文本框3text: FontNam: 宋体FontSize: 小五Height：375Left：108012）文本框4text: FontNam: 宋体FontSize: 小五Height：375Left：108013）文本框5text: FontNam: 宋体FontSize: 小五Height：375Left：420014）文本框6text: FontNam: 宋体FontSize: 小五Height：375Left：420015）文本框7text: FontNam: 宋体FontSize: 小五Height：375Left： 420016）文本框8text: FontNam: 宋体FontSize: 小五Height：375Left：420017）命令按钮1caption: 首条 FontNam: 宋体FontSize: 小五Height：375Left：156018）命令按钮2caption: 上一条 FontNam: 宋体FontSize: 小五Height：375Left：240019）命令按钮3caption: 下一条 FontNam: 宋体FontSize: 小五Height：375Left：324020）命令按钮4caption: 尾条 FontNam: 宋体FontSize: 小五Height：375Left：4080 5.1.3 查询窗体 form2的caption：查询1) 标签1Caption: 姓名FontNam: 宋体FontSize: 小五Height：315Left：10802）标签2Caption: 电话FontNam: 宋体FontSize: 小五Height：315Left：30003）标签3Caption:住址FontNam: 宋体FontSize: 小五Height：315Left：30004）combo1Caption: 性别FontNam: 宋体FontSize: 小五Height：315Left：30005）combo2Caption:职称FontNam:宋体FontSize:小五Height:315Left:49206）命令按钮1caption: 查询FontNam: 宋体FontSize: 小五Height：375Left：55207)datagrid1FontNam:宋体FontSize:小五Height:2415Left:240 5.1.4 关于 Form10的caption=“关于”Picture:e:study大猫2.jpg1）标签1Caption: 工资管理系统FontNam: 楷体FontSize: 小三Alignment: 2-中央Backstyle: 0-透明2）标签2Caption: 作者：朱涛涛 FontNam: 楷体FontSize: 四号Alignment: 2-中央Backstyle: 0-透明3）标签3Caption: 版权所有 侵权必究FontNam: 楷体FontSize: 小四Alignment: 2-中央Backstyle: 0-透明5.2 各窗体代码如下 5.2.1 登录窗体Dim n As Integer 定义变量Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then 判断是不是回车建 Text2.SetFocus text2得到输入控制权 If Text1.Text = yuzhaosen Then Label4.Visible = True Else response = MsgBox(用户名不正确！, , 错误信息) Text1.Text = Text1.SetFocus End IfEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then If Text2.Text = yuzhaosen Then MDIForm1.Show response = MsgBox(欢迎进入本软件, , 提示信息) Else n = n + 1 计数是不是三次 If n = 700 Then Text9.Text = (Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text8.Text) * 0.05 Text7.Text = Val(Text10.Text) - (Val(Text10.Text) * 0.05) - Val(Text3.Text) Else Text9.Text = 0 Text7.Text = Val(Text10.Text) - Val(Text3.Text) End IfEnd IfEnd SubPrivate Sub Text3_Change()If xx = 1 Then Text10.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text8.Text) If Text3.Text = Then Text3.Text = 0End IfEnd SubPrivate Sub Text5_Change()If xx = 1 Then Text10.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text8.Text) If Text5.Text = Then Text5.Text = 0End IfEnd SubPrivate Sub Text6_Change()If xx = 1 Then Text10.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text8.Text) If Text6.Text = Then Text6.Text = 0End IfEnd SubPrivate Sub Text8_Change()If xx = 1 Then Text10.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text8.Text) If Text8.Text = Then Text8.Text = 0End IfEnd Sub5.2.4.2修改窗体代码Dim xy As IntegerPrivate Sub Combo1_Change()Text12.Text = Combo1.TextText16.Text = Combo2.TextEnd SubPrivate Sub Command1_Click()Data1.Recordset.MoveFirstEnd SubPrivate Sub Command2_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF Then response = MsgBox(已到库首！, , 注意) Data1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command3_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF Then response = MsgBox(已到库尾!, , 注意) Data1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command4_Click()Data1.Recordset.MoveLastEnd SubPrivate Sub Command5_Click()xy = 1Text1.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseText6.Locked = FalseText8.Locked = FalseCombo1.Locked = FalseCombo2.Locked = FalseCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseCommand5.Enabled = FalseCommand6.Enabled = FalseCommand7.Enabled = TrueEnd SubPrivate Sub Command6_Click()Form4.HideEnd SubPrivate Sub Command7_Click()response = MsgBox(是否确定修改？, 17, 注意) 此功能为弹出对话框就有确定和取消按钮If response = 1 Then Data1.RefreshEnd IfIf response = 2 Then Text1.Text = Text11.Text Text2.Text = Text13.Text Text3.Text = Text14.Text Text4.Text = Text15.Text Text5.Text = Text17.Text Text6.Text = Text18.Text Text8.Text = Text19.Text Combo1.Text = Text12.Text Combo2.Text = Text16.TextEnd IfText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueText7.Locked = TrueText8.Locked = TrueText9.Locked = TrueText10.Locked = TrueCombo1.Locked = TrueCombo2.Locked = TrueCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = Falsexy = 0End SubPrivate Sub Form_Load()Command7.Enabled = FalseText1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueText7.Locked = TrueText8.Locked = TrueText9.Locked = TrueText10.Locked = TrueCombo1.Locked = TrueCombo2.Locked = TrueData1.Visible = FalseForm4.Height = 4245Form4.Width = 8655Form4.Left = 3300Form4.Top = 2300End Sub此段代码同添加Private Sub Text10_Change()If xy = 1 Then If Val(Text10.Text) = 700 Then Text9.Text = (Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text8.Text) * 0.05 Text7.Text = Val(Text10.Text) - (Val(Text10.Text) * 0.05) - Val(Text3.Text) Else Text9.Text = 0 Text7.Text = Val(Text10.Text) - Val(Text3.Text) End IfEnd IfEnd SubPrivate Sub Text12_Change()Combo1.Text = Text12.TextEnd SubPrivate Sub Text16_Change()Combo2.Text = Text16.TextEnd SubPrivate Sub Text3_Change()If xy = 1 Then Text10.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text8.Text) If Text3.Text = Then Text3.Text = 0End IfEnd SubPrivate Sub Text5_Change()If xy = 1 Then Text10.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text8.Text) If Text5.Text = Then Text5.Text = 0End IfEnd SubPrivate Sub Text6_Change()If xy = 1 Then Text10.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text8.Text) If Text6.Text = Then Text6.Text = 0End IfEnd SubPrivate Sub Text8_Change()If xy = 1 Then Text10.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text6.Text) + Val(Text8.Text) If Text8.Text = Then Text8.Text = 0End IfEnd Sub5.2.4.3删除窗体代码Private Sub Command1_Click()Data1.Recordset.MoveFirstEnd SubPrivate Sub Command2_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF Then respones = MsgBox(已到库首！, , 注意) Data1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command3_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF Then response = MsgBox(已到库尾!, , 注意) Data1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command4_Click()Data1.Recordset.MoveLastEnd SubPrivate Sub Command5_Click()response = MsgBox(是否确定要删除？, 17, 注意)If response = 1 Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast End IfEnd IfIf response = 2 ThenData1.RefreshEnd IfEnd SubPrivate Sub Command6_Click()Form5.HideEnd SubPrivate Sub Form_Load()Text1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueText7.Locked = TrueText8.Locked = TrueText9.Locked = TrueText10.Locked = TrueCombo1.Locked = TrueCombo2.Locked = TrueData1.Visible = FalseForm5.Height = 4245Form5.Width = 8655Form5.Left = 3300Form5.Top = 2300End Sub5.2.5查询窗体代码Dim rs As String此功能是用SQL语句编写的目地是从数据库中一个一个读出所要的字段Private Sub Command1_Click()a = 0If Text1.Text Then rs = select * from table1 where 姓名= & Text1.T