管理信息系统课程设计人事档案管理(3)

Exit Sub End If End Sub

Private Sub Text1_Change()

If Text1.Text = "" Then Exit Sub

End If

Dim selectorder As String

selectorder = "select * from 员工基本信息表 where 员工编号 like '%" & Text1.Text & "%'"

Adodc1.RecordSource = selectorder Adodc1.Refresh

If Adodc1.Recordset.EOF = False Then

MsgBox "编号存在", vbOKOnly + vbExclamation, "警告！" Text2.Text = Adodc1.Recordset.Fields("姓名") Text3.Text = Adodc1.Recordset.Fields("民族") Text4.Text = Adodc1.Recordset.Fields("政治面貌") Text5.Text = Adodc1.Recordset.Fields("学历") Text6.Text = Adodc1.Recordset.Fields("籍贯") Text7.Text = Adodc1.Recordset.Fields("电话")

Text8.Text = Adodc1.Recordset.Fields("毕业学校") Text9.Text = Adodc1.Recordset.Fields("年龄") Text10.Text = Adodc1.Recordset.Fields("职位")

Combo1.Text = Adodc1.Recordset.Fields("性别")

Combo2.Text = Adodc1.Recordset.Fields("婚姻状况") Combo3.Text = Adodc1.Recordset.Fields("所在部门")

DTPicker1.Value = Adodc1.Recordset.Fields("聘用时间") DTPicker2.Value = Adodc1.Recordset.Fields("离职时间") Else

MsgBox "编号不存在", vbOKOnly + vbExclamation, "警告！" End If End Sub

课程设计的体会

经过不到两个星期的不断实践与探索,人事档案管理系统的设计与实现己经初步完成,基本上达到了预期的设计要求和目的。

写完这个课程设计报告，一个完整的管理系统就创建完毕了。在本系统的设计与实现的过程中，主要讲述了采购供应管理信息系统的系统设计部分，包括功能模块设计、数据库结构设计等。系统设计为整个程序构建了骨架,各个功能模块实现各个细节部分。主要功能有：档案添加，删除，修改，统计，输出等等。

在整个课程设计阶段的工作和课程设计报告的写作过程的经历将会使我终生受益，并对我今后的工作和发展产生深远的影响。由于整个课程设计时间比较仓促，所以该系统还有许多不尽如意的地方，比如对商品信息管理的设计不是很详尽、仔细，对某些功能的细节设计还缺乏完备性，缺少联机文档，缺乏对系统整体进行周密的考虑，出错处理不够等等多方面

问题。这些都有待于进一步的改善。我对管理信息系统有了更清楚的认识，一个企业采用管理信息系统的目的就是提高企业处理各项事务的能力，是数据和信息在企业内部及时，准确，通畅的流动。因此本次做课程设计，就从各方面为企业考虑。

短时间的课程设计，使我从中受到很大的教育和启迪，不仅将大学所学的知识进行了实际应用，还学到了很多书本上学不到的知识。开阔了视野，增长了知识，积累了经验。充分锻炼了自己的动手和应用能力，真正做到了理论联系实际。

经过本次课设，不仅对管理信息系统有了更清楚的认识，而且学到了Access数据库和VB的使用方法，增加了知识面，也是一个很好的经历，因为在设计过程中遇到了好多问题，最后通过查找资料，与同学讨论，得到了解决，这点还是很欣慰的。 我相信，这套采购供应管理信息系统经过进一步的改善和完善，一定会在企事业单位得到很好的应用！

参考文献

[1] 何玉杰.数据库原理与应用教程.机械工程出版社 [2] 王宇虹.Access数据库系统开发.电子工业出版社 [3] 黄梯云.管理信息系统.高等教育出版社

[4] 张朝昆、施丽娜 .Visual Basic数据库开发基础与应用.人民邮电出版社 [5] 邓晶.管理信息系统及应用实例.中国电力出版社

[6] 万星心.Visual Basic数据库开发全程指南.点子工业出版社

If TextBox1.Text.Trim = "" Then

MsgBox("请输入用户名", MsgBoxStyle.OkOnly + 48, "注意") Return '若用户名为空，返回，重新输入 End If Call sqlcon()

If (TextBox1.Text.Trim = user_id And TextBox3.Text.Trim = psw) Then Form2.Show() Me.Hide() Else

MsgBox("登录失败，请检查用户名及密码是否正确！", MsgBoxStyle.RetryCancel + 48, "注意") End If End Sub Sub sqlcon()

Dim constr As String = "Provider=SQLOLEDB.1;Password=0;Persist Security Info=True;User

ID=sa;Initial Catalog=canteen;Data Source=Me数据库" Dim con As New OleDb.OleDbConnection(constr) con.Open()

Dim sqlcmd As String = "select * from 管理员登录where 管理员代码=" & TextBox1.Text.Trim Dim cmd As New OleDb.OleDbCommand(sqlcmd, con) Dim reader As OleDb.OleDbDataReader reader = cmd.ExecuteReader If reader.Read = True Then

user_id = reader(0).ToString.Trim psw = reader(1).ToString.Trim End If reader.Close() con.Close()