Crear el Proyecto y los Formularios

Inicio de Visual Basic

a) Haz clic en el botón Inicio, señala Todos los programas.b) Haz clic en Microsoft Visual Studio 6.0, Microsoft Visual Basic 6.0.

Inicio del Proyecto

a) Crea una carpeta que será exclusiva para contener los componentes del proyecto.b) Crea los formularios que consideres conveniente, con sus botones, menús, etc.

Creación de los Formularios.

Preparando los formulariosEn un formulario de Visual Basic crea etiquetas que correspondan con los nombres de los campos de una de las tablas, cajas de texto para mostrar el contenido de los campos y un control Data, repite los pasos para cada tabla que tengas en tu base de datos.

Los formularios

Formulario de Acceso al Sistema

CODIFICACIÓN

En el espacio principal del formulario:

Public nSeg, x As IntegerOption ExplicitDim cn As ADODB.ConnectionDim rsUsuarios As ADODB.Recordset

En formulario mismo:

Private Sub Form_Load() Set cn = New Connection Set rsUsuarios = New Recordset With cn

.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\sisventas\data\ventas.mdb;Persist Security Info=False"

.Open End With rsUsuarios.Open "select * from Usuarios", cn, adOpenDynamic,

adLockOptimistic Do While Not (rsUsuarios.EOF) cboUsuario.AddItem (rsUsuarios.Fields("usuario"))

rsUsuarios.MoveNext Loop lblFecha.Caption = Date lblHora.Caption = TimeEnd SubEn Botón Aceptar:

Private Sub cmdAceptar_Click() Static x As Integer rsUsuarios.MoveFirst rsUsuarios.Find "usuario='" & cboUsuario.Text & "'" Dim cClave As String cClave = txtClave.Text If cboUsuario.Text <> "" Then If txtClave.Text <> "" Then rsUsuarios.MoveFirst rsUsuarios.Find "usuario='" & cboUsuario.Text & "'" cClave = txtClave.Text If rsUsuarios.Fields("clave") = cClave Then Unload Me MDIPrincipal.Show Else x = x + 1 If x = 3 Then MsgBox ("Límite de Intentos completados" + Chr(13) + "Salida del

sistema por seguridad...") Unload Me Else MsgBox ("Contraseña incorrecta," + Chr(13) + "Vuelva a

intentar...") End If End If Else MsgBox ("Ingrese su contraseña") txtClave.SetFocus End If Else MsgBox ("Elija un usuario...") End IfEnd Sub

En Botón Aceptar :

Private Sub cmdCancelar_Click() Unload MeEnd Sub

En Botón reloj control de la hora:

Private Sub tmrReloj_Timer() lblHora.Caption = Time nSeg = nSeg + 1 If nSeg = 20 Then MsgBox ("Su tiempo se agoto, " + Chr(13) + "Salida del sistema por

seguridad...") Unload Me End IfEnd Sub

En Botón reloj de título:

Private Sub tmrTitulo_Timer() Dim cTitulo As String cTitulo = FRMaCCESO.Caption FRMaCCESO.Caption = Right(cTitulo, Len(cTitulo) - 1) & Left(cTitulo, 1)End Sub