Vb做的工资系统2009020187.docVIP

员 工 工 资 管 理 系 统 实 训 报 告 计 夏青 一、1.1应用需求分析：企业的工资管理是公司管理的一个重要内容。工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。早期工资管理多采取纸质材料和具有较强的时间限制。基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。企业工资管理系统是典型的信息管理系统（MIS），前台程序开发工具采用微软的VB6，后台数据库采用Access数据库。VB6。0是一种面向对象的开发工具，具有组件丰富、语言简单、功能强大的优点。 Access数据库。运行结果证明，管理系统满足的需要 目的：利用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 对不起，您没有这个权限！, v