人事信息管理系统课程设计

1、学号09082101322012-2013学年第二学期数据库原理课程设计报告题目:人事信息管理系统 专业：计算机科学与技术 班级：09（2）班 姓名:王春桃 指导教师：江涛成绩：计算机与信息工程系2013年6月27日计算机与信息工程系数据库原理课程设计目录 TOC o 1-5 h z HYPERLINK l bookmark7 o Current Document 1设计内容及要求1 HYPERLINK l bookmark10 o Current Document 1.1设计内容1 HYPERLINK l bookmark13 o Current Document 1.2设计任务及具体要求1

2、 HYPERLINK l bookmark16 o Current Document 2需求设计1 HYPERLINK l bookmark19 o Current Document 2.1系统的功能简介1 HYPERLINK l bookmark26 o Current Document 2.2总体程序框图1 HYPERLINK l bookmark29 o Current Document 3概念设计3 HYPERLINK l bookmark32 o Current Document 3.1各个模块的程序流程图3 HYPERLINK l bookmark35 o Current Docu

3、ment 3.2功能设计4 HYPERLINK l bookmark78 o Current Document 3.3代码设计6 HYPERLINK l bookmark84 o Current Document 4逻辑设计12 HYPERLINK l bookmark87 o Current Document 5物理实施13 HYPERLINK l bookmark94 o Current Document 6管理模块15 HYPERLINK l bookmark97 o Current Document 6.1职工档案工资表15 HYPERLINK l bookmark100 o Curr

4、ent Document 6.2人事信息管理系统 16 HYPERLINK l bookmark103 o Current Document 7参考文献171设计内容及要求1.1设计内容本论文就是以VISUAL BASIC 6.0为前台和ACCESS 2003为后台等软件作为开发工具， 以各种单位机构为对象，开发一个从某种程度上能满足中小型机构对人事信息管理的要求的 “人事管理系统”。1.2设计任务及具体要求员工各种信息：包括员工的基本信息，如编号、姓名、性别、学历、所属部门、毕业院校、 健康情况、职称、职务、奖惩等；员工各种信息的修改；对转出、辞退、退休员工信息的删 除；按照一定条件，查询、

5、统计符合条件的员工信息。2需求设计2.1系统的功能简介这款企业人事管理系统主要有5个功能部分组成，分别是：系统管理功能员工信息管理功能工资管理功能数据管理功能框图2.2总体程序框图3概念设计3.1各个模块的程序流程图3.2功能设计代码是代表事物名称，属性，状态等的符号，为了便于计算机处理，一般用数字，字母 或它们的组合来表示。本系统需设计的代码是员工工号，根据公司员工人数和人员特点，决 定选用顺序码编制员工工号。具体设计如下：系统设计的过程和系统实施的过程恰好相反，并不是从输入设计到输出设计，而是从输出设 计到输入设计，这是因为输出设计直接和用户需求相联系，设计的出发点应该是保证输出方 便地为

6、用户服务，正确地反映用户所需要的有用信息。1）输出设计输出设计的主要目的是满足用户和管理者对数据和信息的要求。输出设计要考虑的主要内容 有：输出信息名：该输出信息的名称。输出功能：该输出信息起什么作用。输出周期：多长时间输出一次。输出期限：每次输出的期限。输出媒体：输出信息记录媒体名称。输出方式：批输出还是实时输出。输出用纸：专用纸或通用纸。传递方式：邮递、电话、传真、电子邮件或人工传递。使用后的处理：保存、销毁或上缴。输出用文字：英文、汉字、汉语拼音。输出信息校验：检验输出信息的正确性，包括确定校验内容、检验方法和校验后的处理。保密要求：有或无。输出项目名称：构成输出信息的每个数据项。本系统

7、中所选用的输出方式有三种：查询显示输出、报表打印输出和图形显示输出。查询显 示输出的信息主要是各种查询结果，这是一种实时性要求很高的输出，输出设备是显示器。 报表打印输出的信息主要是各种报表形式的数据信息，如工资发放信息，上级部门要求上缴 的统计数字等。图形显示输出具有前两者所无法比拟的优越性，它直观，可比，易于理解， 结论明显。例如图4.6显示输出：4.6职工工资Excel表2）输入设计在计算机信息系统中，输入数据的正确性决定着整个系统质量的好坏。若输人数据缺精确性 和适时性，即使计算和处理十分正确，也不可能得到可靠的输出信息。最佳的信息系统始于 最佳的输入系统。根据输出信息的要求，输入设计

