mysql人事管理系统源代码_人事管理系统（源代码.doc

人事管理系统(源代码

附录：

毕业设计程序清单

设计题目 人事管理系统

教 学 班：

学生姓名：

学 号：

指导教师：

完成日期：

Option Explicit

Dim Bupdata As Boolean

Dim i As Integer

Private Sub Cmbdegree_Click()

If Cmbdegree.Text = "定制" Then

FrmTable.Show

Cmbdegree.ListIndex = 0

End If

End Sub

Private Sub Cmbdepart_Click()

If Cmbdepart.Text = "定制" Then

FrmTable.Show

Cmbdepart.ListIndex = 0

End If

End Sub

Private Sub CmdAddNew_Click()

If CmdAddNew.Caption = "添加" Then

CmdAddNew.Caption = "确认"

CmdDel.Enabled = False

CmdOK.Enabled = False

DataA.ReadOnly = False

For i = 1 To 12

If Txt(i).Text = "" Then Txt(i).Text = 0 'DataA.Recordset.Fields(i) = 0

Next i

DataA.Recordset.AddNew

Txt(0).Locked = False

If FrmMain.cutable = "employee" Then

DataA.Recordset.Fields(13) = frmLogin.EmploID

DataA.Recordset.Fields(14) = Now

If Opsex(0) Then

DataA.Recordset.Fields(4) = "男"

Else

DataA.Recordset.Fields(4) = "女"

End If

DataA.Recordset.Fields(7) = Cmbdegree.Text

DataA.Recordset.Fields(8) = Cmbdepart.Text

ElseIf FrmMain.cutable = "leave" Then

DataA.Recordset.Fields(8) = frmLogin.EmploID

DataA.Recordset.Fields(9) = Now

Else

DataA.Recordset.Fields(13) = frmLogin.EmploID

DataA.Recordset.Fields(14) = Now

End If

Txt(0).SetFocus

Else 'OK

If Txt(0).Text = "" Then

MsgBox "不可以为空"

Txt(0).SetFocus