人事管理系統(tǒng)(源代碼

附錄：

畢業(yè)設(shè)計程序清單

設(shè)計題目 人事管理系統(tǒng)

教 學(xué) 班：

學(xué)生姓名：

學(xué) 號：

指導(dǎo)教師：

完成日期：

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

總結(jié)

以上是生活随笔為你收集整理的mysql人事管理系统源代码_人事管理系统（源代码.doc的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。