4、据表概要说明建立数据库employeemanage,包含的表如图:15重庆邮电大学移通学院3、主要数据表的结构部门表如图所示:岗位表如图所示:15重庆邮电大学移通学院员工表如图所示:岗位工资结构表如图所示:用户表如图所示:工资记录表如图所示:15重庆邮电大学移通学院考勤记录表如图所示:考勤表如图所示:(四)、前台页面设计(普通用户模块)1、前台各个主要页面概述2、前台主页面的布局上为标题内容3、前台主页面的实现Dim WithEvents adoPrimaryRS As Recordset Private Sub Command1_Click() I
5、f Text1.Text = "" Then MsgBox "员工编号不能为空!", vbOKOnly + vbExclamation, "警告" Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "姓名不能为空!", vbOKOnly + vbExclamation, 15重庆邮电大学移通学院"警告" Text2.SetFocus Exit Sub End If If C
6、ombo1.Text = "" Then MsgBox "性别不能为空!", vbOKOnly + vbExclamation, "警告" Combo1.SetFocus Exit Sub Text11.SetFocus Exit Sub End If Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=M
7、icrosoft.Jet.OLEDB.3.51;Data Source=rsgz.mdb;" Set adoPrimaryRS = New Recordset a = Text1.Text adoPrimaryRS.Open "select * from ygInfo where 员工编号='" & a & "'", db, adOpenStatic, adLockOptimistic If Not adoPrimaryRS.EOF Then MsgBox "该编号重复!", vbOKOnly + vbExc