企业人事管理系统源代码+论文+设计+ER图 第16页

企业人事管理系统源代码+论文+设计+ER图 第16页
Private Sub munshujubeifen_Click()
ss = App.Path & "\mang.mdb"
ss2 = App.Path & "\mang_bk.mdb"

Response = MsgBox("原数据库:" & ss & "备份的数据库将保存在:" & ss2, vbYesNo)

If Response = vbYes Then

   DeleteFile ss2
              '定义备份文件的位置,使用了相对目录
   CopyFile ss, ss2, 1                   '备份文件
        
   MsgBox "成功"
  Else
   Exit Sub
End If
End Sub

Private Sub munshujuhf_Click()
ss = App.Path & "\mang.mdb"
ss2 = App.Path & "\mang_bk.mdb"

Response = MsgBox("是否删除原数据库？位置 :" & ss, vbYesNo)

If Response = vbYes Then
DeleteFile ss

              '定义恢复文件的位置,使用了相对目录

MsgBox "备份的数据库在 :" & ss2 & "   恢复成原数据库位置 :" & ss
CopyFile ss2, ss, 1

              '恢复文件
    Else
   Exit Sub
End If

End Sub

Private Sub munyonghu_Click()
Form10.Show            '打开界面
End Sub
5.3 添加功能模块设计
 
图 5.2 增加员工界面
通过ADO控件连接到数据库的RS表，通过SQL语句
“SELECT rs.编号, rs.姓名, rs.年龄, rs.部门, rs.职级, rs.婚姻状况, rs.文化程度, rs.工作年数, rs.联系电话, rs.家庭住址, rs.身份证号码
FROM rs;“   筛选出全部记录
用TEXT控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设为可写。
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew       添加记录
End Sub

Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete       删除记录
End Sub
5.4 信息查询模块设计

 
图 5.3 “查询员工信息”界面
这里就列出查询源代码进行说明：
Private Sub Command6_Click()
ss= Text2.Text                        设定4个变量

Adodc1.RecordSource = "SELECT *  FROM RS where " + ss2 + "='" + ss4 + "' and  " + ss3 + "='" + ss5 + "'"
Adodc1.Refresh
    字段1=变量SS1  值=SS2      字段2=变量SS3  值=SS4
End Sub

5.5 计发工资信息模块设计
 
图 5.4 计发工资信息界面
通过ADO控件连接到数据库的表工资
  用控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew       添加记录
End Sub

Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete       删除记录
End Sub

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] 下一页

企业人事管理系统源代码+论文+设计+ER图 第16页下载如图片无法显示或论文不完整，请联系qq752018766