湖南工程学院毕业设计（论文）
致 谢
在整个毕业设计过程中，遇到了很多困难和挫折，完成的并不是很容易，走了太多的弯路，幸好我有同学们和指导老师的大力支持，还算完成了任务。从这个角度来看我是幸福的。这几个月的时间走过来，唯一的感受就是痛并快乐着。
在这次毕业设计中也使我们的同学关系更进一步了，同学之间互相帮助，有什么不懂的大家在一起商量，听听不同的看法对我们更好的理解知识，所以在这里非常感谢帮助我的同学。在此更要感谢我的导师和专业老师，是你们的细心指导和关怀，使我能够顺利的完成毕业论文。在我的学业和论文的研究工作中无不倾注着老师们辛勤的汗水和心血。老师的严谨治学态度、渊博的知识、无私的奉献精神使我深受启迪。从尊敬的导师身上，我不仅学到了扎实、宽广的专业知识，也学到了做人的道理。在此我要向我的导师致以最衷心的感谢和深深的敬意。
33
人力资源管理系统的设计与实现
参考文献
[1] 张孝祥，徐明华.《JAVA基础与案例开发详解》. 清华大学出版社， 2009； [2] 康牧.《JSP动态网站开发实用教程》.清华大学出版社，2009； [3] 刘亚宾.《精通Eclipse--JAVA技术大系》.电子工业出版社，2010； [5] 张洁才.《Java web应用开发教程》.科学出版社，2009； [6] 戴维尔.《JavaScript程序员教程》.电子工业出版社，2010； [7] 甘仞初.《信息系统开发》.北京经济科学出版社，2007；
[8] 马赫 .《Dreamweaver MX 2004 网页设计经典108例》.中国青年出版社，2009； [9] 唐友国.《湛洪波著.JSP网站开发详解》.电子工业出版，2008； [10] 张大方，李玮等.《软件测试技术与管理》.湖南大学出版社，2007；
[11] (美)H.M.Deitel,P.Jdeitel .《ava程序设计教程(第五版)》. 清华大学出版社，2011； [12] (美)Elliotte Rusty Harold .《ava Network Programming》.东南大学出版社，2012； [13] 孙卫琴等《精通.struts:基于MVC的Java Web设计与开发》.电子工业出版社，2009； [14] 张文静，林琪.《JSP程序设计》.人民邮电出版社，2010；
34
湖南工程学院毕业设计（论文）
附 录
（1） 登陆窗体代码设计
窗体代码主要实现了连接数据库的功能，这里用于连接用户信息表。其程序如下： Private Sub Form_Load() Dim i As Integer
If App.PrevInstance Then
MsgBox (\程序已经运行，不能再次装载。\ Unload Me
End If //'本段代码用于判定本程序是否已经装载于内存中，以避免程序
的多重启动
i=0
Open App.Path+”\%user.ini”For Input As # 1 Do While Not EOF(1)
Input#1,user(i),pws(i),state(i),Emplo(i) If state(i)=”A” Then Combo1.AddItem user(i) End If
i=i+1 Loop Close #1
Combo1.ListIndex=1
//在窗口装载阶段读取用户设置文件获取用户信息 并装载于用户列表框中 End Sub
（2）“取消”按钮是退出登录界面，退出系统的。其代码如下： Private Sub CmdCancel_Click()
Unload Me End End Sub
（3）“确定”按钮代码设计 “确定”按钮代码主要实现了用户登陆时，用户名
和密码的认证，当用户名或密码错误时，系统提示错误。其程序如下：
Private Sub cmdOK_Click()
35
人力资源管理系统的设计与实现
If txtPassword = pws(Combo1.ListIndex) Then
CurId = Combo1.ListIndex EmploID = Emplo(CurId) CurUser = user(CurId) CurPsw = pws(CurId)
Me.Hide 'Load FrmMain FrmMain.Show
Else MsgBox \Password, try again!\, \ txtPassword.SetFocus SendKeys \ End If End Sub
（4）窗体选择的单击事件代码设计 窗体选择的单击事件代码主要实现了进入本系统所有模块的功能，这里有以下几个模块，它们分别是员工信息模块，招聘信息模块，工资管理模块，用户设置模块等其程序如下：
Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index Case 1
Call showemployee //显示员工信息模块 Case 2
Call showresume //显示招聘信息模块 Case 3
Call showsalary //显示工资信息模块 Case 4
If frmLogin.CurUser = \
FrmSys.Show Else
FrmPsw.Show Pwin = \ FrmMain.Enabled = False End If End Select
36
湖南工程学院毕业设计（论文）
End Sub
（5）命令按钮的单击事件代码设计
命令按钮的代码主要实现了进入本系统部分主要模块的功能，这里有以下几个功能，它们分别是编辑，删除，查询，设置。其程序如下：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1
FrmEdit.Show FrmMain.Enabled = False Case 2
If DBGA.SelBookmarks.Count = 1 Then
If MsgBox(\确定要删除吗？\vbOKCancel, \确定\= vbOK Then
DataA.Recordset.Delete cuAp = 0
Else MsgBox \请选择要删除的条目！\ End If
Case 3
FrmSearch.Show Case 4
FrmSetup.Show End Select End Sub
（6）口令修改的主要代码设计
“确定”按钮的代码主要实现了用户密码的修改功能，当旧密码错误或两次新密码输入不一致时，系统会提示错误。其程序如下： Private Sub cmdOK_Click()
Dim fil, i, Usercount As Integer
If TxtNew1.Text <> TxtNew2.Text Then
MsgBox \ TxtNew1.SetFocus TxtNew2.Text = \ SendKeys \ Exit Sub
37