VB的人事工资管理系统

1、目 录一、功能描述 3三、详细设计 6 3.1 3.2 登入模块 6 3.3 菜单模块 6 3.4 员工信息模块 6 源代码 7四、效果及存在问题 15 4.1 4.2 效果 15 问题 19五、心得体会 19一、 功能描述对人事管理系统而言，针对各个功能模块的需求，总结出各个信息之间的联系如下： 部门与员工之间的联系：一个部门信息对应多个员工信息，而一个员工信息对应一个部门信息，所以员工信息与部门信息之间是一对多的关系。员工与工资之间的联系：一个员工信息对应多个工资信息，一个工资信息对应一个员工信息，所以员工信息与工资信息二者之间是一对多的关系, 产生职务属性。 系统主要威力实现，人员信息的

2、建立，根据不同情况来查询人员信息，删除系统中的选定人员信息，通过对人员工作表现来颁发奖金，最后对所有人员的工资进行一个汇总计算出总的支出。二、 概要设计 2.1系统的体系结构 系统有一个进入界面，只有输入密码才能进入主菜单，在主菜单中进行一些所需操作。 全局E-R 图反应了一个人事管理系统中所要涉及的一些模块。如：1、员工信息 2、检索员工 3、绩效管理 4、退出运行2.2员工信息的管理1员工信息的添加 2员工信息的删除2.3员工信息的检索员工信息的检索3 所有员工信息显示通过不同的条件来查看员工信息，如果所查看的信息部存在就会弹出提示信息框，提示一随查看的员工不存在。 通过计算所有员工的工资

3、，统计所需支出的总工资。 系统有一个进入界面，要求人员输入用户和用户密码，如果输入错误就会有错误提示，一旦连续3次输入错误，系统就会发出警告！进入系统后会有一个系统菜单，根据菜单选择你所需要的操作。主要为一些信息的查看及相关的处理：如：1、员工信息（包括：员工信息的添加，员工信息的删除，所有员工信息的查看等）；2、检索员工（包括：按员工编号检索，按员工姓名检索，按部门检索，按人员的性别检索）3、绩效管理（包括：员工评估，员工工资总额） 4、退出运行添加这一项，主要的工作就是完成对员工资料的填写，和对员工平时表现的一个客观地而评价，以方便等换成月末对员工的奖金数目，给员工颁发月末工资提供一个重要

4、依据。2、员工信息的删除 删除这一项，只要的工作就是根据员工的编号找到相应的员工相关资料，并进行删除，删除的还有与员工相关的奖金和工资也要从总的工资支出中一并删除，如果没有找到与编号相关的员工资料，那么系统就会发出相应的提示3、所有员工信息显示建立一个二维数组模块，通过模块的方式把员工的信息存入，如果需要显示所有员工的信息只需调用数组把所有员工的信息显示在界面上。1、按编号检索：输入所需检索的员工的编号，如果此员工存在那么就会显示这员工的信息；如果不存在此员工那么系统就会发出不存在的提示。1、按姓名检索：输入所需检索的员工的姓名，如果此员工存在那么就会显示这员工的信息；如果不存在此员工那么系统

5、就会发出不存在的提示。1、按部门检索：输入所需检索的部门，如果次部门存在那么就会显示所有在这个部门的员工的信息；如果不存在此部门那么系统就不显示。1、按性别检索：输入所需检索的性别，如果此类性别存在那么就会显示所有在与这个性别有关的所有员工的信息；如果不存，那么系统就会发出不存在的提示。1、根据员工的表现给予一个评价，如优秀，良好，合格等，然后根据不同的情况相应的给予多少的奖金，员工的职务反应了与员工的基本工资，所以员工的基本工资加上奖金反应了员工的总工资。2、通过每个员工的工资的相加计算出这一公司的总支出，如果有员工的资料已近不存在个能够自动把此员工的工资从总支出中给删除掉。3.2源代码登入

