• Author / Uploaded
• yeral3216

Citation preview

HELADERIA TATOO

Sergio Alonso Ruiz Geraldine Ortiz Jiménez 11-1 Tecnico

INSTITUCÍON EDUCATIVA TECNICA ANTONIO ÑARIÑO SEDE TECNICO-ACADEMICA 2011

HELADERIA TATOO

Sergio Alonso Ruiz Geraldine Ortiz Jiménez 11-1 Tecnico

Presentado a: Olga Rocío Berrío Leguizamón

INSTITUCÍON EDUCATIVA TECNICA ANTONIO ÑARIÑO SEDE TECNICO-ACADEMICA 2011

Contenido INTRODUCCION ........................................................................................................................ 4 JUSTIFICACION......................................................................................................................... 5 OBJETIVOS ................................................................................................................................ 6 OBJETIVO GENERAL ........................................................................................................... 6 OBJETIVOS ESPECIFICOS ................................................................................................ 6 EXPLICACION LENGUAJE DE PROGARAMACION .......................................................... 7 MENÚ PRINCIPAL ................................................................................................................. 7 FORMULARIO PRODUCTOS.............................................................................................. 7 Formulario Empleados........................................................................................................... 9 EXPLICACION DEL FUNCIONAMIENTO............................................................................ 11 Formulario Productos........................................................................................................... 12 GLOSARIO ................................................................................................................................ 13 Bibliografía ................................................................................................................................. 14

INTRODUCCION

En este proyecto presentaremos los conocimientos adquiridos en clases sobre el programa de Visual Basic. Este manual lo hacemos con el fin de Dar Un Informe De la bases de datos sin necesidad de abrir Microsoft Office Access. Presentaremos una explicación de la programación que se utiliza en Visual Basic para La creación De Proyectos

JUSTIFICACION

Este informe fue hecho con el fin de explicar las relaciones que Podemos realizar de visual Basic Con Microsoft Access Mostraremos otra faceta de presentación de bases de datos, diferentes diseños y diferentes comandos de control.

OBJETIVOS OBJETIVO GENERAL

Crear programación con las grandes variedades de códigos existentes en Visual Basic para ejecutar programas de visualización y Explicar cómo funcionan las conexiones hechas entre diferentes programas. OBJETIVOS ESPECIFICOS   

Realizar Proyectos e Informes. Manejar la contabilidad de grandes empresas y almacenar datos de empleados. Reforzar los conocimientos adquiridos.

EXPLICACION LENGUAJE DE PROGARAMACION MENÚ PRINCIPAL Nos permite ir a los demás formularios existentes en el proyecto. 

Botón Consulta productos

Private Sub Command1_Click() Unload Me ConsultaProductos.Show Load Me End Sub 

Boton Productos

Private Sub Command2_Click() Unload Me PRODUCTOS.Show Load Me End Sub 

Boton Cerrar

Private Sub Command3_Click() End End Sub 

Boton Consulta Empleados

Private Sub Command4_Click() Unload Me ConsultaEmpleados.Show Load Me End Sub 

Boton Empleados

Private Sub EMPLEADOS_Click() Unload Me EMPLEADOS.Show Load Me End Sub

FORMULARIO PRODUCTOS 

Flecha Ultimo Izquierda

Private Sub Command1_Click()

DeHeladeriaAtlanta.rsCnProductos.MoveFirst End Sub 

Flecha Anterior

Private Sub Command2_Click() DeHeladeriaTatoo.rsCnProductos.MovePrevious If DeHeladeriaTatoo.rsCnProductos.BOF Then DeHeladeriaTatoo.rsCnProductos.MoveFirst MsgBox "Estamos en el primer registro" End If End Sub 

Flecha Siguiente

Private Sub Command3_Click() DeHeladeriaTatoo.rsCnProductos.MoveNext If DeHeladeriaTatoo.rsCnProductos.EOF Then DeHeladeriaTatoo.rsCnProductos.MoveLast MsgBox "Estamos en el último registro" End If End Sub 

Flecha Ultimo Derecha

Private Sub Command4_Click() DeHeladeriaTatoo.rsCnProductos.MoveLast End Sub 

Boton Nuevo

Private Sub Command5_Click() DeHeladeriaTatoo.rsCnProductos.AddNew End Sub 

Boton Editar

Private Sub Command6_Click() ModoEditar True End Sub 

Boton Guardar

Private Sub Command7_Click() DeHeladeriaTatoo.rsCnProductos.Update ModoEditar False End Sub 

Boton Eliminar

Private Sub Command8_Click() DeHeladeriaTatoo.rsCnProductos.Delete DeHeladeriaTatoo.rsCnProductos.MoveNext If HeladeriaTatoo.rsCnProductos.EOF Then DeHeladeriaTatoo.rsCnProductos.MoveLast End If End Sub 

Boton Regreso Menú

Private Sub Command9_Click() Unload Me MENÚ.Show End Sub 

Codigo Modo Editar

