VB的人事工资管理系统

1、 目 录 一、功能描述 3 二、概要设计 32.1系统的体系结构 32.1.1 系统的登入运行 3 2.1.2菜单界面所连接的 42.2员工信息的管理 42.3员工信息的检索 52.4员工信息与工资信息之间的联系 52.4.1员工的工资 52.4.2 所有员工工资的汇总 5三、详细设计 63.1 登入模块 63.2 菜单模块 63.3 员工信息模块 63.4 源代码 7四、效果及存在问题 154.1 效果 154.2 问题 19五、心得体会 19一、 功能描述对人事管理系统而言，针对各个功能模块的需求，总结出各个信息之间的联系如下：部门与员工之间的联系：一个部门信息对应多个员工信息，而一个员工

2、信息对应一个部门信息，所以员工信息与部门信息之间是一对多的关系。员工与工资之间的联系：一个员工信息对应多个工资信息，一个工资信息对应一个员工信息，所以员工信息与工资信息二者之间是一对多的关系,产生职务属性。 系统主要威力实现，人员信息的建立，根据不同情况来查询人员信息，删除系统中的选定人员信息，通过对人员工作表现来颁发奖金，最后对所有人员的工资进行一个汇总计算出总的支出。二、 概要设计2.1系统的体系结构 2.1.1 系统的登入运行 密码错误登入系统系统主界面员工信息面绩效管理面检索员工面退出运行面 系统有一个进入界面，只有输入密码才能进入主菜单，在主菜单中进行一些所需操作。 2.1.2菜单界

3、面所连接的信息部门 查询删除基本工资奖金领取工资基本工资工作评价员工拥有添加姓名性别部门职务编号全局E-R图 反应了一个人事管理系统中所要涉及的一些模块。如：1、员工信息 2、检索员工 3、绩效管理 4、退出运行2.2员工信息的管理 员工信息实体的属性员工工作评价部门基本工资职务员工姓名性别员工编号1员工信息的添加1员工信息的添加2员工信息的删除3 所有员工信息显示2.3员工信息的检索按员工编号检索员工信息按员工姓名按部门按性别 员工信息的检索 通过不同的条件来查看员工信息，如果所查看的信息部存在就会弹出提示信息框，提示一随查看的员工不存在。2.4员工信息实体与工资信息实体之间的联系 2.4.

4、1员工的工资图 2-13 员工信息实体与工资信息实体之间的联系员工工资n1领取职务 更具员工的表现给予一个评价，给予相应的奖金。2.4.2 所有员工工资的汇总 通过计算所有员工的工资，统计所需支出的总工资。三、详细设计3.1.1登入模块 系统有一个进入界面，要求人员输入用户和用户密码，如果输入错误就会有错误提示，一旦连续3次输入错误，系统就会发出警告！ 进入系统后会有一个系统菜单，根据菜单选择你所需要的操作。3.1.2菜单模块 主要为一些信息的查看及相关的处理：如：1、员工信息（包括：员工信息的添加，员工信息的删除，所有员工信息的查看等）； 2、检索员工 （包括：按员工编号检索，按员工姓名检索

5、，按部门检索，按人员的性别检索） 3、绩效管理 （包括：员工评估，员工工资总额） 4、退出运行3.1.3员工信息 1、员工信息的添加添加这一项，主要的工作就是完成对员工资料的填写，和对员工平时表现的一个客观地而评价，以方便等换成月末对员工的奖金数目，给员工颁发月末工资提供一个重要依据。2、员工信息的删除 删除这一项，只要的工作就是根据员工的编号找到相应的员工相关资料，并进行删除，删除的还有与员工相关的奖金和工资也要从总的工资支出中一并删除，如果没有找到与编号相关的员工资料，那么系统就会发出相应的提示3、所有员工信息显示 建立一个二维数组模块，通过模块的方式把员工的信息存入，如果需要显示所有员工

6、的信息只需调用数组把所有员工的信息显示在界面上。3.1.4员工信息检索1、按编号检索：输入所需检索的员工的编号，如果此员工存在那么就会显示这员工的信息；如果不存在此员工那么系统就会发出不存在的提示。1、按姓名检索：输入所需检索的员工的姓名，如果此员工存在那么就会显示这员工的信息；如果不存在此员工那么系统就会发出不存在的提示。1、按部门检索：输入所需检索的部门，如果次部门存在那么就会显示所有在这个部门的员工的信息；如果不存在此部门那么系统就不显示。1、按性别检索：输入所需检索的性别，如果此类性别存在那么就会显示所有在与这个性别有关的所有员工的信息；如果不存，那么系统就会发出不存在的提示。3.1.

7、5员工的工资和总支出1、根据员工的表现给予一个评价，如优秀，良好，合格等，然后根据不同的情况相应的给予多少的奖金，员工的职务反应了与员工的基本工资，所以员工的基本工资加上奖金反应了员工的总工资。2、通过每个员工的工资的相加计算出这一公司的总支出，如果有员工的资料已近不存在个能够自动把此员工的工资从总支出中给删除掉。3.2源代码 登入窗口代码：Dim i As IntegerPrivate Sub Command1_Click()Dim p As SingleIf Text2.Text = And Text1.Text = user Then Form2.Show Form1.Hide Text