6、窗口代码：Dim i As IntegerPrivate Sub Command1_Click(Dim p As SingleIf Text2.Text = 123456 And Text1.Text = user ThenForm2.ShowForm1.HideText1.Text = noneText2.Text = noneElseq = MsgBox(x & 密码错误Form1.ShowText1.Text = noneText2.Text = nonei = i + 1If i = 3 ThenMsgBox (警告输入错误超过3次！End IfEnd IfEnd SubPrivate

7、 Sub Command2_Click(EndEnd SubPrivate Sub Form_Load(Text1.Text = Text2.PasswordChar = *Text2.Text = End Sub菜单窗口代码：Private Sub add_Click(al.ShowForm1.HideEnd SubPrivate Sub all_Click(Form5.ShowEnd SubPrivate Sub class_Click(q = 3Form6.ShowEnd SubPrivate Sub delete_Click(z = InputBox(请输入删除员工的编号Dim i A

8、s IntegerDim t As Integeri = 1DoIf M(i.no = z ThenOpen num3.txt For Input As #3Input #3, ss = s - M(i.zongClose #3Open num3.txt For Output As #3Write #3, sClose #3For t = z To x - 1M(t.no = M(t + 1.noM( = M(t + 1.nameM(t.sex = M(t + 1.sexM(t.class = M(t + 1.classM(t.job = M(t + 1.jobM(t.pay =

9、M(t + 1.payM(t.assess = M(t + 1.assessM(t.zong = M(t + 1.zongNext tx = x - 1y = MsgBox(z & 删除成功！Exit DoElseMsgBox (未找到！End IfLoop While t z - 1 And t xEnd SubPrivate Sub emtimate_Click(Form4.ShowEnd SubPrivate Sub message_Click(q = 4Form6.ShowEnd SubPrivate Sub name_Click(q = 2Form6.ShowEnd SubPriva

10、te Sub number_Click(q = 1Form6.ShowEnd SubPrivate Sub quit_Click(EndEnd SubPrivate Sub rental_Click(Form3.ShowEnd Sub添加窗口代码：Private Sub Command1_Click(Dim h As StringDim w As IntegerDim r As IntegerStatic i As IntegerStatic s As IntegerReDim Preserve M(1 To (x + 1 As Memberx = x + 1M(x.no = Text1.Te

11、xtM( = Text2.TextM(x.sex = Text3.TextM(x.class = Text4.TextM(x.job = Text5.TextM(x.pay = Text6.TextM(x.assess = Text7.TextIf 优秀 = Text7.Text Thenw = 1000r = w + Text6.Texts = s + rM(x.zong = rElseIf 良好 = Text7.Text Thenw = 500r = w + Text6.Texts = s + rM(x.zong = rElseIf 合格 = Text7.Text Thenw

12、= 200r = w + Text6.Texts = s + rM(x.zong = rEnd IfEnd IfEnd IfOpen num3.txt For Output As #3Write #3, sClose #3Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Form2.Showal.HideEnd Sub员工工作评价：Private Sub Command1_Click(Form2.ShowUnload MeEnd SubPrivate Sub Fo

13、rm_Load(ShowPrintPrintPrintPrintPrintPrintPrint 员工姓名, 工作评价, 基本工资, 工资Dim i As IntegerFor i = 1 To xPrint M(, M(i.assess, M(i.pay, M(i.zongNext iEnd Sub所有员工信息：Private Sub Command1_Click(Form2.ShowUnload MeEnd SubPrivate Sub Form_Load(ShowPrintPrintPrintPrintPrintPrintPrint 员工编号, 员工姓名, 员工性别, 部门,

14、职务, 基本工资, 工作评价 For i = 1 To xPrint M(i.no, M(, M(i.sex, M(i.class, M(i.job, M(i.pay, M(i.assess Next iEnd Sub查询代码：Private Sub Form_Load(Dim i As Integer Dim b As String * 6 Dim c As String * 10 Dim d As String * 2 i = 1If q = 1 Thena = InputBox(请输入员工的编号 Show Print Print Print Print Print Print

15、Print 员工编号, 员工姓名, 员工性别, 部门, 职务, 员工工资, 工作评价 DoIf M(i.no = a ThenPrint M(i.no, M(, M(i.sex, M(i.class, M(i.job, M(i.pay, M(i.assess Exit Do ElseIf i = x ThenMsgBox (a & 不存在！ End If End If i = i + 1 Loop While i x + 1 ElseIf q = 2 Thenb = InputBox(请输入员工的姓名 Show Print Print Print Print Print Print

16、Print 员工编号, 员工姓名, 员工性别, 部门, 职务, 员工工资, 工作评价 DoIf M( = b ThenPrint M(i.no, M(, M(i.sex, M(i.class, M(i.job, M(i.pay, M(i.assess Exit Do ElseIf i = x ThenMsgBox (c & 不存在！ End If End If i = i + 1Loop While i x + 1ElseIf q = 3 Thenc = InputBox(请输入员工的部门 Show Print Print Print Print Print Print

17、Print 员工编号, 员工姓名, 员工性别, 部门, 职务, 员工工资, 工作评价DoIf M(i.class = c ThenPrint M(i.no, M(, M(i.sex, M(i.class, M(i.job, M(i.pay, M(i.assessEnd If i = i + 1Loop While i x + 1 ElseIf q = 4 Thend = InputBox(请输入员工的性别 Show Print Print Print Print Print PrintPrint 员工编号, 员工姓名, 员工性别, 部门, 职务, 员工工资, 工作评价DoIf M(

18、i.sex = d ThenPrint M(i.no, M(, M(i.sex, M(i.class, M(i.job, M(i.pay, M(i.assessEnd If i = i + 1Loop While i x + 1End If End If End If End IfEnd Sub所有员工工资总支出：Private Sub Command1_Click( Form2.Show Unload Me End SubPrivate Sub Form_Load( ShowOpen num3.txt For Input As #3 Input #3, a Print , , a

19、 Close #3End Sub三、 效果及存在问题 4.1 效果：登入：菜单：添加： 所有员工信息：查询：员工工作评价： 总支出：删除： 4.2 问题 存在的不足： 在对员工的工 作评价上， 分了 3 种等级，但如果 输入的信息和着 3 种都不相符合 就会出现员工奖 金无法显示，最 终影响总工资的 支出。 预期的解决办 法： 用 If Text7.Text 优 秀 Or Text7.Text 良 好 Or Text7.Text 合格 Then MsgBox (输入的评价错误请重输！ al.Show Text7.Text = End If 五、心得体会 一周的课程设计已经结束了，我们在这次课程中我组成员共同努力完成了任务， 共同学习知识，虽然只是短短的一周时间，可是在这一周里把课堂里老师讲的知识用 到实践中去才是我们真正的收益，在这次课设中不仅学到了知识，还锻练我们的学习 能力和团体合作能力，在这次课设中我们真正体会到了小组合作精神，这对我们以后 的工作有很大的帮助。 由于我们被分配到富人课程设计的题目是设计一个人事管理系统。之后在收集资 料过程中，我们上网下载，到图书馆检索，众多