⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 employeedao.cls

📁 即时通讯
💻 CLS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            DeleteById = True
        Else
            DeleteById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    DeleteById = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据员工编号，姓名，所在部门及职位查找员工记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindEmployee(recSet As ADODB.Recordset, _
                             materialId As String) As Boolean
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindEmployee = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "EmployeeRecord_findById"    ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = materialId            ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindEmployee = True
        Else
            FindEmployee = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindEmployee = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据员工编号列表找员工记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function FindEmployeeIdList(recSet As ADODB.Recordset) As Boolean
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindEmployeeIdList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "EmployeeRecord_findByIdList"    ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
'    cmdProc.Parameters(1) = idList            ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindEmployeeIdList = True
        Else
            FindEmployeeIdList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindEmployeeIdList = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据员工ID取得所有员工权限的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function show_employeepermission(recSet As ADODB.Recordset, employeeid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    show_employeepermission = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "employeepermission_show"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = employeeid                ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            show_employeepermission = True
        Else
            show_employeepermission = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    show_employeepermission = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :保存员工权限数据
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function Newemployeepermission(recSet As ADODB.Recordset, _
                                      employeeid As String, permissionId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Newemployeepermission = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "employeepermission_add"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = employeeid              ' 参数
    cmdProc.Parameters(2) = permissionId            ' 参数
    
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
       cmdProc.Execute

   
   MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    Newemployeepermission = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据员工ID从表中删除该员工的权限记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function Deleteemployeepermission(recSet As ADODB.Recordset, employeeid As String) As Boolean


    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Deleteemployeepermission = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "employeepermission_delete"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = employeeid             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            Deleteemployeepermission = True
        Else
            Deleteemployeepermission = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Deleteemployeepermission = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据员工ID和权限ID判断该员工的操作权限
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function show_employeepermission1(recSet As ADODB.Recordset, employeeid As String, permissionId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    show_employeepermission1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "employeepermission1_show"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = employeeid                ' 参数
    cmdProc.Parameters(2) = permissionId              ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            show_employeepermission1 = True
        Else
            show_employeepermission1 = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    show_employeepermission1 = False
    Exit Function
End Function
Public Function Modifypassword(recSet As ADODB.Recordset, employeeid As String, password As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Modifypassword = False
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -