Parte 14 Ventana de Búsqueda de Usuarios

En este vídeo explico cómo crear una ventana de búsqueda de usuarios, para poderlos editar en la ventana de Administración de Usuarios. Entonces cuando queremos editar un usuarios damos clic en el botón Buscar, este botón nos abre la ventana de búsqueda de usuarios, escogemos el tipo de búsqueda ya sea por Usuario, Nombre o Identificación y luego escribimos en el cuadro el usuario que vamos a buscar.

Esta nos llenara el grid con los resultados de la búsqueda y damos clic en el usuarios deseado y damos clic en el botón seleccionar para de esta manera se llene la informacion del usuario en la ventana de Administración de Usuarios.

El código quedo de la siguiente manera:

El Cuadro de texto llamado txtFiltro lleva el código siguiente en el evento keyUp, que se ejecutara al dar Enter:

Private Sub txtFiltro_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
       Call BuscarUsuarios
    End If
End Sub

En el codigo anterior estamos llamando al procedimiento BuscarUsaurios el código es el siguiente:

Sub BuscarUsuarios()
    Dim Sql As String
    Dim Filtro As String
    Dim Columnas As Integer
    'IdUsuario,usuario,password_us,identificacion,nombres_apellidos,IdNivelUsuario
    Tipo = cmdTipoBusqueda.ListIndex
    Filtro = ""
    Select Case Tipo
           Case 0:
                Filtro = " usuario like '%" & txtFiltro.Text & "%' "
           Case 1:
                Filtro = " nombres_apellidos like '%" & txtFiltro.Text & "%' "
           Case 2:
                Filtro = " identificacion like '%" & txtFiltro.Text & "%' "
    End Select
    Sql = "Select IdUsuario, usuario, nombres_apellidos,  identificacion From tblusuarios Where " & Filtro
    Columnas = 4
    Call LlenarGrid(msGrid, Sql, Columnas)
    
    
    msGrid.ColWidth(0) = 0
    msGrid.ColWidth(1) = 1100
    msGrid.ColWidth(2) = 2000
    msGrid.ColWidth(3) = 3000
    msGrid.ColWidth(4) = 1200

    msGrid.TextMatrix(0, 1) = "ID"
    msGrid.TextMatrix(0, 2) = "Usuario"
    msGrid.TextMatrix(0, 3) = "Nombre del Usuario"
    msGrid.TextMatrix(0, 4) = "Identificación"
    
End Sub

Y el botón seleccionar que lo que hace es que al dar clic sobre él ejecuta un procedimiento llamado LlebarUsuario() en la ventana Administación de Usuarios

Private Sub cmdSeleccionar_Click()
    If msGrid.Row > 0 Then
       IdTipoUsuario = msGrid.TextMatrix(msGrid.Row, 1)
       Call frmAdministacionUsuarios.LlenarUsuario(IdTipoUsuario)
       Unload Me
    End If
End Sub

El procedimiento LlebarUsuario() recibo como parámetro el IdTipoUsuario que lo tomamos del grid el código que debes colocar en el formulario frmAdministacionUsuarios es el siguiente:

Sub LlenarUsuario(IdUsuario)
    Dim TempRecordset As New ADODB.Recordset
    
    Sql = "Select u.IdUsuario, u.usuario, u.nombres_apellidos, u.identificacion, t.nombre_tipo From tblusuarios as u LEFT JOIN TiposUsuario as t ON u.IdNivelUsuario = t.IdNivelUsuario Where u.IdUsuario = " & IdUsuario
    Set TempRecordset = ConexionADO.Execute(Sql)
    
    If TempRecordset.RecordCount > 0 Then
       cmdTiposUsuarios.Text = TempRecordset("nombre_tipo")
       Id_UsuarioSeleccionado = IdUsuario
       txtUsuario.Text = TempRecordset("usuario")
       txtIdentificacion.Text = TempRecordset("identificacion")
       txtNombreApellido.Text = TempRecordset("nombres_apellidos")
       cmdCambiarPassword.Enabled = True
    End If
End Sub