Vb做的工资管理系统2009020187
用VB开发企业工资管理系统
目录1 引言 (1)2 研究对象与方法 (1)2.1 研究对象 (1)2.2 研究方法 (2)3 系统需求分析 (2)3.1用户需求分析 (2)3.2业务流程图 (3)4 系统详细设计 (3)4.1系统功能模块设计 (3)4.2数据库概念设计 (4)4.3数据的实现 (6)5系统的实现 (6)5.1 创建公用数据库模块[4] (6)5.2 主窗体的创建[5] (7)5.3 创建人员管理窗体 (9)5.4 创建添加员工窗体 (9)5.5 创建修改员工窗体 (10)5.6 创建职位管理窗体 (10)5.7 创建添加职位窗体 (11)5.8 创建修改职位窗体 (12)5.9 创建工资发放窗体 (12)5.10 创建统计报表窗体 (13)6 测试与分析 (14)结束语 (14)参考文献 (15)用VB开发企业工资管理系统指导教师：【摘要】：工资管理是每个企业要面临的问题，对于大企业有正规的工资管理系统，但对于小企业采用大的工资管理系统不合适，所以开发一套符合小企业工资管理的系统就显得重要，本次设计的工资管理系统能满足企业工资管理的日常要求，包括人员管理、职位管理、工资发放管理及统计报表等功能，提高企业的管理效率。
【关键词】：工资管理信息管理数据查询数据库1 引言企业职工的工资管理作为一个企业管理不可或缺的方面，其管理过程比较复杂，工作繁琐，时间性强及具有延续性，再加上每个月要重复产生数据，形成巨大的数据量，利用人工来管理显得比较困难。
因此非常有必要开发一套工资管理系统软件来提高企业工次管理的工作效率。
企业工资管理系统为了保证统计数据的准确性，首先将职工的基本信息经过核实后输入系统内并存储起来，同时按照系统的要求设定标准代码，在工资管理的日常工作中最大限度的减少重复输入，也减少人为因素造成的不必要的错误，提高系统数据的完整性，企业工资管理系统主要可以完成数据的录入、存储、查询、汇总及报表的打印，不仅节省时间和人力，而且调用方便，统计快捷，准确性高。
基于VB的工资管理系统设计与开发
基于VB的工资管理系统设计与开发工资管理系统是一种用于管理员工薪酬信息的软件系统，可以帮助企业有效地管理员工工资发放、报表生成、数据分析等工作。
VB（Visual Basic）是一种使用广泛的编程语言，可以用于开发各种应用程序。
本文将介绍基于VB的工资管理系统的设计与开发过程。
一、需求分析在设计工资管理系统之前，首先需要进行需求分析，明确系统具体的功能和要求。
一般来说，工资管理系统需要实现以下功能：1.员工信息管理：包括员工基本信息、薪资信息、考勤记录等。
2.薪资计算：根据员工考勤记录和工资标准，自动计算每位员工的薪资。
3.工资发放：生成工资条并记录每位员工的发放情况。
4.报表生成：生成各种报表，如薪资明细表、员工考勤表、工资总额统计等。
5.数据分析：可对员工薪资情况进行数据分析和统计。
二、系统设计在进行系统设计之前，需要确定系统的架构和数据库设计。
可以采用三层架构，即用户界面层、业务逻辑层和数据访问层。
数据库设计可采用关系型数据库，存储员工信息、薪资计算结果、考勤记录等数据。
1.用户界面设计：设计用户友好的界面，包括员工信息管理界面、薪资计算界面、工资发放界面等。
2.业务逻辑设计：编写各种业务逻辑代码，包括员工信息管理、薪资计算、工资发放等功能。
3. 数据访问设计：通过ADO（ActiveX Data Objects）技术进行数据库的连接和操作，实现数据的读取和更新。
三、系统开发在系统设计完成后，可以进行系统的开发和编码。
以下是基于VB的工资管理系统的开发步骤：1. 创建VB项目：打开Visual Studio并创建新的VB项目，选择Windows窗体应用程序。
2.设计界面：设计各个功能界面，包括员工信息管理界面、薪资计算界面、工资发放界面等。
3.编写业务逻辑代码：实现员工信息的添加、修改、删除功能，编写薪资计算逻辑和工资发放逻辑。
4.数据访问代码：使用ADO技术连接数据库，编写SQL语句进行数据的读取和更新操作。
VB的人事工资管理系统
目录一、功能描述 (3)二、概要设计 (3)2.1系统的体系结构 (3)2.1.1 系统的登入运行 (3)2.1.2菜单界面所连接的 (4)2.2员工信息的管理 (4)2.3员工信息的检索 (5)2.4员工信息与工资信息之间的联系 (5)2.4.1员工的工资 (5)2.4.2 所有员工工资的汇总 (5)三、详细设计 (6)3.1 登入模块 (6)3.2 菜单模块 (6)3.3 员工信息模块 (6)3.4 源代码 (7)四、效果及存在问题 (15)4.1 效果 (15)4.2 问题 (19)五、心得体会 (19)一、 功能描述对人事管理系统而言，针对各个功能模块的需求，总结出各个信息之间的联系如下： 部门与员工之间的联系：一个部门信息对应多个员工信息，而一个员工信息对应一个部门信息，所以员工信息与部门信息之间是一对多的关系。
员工与工资之间的联系：一个员工信息对应多个工资信息，一个工资信息对应一个员工信息，所以员工信息与工资信息二者之间是一对多的关系,产生职务属性。
系统主要威力实现，人员信息的建立，根据不同情况来查询人员信息，删除系统中的选定人员信息，通过对人员工作表现来颁发奖金，最后对所有人员的工资进行一个汇总计算出总的支出。
二、 概要设计 2.1系统的体系结构2.1.1 系统的登入运行密码错误系统有一个进入界面，只有输入密码才能进入主菜单，在主菜单中进行一些所需操作。
登入系统系统主界面员工信息面绩效管理面检索员工面退出运行面2.1.2菜单界面所连接的信息全局E-R 图反应了一个人事管理系统中所要涉及的一些模块。
如：1、员工信息 2、检索员工 3、绩效管理 4、退出运行2.2员工信息的管理1员工信息的添加部门拥有员工姓名性别基本工资工作评价部门编号职务工资领取奖金基本工资员工信息实体的属性员工工作评价部门 基本工资职务员工姓名性别员工编号添加删除查询1员工信息的添加 2员工信息的删除3 所有员工信息显示2.3员工信息的检索员工信息的检索通过不同的条件来查看员工信息，如果所查看的信息部存在就会弹出提示信息框，提示一随查看的员工不存在。
用VB制作一个人事管理系统
案例一用VB制作一个人事管理系统1.1课程设计的目的和意义1.2 系统功能的设计本系统的设计中，将主要实现如下的功能：增加记录、修改记录、删除记录。
1.3 数据库和数据表的设计数据库应用系统的开发的前提首先开发数据库和数据库中的数据表1.3.1人事管理应用系统的数据库设计在VB集成开发环境中制作数据库的步骤：（1）启动VB应用程序，出现VB应用系统开发主界面（2）在VB主菜单中单击“外接程序（A）|可视化数据管理器(V)”，出现可视化数据管理器界面。
（3）单击“文件|新建（N）|Microsoft Access|V ersion 7.0 MDB(7)”菜单项（4）在单击菜单后出现文件保存对话框，在对话框中选择磁盘驱动器和文件夹名称。
1.3.2 人事管理数据表的创建数据库只是一个容器，它是数据表的集合。
创建数据表的步骤：（1）在可视化数据管理器中打开数据库（2）在数据库管理器中选择数据库文件（3）右击数据库文件，出现弹出式菜单（4）在弹出式菜单中单击“新建表（T）”菜单项，出现数据表结构设计器对话框，输入数据表的字段1.3.3创建人事历史数据库1.3.4 为人事管理数据表增加一些数据记录在人事管理数据表中增加记录的有两种途径第一种是利用VB的可视化数据库管理器，另一种方法是通过Microsoft Access 2000打开创建的人事管理数据库，然后再为人事管理数据表增加记录。
1.3.5 数据表的其他一些操作方法了解并操作数据的导入与导出、数据压缩操作、数据库的修复、数据查询生成器、成批数据替换。
1.4用可视化数据管理器设计人事管理窗体1.4.1创建人事管理窗体利用可视化的数据管理器作为VB的“外接程序”制作人事管理窗体的方法，从而进入第一个应用程序的制作：其步骤：（1）在数据管理器中打开人事管理数据库（2）在管理器的主菜单中单击“实用程序|数据窗体设计器（F）”菜单项，出现数据窗体设计器对话框。
（3）为窗体命名为“人事管理窗体”（4）在数据表列表框中选择数据表名（5）单击“生成窗体（B）”按钮，生成该窗体。
工资管理系统VisualFo
工资管理系统VisualFo工资管理系统VisualFo一、系统简介工资管理系统VisualFo是一个用于企业生产管理的软件，可以实现员工信息管理、加班调休管理、请假管理、出勤管理、薪资管理、统计报表等多项功能，适用于各种企业类型。
系统使用Visual Basic作为开发语言，采用客户端/服务器模式，将数据存储在SQL Server数据库中。
二、系统模块1.员工信息管理模块包括员工基本信息、工作信息、联系信息、保密信息、学历信息等。
员工信息可以添加、编辑、删除、查询，可以导入、导出员工信息。
2.加班调休管理模块可以记录员工加班、请假、调休情况，计算员工加班、请假、调休时间和费用，可以审核加班、请假、调休申请。
3.请假管理模块可以管理员工请假、销假情况，计算员工请假时间和费用，可以审核请假申请。
4.出勤管理模块可以记录员工考勤情况，包括正常上班、迟到、早退、旷工等，并计算员工实际出勤天数和应出勤天数。
5.薪资管理模块可以计算员工实际工资和应发工资，包括基本工资、加班费、奖金等，可以导出员工工资表，可以查询员工工资历史记录。
6.统计报表模块可以生成各种统计报表，包括员工信息统计、加班请假调休统计、薪资统计、工资变动统计等，可以导出统计报表。
三、系统特点1.界面友好、操作简便系统采用图形界面设计，操作简单方便，适合各类用户使用。
2.数据安全可靠系统采用客户端/服务器模式，将数据存储在SQL Server数据库中，数据安全可靠。
3.功能完善、灵活可扩展系统功能完善、灵活可扩展，可以根据不同的企业需求进行量身定制。
四、使用方法1.系统安装将系统安装包解压缩至指定目录，运行setup.exe文件，按照提示进行安装。
2.系统启动双击系统图标打开系统，输入用户名和密码登录系统。
3.系统操作根据需要选择不同的功能模块进行操作，如添加员工信息、申请加班、请假、调休、审核申请等。
五、注意事项1.系统使用前需要进行权限设置，以保证数据安全。
基于VB的工资管理系统设计与开发
类型：课程设计题目：基于VB的工资管理系统设计与开发一引言1、本课题的研究意义目前市面上流行的工资发放软件不少。
但是，对于企、事业单位的工资发放来说，不需要太大的数据库系统。
只需要一个操作方便，功能实用，能同时满足财务部门、单位其他相关部门及代发单位这三方对数据的管理及需求的系统。
我们的目标就是在于开发一个功能实用，用户（财务部、其他相关部门、银行）操作方便，简单明了的工资发放软件。
2、本论文的目的、内容及作者的主要贡献2．1目的我们的目标就是在于开发一个操作方便，功能实用，能同时满足财务部门、单位其他相关部门及代发单位这三方对数据的管理及需求的系统。
2．2内容实现本单位财务部门对工资发放的集中管理。
可供财务人员对本单位的人员工资进行增加、删除、修改、查询、导入、导出文件、输出报表，并对系统的可登录人员进行管理；同时通过菜单关闭功能使本单位其他相关部门的人员对工资的数据编辑无法操作，只能通过查询或导出文件来了解本单位的工资发放情况；对工资发放中的应发工资合计、代扣个人所得税及个人实发工资等项目由系统自动进行计算；同时本系统还可对工资发放情况进行多角度查询，并转换成可与银行UNIX平台接口的数据形式以便于委托银行办理代发工资业务。
在登录管理方面，财务人员以工资发放系统的管理人员身份登录，并对本系统的可登录人员进行管理，有权增加及删除本系统的登录人员，进行自身密码的修改；而本单位其他相关部门的可登录人员在登录本系统后，则只能进行自身密码的修改，而无权增加及删除用户。
2．3作者的主要贡献全程参与了此课题的研究与开发，包括分析，设计，编码，测试，文档等等。
二、管理信息系统概述1、管理信息系统现状：管理信息系统（MIS）是一门边缘学科，集管理科学、信息科学、系统科学、现代通信技术和电子计算机技术于一体。
1985年，管理信息系统创始人，明尼苏达大学卡尔森管理学院的著名教授戴维斯（Gordon.B.Davis）给出了一个具有代表性的定义：“管理信息系统是一个利用计算机硬件和软件，手工作业、分析、计划、控制和决策模型以及数据库的用户－机器系统。
工资条制作方法VB法
工资条制作方法VB法
VB法（Visual Basic法）是使用Visual Basic程序语言来制作工资条的一种方法。
以下是使用VB法来制作工资条的一般步骤：
1. 创建一个新的VB项目：打开Visual Studio，创建一个新的Windows Forms应用程序项目。
2. 设计工资条界面：在项目中的窗口设计器中设计工资条的界面，包括姓名、工号、基本工资、津贴、扣款等工资条信息的文本框，以及计算工资按钮等控件。
3. 编写VB代码逻辑：在窗口的代码视图中编写VB代码来处理工资条的计算逻辑。
例如，当用户点击计算工资按钮时，VB代码将获取文本框中的输入值，进行计算并显示在相应的结果文本框中。
4. 考虑数据校验和错误处理：在编写VB代码时，需要考虑对用户输入的数据进行校验，以确保数据的有效性和准确性。
同时，也需要适当的错误处理机制来处理可能发生的错误情况。
5. 添加其他功能：根据需求，可以在工资条界面中添加一些其他的功能，如导出工资条为Excel文件、打印工资条等。
6. 调试和测试：完成VB代码的编写后，进行调试和测试，确保工资条的计算和显示功能正常工作，并且对用户输入和错误处理进行测试。
7. 部署和使用：完成测试后，可以将工资条应用程序部署到目标计算机上，并向用户提供使用。
以上是使用VB法来制作工资条的一般步骤，具体的实现方式会因项目需求和具体情况而有所不同。
在实际开发中，还可以根据需求进行增删改查等功能的扩展。
VB开发制作工资管理系统
b . 属性的 AddNew()方法添加一行新行，调用 BtEnabled 过程，用“False”作参数，使其他按钮不可用。
原（Name）属性 Label1 TextBox1 Label2 TextBox2 Label3 TextBox3 Label4 TextBox4 Label5 TextBox5 Label6 TextBox6 Label7 TextBox7 Label8 TextBox8 Label9 TextBox9 Label10 TextBox10 TextBox11
False ———
False ———
False ———
True ———
False ———
False True
t .n 补充：“TextBox11”控件的
属性选择“Center”，
ne ok 表 2 给出了
控件的属性设置。
. o 表 2 Button 控件的属性设置
属性选择“None”。
ok nb 原（Name）属性 bo .c Button1 n w Button3 .c ww Button5 w Button7 w Button9 w Button11
Textbox 控件
nbook. w.c Button控件
ww.c ww 图 5 w 下面介绍控件的属性设置。如表 1 所示列出了
※ 2 ※
控件、
控件的属性设置。
.cnbook 表 1 Label 控件和 TextBox 控件的属性设置
ww 控件类型 w Label et TextBox n Label et k. TextBox n o Label k. bo TextBox o n Label .c TextBox w Label ww TextBox t Label ne TextBox t . Label ne ok TextBox . o Label ok nb TextBox o c Label nb w. TextBox c w Label . w TextBox et TextBox
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
员工工资管理系统实训报告计应09020187夏青一、1.1应用需求分析：企业的工资管理是公司管理的一个重要内容。
工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。
早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。
早期工资管理多采取纸质材料和具有较强的时间限制。
基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。
企业工资管理系统是典型的信息管理系统（MIS），前台程序开发工具采用微软的VB6，后台数据库采用Access数据库。
VB6。
0是一种面向对象的开发工具，具有组件丰富、语言简单、功能强大的优点。
Access数据库具有与VB6.0无缝连接、操作简单、易于使用的优点。
运行结果证明，本企业工资管理系统极大提高了工作效率，节省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也成为现代化企业管理的标志。
2.1系统功能模块划分:根据该企业的业务情况及实现目标，系统功能模块图如图2.1所示：目的：利用Visual Basic6.0及Microsoft Access2000数据库技术对企业员工工资的基本信息进行管理，要求进行用户需求分析，功能模块的设计，对部门、员工及工资的基本信息进行添加、修改、删除、查询及打印等功能。
二、工资管理系统应用程序设计1.“登录模块”详细设计1、实现目标：登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。
2、界面图用户登陆界面3、程序说明：Option ExplicitDim pwdcount As Integer Private Sub cmdcancel_Click() username.Text = "" password.Text = "" End SubPrivate Sub cmdok_Click()Dim sql As String,rs As ADODB.RecordsetIf Trim(username.Text = "") ThenMsgBox "没有输入用户名称", vbOKOnly + vbExclamation, "警告"username.SetFocusElsesql = "select * from userinfo where userid='" & username.Text & "'"Set rs = getrs(sql, "salary")If iflag = 1 ThenIf rs.EOF = True ThenMsgBox "没有这个用户，请重新输入", vbOKOnly + vbExclamation, "警告"username.SetFocusElseIf Trim(rs.Fields(1)) = Trim(password.Text) Thenrs.CloseMe.Hidestrusername = Trim(username.Text)userpassword = Trim(password.Text)frmMain.ShowUnload MeElseMsgBox "密码不正确，请重新输入", vbOKOnly +vbExclamation, "警告"password.SetFocuspassword.Text = ""End IfEnd IfEnd IfEnd Ifpwdcount = pwdcount + 1If pwdcount = 3 ThenUnload MeEnd IfEnd SubPrivate Sub Form_Load()pwdcount = 0strusername = ""userpassword = ""End Sub2.“主窗体”模块详细设计1、界面及目标实现过程：主窗体设计的界面是用菜单编辑器做的，主要由系统、工资信息设置、工资信息管理和关于这四个大模块组成。
主窗体是进行相关操作的主界面。
员工工资管理系统界面3、程序说明：rivate Sub Menu_about_Click()frmabout.Showfrmabout.ZOrder 0End SubPrivate Sub Menu_adduser_Click(Index As Integer)If Trim(strusername) <> "admin" Then MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(strusername) = "admin" Thenfrmadduser.Showfrmadduser.ZOrder 0End IfEnd SubPrivate Sub Menu_basic_Click(Index As Integer)If Trim(strusername) <> "admin" Then MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(strusername) = "admin" Thenichangeflag = 1frmbasicsetting.Showfrmbasicsetting.ZOrder 0End IfEnd SubPrivate Sub Menu_changepwd_Click(Index As Integer) frmchangepwd.Showfrmchangepwd.ZOrder 0End SubPrivate Sub Menu_check_Click(Index As Integer)frmresult.Showfrmresult.ZOrder 0frmresult.Caption = "信息查询"End SubPrivate Sub Menu_exit_Click(Index As Integer)Unload MeExit SubEnd SubPrivate SubMenu_formulasetting_Click(Index As Integer)If Trim(strusername) <> "admin" Then MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(strusername) = "admin" Thenfrmformula.Showfrmformula.ZOrder 0End IfEnd SubPrivate Sub Menu_getsalary_Click(Index As Integer) If Trim(strusername) <> "admin" Then MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(strusername) = "admin" Thenfrmsumsalary.Showfrmsumsalary.ZOrder 0End IfEnd SubPrivate Sub Menu_others_Click(Index As Integer)If Trim(strusername) <> "admin" Then MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(strusername) = "admin" Thenichangeflag = 1frmothersetting.Showfrmothersetting.ZOrder 0End IfEnd SubPrivate Sub Menu_out_Click(Index As Integer)If Trim(strusername) <> "admin" Then MsgBox "对不起，您没有这个权限！", vbOKOnly + vbExclamation, "警告"ElseIf Trim(strusername) = "admin" Thenfrmexport.Showfrmexport.ZOrder 0End IfEnd SubPrivate Sub Menu_sumattendance_Click(Index As Integer)frmsuminout.Showfrmsuminout.ZOrder 0End Sub3.各项子模块详细设计“设置基本工资”窗体设计1、实现目标：选择“工资信息设置”—>“基本工资设置”菜单设置员工的基本工资，可以根据员工的编号，或者根据员工职务设置基本工资，设置的基本工资为每个小时的工资。
2、界面及控件列表程序说明：Set rs = getrs(sql, "salary")If rs.EOF = False Thensql = "delete from salarysetting where stuffid='" & stuffid.Text & "'"Call transactsql(sql, "salary")End Ifrs.Closeid = stuffid.TextCall addrecordMsgBox "已经设置基本工资", vbOKOnly + vbExclamation, "添加结果"Call initsql = "select * from salarysetting"Call frmresult.basictopicCall frmresult.showbasic(sql)frmresult.Showfrmresult.ZOrder 0Me.ZOrder 04.“其他项目设置”窗体设计1、实现目标：选择“工资信息设置”—>“其他项目设置”菜单，在其他项目设置的窗体中，设置员工当月的奖金、津贴、福利等项目。