SQL = SQL & "ON a.受聘部门 = c.部门名称"
            Call InitialComboBox(SQL)
        Case 1:                                     '如果查询条件是“员工ID”
            '初始化已考核的员工的员工
            SQL = "select distinct a.员工ID,b. FROM 工作考核信息表 a INNER JOIN  "
            SQL = SQL & "员工基本信息表 b ON a.员工ID=b.员工ID ORDER BY a.员工ID"
            Call InitialComboBox(SQL)
        End Select
    End Sub
    Private Sub CmdExit_Click()
    '退出操作
        人事管理系统.Enabled = True
        Unload Me
    End Sub
    Private Sub Form_Unload(Cancel As Integer)
    '退出操作
        人事管理系统.Enabled = True
        Unload Me
    End Sub