VB的人事工资管理系统概要

1、、功能描述二、概要设计 32.1系统的体系结构 3菜单界2.1.2系统的登入运行面所连接的4 2.3员工信息的管4 2.4员工信息的检索5员工信息与工资信息之间的联系2.4.1 5 24员工的工资5所有员工工资的汇总56 3.1 3.2三、详细设计登入模块6 3.3菜单模块 63.4员工信息模块6源代四、 效果及存在问题 154.1 4.2效果 15问题 19五、 心得体会19一、功能描述对人事管理系统而言，针对各个功能模块的需求，总结出各个信息之间的联系 如下：部门与员工之间的联系：一个部门信息对应多个员工信息，而一个员工信 息对应一个部门信息，所以员工信息与部门信息之间是一

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

3、行2.2员工信息的管理1员工信息的添加2员工信息的删除2.3员工信息的检索员工信息的检索3所有员工信息显示通过不同的条件来查看员工信息，如果所查看的信息部存在就会弹出提示信息 框，提示一随查看的员工不存在。2.4员工信息实体与工资信息实体之间的联系2.4.1员工的工资更具员工的表现给予一个评价，给予相应的奖金。2.4.2所有员工工资的汇总通过计算所有员工的工资，统计所需支出的总工资K 2-13 倍息实体与工资信息实律之间的联系三、详细设计3.1.1登入模块系统有一个进入界面，要求人员输入用户和用户密码，如果输入错误就会有错 误提示，一旦连续3次输入错误，系统就会发出警告！进入系统后会有一个系统

4、菜单，根据菜单选择你所需要的操作。3.1.2菜单模块主要为一些信息的查看及相关的处理：如：1、员工信息（包括：员工信息的添加，员工信息的删除，所有员工信息的查看等）；2、检索员工（包括：按员工编号检索，按员工姓名检索，按部门检索，按人员的性别检索）3、绩效管理（包括：员工评估，员工工资总额）4、退出运行3.1.3员工信息1、员工信息的添加添加这一项，主要的工作就是完成对员工资料的填写，和对员工平时表现的一 个客观地而评价，以方便等换成月末对员工的奖金数目，给员工颁发月末工资提供 一个重要依据。2、员工信息的删除 删除这一项，只要的工作就是根据员工的编号找到相应的 员工相关资料，并进行删除，删除

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

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

7、tegerPrivate Sub Comma nd1_Click(Dim p As Si ngleIf 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 Sub Comma nd2

8、_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 = In putBox(请输入删除员工的编号Dim i As In tegerDim

9、t As In tegeri = 1DoIf M(i. no = z The nOpe n nu m3.txt For In put As #3In put #3, ss = s - M(i.z ongClose #3Ope n nu m3.txt For Output As #3Write #3, sClose #3For t = z To x - 1M(t. no = M(t + 1.noM(t. name = M(t + 1. nameM(t.sex = M(t + 1.sexM(t.class = M(t + 1.classM(t.job = M(t + 1.jobM(t.pay =

10、M(t + 1.payM(t.assess = M(t + 1.assessM(t.z ong = M(t + 1.z ongNext 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 SubPri

11、vate Sub number_Click(q = 1Form6.ShowEnd SubPrivate Sub quit_Click(EndEnd SubPrivate Sub ren tal_Click(Form3.ShowEnd Sub添加窗口代码：Private Sub Comma nd1_Click(Dim h As Stri ngDim w As In tegerDim r As In tegerStatic i As In tegerStatic s As In tegerReDim Preserve M(1 To (x + 1 As Memberx = x + 1M(x. no

12、= Text1.TextM(x. name = Text2.TextM(x.sex = Text3.TextM(x.class = Text4.TextM(x.job = Text5.TextM(x.pay = Text6.TextM(x.assess = Text7.TextIf 优秀=Text7.Text Then w = 1000r = w + Text6.Texts = s + rM(x.z ong = rElseIf 良好=Text7.Text Thenw = 500r = w + Text6.Texts = s + rM(x.z ong = rElseIf 合格=Text7.Tex

13、t Thenw = 200r = w + Text6.Texts = s + rM(x.z ong = rEnd IfEnd IfOpe n nu m3.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 Comma nd1_Click(Form2.ShowEnd SubPrivate Sub Form_Load(Sh

14、owPrintPrintPrintPrintPrintPrintPrint 员工姓名,工作评价,基本工资,工资Dim i As In tegerFor i = 1 To xPrint M(, M(i.assess, M(i.pay, M(i.zongNext iEnd Sub所有员工信息：Private Sub Comma nd1_Click(Form2.ShowUn load MeEnd SubPrivate Sub Form_Load(ShowPrintPrintPrintPrintPrintPrintPrint 员工编号,员工姓名,员工性别,部门,职务,基本工资,工作评价Fo

15、ri = 1 ToxPrint 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 In teger Dim b As Stri ng * 6 Dim c As Stri ng * 10 Dim d As Stri ng * 2 i =If q = 1 The na = InputBox(请输入员工的编号Show Print Print Print Print Print Print1Print 员工编号,员工姓名,

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

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

18、性别,部门,职务,员工工资,工作评价DoIf M(i.class = c The nPrint 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 The nd = InputBox(请输入员工的性别Show Print Print Print Print Print PrintPrint 员工编号,员工姓名,员工性别,部门,职务,员工工资,工作评价DoIf M(i.sex = d The nPrint M(i.no,

19、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 Comma nd1_Click( Form2.Show Un load Me End SubPrivate Sub Form_Load( ShowOpe n nu m3.txt For Input As #3 In put #3, a Prin t , , a Close #3End Sub三、效果及存

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