Private Sub ModoEditar(ByVal Ok As Boolean) txtCOD_PRODUCTO.Locked = Not Ok: txtNOMBRE_PRODUCTO.Locked = Not Ok txtPRECIO_PRODUCTO.Locked = Not Ok Command5.Enabled = Not Ok: Command6.Enabled = notok Command6.Enabled = Ok: Command10.Enabled = Not Ok CmdPrimero.SetFocus: If Ok Then CmdPrimero.SetFocus End Sub Formulario Empleados 

Boton Ultimo izquierda

Private Sub CmdPrimero_Click() DeHeladeriaTatoo.rsCnEmpleados.MoveFirst End Sub 

Boton Eliminar

Private Sub Command10_Click() DeHeladeriaTatoo.rsCnEmpleados.Delete DeHeladeriaTatoo.rsCnEmpleados.MoveNext If DeHeladeriaTatoo.rsCnEmpleados.EOF Then DeHeladeriaTatoo.rsCnEmpleados.MoveLast End If End Sub 

Boton Anterior

Private Sub Command2_Click() DeHeladeriaTatoo.rsCnEmpleados.MovePrevious If DeHeladeriaTatoo.rsCnEmpleados.BOF Then

DeHeladeriaTatoo.rsCnEmpleados.MoveFirst MsgBox "Estamos en el primer registro" End If End Sub  Boton Siguiente Private Sub Command3_Click() DeHeladeriaTatoo.rsCnEmpleados.MoveNext If DeHeladeriaTatoo.rsCnEmpleados.EOF Then DeHeladeriaTatoo.rsCnEmpleados.MoveLast MsgBox "Estamos en el último registro" End If End Sub 

Boton Ultimo Derecha

Private Sub Command4_Click() DeHeladeriaTatoo.rsCnEmpleados.MoveLast End Sub 

Boton Nuevo

Private Sub Command5_Click() DeHeladeriaTatoo.rsCnEmpleados.AddNew End Sub 

Boton Guardar

Private Sub Command6_Click() DeHeladeriaTatoo.rsCnEmpleados.Update ModoEditar False End Sub Private Sub Command8_Click() ModoEditar True End Sub Private Sub ModoEditar(ByVal Ok As Boolean) txtCOD_EMPLEADO.Locked = Not Ok: txtNOMBRE_EMPLEADO.Locked = Not Ok txtAPELLIDO_EMPLEADO.Locked = Not Ok: txtDIRECCION.Locked = Not Ok txtBARRIO.Locked = Not Ok: txtTELEFONO.Locked = Not Ok txtFECHANACIMIENTO.Locked = Not Ok: txtEDAD.Locked = Not Ok txtCORREOELECTRONICO.Locked = Not Ok: txtCOD_PRODUCTO.Locked = Not Ok txtCARGO.Locked = Not Ok Command5.Enabled = Not Ok: Command8.Enabled = Not Ok Command6.Enabled = Ok: Command10.Enabled = Not Ok CmdPrimero.SetFocus: If Ok Then CmdPrimero.SetFocus End Sub

EXPLICACION DEL FUNCIONAMIENTO Menu Principal

Formulario Principal es la presentación Del proyecto. Nos Sirve Para llevarnos a los demás formularios con fácil acceso [Cliks] Desde este Punto decidimos a donde Nos vamos a dirigir o si deseamos Dar Por terminado El proyecto

Formularios Empleados

Este Formulario Nos da Mucha Información específica de cada empleado es de gran ayuda También nos permite a ceder a la base de datos de Los empleados Ingresar Nuevos empleados, Mirar antiguos datos Modificar y Eliminar Podemos Volver al Formulario Principal Con el Botón De salida Formulario Productos

Este formulario se caracteriza en darnos información del producto Donde nos permite a ceder a la base de datos de Los productos Ingresar Nuevos productos, Mirar antiguos datos Modificar y Eliminar Podemos Volver al Formulario Principal Con el Botón De salida.

GLOSARIO 

Visual Basic: es un lenguaje de programación dirigido por eventos.



Clases: Una clase no es nada mas que un Objeto, este objeto, tienepropiedades, funciones y métodos. Para empezar ahora la creación de propiedades si se utiliza Property Let y Property Get; la diferencia es casi nada, inclusive podría decir que una clase en visual basic, es casi lo mismo que un control, pero ahora nace una nueva pregunta, cuando utilizar un control y cuando utilizar una clase, bueno la opinión que voy a dar es desde mi perspectiva.



Objetos: Un objeto es una entidad que tiene asociado un conjunto de métodos, eventos y propiedades. Hay muchas clases de objetos, y por tanto, puede llegar a haber tantos métodos, eventos y propiedades distintas como



Métodos: Son procedimientos definidos en Visual Basic para realizar operaciones especificas sobre los objetos (Controles o Formularios)

Bibliografía

http://es.wikipedia.org/wiki/Wikipedia http://www.dosbit.com/diseno/64-iconos-de-flechas-para-webmasters http://es.dreamstime.com/fotografia-de-stock-royalty-free-ajuste-osiacutecones-99-setas-image11498687