Autor
Código:
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
este es el form.. para q se entienda un poqito mas...
la cosa es q hace lo q quiero normal... el programa se conecta a una base de datos verifica el usuario y la pass para poder iniciar sesión.. si la información introducida es correcta ingresas sino ps error.. pero allí estoy trancado por q no se como hacer para que cuando inicie la sesión correctamente me pase los datos que están en la base de datos al otro formulario Form2 que es allí donde se deben mostrar los datos del usuario que acaba de iniciar sesión datos como: nombre, apellido, dirección, etc q están en la base de datos desde esta segundo formulario aparte de mostrar los datos debo modificarlos guardarlos o eliminarlos pero eso ps lo veré mas adelante... alguna idea?
aqui encontre algo como lo q qiero hacer pero no hallo como plasmarlo.. :$
En línea
