基于B/S结构的企业人事管理系统
图6 添加员工信息窗体
关键代码如下：
Dim i As Integer '定义整型变量
Dim rs1 As New ADODB.Recordset '定义数据集对象 Public photoFilename As String Dim mst As New ADODB.Stream Private Sub Form_Activate() Txt1(1).SetFocus End Sub
Private Sub Form_Load() '在Combo1中添加性别 Combo1.AddItem (\男\ Combo1.AddItem (\女\ Combo1.ListIndex = 0 '在Combo2中添加民族 Combo2.AddItem (\汉族\ Combo2.AddItem (\回族\ Combo2.AddItem (\满族\ Combo2.AddItem (\蒙古族\ Combo2.AddItem (\朝鲜族\ Combo2.ListIndex = 0
'在Combo3中添加婚姻状况 Combo3.AddItem (\未婚\ Combo3.AddItem (\已婚\ Combo3.AddItem (\再婚\ Combo3.ListIndex = 0
计算机科学与技术专业毕业论文（设计） 21
基于B/S结构的企业人事管理系统
'在Combo4中添加政治面貌 Combo4.AddItem (\团员\
Combo4.AddItem (\共产党员\ Combo4.ListIndex = 0
'在Combo5中添加最高学历 Combo5.AddItem (\中专\ Combo5.AddItem (\高中\ Combo5.AddItem (\大专\ Combo5.AddItem (\本科\
Combo5.AddItem (\硕士研究生\ Combo5.AddItem (\博士研究生\ Combo5.ListIndex = 2 '在Combo6中添加职位 Combo6.AddItem (\无\ Combo6.AddItem (\经理\ Combo6.AddItem (\副经理\ Combo6.AddItem (\部门经理\ Combo6.ListIndex = 0 '在Combo7中添加职称 Combo7.AddItem (\无\ Combo7.AddItem (\初级\ Combo7.AddItem (\中级\ Combo7.AddItem (\高级\ Combo7.ListIndex = 0 If blnAddRS = True Then
Me.Caption = \添加员工信息\
rs1.Open \员工信息表 order by 编号\ If rs1.RecordCount > 0 Then rs1.MoveLast
Txt1(0) = Format(Val(rs1.Fields(\编号\ Else
Txt1(0) = \ End If End Sub
Private Sub CmdEnd_Click() Unload Me End Sub
（2）修改员工信息：浏览是用户可以通过员工信息表中员工的相关信息进行模糊查询、修改、删除，可以帮用户快速找到相应的员工。用户可以通过员工信息查询信息。员工信息查询窗体如图7所示：
计算机科学与技术专业毕业论文（设计） 22
基于B/S结构的企业人事管理系统
图7 修改员工信息窗体
关键代码如下：
Private Sub cmdDelete_Click() Me.Caption = \修改员工信息\
With main_yggl_modify.Adodc1.Recordset If .RecordCount > 0 Then Txt1(0) = .Fields(\编号\ Txt1(1) = .Fields(\姓名\
Combo1.Text = .Fields(\性别\ Txt1(2) = .Fields(\身份证号\ DTP1.Value = .Fields(\出生年月\ Txt1(13) = .Fields(\年龄\ Combo2 = .Fields(\民族\ Combo3 = .Fields(\婚姻状况\ Combo4 = .Fields(\政治面貌\
DTP2.Value = .Fields(\入党团时间\ Txt1(3) = .Fields(\籍贯\ Txt1(4) = .Fields(\联系电话\ Txt1(5) = .Fields(\手机号码\ Txt1(6) = .Fields(\家庭地址\ Txt1(7) = .Fields(\毕业院校\ Txt1(8) = .Fields(\专业\
Combo5 = .Fields(\最高学历\ Txt1(9) = .Fields(\特长\
DTP3.Value = .Fields(\参加工作时间\ Txt1(10) = .Fields(\总工龄\
Set PicPhoto.DataSource = main_yggl_modify.Adodc1 PicPhoto.DataField = \照片\
If .Fields(\照片\
计算机科学与技术专业毕业论文（设计） 23
基于B/S结构的企业人事管理系统
PicPhoto.Picture = LoadPicture() End If
DataCombo1 = .Fields(\部门\ Combo6 = .Fields(\职务\ Combo7 = .Fields(\职称\
Txt1(11) = .Fields(\基本工资\ DTP4.Value = .Fields(\入职时间\ Txt1(12) = .Fields(\本单位工龄\ End If End With End If End Sub
（3）查询员工信息：快速查询出员工个人信息，查询员工信息窗体如图8所示：
图8 查询员工信息窗体
关键代码：
Private Sub Command2_Click()
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case \
tb1 = \员工信息表\ Load main_fzfind main_fzfind.Show Case \
Adodc1.RecordSource = \员工信息表 order by 编号\
计算机科学与技术专业毕业论文（设计） 24
基于B/S结构的企业人事管理系统
Adodc1.Refresh Case \
Dim r As Integer, c As Integer Dim newxls As Excel.Application Dim newbook As Excel.Workbook Dim newsheet As Excel.Worksheet
Set newxls = CreateObject(\创建excel应用程序,打开excel2000 Set newbook = newxls.Workbooks.Add '创建工作簿 Set newsheet = newbook.Worksheets(1) '创建工作表 If sql1 <> \
Adodc1.RecordSource = \ Adodc1.Refresh Else
Adodc1.RecordSource = \员工信息表 order by 编号\ Adodc1.Refresh End If
If Adodc1.Recordset.RecordCount > 0 Then newxls.Visible = True
For i = 0 To DataGrid1.Columns.Count - 1
newsheet.Cells(1, i + 1) = DataGrid1.Columns(i).Caption Next i
'指定表格内容
Adodc1.Recordset.MoveFirst Do Until Adodc1.Recordset.EOF
r = Adodc1.Recordset.AbsolutePosition For c = 0 To DataGrid1.Columns.Count - 1
newsheet.Cells(r + 1, c + 1) = DataGrid1.Columns(c) Next c
Adodc1.Recordset.MoveNext Loop End If Case \ Unload Me End Select End Sub
（4）员工调动：用户可以通过员工调动表对员工的相关信息进行模糊查询、全部、调动、退出帮助用户快速找到相应调动的员工。员工调动窗体如图9所示：
计算机科学与技术专业毕业论文（设计） 25