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
课程设计的体会
经过不到两个星期的不断实践与探索,人事档案管理系统的设计与实现己经初步完成,基本上达到了预期的设计要求和目的。
写完这个课程设计报告，一个完整的管理系统就创建完毕了。在本系统的设计与实现的过程中，主要讲述了采购供应管理信息系统的系统设计部分，包括功能模块设计、数据库结构设计等。系统设计为整个程序构建了骨架,各个功能模块实现各个细节部分。主要功能有：档案添加，删除，修改，统计，输出等等。
在整个课程设计阶段的工作和课程设计报告的写作过程的经历将会使我终生受益，并对我今后的工作和发展产生深远的影响。由于整个课程设计时间比较仓促，所以该系统还有许多不尽如意的地方，比如对商品信息管理的设计不是很详尽、仔细，对某些功能的细节设计还缺乏完备性，缺少联机文档，缺乏对系统整体进行周密的考虑，出错处理不够等等多方面