企业人事管理系统毕业论文(6)

基于B/S结构的企业人事管理系统

图9 员工调动窗体

关键代码如下：

Dim rs1 As New ADODB.Recordset Private Sub Form_Activate() If sql1 <> \

Adodc1.RecordSource = \ Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then Else

MsgBox \没有找到符合条件的记录！\提示窗口\ End If End If End Sub

Private Sub Form_Load() Me.Caption = Text

DataGrid1_RowColChange 0, 0 End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) sql1 = \End Sub

Private Sub DataGrid1_DblClick() Load main_rsgl_rsbd_lr main_rsgl_rsbd_lr.Show With main_rsgl_rsbd_lr

.DataCombo1 = Adodc1.Recordset.Fields(\部门\ .Text1(0) = Adodc1.Recordset.Fields(\职务\ .Text1(1) = Adodc1.Recordset.Fields(\职称\ End With End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

计算机科学与技术专业毕业论文（设计） 26

基于B/S结构的企业人事管理系统

With Adodc1.Recordset

If Adodc1.Recordset.RecordCount > 0 Then Text1(0) = .Fields(\编号\ Text1(1) = .Fields(\姓名\ Text1(2) = .Fields(\部门\ Text1(3) = .Fields(\职务\ Text1(4) = .Fields(\职称\ End If End With End Sub

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 编号\ Adodc1.Refresh Case \

DataGrid1_DblClick Case \ Unload Me End Select End Sub

（5）员工离职：用户可以通过员工离职表对员工的相关信息进行模糊查询、全部、调动、退出帮助用户快速找到相应离职的员工。员工离职窗体见图9所示：

图10 员工离职窗体

计算机科学与技术专业毕业论文（设计） 27

基于B/S结构的企业人事管理系统

关键代码如下：

Dim rs1 As New ADODB.Recordset Private Sub Form_Activate() If sql1 <> \

Adodc1.RecordSource = \ Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then Else

MsgBox \没有找到符合条件的记录！\提示窗口\ End If End If End Sub

Private Sub Form_Load() Me.Caption = Text

DataGrid1_RowColChange 0, 0 End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) sql1 = \End Sub

Private Sub DataGrid1_DblClick() Load main_rsgl_rsbd_lr main_rsgl_rsbd_lr.Show With main_rsgl_rsbd_lr

.DataCombo1 = Adodc1.Recordset.Fields(\部门\ .Text1(0) = Adodc1.Recordset.Fields(\职务\ .Text1(1) = Adodc1.Recordset.Fields(\职称\ End With End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) With Adodc1.Recordset

If Adodc1.Recordset.RecordCount > 0 Then Text1(0) = .Fields(\编号\ Text1(1) = .Fields(\姓名\ Text1(2) = .Fields(\部门\ Text1(3) = .Fields(\职务\ Text1(4) = .Fields(\职称\ End If End With End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case \

tb1 = \员工离职表\ Load main_fzfind main_fzfind.Show

计算机科学与技术专业毕业论文（设计） 28

基于B/S结构的企业人事管理系统

Case \

Adodc1.RecordSource = \员工信息表 order by 编号\ Adodc1.Refresh Case \

DataGrid1_DblClick Case \ Unload Me End Select End Sub

2、部门管理：包括添加部门信息、修改部门信息、可以对部门信息进行编辑，删除，查询和设置。

（1）添加部门信息：用户可以通过部门信息添加对部门实行部门编号、部门名称、部门经理、部门地址、部门电话的管理进行保存和取消。添加部门窗体如图11所示：

图11 添加部门信息窗体

关键代码如下：

Dim rs1 As New ADODB.Recordset Dim i As Integer

Private Sub Form_Load() If blnAddBM = True Then

Me.Caption = \部门信息添加\

rs1.Open \部门表 order by 部门编号\ If rs1.RecordCount > 0 Then rs1.MoveLast

Text1(0) = Format(Val(rs1.Fields(\部门编号\ Else

Text1(0) = \ End If rs1.Close End Sub

（2）修改部门信息：用户可以通过修改部门信息窗体对部门信息实行查找、全部修改、删除、关闭。修改部门信息窗体如图12所示：

计算机科学与技术专业毕业论文（设计） 29

基于B/S结构的企业人事管理系统

图12 修改部门信息窗体

关键代码如下：

Dim rs1 As New ADODB.Recordset Private Sub DataGrid1_DblClick() Me.Caption = \部门信息修改\ For i = 0 To Text1.UBound

Text1(i) = main_bmgl_cx.Adodc1.Recordset.Fields(i) Next i End If End Sub

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn And Index > 0 And Index < 4 Then Text1(Index + 1).SetFocus End Sub

3、考勤管理：包括考勤时间设置、员工公出\\请假信息、可以对考勤信息进行编辑，删除，查询和设置。

（1）考勤时间设置：用户可以通过上下班时间实行员工考勤时间管理。考勤时间设置窗体如图13所示：

计算机科学与技术专业毕业论文（设计） 30