Sección de código fuente Visual basic

Código fuente de un Sistema de Video Club en Visual Basic

Como dice el titulo, en esta sección pueden descargar el código fuente de un programa de Video Club hecho en Visual basic.

Quiero aclarar algo importante y es que al sistema le faltan detalles por programar, como por ejemplo crearle una sección de reservas de películas por decir una de las opciones y también se puede optimizar bastante algunas secciones del programa.

Si querés ver una descripción mas detallada del programa, que todavía no está completo, pulsá este enlace Descripción del Sistema de Video Club en Visual Basic

Para descargar el código fuente lo podés hacer desde acá:

Descargar código fuente video club

Si querés ver una descripción resumida del programa seguí leyendo a continuación:

Descripción del Programa:

Pantalla de cobro.

Desde esta pantalla se puede realizar:

Alquilar de películas.
Venta de productos.
Devolución de Alquileres.
Dar de baja alquileres.
Ver los detalles de alquileres: los que están pendientes, alquileres retrasados, si están abonados o no etc...

Para ver una previa de la imagen de esta ventana hacé Click Acá (Presioná F11 para ver a pantalla completa en el Ie).

En el Grid inferior que es un ListView, muestra los productos de la venta actual, mientras que el ListView superior muestra el detalle solo de alquileres.

Mediante la tecla F12 se accede a la pantalla de cobro o mediante un botón en la parte inferior, el que dice "Cobrar".

Para alquilar una película se debe ingresar el código del cliente en el apartado "Alquiler de Películas". Cuando se presiona Enter, muestra el nombre de dicho cliente, si es que está previamente registrado, si el cliente no existe muestra un aviso.

Si el cliente existe, luego pasa al TextBox "Código de Película" para ingresar el código de la misma que se le va a alquilar o vender. Cuando se presiona Enter se comprueba, si hay copias disponibles de la película. También verifica en ese momento si dicho cliente ya alquiló esa película en alguna otra ocación.

Si no hay copias disponibles de la misma, avisa que socio la tiene alquilada y cuando es la fecha de devolución. Si todo está bien, se agrega dicha película al control ListView: "Listado de ventas y alquiler".

Lo mismo ocurre si queremos vender un producto en la sección de abajo, se comprueba si hay Stock disponible para dicho producto.

Para eliminar un producto de la lista "Ventas y alquileres" hay que hacer dobleClick sobre dicho producto o película, o para anular toda la venta actual hay un botón respectivamente "Anular Venta" que cancela todo.

También hay una opción mediante un CheckBox para "No cobrar alquileres", osea supongamos que viene el cliente 5, y se lleva una película y un atado de cigarrillos, al seleccionar "No cobrar alquileres", se cobrarán solo los productos.

El programa no tiene opción para fiar o para grabar deudas.(Una posible opción para agregar)

Si elegimos la opción no cobrar películas, se grabará en la base de datos, en la tabla "Alquileres", en el campo "Abonado" el valor Si o No

Una cosa importante es que No se puede alquilar una película a un socio no registrado, pero si se puede vender un producto obviamente a un cliente cualquiera, y en la base de datos se grabará en la tabla "Movimientos" como código de cliente "No registrado".

Para devolver una película hay que ingresar el código del cliente en el TextBox "Código Cliente". Al presionar enter, se listan automáticamente si el cliente tiene películas en su poder, y esto lo hace en el ListView de "Listado de Alquileres".

Los alquileres con demora o retraso aparecen con un ícono al costado en color Rojo, los de color verde no tienen retraso, están al día.

Para devolver una película, hay que hacer dobleClick en la misma para agregarla a la lista de "Venta y Alquileres", pero previamente tenemos que haber ingresado un cliente en el TextBox "Código de Cliente" si no se hace esto no se podrá hacer la devolución.

El programa chequea también si es el cumpleaños del socio cuando se ingresa el código del mismo.

Pantalla de control

Desde esta pantalla, se dan de alta, baja, modificaciones, búsquedas etc..., de los datos de Socios, Películas, Productos y Proveedores.

Para ver una previa de esta pantalla click Acá

Desde la sección de Clientes podemos dar de baja, alta, modificaciones etc.. de los datos de los socios.

La sección de películas tiene una opción para especificar "Si la película es estreno o No", cuantas veces fue alquilada, el cobro de alquiler de dicha película, el monto de retraso, el valor de venta, el formato de la misma (Dvd, Vhs, etc..), el género, el proveedor al que le compramos esa película, los días de Alquiler asignados para la misma, etc...

En esta pantalla se puede cambiar masivamente todos los precios de un determinado formato desde la opción"Nuevo Formato". Por ejemplo, cambiar el valor del cobro por demora de todas las películas que sean de formato DvD, VHS, por decir un ejemplo. O sea que cuando estamos en la pantalla Caja, el valor de la película será el establecido en el formulario Control y no hay posibilidad de cambiar el precio desde el FormCaja. (Esta podría ser una opción a cambiar o para modificarle al programa.)

Desde el Formulario Control hay un Formulario de búsqueda, que en realidad es uno solo, esto quiere decir que no hay un Formulario de búsqueda de Clientes, otro para películas, otro para productos etc..., si no que es el mismo y se llama FormBuscar, Este único formulario cambia las opciones en tiempo de ejecución de acuerdo a la opción que estamos ubicados, es decir películas, clientes etc.. esto lo hice así para que ahorre un poco de memoria y recursos el programa.

