frmmodifyemployee.frm

该系统是用VB开发的一个人事管理系统

      Begin VB.CommandButton lastCommand 
         Caption         =   "最后一条记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   8520
         TabIndex        =   1
         Top             =   360
         Width           =   1692
      End
   End
End
Attribute VB_Name = "frmModifyEmployee"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim myBookmark As Variant
Dim mcclean As Boolean
Dim rd As ADODB.Recordset


Private Sub cancelCommand_Click()
 Unload Me
End Sub



Private Sub deleteCommand_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    'If UserName <> "Admin" Then
    '判断用户的权限
        'MsgBox "只有超级管理员才有此权限！", vbOKOnly + vbExclamation, "警告"
        'Exit Sub
    'End If
    
    If MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录") = vbOK Then
        txtSQL = "select * from 工资列表 where 员工编号  ='" & Trim(txtEmployeeID.Text) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        If Not mrc.EOF Then
            mrc.Delete
            mrc.Close
        End If
        txtSQL = "select * from 工资发放 Where 员工编号  ='" & Trim(txtEmployeeID.Text) & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        If Not mrc.EOF Then
            mrc.Delete
            mrc.Close
        End If
        rd.Delete
        rd.MoveNext
        If Not rd.EOF Then
            rd.MoveFirst
            Call viewData
        Else
            MsgBox "现已没有员工记录了！", vbOKOnly + vbExclamation, "提示"
            renyuan.Toolbar1.Buttons(2).Enabled = False
            renyuan.Toolbar1.Buttons(3).Enabled = False
            Unload Me
        End If
    Else
        Call viewData
    End If
End Sub

Private Sub editCommand_Click()
    Frame2.Enabled = False
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
    Dim i As Integer
    txtEmployeeID.Enabled = False
    txtName.Enabled = True
    txtSex.Enabled = True
    txtBirthDay.Enabled = True
    txtNation.Enabled = True
    txtMarriage.Enabled = True
    txtStatus.Enabled = True
    txtDegree.Enabled = True
    txtEnterCom.Enabled = True
    txtForm.Enabled = True
    txtDepartment.Enabled = True
    txtPosition.Enabled = True
    txtHomeTown.Enabled = True
    txtBirthPlace.Enabled = True
    txtLivingPlace.Enabled = True
    txtID.Enabled = True
    txtMajor.Enabled = True
    txtGraduateCol.Enabled = True
    txtRank.Enabled = True
    txtAddress.Enabled = True
    txtStreet.Enabled = True
    txtZip.Enabled = True
    txtTel.Enabled = True
    txtCellPhone.Enabled = True
    txtCoupleName.Enabled = True
    txtCoupleUnit.Enabled = True
    txtCoupleTel.Enabled = True
End Sub



Private Sub Form_Load()
   
    Dim txtSQL As String
    Dim MsgText As String
    
    txtSQL = "select * from 员工基本信息表"
    Set rd = ExecuteSQL(txtSQL, MsgText)
    rd.MoveFirst
    Call viewData
    '显示记录信息
    '下面的代码设置记录为只读
    txtEmployeeID.Enabled = False
    txtName.Enabled = False
    txtSex.Enabled = False
    txtBirthDay.Enabled = False
    txtNation.Enabled = False
    txtMarriage.Enabled = False
    txtStatus.Enabled = False
    txtDegree.Enabled = False
    txtEnterCom.Enabled = False
    txtForm.Enabled = False
    txtDepartment.Enabled = False
    txtPosition.Enabled = False
    txtHomeTown.Enabled = False
    txtBirthPlace.Enabled = False
    txtLivingPlace.Enabled = False
    txtID.Enabled = False
    txtMajor.Enabled = False
    txtGraduateCol.Enabled = False
    txtRank.Enabled = False
    txtAddress.Enabled = False
    txtStreet.Enabled = False
    txtZip.Enabled = False
    txtTel.Enabled = False
    txtCellPhone.Enabled = False
    txtCoupleName.Enabled = False
    txtCoupleUnit.Enabled = False
    txtCoupleTel.Enabled = False
End Sub

Public Sub viewData()
    txtEmployeeID.Text = rd.Fields(0)
    txtName.Text = rd.Fields(1)
    txtSex.Text = rd.Fields(2)
    If IsDate(rd.Fields(3)) Then
        txtBirthDay.Text = rd.Fields(3)
    Else
        txtBirthDay.Text = ""
    End If
    txtNation.Text = rd.Fields(4)
    txtMarriage.Text = rd.Fields(5)
    txtStatus.Text = rd.Fields(6)
    txtDegree.Text = rd.Fields(7)
    If IsDate(rd.Fields(8)) Then
        txtEnterCom.Text = rd.Fields(8)
    Else
        txtEnterCom = ""
    End If
    If IsDate(rd.Fields(9)) Then
        txtForm.Text = rd.Fields(9)
    Else
        txtForm.Text = ""
    End If
    txtDepartment.Text = rd.Fields(10)
    txtPosition.Text = rd.Fields(11)
    txtHomeTown.Text = rd.Fields(12)
    txtBirthPlace.Text = rd.Fields(13)
    txtLivingPlace.Text = rd.Fields(14)
    txtID.Text = rd.Fields(15)
    txtMajor.Text = rd.Fields(16)
    txtGraduateCol.Text = rd.Fields(17)
    txtRank.Text = rd.Fields(18)
    txtAddress.Text = rd.Fields(19)
    txtStreet.Text = rd.Fields(20)
    txtZip.Text = rd.Fields(21)
    txtTel.Text = rd.Fields(22)
    txtCellPhone.Text = rd.Fields(23)
    txtCoupleName.Text = rd.Fields(24)
    txtCoupleUnit.Text = rd.Fields(25)
    txtCoupleTel.Text = rd.Fields(26)
