Foro de elhacker.net

Imports System.Data.OleDb
Public Class Form1
    'Boton salir este boton ejuta la salida directa del sistema si el usuario no quiere ingresar
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub

    'Boton limpiar esta es una simple sentencia que solo limpia los recuadros de texto si el usuario lo desea
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Textuser.Text = ""
        Textpass.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'declaro la variable login la cual ejecutara la consulta  la base de datos comparandola con las cajas de texto 1 y 2
        Dim login = Me.UsuariosTableAdapter1.UserNamePasswordString(Textuser.Text, Textpass.Text)

        'la esta sentencia indica si el usuario y contraseña son invalidos 
        If login Is Nothing Then
            MsgBox("Usuario ó Contraseña Incorrectos")
        Else
            'la esta sentencia indica si el usuario y contraseña son validos y nos deja acceder al sistema
            MsgBox("Bienvenido A SISGTEG")
            Me.Hide()
            Form2.Show()


        End If

    End Sub
End Class