En La sección de Productos podemos establecer el Stock, dar de baja, establecer el precio, ver los productos que están por debajo de un Stock mínimo.

Esta pantalla tiene un control Microsoft FlexGrid que muestra un listado rápido de los productos por debajo del stock, al igual que en la sección Clientes hay un Flex para un listado de detalle de los clientes ordenados por nombre, por apellido etc...

Descripción de los menues del programa:

Menú Archivo:

Hay una opción para exportar e importar datos de Excel que no la programé. Lo mismo que las opciones de impresión (esto hay que agregarle).

También en el menú archivo hay un subMenu para hacer mantenimiento a la base de datos: compactar, Backup, restaurar, reparar, eliminar registros del Historial de Alquileres y el Historial de movimientos realizados, para que la base de datos no explote.

esta es una imagen del menú archivo:

Menú Listado e informes:

Desde este menú podemos acceder a otros submenues para generar listados, primero en un FlexGrid y luego visualizar un Reporte con el DataReport para poder imprimirlos.

Los submenues están divididos en:

Listado de Clientes: Ordenados por código, por Apellido, los socios mas activos, etc..
Listado de películas : Lo mismo pero para películas
Listado de Alquileres: Listar los Alquileres realizados, los que tienen demora, listar los alquileres de un determinado cliente, Listado de Historiales de Alquileres
Listados de movimientos: Movimientos realizados y también el listado de la caja diaria, para visualizar lo que se vendió etc...

Una previa de este menú:

Un detalle importante: Los reportes no están hechos con varios formularios de reportes, si no que utilicé una Dll activex que tiene un solo formulario de Reporte.

Esta DLL recibe un Recordset enviado desde el programa y genera los listados de acuerdo a ese recordset, es decir la DLL usa un solo Data Report sin usar un DataEnvironment. La DLL se llama "Proyecto2.dll" y me pareció la forma mas rápida de poder realizar muchos listados y reportes diferentes usando un solo componente. La DLL se instancia desde el modulo FrmInformes.bas.

Nota: no está incluido el código fuente de la mencionada DLL, cuando tenga tiempo la pondré para que se pueda descargar y comentar un poco como funciona lo básico. La idea la saqué de un artículo de Harvey Triana, si querés ver ese tutorial lo podés acceder desde este enlace:

Artículo que muestra como crear una dll ActveX para generar Reportes dinámicamente mediante el DataReport escrito por Harvey Triana.

Menú opciones:

Este menú contiene los siguientes submenúes y opciones: Caja, Contraseña y otras opciones.

El submenú caja:

Abrir Caja Diaria.
Cerrar Caja Diaria.
Agregar un gasto a la caja.
Agregar Monto a la Caja.

Si la caja está Cerrada, cuando se efectúe una venta el programa avisará si querés abrir la Caja de Hoy. Cuando se cierra la Caja se pregunta si se quiere ver el listado de todos los movimientos de la Caja desde cuando se abrió y luego se cierra. El Monto es agregar un monto que no es una venta.

El submenú contraseña:

Opción para establecer la contraseña, y comento que es una porquería, jeje, la verdad me dió fiaca programarlo, ya que se guarda en la base de datos sin encriptar, eso es algo que le pueden agregar, hay miles de páginas con información sobre esto, y no es algo difícil.

Configurar los Días No hábiles:

Para que el programa no tome en cuenta los retrasos de alquileres esos días.

Nota: Acá hay que agregar la opción de hacerlo manualmente, porque por ejemplo supongamos que nos olvidamos de marcar que el Martes el Video Club va a estar cerrado, si nos olvidamos de marcar un día No Hábil, no hay forma de descontar los días de retraso para tal película, eso me olvidé y me di cuenta recién ahora que estoy escribiendo, jeje, pero no es complicado programarlo.

Submenú recordatorio:

Para una fecha determinada, como una nota. Cuando creamos una, cada ves que inicie el programa se lee del Campo Notas de la BD, si hay un Recordatorio de la fecha de hoy, si lo hay lo muestra y lo borra de la BD

Menú promociones:

Está hecho el formulario, pero no tiene código.

Menú Utilidades:

Tiene varios, acceso a la calculadora, el programa de correo etc..., y un simple navegador que hice con el control WebBrowser.

Nota: Una cosa importante es que el programa utiliza DAO para conectarse a la base, pero debido a que los reportes no pueden usar Dao, tuve que utilizar una conexión Ado también.

El tema de la configuración regional hay que programarlo. Es posible que les de error al ejecutar el programa por la configuración que se tenga establecida . Si les da error, utilicen la configuración Argentina para poder arrancar por lo menos el programa y poder probarlo hasta que lo puedan adaptar. Esto lo hacen desde Configuración regional desde el panel de control de win2

E l tema de Ticket y factura no está diseñado.

El tema de Reservas de películas falta programarlo (fundamental para un Video Club).

Nota importante:

Bueno por último, es que los botones de todo el programa utilizan un ocx llamado "KewlButtonz.ocx". Para mi gusto está bastante bueno ya que tiene muchas opciones para darle un mejor estilo , además ocupa pocos recursos.

Si lo querés descargar aparte, lo podés hacer desde la sección de Activex

También utiliza otro ocx llamado HookMenú.ocx para los menú estilo Xp

Y también a parte como ya se mencionó mas arriba utiliza la dll para los reportes.

Antes de ejecutar el proyecto, hay un archivo llamado Registrar.bat que copia los Activex en el directorio del sistema y los registra automáticamente, si no se hace esto obviamente dará error.

Buscar en Recursos vb