End Sub


Private Sub firstCommand_Click()
    '第一条记录
    rd.MoveFirst
    Call viewData
End Sub
Private Sub previousCommand_Click()
    '前一条记录
    rd.MovePrevious
    If rd.BOF Then
        rd.MoveLast
    End If
    Call viewData
End Sub
Private Sub nextCommand_Click()
    '下一条记录
    rd.MoveNext
    If rd.EOF Then
        rd.MoveFirst
    End If
    Call viewData
End Sub
Private Sub lastCommand_Click()
    '最后一条记录
    rd.MoveLast
    Call viewData
End Sub







Private Sub updateCommand_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    'If UserName <> "Admin" Then
    '判断用户的权限
        'MsgBox "只有超级管理员才有此权限！", vbOKOnly + vbExclamation, "警告"
        'Exit Sub
    'End If

    '更新记录
    rd.Fields(1) = Trim(txtName.Text)
    rd.Fields(2) = Trim(txtSex.Text)
    If IsDate(Trim(txtBirthDay.Text)) Then
        rd.Fields(3) = Trim(txtBirthDay.Text)
    End If
    rd.Fields(4) = Trim(txtNation.Text)
    rd.Fields(5) = Trim(txtMarriage.Text)
    rd.Fields(6) = Trim(txtStatus.Text)
    rd.Fields(7) = Trim(txtDegree.Text)
    If IsDate(Trim(txtEnterCom.Text)) Then
        rd.Fields(8) = Trim(txtEnterCom.Text)
    End If
    If IsDate(Trim(txtForm.Text)) Then
        rd.Fields(9) = Trim(txtForm.Text)
    End If
    rd.Fields(10) = Trim(txtDepartment.Text)
    rd.Fields(11) = Trim(txtPosition.Text)
    rd.Fields(12) = Trim(txtHomeTown.Text)
    rd.Fields(13) = Trim(txtBirthPlace.Text)
    rd.Fields(14) = Trim(txtLivingPlace.Text)
    rd.Fields(15) = Trim(txtID.Text)
    rd.Fields(16) = Trim(txtMajor.Text)
    rd.Fields(17) = Trim(txtGraduateCol.Text)
    rd.Fields(18) = Trim(txtRank.Text)
    rd.Fields(19) = Trim(txtAddress.Text)
    rd.Fields(20) = Trim(txtStreet.Text)
    rd.Fields(21) = Trim(txtZip.Text)
    rd.Fields(22) = Trim(txtTel.Text)
    rd.Fields(23) = Trim(txtCellPhone.Text)
    rd.Fields(24) = Trim(txtCoupleName.Text)
    rd.Fields(25) = Trim(txtCoupleUnit.Text)
    rd.Fields(26) = Trim(txtCoupleTel.Text)
    rd.Update
    txtSQL = "select * from 工资列表 where 员工编号  ='" & Trim(txtEmployeeID.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If Not mrc.EOF Then
        mrc.Fields(1) = Trim(txtName.Text)
        mrc.Fields(2) = Trim(txtDepartment.Text)
        mrc.Update
        mrc.Close
    End If
    txtSQL = "select * from 工资发放 Where 员工编号  ='" & Trim(txtEmployeeID.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If Not mrc.EOF Then
        mrc.Fields(1) = Trim(txtName.Text)
        mrc.Fields(2) = Trim(txtDepartment.Text)
        mrc.Update
        mrc.Close
    End If
    MsgBox "员工信息更新成功！", vbOKOnly + vbExclamation, "更新员工信息"
    Call viewData
    Frame2.Enabled = True
    '导航按钮有效
    firstCommand.Enabled = True
    previousCommand.Enabled = True
    nextCommand.Enabled = True
    lastCommand.Enabled = True
    '记录只读
    txtEmployeeID.Enabled = False
    txtName.Enabled = False
    txtSex.Enabled = False
    txtBirthDay.Enabled = False
    txtNation.Enabled = False
    txtMarriage.Enabled = False
    txtStatus.Enabled = False
    txtDegree.Enabled = False
    txtEnterCom.Enabled = False
    txtForm.Enabled = False
    txtDepartment.Enabled = False
    txtPosition.Enabled = False
    txtHomeTown.Enabled = False
    txtBirthPlace.Enabled = False
    txtLivingPlace.Enabled = False
    txtID.Enabled = False
    txtMajor.Enabled = False
    txtGraduateCol.Enabled = False
    txtRank.Enabled = False
    txtAddress.Enabled = False
    txtStreet.Enabled = False
    txtZip.Enabled = False
    txtTel.Enabled = False
    txtCellPhone.Enabled = False
    txtCoupleName.Enabled = False
    txtCoupleUnit.Enabled = False
    txtCoupleTel.Enabled = False
End Sub