employeedao.cls

即时通讯

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

'**************************************
'*    功 能 描 述 :根据权限编号从表中显示权限的所有记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function permission_showname(recSet As ADODB.Recordset, permissionId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    permission_showname = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "permission_showname"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = permissionId            ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            permission_showname = True
        Else
            permission_showname = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    permission_showname = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :权限子目录
'*    输 入 参 数 :
'*    输 出 能 数 :无
'**************************************
Public Function permission(prepermissionId As String) As String
    Dim ret As Boolean
    Dim rec As ADODB.Recordset     ' 数据操作数据集对象
    Dim bomRec As ADODB.Recordset
    Dim permissionid1 As String       ' 一个明细的数量
    Dim permissionname As String
    
    Set rec = New ADODB.Recordset
    Set bomRec = New ADODB.Recordset
    
    ret = permission_showname(rec, prepermissionId)   ' 到数据库查找其所有子权限列表
    
    If ret Then                 ' 如果找到明细则增加到树中
        With rec
            Do While Not .EOF
                
                '[>>自定义填充内容
                ' 把本行数据加入树中
                permissionid1 = permission(Trim(.Fields("permissionid")))
                permissionname = Trim(.Fields("name"))

                '<<]
         
                '动态集指针加1,同时将计数器加1(Fixed)
                .MoveNext
            Loop
        End With
    End If
    rec.Close
End Function

'---------------------------------------------------------------------------------
'**************************************
'*    功 能 描 述 :读取一个父节点的所有子节点
'*    输 入 参 数 :
'*    输 出 能 数 :true  -  成功
'*                 false -  失败
'**************************************
Public Function PermissionFindSubAll(recSet As ADODB.Recordset, pStr As String) As Boolean
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    PermissionFindSubAll = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "permission_findSubAll"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = pStr            ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            PermissionFindSubAll = True
        Else
            PermissionFindSubAll = False
        End If
    End With
    Set cmdProc = Nothing
    Exit Function
    
Cwcl:
    PermissionFindSubAll = False
    Set cmdProc = Nothing
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :查看公司的信息
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function company_Allinfo(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    company_Allinfo = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "company_Allinfo"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            company_Allinfo = True
        Else
            company_Allinfo = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    company_Allinfo = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改公司数据
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function Companyinfo_modify(recSet As ADODB.Recordset, _
                              CompanyName As String, GSYWM As String, NameSimple As String, FRDB As String, _
                              address As String, YWDZ As String, KF As String, ZH As String, _
                              postcode As String, phone As String, fax As String, http As String _
                              , mail As String, ZJL As String, XSZJL As String, XSRX As String _
                              , SHJL As String, SHRX As String, CGJL As String, CGDH As String _
                              , CWJL As String, CWDH As String, WMJL As String, WMDH As String _
                              , Country As String, city As String, province As String, GSJJ As String _
                              , ZHA As String, ZHB As String, ZHD As String, ZHC As String _
                              , SPXX As String, YGSC As String, companyid As String, pictureid As String, _
                              pictureid1 As String, pictureid2 As String, pictureid3 As String, pictureid4 As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Companyinfo_modify = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "Companyinfo_modify"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = CompanyName              ' 参数
    cmdProc.Parameters(2) = GSYWM          ' 参数
    cmdProc.Parameters(3) = NameSimple               ' 参数
    cmdProc.Parameters(4) = FRDB          ' 参数
    cmdProc.Parameters(5) = address            ' 参数
    cmdProc.Parameters(6) = YWDZ            ' 参数
    cmdProc.Parameters(7) = KF         ' 参数
    cmdProc.Parameters(8) = ZH                ' 参数
    cmdProc.Parameters(9) = postcode           ' 参数
    cmdProc.Parameters(10) = phone      ' 参数
    cmdProc.Parameters(11) = fax      ' 参数
    cmdProc.Parameters(12) = http      ' 参数
    cmdProc.Parameters(13) = mail        ' 参数
    cmdProc.Parameters(14) = ZJL     ' 参数
    cmdProc.Parameters(15) = XSZJL     ' 参数
    cmdProc.Parameters(16) = XSRX     ' 参数
    cmdProc.Parameters(17) = SHJL    ' 参数
    cmdProc.Parameters(18) = SHRX  ' 参数
    cmdProc.Parameters(19) = CGJL       ' 参数
    cmdProc.Parameters(20) = CGDH      ' 参数
    cmdProc.Parameters(21) = CWJL  ' 参数
    cmdProc.Parameters(22) = CWDH              ' 参数
    cmdProc.Parameters(23) = WMJL          ' 参数
    cmdProc.Parameters(24) = WMDH        ' 参数
    cmdProc.Parameters(25) = Country      ' 参数
    cmdProc.Parameters(26) = city      ' 参数
    cmdProc.Parameters(27) = province           ' 参数
    cmdProc.Parameters(28) = GSJJ            ' 参数
    cmdProc.Parameters(29) = ZHA   ' 参数
    cmdProc.Parameters(30) = ZHB         ' 参数
    cmdProc.Parameters(31) = ZHD          ' 参数
    cmdProc.Parameters(32) = ZHC      ' 参数
    cmdProc.Parameters(33) = SPXX             ' 参数
    cmdProc.Parameters(34) = YGSC             ' 参数
    cmdProc.Parameters(35) = companyid             ' 参数
    cmdProc.Parameters(36) = pictureid
    cmdProc.Parameters(37) = pictureid1
    cmdProc.Parameters(38) = pictureid2
    cmdProc.Parameters(39) = pictureid3
    cmdProc.Parameters(40) = pictureid4
    
    ' 执行命令 把查询到的结果放在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   ' 回滚事务
    Companyinfo_modify = False
    Exit Function
End Function