8、要考虑的主要内容如下输入信息名：该输入信息的名称。输入功能：该输入信息起什么作用。输入周期：多长时间输入一次。输入期限；每次输入的期限。输入媒体：输入信息记录媒体名称。输入方式：批输入还是实时输入。收集方式：原始记录如何收集。原始信息名：与本输入对应的用户原始凭证。输入项目名：构成输入信息的每个数据项名称。输入用文字：英文、汉字或汉语拼音。本系统采用的输入方式主要是键盘输入，便于查询和检索系统。因此，友好的输入界面变得 非常重要，必须保证用户在输入时方便、安全、高效。随着信息技术的发展和各种新概念不 断地引入管理（如电子化管理等），简单的键盘输入必将不能适应快节奏的运营方式。因此有 必要引进先

9、进的技术手段，使系统实现联机输入，将数据信息以报文的形式从各用户终端送 到.处理中心。这是系统今后扩充时要考虑的，另外，还要考虑数据输入格式，主要要求如下：输人格式应保证输入精度。输人格式应尽量减少填写量，便于填写，便于校对。同意规格和代码，按标准格式输入。简化和减轻输入负担。例如在键盘输入过程中，应保证画面大小和屏幕大小相一致，各种凭证的输入应考虑输入格 式和凭证格式相一致。数据输入完成后，并不能马上就进入系统，还应对其进行检验，称为输人数据检验。输人数 据检验是保证输入数据正确的重要措施。通过多种措施，对全部输人数据设想其可能出现的 差错，对之进行校验，对校验中查到的有错数据，考虑修改及补

10、救办法。数据校验的办法有 两类：静态检验（人工复核）和动态检验（计算机程序检验）。在本系统中，进行输入数据检验的具体做法要求如下：（1）严格复核制度，未经复核的凭证、单据不得上机录入。（2）重复校验，经过复核的数据、凭证还应经另外的输人人员进行检验。（3）人工静态检验，在输入的同时，由、计算机显示输入的数据，然后与原始单据进行对比， 查找错误。（4）程序检验，根据输入的数据类型、格式、逻辑性等进行检验，具体内容包括：数字检验：检查数字项目内容中是否出现非数字数据。界限检验：检查数据项目是否超过规定的数据范围，如数据位数、数值范围等。逻辑检验：检查数据的合理性、逻辑性是否符合要求（例如月份不会超

11、过12,更不会是负 数）。格式检验：检查数据记录中各数据项的位数和位置是否符合预先规定的格式。例如工资定 为4位整数、2位小数，检查最高位是不是空格或数字等。字符检验：检查全部由字母组成的数据（如姓名）中是否出现非字母字符，或检查该数据长 度和格式是否符合规定。对于检查出的输人数据错误，应该以恰当的形式报告出来，或打印错误报告，或实时提出错 误警示和修改提示等，帮助用户尽快正确输入数据。3）多种多样的计算机技术产品为信息系统的建设提供了极大的灵活性，使我们可以根据应用的 需要选用不同生产商的性能各异的软硬件产品，但同时员工系统设计工作带来了新的困难， 那就是面对众多厂家生产的产品如何做出最明智

12、的选择。本系统的主要设计依据是：1）系统的吞吐量2）系统的响应时间3）系统的可靠性4）系统的处理方式5）地域范围6）数据管理方式3.3代码设计系统的登录Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nInde

13、x As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongDim Alpha As Integer 声明变量Private Sub cmdDL_Click()If Me.Combo1.Text = ThenPrivate Const WS_EX_LAYERE

