Visual Basic: junio 2011

PROGRAMACION

BOTON DATOS DE CUENTA

Private Sub Command1_Click()

Calificación = Val(Text1.Text)

Select Case Calificación

Case 1

Text2.Text = "Limite de credito 3000 Credito disponible 2000 Fecha de corte 05/May/2011"

Case 2

Text2.Text = "Limite de credito 3500 Credito disponible 1000 Fecha de corte 12/May/2011"

Case 3

Text2.Text = "Limite de credito 2000 Credito disponible 500 Fecha de corte 01/May/2011"

Case 4

Text2.Text = "Limite de credito 4000 Credito disponible 0 Fecha de corte 15/May/2011"

Case 5

Text2.Text = "Limite de credito 4500 Credito disponible 1200 Fecha de corte 21/May/2011"

Case 6

Text2.Text = "Limite de credito 5000 Credito disponible 5000 Fecha de corte 23/May/2011"

End Select

End Sub

BOTON REALIZAR OTRA CONSULTA

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

End Sub

Introducción

Nuestro proyecto consiste en una base de datos de un banco que realizamos por medio de un programa llamado visual Basic (es un diseñador de entorno de datos donde se es posible generar de manera automática conectividad entre controles y datos mediante la acción de arrastrar y colocar sobre formularios o informes). La bese de datos contiene los datos principales del usuario, su adeudo, estado de cuenta, cundo debe realizar los pagos y la cantidad. Este programa nos facilitara el flujo de información la cual nos podrá ayudar a tener un manejo adecuado de ella.

Objetivo

El objetivo de este proyecto es crear una base de datos la cual funcione de una manera correcta y sin errores, que servirá para tener un mayor control y un rápido acceso a la información, la cual será muy fácil de capturar y revisar por medio de las diferentes acciones que realiza el programa como la búsqueda de datos, editar, grabar entre otros. Este proyecto nos apoyara de una manera rápida y sencilla será muy fácil de manejar y será una gran herramienta de captura ración de datos que podemos implementar en un área laboral.

Desarrollo

Dato del usuario

Programación

Botón siguiente

Private Sub Command2_Click()

Form2.Show

End Sub

BOTON NUEVO

Private Sub Nuevo_Click()

'HabilitarCajas

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

Text6.Enabled = True

Text7.Enabled = True

'InhabilitarBotones

Nuevo.Enabled = False

Editar.Enabled = False

Grabar.Enabled = True

Borrar.Enabled = False

Cancelar.Enabled = True

Refrescar.Enabled = False

Buscar.Enabled = False

Data1.Recordset.AddNew 'añadir un nuevo registro

Text1.SetFocus 'poner el cursor en la caja "Nombre"

End Sub

BOTON EDITAR

Private Sub Editar_Click()

'HabilitarCajas

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

Text5.Enabled = True

Text6.Enabled = True

Text7.Enabled = True

'InabilitarBotones

Nuevo.Enabled = False

Editar.Enabled = False

Grabar.Enabled = True

Borrar.Enabled = False

Cancelar.Enabled = True

Refrescar.Enabled = False

Buscar.Enabled = False

Data1.Recordset.Edit 'editar el registro actual

Text1.SetFocus 'poner el cursor en la caja del "Nombre"

BOTON GRABAR

Private Sub Grabar_Click()

Data1.Recordset.Updatable

'HabilitarBotones

Nuevo.Enabled = True

Editar.Enabled = True

Grabar.Enabled = True

Borrar.Enabled = True

Cancelar.Enabled = True

Refrescar.Enabled = True

Buscar.Enabled = True

Grabar.Enabled = False

'InhabilitarCajas

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

Text7.Enabled = False

End Sub

Botón cancelar

Private Sub Cancelar_Click()

Data1.UpdateControls

'HabilitarBotones

Nuevo.Enabled = True

Editar.Enabled = True

Grabar.Enabled = False

Borrar.Enabled = True

Cancelar.Enabled = True

Refrescar.Enabled = True

Buscar.Enabled = True

Grabar.Enabled = True

'InhabilitarCajas

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

Text5.Enabled = False

Text6.Enabled = False

Text7.Enabled = False

End Sub

BOTON BORAR

Private Sub Borrar_Click()

Dim r As Integer

On Error GoTo RutinaDeError

r = MsgBox("Desea borrar el registro?", vbYesNo, "Atencion")

If r <> vbYes Then Exit Sub

Data1.Recordset.Delete 'borrar el registro actual

Data1.Recordset.MoveNext 'situarse en el registro siguiente

If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast

End If

Exit Sub

RutinaDeError:

r = MsgBox(Error, vbOKOnly, "Se ha producido un error:")

Data1.UpdateControls

End Sub

BOTON REFRESCAR

Private Sub Refrescar_Click()

Data1.Refresh

'HabilitarBotones

Nuevo.Enabled = True

Editar.Enabled = True

Grabar.Enabled = False

Borrar.Enabled = True

Cancelar.Enabled = True

Refrescar.Enabled = True

Buscar.Enabled = True

End Sub

BOTON BUSCAR

Private Sub Buscar_Click()

Dim Buscando As String, Criterio As String

Buscando = InputBox("¿Que nombre quieres buscar?")

Criterio = "Nombre Like' * " & Buscando & "*'"

'Buscar desde el siguiente registtro a la pocición actual

Data1.Recordset.MoveNext

Data1.Recordset.FindFirst Criterio

If Data1.Recordset.NoMatch Then

Data1.Recordset.MoveLast

MsgBox ("No encuentro ese nombre")

End If

End Sub

BOTON ANTERIOR

Private Sub Anterior_Click()

Data1.Recordset.MovePrevious

If Data1.Recordset.BOF Then

Data1.Recordset.MoveFirst

End If

End Sub

BOTN INICIO

Private Sub Inicio_Click()

Data1.Recordset.MoveLast

End Sub

BOTON SIGUIENTE

Private Sub Siguiente_Click()

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

Data1.Recordset.MoveLast

End If

End Sub

BOTON SIGUIENTE

Private Sub Final_Click()

Data1.Recordset.MoveLast

End Sub

BOTON SALIR

Private Sub Command1_Click()

MsgBox "¿Realmente desea sali?"

End

End Sub

Visual Basic

jueves, 9 de junio de 2011

Introduccion

Proyecto final