Loginform

[ALFIN30]

Hola a todos estoy creando una aplicacion de inventario para una universidad
y pues estoy haciendo mis primeros pininos en la programacion quisiera saber como
crear un loginform y ponerle codigo para que al iniciar mi aplicacion me pida el nombre del usuario y la contraseña..

otra pregunta.

Tengo un dataGridView y quiero buscar por filtro bueno asi se le llama en programacion lo que quiero hacer es que cuando escriba una palabra en el textbox
al presionar el boton buscar me aparezca en el datagridview la busqueda a la que me interese buscar o simplemente que al poner el texto a buscar en el textbox y al presionar enter me traiga la busqueda, estoy haciendo esta prueba pero en vez de buscarme lo que quiero , me lo borra. Muchas GRacias aca el ejemplo.

Public Class FrmREGISTROS
Private Sub btnbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuscar.Click
Dim Consulta As String
Consulta = "select * from productos where prd_codigo=" & Me.txtbuscar.Capture
Me.dgDATOS.DataSource = Consulta
Me.dgDATOS.Refresh()
End Sub
End Class

Porfavor ayudenme Gracias.

[ALFIN30]

se me olvidaba decirles estoy programando en vb 2008 y para lo de base de datos estoy utilizando el sql server 2008

´´´´´´´´´´´´´´´´´´´´´´´´OJO´´´´´´´´´´´´´´´´´´´´´´´ ´´´´´´´´´´´´´

[RootK]

quisiera saber como
crear un loginform y ponerle codigo para que al iniciar mi aplicacion me pida el nombre del usuario y la contraseña..

http://msdn.microsoft.com/en-us/library/ms998347.aspx

[Ka0stj]

Hola ALFIN30
Prueba con lo siguiente en tu textbox, el siguiente ejemplo que te pongo lo utilizo para búsqueda también y funciona de la siguiente manera:

Cuando vas presionando una tecla va haciendo el like por ambos lados de la cadena. Si lo siguiente no hace exactamente lo que buscas has unos simples cambios dentro de tu botón buscar.

Código vb:

Private Sub tbBuscar_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tbBuscar.TextChanged
        'Hago una colección de tablas del DataSet
        Dim tables As DataTableCollection = TuDataSet.Tables
        'Con el DataView creo una vista personalizada donde puedo enlazar datos de un DataTable
        'para ordenación, filtrado, búsqueda, edición y exploración.
        Dim view1 As New DataView(tables(0))
        'Creo una instancia de BindingSource
        Dim source1 As New BindingSource()
        'Le asigno la vista "view1" como origen de datos al source1
        source1.DataSource = view1
        'Le asigno el source1 como origen de datos al datagridview
        'Todo lo anterior con el proposito de poder aplicar la operación de filtrado
        'El BindingSource Encapsula un origen de datos para enlazarlo a controles.
        dgvConsultarProductos.DataSource = source1
 
        source1.Filter = "nombre_producto LIKE '%" & tbBuscar.Text & "%'"
 
    End Sub
 

Con respecto al login yo utilizo lo siguiente:

Código vb:

Private Sub btOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btOk.Click
 
       'Aqui cachas tu usuario y password
        MiConexion.Usuario = tbUsuario.Text
        MiConexion.Password = tbPassword.Text
 
        'Mandas tu cadena de conexión
        objConn = New SqlConnection(MiConexion.StrConexion)
 
        Try
            objConn.Open()
 
            Dim SQL_PassWord_BD = "select isnull(pwdcompare('" & tbPassword.Text & "', (select password  from master..syslogins where name = '" & tbUsuario.Text & "')),0)"
            Dim PassWord_BD = MiConexion.EjecutarEscalar(SQL_PassWord_BD, objConn)
 
            'Esto lo hago por si en determinado momento cambio el nombre del usuario no tener que modificar las restricciones por usuario
            Dim cadena As String = "select sid = convert(varchar,sid) from master..syslogins where name='" & tbUsuario.Text & "'"
            Dim Cadena_De_SID As String = MiConexion.EjecutarEscalarString(cadena, objConn)
 
            If tbUsuario.Text = "" Or tbPassword.Text = "" Then
                MsgBox("Es necesario que introduzca el Usuario y Password.", MsgBoxStyle.Critical, "Error")
                tbUsuario.Focus()
            Else
 
                If PassWord_BD = 1 Then
 
                    MsgBox("Bienvenido " & tbUsuario.Text, MsgBoxStyle.Information, "Autentificado")
 
                    'Mandas a tu pantalla principal o donde quieras
 
                Else
                    MsgBox("Datos incorrectos.", MsgBoxStyle.Critical, "Error")
                  
                End If
 
            End If
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            objConn.Close()
          
        End Try
 
    End Sub
 

Bueno eso es todo, espero y te sirva. Suerte....