14、D = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private Const LWA_COLORKEY = &H1MsgBox ”请选择登陆用户！ ”, 48,”错误提示”Exit SubEnd IfCall OpenConnSQL = select * from 系统用户表 where Czy= & Me.Combo1.Text & rs.Open SQL, cn, 1, 1If zhuan(txtPass.Text) = IIf(Trim(IsNull(rs.Fields(pass), , Tr

15、im(rs.Fields(pass) Then gCzy = rs.Fields(czy) gCzyqx = rs.Fields(czyqx) Call CloseConnMDIfrm.ShowUnload MeElseMsgBox ”密码错误！ ”, 48,”错误提示”End IfEnd SubPrivate Sub cmdTC_Click()EndEnd SubPrivate Sub Form_Initialize()Call InitCommonControls XP 效果End SubPrivate Sub Form_Load()Me.Shape1.Top = Me.Top 外边框Me

16、.Shape1.Left = Me.LeftMe.Shape1.Width = Me.ScaleWidthMe.Shape1.Height = Me.ScaleHeight Dim Ret As LongRet = GetWindowLong(Me.hWnd, GWL_EXSTYLE)Ret = Ret Or WS_EX_LAYEREDSetWindowLong Me.hWnd, GWL_EXSTYLE, RetTimer1.Interval = 20Call OpenConnSQL = select czy from 系统用户表”rs.Open SQL, cn, 1, 1Do While N

17、ot rs.EOFMe.Combo1.AddItem rs!czy rs.MoveNextLoopCall CloseConnCall OpenConnSQL = select公司名称from公司信息rs.Open SQL, cn, 1, 1If rs.RecordCount 0 ThengGsmc = rs!公司名称ElsegGsmc =公司信息未知End IfCall CloseConnEnd SubPrivate Sub Timer1_Timer()Alpha = Alpha + 5If Alpha 255 ThenTimer1.Enabled = FalseExit SubEnd If

18、SetLayeredWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHAEnd Sub基础档案查询Private Const WS_EX_LAYERED = &H80000Private Const GWL_EXSTYLE = (-20)Private Const LWA_ALPHA = &H2Private Const LWA_COLORKEY = &H1Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIn

19、dex As Long) As LongPrivate Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal d

20、wFlags As Long) As LongDim Alpha As Integer 声明变量Private Sub cmdDL_Click()If Me.Combo1.Text = ThenMsgBox ”请选择登陆用户！ ”, 48,”错误提示”Exit SubEnd IfCall OpenConnSQL = select * from 系统用户表 where Czy= & Me.Combo1.Text & rs.Open SQL, cn, 1, 1If zhuan(txtPass.Text) = IIf(Trim(IsNull(rs.Fields(pass), , Trim(rs.Fi

21、elds(pass) Then gCzy = rs.Fields(czy) gCzyqx = rs.Fields(czyqx) Call CloseConnMDIfrm.ShowUnload MeElseMsgBox ”密码错误！ ”, 48,”错误提示”End IfEnd SubPrivate Sub cmdTC_Click()EndEnd SubPrivate Sub Form_Initialize()Call InitCommonControls XP 效果End SubPrivate Sub Form_Load()Me.Shape1.Top = Me.Top 外边框Me.Shape1.

22、Left = Me.LeftMe.Shape1.Width = Me.ScaleWidthMe.Shape1.Height = Me.ScaleHeight Dim Ret As LongRet = GetWindowLong(Me.hWnd, GWL_EXSTYLE)Ret = Ret Or WS_EX_LAYEREDSetWindowLong Me.hWnd, GWL_EXSTYLE, RetTimer1.Interval = 20 Call OpenConnSQL = select czy from 系统用户表”rs.Open SQL, cn, 1, 1Do While Not rs.E

23、OFMe.Combo1.AddItem rs!czyrs.MoveNextLoopCall CloseConnCall OpenConnSQL = select公司名称from公司信息rs.Open SQL, cn, 1, 1If rs.RecordCount 0 ThengGsmc = rs!公司名称ElsegGsmc =公司信息未知End IfCall CloseConnEnd SubPrivate Sub Timer1_Timer()Alpha = Alpha + 5If Alpha 255 ThenTimer1.Enabled = FalseExit SubEnd IfSetLayer

24、edWindowAttributes Me.hWnd, 0, Alpha, LWA_ALPHAEnd Sub用户管理Dim qx As String 权限Private Sub Check1_Click(Index As Integer)End SubPrivate Sub cmdBC_Click()保存按钮If Trim(Me.txtCZYText) = ThenMsgBox ”登陆名不能为空！ ”, 48,”提示”Exit SubEnd IfIf Me.cmdBC.Caption =新增”ThenFor i = 0 To Me.Listl.ListCountIf Trim(Me.txtCZ

25、YText) = Me.Listl.List(i) ThenMsgBox ”该用户已经存在！ ”, 48,”提示”Exit SubEnd IfNextCall OpenConnSQL = select * from 系统用户表”rs.Open SQL, cn, 3, 3rs.AddNewrs!czy = Trim(Me.txtCZYText)rs!pass = zhuan(123456)For i = 0 To 5qx = qx & Me.Check1(i).ValueNextrs!czyqx = qxrs.UpdateCall CloseConnqx =MsgBox ”操作员添加成功，初始密

26、码为123456，请注意修改！ ”, 64,”提示”Me.txtCZY.Enabled = TrueMe.cmdSC.Enabled = FalseElseCall OpenConnSQL = select * from 系统用户表 where czy= & Me.txtCZYText & rs.Open SQL, cn, 3, 3For i = 0 To 5qx = qx & Me.Check1(i).ValueNextrs!czyqx = qxrs.UpdateCall CloseConnqx =清空变量MsgBox ”保存成功！ ”, 64,”提示”Me.cmdBC.Caption =新

27、增”Me.txtCZY.Enabled = TrueMe.cmdSC.Enabled = FalseEnd IfCall addLISTMe.txtCZY.Text =For i = 0 To 5Me.Check1(i).Value = 0NextEnd SubPrivate Sub cmdSC_Click()If Me.txtCZY.Text = ThenMsgBox ”请选择要删除的操作员！ ”, 48,”提示”Exit SubEnd IfIf Me.Listl.ListCount = 1 ThenMsgBox ”只有一个操作员了，不能再删除！”, 48,”提示”Exit SubEnd I

28、fCall OpenConncn.Execute (delete * from 系统用户表 where czy= & Me.Listl.Text & )Call CloseConnCall addLIST 刷新列表Me.txtCZY.Text =Me.txtCZY.Enabled = TrueMe.cmdSC.Enabled = FalseMe.cmdBC.Caption =新增”For i = 0 To 5Me.Check1(i).Value = 0NextEnd SubPrivate Sub Form_Initialize()Call InitCommonControls XP 效果End

29、 SubPrivate Sub Form_Load()Me.Icon = MDIfrm.IconMe.Picture1.Picture = LoadPicture(App.Path & bgbg2.jpg)Call addLISTEnd SubPrivate Sub addLIST()Me.List1.ClearCall OpenConnSQL = select * from 系统用户表rs.Open SQL, cn, 1, 1Do While Not rs.EOFMe.List1.AddItem rs!czyrs.MoveNextLoopCall CloseConnEnd SubPrivat

30、e Sub List1_Click()If Me.List1.Text = Then Exit Sub 检测Call OpenConnSQL = select * from 系统用户表 where czy= & Me.List1.Text & rs.Open SQL, cn, 1, 1Me.txtCZY.Text = rs!czyFor i = 0 To 5Me.Check1(i).Value = Mid(rs!czyqx, i + 1, 1)NextCall CloseConnMe.txtCZY.Enabled = FalseMe.cmdBC.Caption =保存Me.cmdSC.Enab

31、led = TrueEnd Sub4逻辑设计目前，该公司在人事管理方面主要还是手工操作为主，不仅办公效率低，容易出错，而 且还需要很多的专门人员从事这项工作。这对于公司来讲无益于长远的发展，为了改善这方 面的管理，该公司需要引进一套人事管理系统。人事管理系统是一个面向企业人事人员，为其提供服务的综合信息管理系统。人事人员通过 本系统完成相关的日常工作，这些工作也是平常较为繁重的工作。公司人事基础数据信息、 人员的个人档案信息、系统管理以及考勤管理和数据库管理等情况都记录在人事系统里进行 管理。在这次管理信息系统的课程设计中，曾遇到过不少问题，单靠我个人的努力，很难按时完成 该课程设计。在此，我衷心感谢我的指导老师一一王艳华。王艳华老师认真负责的工作态度， 严谨的治学精神和深