8、1.Text = none Text2.Text = noneElse q = MsgBox(x & 密码错误) Form1.Show Text1.Text = none Text2.Text = none i = i + 1If i = 3 ThenMsgBox (警告输入错误超过3次！)End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Text1.Text = Text2.PasswordChar = *Text2.Text = End Sub菜单窗口代码：Private Sub

9、add_Click() al.Show Form1.HideEnd SubPrivate Sub all_Click()Form5.ShowEnd SubPrivate Sub class_Click()q = 3Form6.ShowEnd SubPrivate Sub delete_Click()z = InputBox(请输入删除员工的编号)Dim i As IntegerDim t As Integeri = 1DoIf M(i).no = z Then Open num3.txt For Input As #3 Input #3, s s = s - M(i).zong Close #

10、3 Open num3.txt For Output As #3 Write #3, s Close #3 For t = z To x - 1 M(t).no = M(t + 1).no M(t).name = M(t + 1).name M(t).sex = M(t + 1).sex M(t).class = M(t + 1).class M(t).job = M(t + 1).job M(t).pay = M(t + 1).pay M(t).assess = M(t + 1).assess M(t).zong = M(t + 1).zong Next t x = x - 1 y = Ms

11、gBox(z & 删除成功！) Exit DoElse MsgBox (未找到！)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 SubPrivate Sub number_Click()q = 1Form6.ShowEnd SubPrivate Sub quit_Click()EndEnd S

12、ubPrivate 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.TextM(x).name = Text2.TextM(x).sex = Text3.TextM(x).class = Text4.TextM

13、(x).job = Text5.TextM(x).pay = Text6.TextM(x).assess = Text7.TextIf 优秀 = Text7.Text Then w = 1000 r = w + Text6.Text s = s + rM(x).zong = rElse If 良好 = Text7.Text Then w = 500 r = w + Text6.Text s = s + r M(x).zong = rElse If 合格 = Text7.Text Then w = 200 r = w + Text6.Text s = s + r M(x).zong = rEnd

14、 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 Form_Load()ShowPrintPrintPrintPrintPrintPrintPri

15、nt 员工姓名, 工作评价, 基本工资, 工资Dim i As IntegerFor i = 1 To x Print M(i).name, M(i).assess, M(i).pay, M(i).zongNext iEnd Sub所有员工信息：Private Sub Command1_Click()Form2.ShowUnload MeEnd SubPrivate Sub Form_Load()ShowPrintPrintPrintPrintPrintPrintPrint 员工编号, 员工姓名, 员工性别, 部门, 职务, 基本工资, 工作评价For i = 1 To x Print M(i

16、).no, M(i).name, M(i).sex, M(i).class, M(i).job, M(i).pay, M(i).assessNext iEnd Sub查询代码：Private Sub Form_Load()Dim i As IntegerDim b As String * 6Dim c As String * 10Dim d As String * 2i = 1If q = 1 Then a = InputBox(请输入员工的编号) Show Print Print Print Print Print Print Print 员工编号, 员工姓名, 员工性别, 部门, 职务,

17、员工工资, 工作评价 Do If M(i).no = a Then Print M(i).no, M(i).name, M(i).sex, M(i).class, M(i).job, M(i).pay, M(i).assess Exit Do Else If i = x Then MsgBox (a & 不存在！) End If End If i = i + 1Loop While i x + 1Else If q = 2 Then b = InputBox(请输入员工的姓名) Show Print Print Print Print Print Print Print 员工编号, 员工姓名,

18、 员工性别, 部门, 职务, 员工工资, 工作评价 Do If M(i).name = b Then Print M(i).no, M(i).name, M(i).sex, M(i).class, M(i).job, M(i).pay, M(i).assess Exit Do Else If i = x Then MsgBox (c & 不存在！) End If End If i = i + 1 Loop While i x + 1 Else If q = 3 Then c = InputBox(请输入员工的部门) Show Print Print Print Print Print Prin

19、t Print 员工编号, 员工姓名, 员工性别, 部门, 职务, 员工工资, 工作评价 Do If M(i).class = c Then Print M(i).no, M(i).name, M(i).sex, M(i).class, M(i).job, M(i).pay, M(i).assess End If i = i + 1 Loop While i x + 1 Else If q = 4 Then d = InputBox(请输入员工的性别) Show Print Print Print Print Print Print Print 员工编号, 员工姓名, 员工性别, 部门, 职务

20、, 员工工资, 工作评价 Do If M(i).sex = d Then Print M(i).no, M(i).name, M(i).sex, M(i).class, M(i).job, M(i).pay, M(i).assess End If i = i + 1 Loop While i x + 1End IfEnd IfEnd IfEnd IfEnd Sub 所有员工工资总支出：Private Sub Command1_Click()Form2.ShowUnload MeEnd SubPrivate Sub Form_Load()ShowOpen num3.txt For Input A

21、s #3Input #3, aPrint , , aClose #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五、心得体会一周的课程设计已经结束了，我们在这次课程中我组成员共同努力完成了任务，共同学习知识，虽然只是短短的一周时间，可是在这一周里把课堂里老师讲的知识用到实践中去才是我们真正的收益，在这次课设中不仅学到了知识，还锻练我们的学习能力和团体合作能力，在这次课设中我们真