Programacion

Ejemplo simple para abrir un formulario de ingreso pidiendo el nombre de usuario y password para ingresar al programa
 
Lo siguiente utiliza una base de datos con una tabla que tiene dos campos,uno llamado " Nombre " y otro campo llamado " Password ".
 
Al ejecutar el programa, se inicia desde un SubMain y un formulario de Login. Este último , se conecta a la base de datos utilizando Adopara traer los datos del usuario al recordset y comprobar si son correctos y poder entrar al formulario principal
 
 
Pasos para crear el ejemplo:
* Crear una tabla llamada Usuarios
* Dentrode esta tabla añadir dos campos, uno llamado Nombre y otro Password
* Al proyecto añadir dos formularios ( frmLogin y frmPrincipal )
* Un módulo bas
* Añadir la referencia a MicrosoftActivex xx Data Objects para poder utilizar ADO
 
El formulario frmLogin debe tener dos textBox ( txt_Usuario y txt_Password ) y dos commandButton ( cmdEntrar y cmdSalir )
 

 
Luego indicar desdeel menú Proyecto > Propiedades del proyecto .. en la opción " Objeto inicial " , el procedimiento Sub Main
 

 

A continuación sigue el código a agregar en el módulo bas y el código delformulario frmLogin
 
código fuente del módulo bas
Texto planoImprimir
1. Option Explicit  
2.   
3. Public Sub Main()  
4.   
5.   
6.    ' Abre el formulario para el ingreso _  
7.       del Usuario y la contraseña  
8.     frmLogin.Show vbModal  
9.   
10.     MsgBox " ..bienvenido  ", vbInformation, " Login Correcto "  
11.    ' Abre el formulario principal del programa  
12.     FrmPrincipal.Show  
13.   
14. End Sub  

 
 

Código fuente en el formulario FrmLogin
Texto planoImprimir
1. Option Explicit  
2.   
3.   
4. ' Flag  
5.Dim OK As Boolean  
6.   
7.   
8. Private Sub cmdEntrar_Click()  
9.       
10.     ' Cadena de conexión ( INDICAR EL PATH DE LA BASE DE DATOS )  
11....