|
（三）系统应满足的功能及要求（录入、查询、修改、打印等） paper51.com 人事信息管理系统主要包含职工个人自然情况，工作情况，简历，政治情况等各方面信息，内容比较庞大复杂。同时还综合考虑人事管理工作的性质，总结归纳出所需实现的功能。主要是为人事信息进行服务，对干部的变动、干部资料、以及干部资料的查询，统计等功能。总体上说具有编辑，查询，用户管理，图表统计等功能。 http://www.paper51.com
一、灵活的数据记录编辑功能，可以随时对记录进行增加，修改，更新，删除，浏览等编辑操作。并将查询方式有机溶入编辑界面，可以实现对某项记录定位，再进行编辑，修改，更新。 内容来自论文无忧网 www.paper51.com 二、多个数据库表的任意组合条件的查询。便于在实际人事管理操作中呆对保种情况，多种条件下的人员情况进行统计查看。 paper51.com 三、具备分级用户权限管理设置，以确保人事的保密性和安全性。 paper51.com
四、具有分类统计，使用图表显示的功能，该统计图表可根据数据库中记录情况的变化而变化。 copyright paper51.com 五、具有比较友好的人机界面，各种操作可以在直观的界面上通过人机交互式进行。 内容来自www.paper51.com 六、具有辅助表管理功能，主要是对“学历”表中的字段“学历”，“部门表”中的字段“部门”，“政治面貌” 表中的字段“政治面貌”，“职称” 表中的字段“职称”，进行添加，修改，删除操作...... 内容来自www.paper51.com
随着企业的规模不断扩大,员工数量急剧增加,有关员工的各种信息量也成倍增长。企业在一般日常工作中需要对企业人员组成，考勤情况，工作评估和工资信息进行管理。 paper51.com （四）系统功能分析及编制运行程序 copyright paper51.com 系统功能分析 paper51.com *按不同权限登录系统。 paper51.com *对其提供的部门资料情况进行添加、查询、修改和删除操作。 http://www.paper51.com *对其提供的人员资料情况进行添加、查询、修改和删除操作。 http://www.paper51.com *对其提供的人员考勤资料情况进行添加、查询、修改和删除操作，并可按考勤月份进行分类。 http://www.paper51.com *对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作，并可按工资月份进行分类。 http://www.paper51.com *可添加新的用户，修改用户原有的用户名、密码，删除原有用户。 paper51.com (1)欢迎界面 copyright paper51.com paper51.com 程序代码： copyright paper51.com Dim intP As Integer paper51.com Dim intP2 As Integer copyright paper51.com
Dim strK As String copyright paper51.com Dim strK1 As String paper51.com Dim strK2 As String paper51.com Dim strK3 As String paper51.com
'定义一个涵数来做动态界面 内容来自论文无忧网 www.paper51.com
Private Function HTP(PB As PictureBox, intXAs Integer, intY As Integer, intL As Integer, intD As Integer, strB As String) copyright paper51.com Me.ScaleMode = vbPixels paper51.com With PB paper51.com .ScaleMode = vbPixels 内容来自论文无忧网 www.paper51.com .AutoRedraw = True http://www.paper51.com End With paper51.com
For intP2 = 0 ToPB.ScaleWidth Step 4 内容来自论文无忧网 www.paper51.com
DoEvents 内容来自论文无忧网 www.paper51.com
ForintP = 0 To PB.ScaleHeight http://www.paper51.com
strK = PB.Point(intP2, intP) http://www.paper51.com strK1 = PB.Point(intP2 + 1, intP) copyright paper51.com
strK2 = PB.Point(intP2 + 2, intP) copyright paper51.com strK3 = PB.Point(intP2 + 3, intP) 内容来自www.paper51.com Line (intX, intY)-(intL + intP2, intD + intP), strK 内容来自论文无忧网 www.paper51.com Line(intX, intY)-(intL + intP2 + 1, intD + intP), strK1 paper51.com
Line (intX, intY)-(intL + intP2 + 2, intD + intP), strK2 copyright paper51.com Line (intX, intY)-(intL + intP2 + 3, intD + intP), strK3 内容来自www.paper51.com Next 内容来自论文无忧网 www.paper51.com Next 内容来自论文无忧网 www.paper51.com End Function 内容来自论文无忧网 www.paper51.com Private Sub Form_Click() copyright paper51.com Form2.Show paper51.com Unload Me paper51.com
End Sub 内容来自论文无忧网 www.paper51.com Private Sub Form_KeyPress(KeyAscii AsInteger) paper51.com Unload Me copyright paper51.com End Sub copyright paper51.com
Private Sub Timer1_Timer() http://www.paper51.com HTP Picture1, 565, 301, 0, 0,Me.BackColor 内容来自www.paper51.com
Timer1.Enabled = False 内容来自www.paper51.com End Sub 内容来自www.paper51.com |