职员工资管理系统概要

本系统主要是根据职工工资发放情况展开的，根据工资的增长和减少，还包括扣除税费、公积金等方面设计。主要是为了更好的方便管理人员查询并统计工资，特设计本程序。该工资管理系统主要用于职员工资的管理，管理员通过此系统保证职员信息的准确性，此系统的建立和使用有利于管理者和职员更好的了解自己的工资信息，提高工作效率。关键字：工资管理 VB6开发1 系统简介本息系统是“职员工资管理系统”，其具备浏览、添加、修改、删除、查找、统计等功能。每一名职员每月都有工资，管理人员可根据职员的姓名、性别、电话等可以从本系统后去获取工资信息。为了更好的方便管理人员查询并统计工资，特设计本程序。可以通过该系统对工资信息进行查看和对职员的修改、添加和删除，提高工作效率。在此次的毕业设计中所使用的软件是：Microsoft Visual basic 6.0 。2 系统需求分析该工资管理系统主要用于工资的管理，管理员通过此系统保证职员信息的准确性，此系统的建立和使用有利于管理者和职员更好的了解自己的工资信息，提高工作效率。3 系统运行环境本设计所使用的系统环境为：Windows 98、Windows Xp、wingdows 2000windows98 该系统环境是计算机内默认的系统环境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,密码:,当用户输入贴完毕后单击回车即可，系统对其用户名及密码进行验证，正确将进入系统主窗口界面；不正确系统会出现提示信息，如密码三次有误界面如下。如单击”确定”,将退出本系统。p 4.3.2 文件浏览窗口 当顺利通过登录窗体后，将出现系统主窗口界面，界面如下：建筑业企业资质申请程序及必备资料一、建筑业企业应当按照属地管理原则，向企业注册所在地县级以上地方人民政府建设行政主管部门申请资质。 二、新设立的建筑业企业，到工商行政管理部门办理登记注册手续并取得企业法人营业执照后，方可到建设行政主管部门办理资质申请手续。 新设立的企业申请资质，应当向建设行政主管部门提供下列资料：（一）建筑业企业资质申请表；（二）企业法人营业执照；（三）企业章程；（五）企业项目经理资质证书、身份证；全部浏览责是把数据库中所有的纪录全部浏览。当单击“逐条”按钮时将切换到逐条浏览的界面。界面如下：（七）需要出具的其他有关证件、资料。三、建筑业企业资质升级，除向建设行政主管部门提供本规定第八条所列资料外，还应当提供下列资料：（一）企业原资质证书正、副本；（二）企业的财务决算年报表；（三）企业完成的具有代表性工程的合同及工程竣工验收备案、安全评估资料。四、新设立的建筑业企业，其资质等级按照最低等级核定，并设一年的暂定期。五、申请施工总承包资质的建筑业企业应当在总承包序列内选择一类资质作为本企业的主项资质，并可以在总承包序列内再申请其他类不高于企业主项资质级别的资质，也可以申请不高于企业主项资质级别的专业承包资质。施工总承包企业承担总承包项目范围内的专业工程可以不再申请相应专业承包资质。六、建筑业企业连续三年年检合格，方可申请晋升上一个资质等级。七、建筑业企业资质证书不授予事业单位、社会组织，不授予主营为勘察、设计、工商贸、房地产等不是建筑施工的企业，不授予上述企事业单位所属的不具备独立企业法人资格的建筑施工单位，不授予企业集团，只授予符合条件的企业集团的母公司和子公司。八、申请材料的要求（一）建筑业企业申请资质，需报送建筑业企业资质申请表一式四份，附件材料一份。申请铁道、交通、水利、信息产业、民航等方面资质的企业，每申请一个方面的资质，需增加填写两份建筑业企业资质申请表，并将其相应的附件材料分开装订。 （二）建筑业企业的工程技术人员、技术装备和工程业绩（包括境外工程业绩）等资质条件，均是以独立企业法人为审核单位。企业（集团）的母、子公司在申请资质时，上述各项指标均不得重复计算；不得将子公司的业绩、人员、设备、工程结算收入等作为母公司的资质条件。（三）附件材料中的企业资质证书、人员职称证书和身份证、财务和统计报表、合同、工程竣工验收、安全评估等资料可采用复印件，其中资质证书须将正、副本的全部内容进行复印，不得有缺页。申请材料中要求企业加盖公章或印鉴的，复印的公章或印鉴无效。附件材料中企业的项目经理资质证书和身份证复印件、企业的工程技术和经济管理人员职称证书复印件应当单独装订。（四）对企业改制，或者企业分立、合并后组建设立的建筑业企业申请资质，还应当提供如下说明或证明：新企业与原企业的产权关系、资本构成及资产负债情况；会计师事务所的验资证明，其中国有企业还需出具国有资产管理部门的核准文件；新企业与原企业的人员、内部组织机构的分立与合并情况；工程业绩的分割、分并情况等。原企业申请保留资质的，对原企业的资质须重新核定，重新核定的要求与上款要求相同。 4.4.4 关于窗体 5 程序清单5.1 表单 5.1.1 登录界面属性：Form1的caption=“登录”Picture1：e:study大猫59.gifWindowState：2-Maximized1 标签1Caption: 欢迎进入工资管理系统FontNam: 楷体FontSize: 小二Backstyle: 0-透明Forecolor: H2 标签2Caption: 帐号FontNam: 楷体FontSize: 五号Backstyle: 0-透明Forecolor: H3 标签1Caption: 口令FontNam: 楷体FontSize: 五号Backstyle: 0-透明Forecolor: H4） 标签3Caption: 帐号正确FontName: 楷体FontSize: 四号Backstyle:0-透明Forecolor:HFF5） 命令按钮1Caption: 退出FontName: 黑体FontSize: 小五Height：375Left：9755.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：40805.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：55207datagrid1FontNam:宋体FontSize:小五Height:2415Left:2405.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 IntegerIf KeyAscii = 13 Then 判断是不是回车建Text2.SetFocus text2得到输入控制权If Text1.Text = yuzhaosen ThenLabel4.Visible = TrueElseresponse = MsgBox(用户名不正确！, , 错误信息Text1.Text = Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As IntegerIf KeyAscii = 13 Then If Text2.Text = yuzhaosen ThenMDIForm1.Showresponse = MsgBox(欢迎进入本软件, , 提示信息Elsen = n + 1 计数是不是三次If n = 700 ThenText9.Text = (Val(Text3.Text + Val(Text5.Text + Val(Text6.Text + Val(Text8.Text * 0.05Text7.Text = Val(Text10.Text - (Val(Text10.Text * 0.05 - Val(Text3.TextElseText9.Text = 0Text7.Text = Val(Text10.Text - Val(Text3.TextEnd IfEnd IfEnd SubPrivate Sub Text3_Change(If xx = 1 ThenText10.Text = Val(Text3.Text + Val(Text5.Text + Val(Text6.Text + Val(Text8.TextIf Text3.Text = Then Text3.Text = 0End IfEnd SubPrivate Sub Text5_Change(If xx = 1 ThenText10.Text = Val(Text3.Text + Val(Text5.Text + Val(Text6.Text + Val(Text8.TextIf Text5.Text = Then Text5.Text = 0End IfEnd SubPrivate Sub Text6_Change(If xx = 1 ThenText10.Text = Val(Text3.Text + Val(Text5.Text + Val(Text6.Text + Val(Text8.TextIf Text6.Text = Then Text6.Text = 0End IfEnd SubPrivate Sub Text8_Change(If xx = 1 ThenText10.Text = Val(Text3.Text + Val(Text5.Text + Val(Text6.Text + Val(Text8.TextIf 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 Thenresponse = MsgBox(已到库首！, , 注意Data1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command3_Click(Data1.Recordset.MoveNextIf Data1.Recordset.EOF Thenresponse = 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 ThenData1.RefreshEnd IfIf response = 2 ThenText1.Text = Text11.TextText2.Text = Text13.TextText3.Text = Text14.TextText4.Text = Text15.TextText5.Text = Text17.TextText6.Text = Text18.TextText8.Text = Text19.TextCombo1.Text = Text12.TextCombo2.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 ThenIf Val(Text10.Text = 700 ThenText9.Text = (Val(Text3.Text + Val(Text5.Text + Val(Text6.Text + Val(Text8.Text * 0.05Text7.Text = Val(Text10.Text - (Val(Text10.Text * 0.05 - Val(Text3.TextElseText9.Text = 0Text7.Text = Val(Text10.Text - Val(Text3.TextEnd 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 ThenText10.Text = Val(Text3.Text + Val(Text5.Text + Val(Text6.Text + Val(Text8.TextIf Text3.Text = Then Text3.Text = 0End IfEnd SubPrivate Sub Text5_Change(If xy = 1 ThenText10.Text = Val(Text3.Text + Val(Text5.Text + Val(Text6.Text + Val(Text8.TextIf Text5.Text = Then Text5.Text = 0End IfEnd SubPrivate Sub Text6_Change(If xy = 1 ThenText10.Text = Val(Text3.Text + Val(Text5.Text + Val(Text6.Text + Val(Text8.TextIf Text6.Text = Then Text6.Text = 0End IfEnd SubPrivate Sub Text8_Change(If xy = 1 ThenText10.Text = Val(Text3.Text + Val(Text5.Text + Val(Text6.Text + Val(Text8.TextIf 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 Thenrespones = MsgBox(已到库首！, , 注意Data1.Recordset.MoveFirstEnd IfEnd SubPrivate Sub Command3_Click(Data1.Recordset.MoveNextIf Data1.Recordset.EOF Thenresponse = MsgBox(已到库尾!, , 注意Data1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command4_Click(Data1.Recordset.MoveLastEnd SubPrivate Sub Command5_Click(response = MsgBox(是否确定要删除？, 17, 注意If response = 1 ThenData1.Recordset.DeleteData1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastEnd 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 Thenrs = select * from table1 where 姓名= & Text1.Text & If Combo1.Text Thenrs = rs & and 性别= & Combo1.Text & a = 1End IfIf Combo2.Text Thenrs = rs & and 职称= & Combo2.Text & a = 2End IfIf Text2.Text Thenrs = rs & and 电话= & Text2.Text & a = 3End IfIf Text3.Text Thenrs = rs & and 住址= & Text3.Text & a = 4End IfData1.Recordset.MoveFirst此功能是判断数据库中的内容是否有用户所要查询的内容Select Case a Case 0Do While Not Data1.Recordset.EOFIf Text1.Text Text4.Text ThenData1.Recordset.MoveNextIf Data1.Recordset.EOF Then response = MsgBox(无满足此条件的