Boton base de base de datos
Private Sub Option1_Click()
Form1.Show
End Sub
Botón estado de cuenta
Private Sub Option2_Click()
Form2.Show
End Sub
Botón taza de intereses
Private Sub Option3_Click()
Form4.Show
End Sub
Conclusiones
El programa no se ejecuto adecuadamente porque fallo el buscador tiene una buena presentación y no es ejecutable en un área real de trabajo
Bibliografía
Internet (imágenes)
Cuaderno
Profesora (clases)
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
Centro de Estudios Tecnológico Industrial y de Servicio n°29
Visual Basic
Prof.: Rosa María Plata Rodríguez
Integrantes:
Aguilar Unda Uriel
Alba Ballina Christopher
Aba Acosta Ana Karen
Belmont Negrete Vannesa
Cabrera Martínez Karen Montserrat
Carapia Cima Mauricio
José Juárez Iván
4-E
Proyecto
“BANQUITO”
Visual Basic puede utilizar los objetos de otras aplicaciones de la misma forma que cualquier otro objeto de Visual Basic. Puede establecer o leer propiedades, utilizar sus métodos, etc... Esto se denomina Automatización OLE.
El contenedor OLE
Mediante el uso del control contenedor OLE, puedes crear formularios de Visual Basic en los que se incluya información proveniente de distintas aplicaciones Windows.
Estos formularios son conocidos como documentos compuestos, en los que la funcionalidad que se necesita no la proporciona la aplicación creada por Visual Basic, sino que se aprovecha de las aplicaciones que crean los objetos insertados. Así, el equipo donde se ejecute la aplicación Windows como hoja de cálculo Excel o procesador de textos como Word no necesitarán programar para conseguir que la aplicación presente la funcionalidad de dichas aplicaciones, sino que puedes utilizarlas desde tu aplicación. Al pulsar el control OLE en la caja de herramientas de Visual Basic nos aparecerá el siguiente cuadro de diálogo:
En este cuadro nos aparecen los distintos tipos de objetos que podemos insertar en el formulario. Estos objetos provienen de las aplicaciones compatibles con OLE que tengas instaladas en tu equipo.
Cuando una aplicación se instala en un ordenador queda registrada en el Registro de Windows. Este registro es como una base de datos don Windows guarda información referente a las aplicaciones que tiene instaladas. Entre otras cosas se guardan los objetos insertables que ofrecen dichas aplicaciones y que después nos aparecerán en el cuadro de diálogo insertar objeto.
Se puede insertar en un formulario un objeto utilizando la opción Cerrar Nuevo o utilizar uno ya existente mediante la opción cerrar desde archivo. En este último caso tienes que especificar el archivo que posee el objeto a insertar.
Si quieres que el objeto insertado aparezca en el formulario como un icono, puedes activar la casilla mostrar como icono del cuadro de diálogo insertar objeto.
Puedes indicar que el objeto sea incrustado o vinculado. Al incrustar un objeto se crea una copia y se guarda en la aplicación Visual Basic, por lo que sólo se podrá usar en esta.
Al vincular un objeto, éste sigue estando almacenado en el archivo original, guardándose en la aplicación una referencia al mismo y no el objeto en sí.
Edición del objeto
Cuando insertas un objeto a través del control contenedor OLE, estás en disposición de editar el objeto con la aplicación creadora del mismo. Para ello lo único que tienes que hacer es doble click sobre el objeto.
Al activar el objeto haciendo doble click, la aplicación servidora es iniciada y el usuario puede interactuar con ella utilizando toda la funcionalidad que presente. En este sentido es importante indicar aplicaciones que permitan que la edición sea en el propia control contenedor (Edición Visual), y otras en la que la edición se produce en una ventana independiente.
Para que la edición del objeto sea en el propio contenedor OLE, es necesario haber incrustado el objeto, ya que toda vinculación producirá que la aplicación servidora se muestren en una ventana independiente. Por otra parte, si el objeto se representa como un icono en el formulario, también se presentará en una ventana independiente la aplicación servidora. Cuando la aplicación servidora se muestra en una ventana independiente, no existen problemas para presentar los menús y barras de herramientas de la misma.
Pero si el formulario donde has insertado un objeto posee menús o barras de herramientas y la edición del objeto se produce en el propio contenedor, tienes que negociar dichos elementos, es decir, tienes que indicar como se han de mostrar.
Si quieres que los menús de la aplicación servidora se muestren al editar el objeto, es necesario que el formulario donde está insertado el objeto posea un elemento de menú, aunque esté no visible. Además en el editor de menús puedes especificar en qué posición deben de mostrarse cuando se edite el objeto en el contenedor OLE. La propiedad NegociatePosition que aparece en el editor de menús, establece la posición de los elementos del menú de nuestro formulario.
Puede tener los siguientes valores:
0: Indica que dicho elemento del menú se verá cuando se edite el objeto, mostrándose únicamente el menú de la aplicación servidora.
1, 2 y 3: Establece donde se mostrará, pudiendo ser a la izquierda, centro o derecha.
Independientemente de la propiedad NegocitaPosition del menú, es necesario establecer la propiedad NegociateMenu del formulario a True. En otro caso, la negociación de menús no se llevará a cabo. Toda vinculación o uso de la opción Mostrar como Icono implicarán que el objeto se edite en una ventana independiente.
Objetos insertables
Algunas aplicaciones proporcionan objetos que pueden utilizarse como controles personalizados en Visual Basic. De esta forma se pueden agregar a la caja de herramientas de Visual Basic sin tener que utilizar el control contenedor OLE. Para esto utilizaremos el el menú contextual de la caja de herramientas o elegir Controles personalizados en el menú de herramientas.
