Vb做的工资管理系统.doc

题目:工资管理系统 一、1.1应用需求分析:企业的工资管理是公司管理的一个重要内容。工资管理既涉及到企业劳动人事的管理,同时也是企业财务管理的重要组成部分。早期的工资统计和发放都是使用人工方式处理纸质材料,不仅花费财务人员大量的时间且不易保存,往往由于人的因素抄写不慎或计算疏忽,出现工资发放错误的现象。早期工资管理多采取纸质材料和具有较强的时间限制。基于以上原因,企业工资管理系统使用电脑安全保存、快速计算、全面统计,实现工资管理的系统化、规范化、自动化。企业工资管理系统是典型的信息管理系统(MIS,前台程序开发工具采用微软的VB6,后台数据库采用Access数据库。VB6。0是一种面向对象的开发工具,具有组件丰富、语言简单、功能强大的优点。Access数据库具有与VB6.0无缝连接、操作简单、易于使用的优点。运行结果证明,本企业工资管理系统极大提高了工作效率,节省了人力和物力,最终满足企业财务管理、员工工资发放的需要,同时也成为现代化企业管理的标志。 2.1系统功能模块划分: 根据该企业的业务情况及实现目标,系统功能模块图如图2.1所示: 目的:利用Visual Basic6.0及Microsoft Access2000数据库技术对企业员工工资的基本信息进行管理,要 求进行用户需求分析,功能模块的设计,对部门、员工及工资的基本信息进行添加、修改、删除、查询及打印等功能。 二、工资管理系统应用程序设计 1.“登录模块”详细设计 1、实现目标: 登录模块的详细设计主要是用户登录的一个界面,判断登录的用户是管理员还是普通用户,进入后将面对的是主界面,从而进行相关的操作。 2、界面 图用户登陆界面 3、程序说明: Option Explicit Dim pwdcount As Integer Private Sub cmdcancel_Click( username.Text = password.Text = End Sub Private Sub cmdok_Click( Dim sql As String,rs As ADODB.Recordset If Trim(username.Text = Then MsgBox 没有输入用户名称, vbOKOnly + vbExclamation, 警告 username.SetFocus Else sql = select * from userinfo where userid= username.Text Set rs = getrs(sql, salary If iflag = 1 Then If rs.EOF = True Then MsgBox 没有这个用户,请重新输入, vbOKOnly + vbExclamation, 警告 username.SetFocus Else If Trim(rs.Fields(1 = Trim(password.Text Then rs.Close Me.Hide strusername = Trim(username.Text userpassword = Trim(password.Text frmMain.Show Unload Me Else MsgBox 密码不正确,请重新输入, vbOKOnly + vbExclamation, 警告 password.SetFocus password.Text = End If End If End If End If pwdcount = pwdcount + 1 If pwdcount = 3 Then Unload Me End If End Sub Private Sub Form_Load( pwdcount = 0 strusername = userpassword = End Sub 2.“主窗体”模块详细设计 1、界面及目标实现过程: 主窗体设计的界面是用菜单编辑器做的,主要由系统、工资信息设置、工资信息管理和关于这四个大模块组成。主窗体是进行相关操作的主界面。 员工工资管理系统界面3、程序说明: rivate Sub Menu_about_Click( frmabout.Show frmabout.ZOrder 0 End Sub Private Sub Menu_adduser_Click(Index As Integer If Trim(strusername admin Then MsgBox 对不起,您没有这个权限! , vbOKOnly + vbExclamation, 警告 ElseIf Trim(strusername = admin Then frmadduser.Show frmadduser.ZOrder 0 En