Software Gestionador de Materiales y Reactivos
Químicos
Integrantes:
Silvia Linda Jardines Sabino
Pedro Esteban Ledesma Pichardo
Daniel Huerta Hernández
DOCUMENTACIÓN DEL DESARROLLO DEL PROYECTO
San Juan del Río, Qro., Martes, 1 de Diciembre de 2009
Universidad Tecnológica de San Juan del Río
C O N T E N I D O
Antecedentes de la empresa.
Modelo de desarrollo.
Entrevista con el cliente
Descripcion del proyecto
Minutas
Especificaciones del cliente
Caracteristicas del sistema
Cronograma del proyecto
Descripcion de las etapas del proyecto
Descripciòn base de datos
Diagrama entidad relaciòn
Diagrama entidad relaciòn
Descripcion de pantallas
Descripcion de programaciòn
Universidad Tecnológica de San Juan del Río
Conclusiòn
INTRODUCCION
Esta documentacion tiene como objetivo describir el software y su realizacion del
proyecto a lo largo de 4 meses, desde el porque surgio este proyecto a quien va dirigido el
alcanze del mismo quienes son sus beneficiados, su tamaño ademas del objetivo del
equipo sobre este proyecto.
Se notifico el modelo seguido por proyecto, y se establecieron los acuerdos por el cliente,
sus necesidades y fechas de reuniones donde se documentaron los acuerdos.
Se describe fase a fase el sistema desde el analisis para formar la base del sistema,
tambien se documenta el diseño del programa sobre todo su codificacion.
Se describe el comportamiento de pantallas paso a paso, cual su funcion en el sistema, se
especificaron las caracteristicas del codigo su descripcion por metodo ya que por
elemento de una interfaz existia un procedimiento.
Universidad Tecnológica de San Juan del Río
UNIVERSIDAD TECNOLÓGICA DE SAN JUAN DEL RÍO
ANTECEDENTES DE LA UTSJR.
A iniciativa del sector productivo del municipio de San Juan del Río y su zona de influencia, nació
la propuesta de crear en la ciudad de San Juan del Río una Universidad Tecnológica.
La base para su creación fue el Estudio de Factibilidad, iniciado en octubre de 1997 y concluido en enero de 1998, el cual orientó la determinación de los programas educativos requeridos por el sector productivo, la identificación de la demanda potencial y real de jóvenes egresados del nivel medio superior, así como el perfil profesional de los futuros egresados de la Universidad Tecnológica de San Juan del Río.
Es así como el 31 de agosto de 1998 esta Universidad inició sus actividades académicas, atendiendo una matrícula de 252 alumnos en 4 programas educativos: Mantenimiento Industrial, Procesos de Producción, Electrónica y Automatización y Comercialización
Giro
Ya que es una institución para la formación de estudiantes, Técnicos Superiores y Universitarios
su giro correspondientemente es Educativo.
Universidad Tecnológica de San Juan del Río
Misión
Ofrecer educación superior de calidad para formar personas con valores, que respondas a las
necesidades y expectativas de la sociedad y competitivas a través de la generación de
conocimiento aplicado en estrecha vinculación con los sectores productivo y social.
Visión
Ser una institución reconocida por su excelencia académica y por la calidad competitiva de su
personal de sus egresados y de los servicios que ofrece a la sociedad.
Políticas
Los integrantes de la Universidad Tecnológica de San Juan del Río nos comprometemos a formar
personas con el grado de Técnico Superior Universitario, que satisfagan las necesidades y
expectativas de la sociedad; a través de una mística de servicio, trabajo en equipo y valoración del
amplio universo de nuestras formas de pensar que propicien la mejora continua.
Objetivos
1. Brindar Servicios Educativos de Calidad.
2. Formar Egresados de Calidad y Competitivos en su campo profesional.
3. Ofrecer al sector productivo y a la comunidad, servicios tecnológicos de excelencia.
Ubicación
Plano de la localización de la UTSJR
La UTSJR está ubicada en el municipio de San Juan del Rio del estado de Querétaro, con Domicilio
en:
Universidad Tecnológica de San Juan del Río
Dirección: Av. La Palma No. 125. Col. Vista Hermosa, San Juan del Rio, Qro. Web:
www.utsjr.edu.mx
Universidad Tecnológica de San Juan del Río
ORGANIGRAMA
Universidad Tecnológica de San Juan del Río
MODELO (Prototipos)
Esta clase trato sobre el modelo de prototipos los cuales se utilizan para dar al usuario una vista preliminar de parte del software. Este modelo es básicamente prueba y error ya que si al usuario no le gusta una parte del prototipo significa que la prueba fallo por lo cual se debe corregir el error que se tenga hasta que el usuario quede satisfecho. Además el prototipo debe ser construido en poco tiempo, usando los programas adecuados y no se debe utilizar mucho dinero pues a partir de que este sea aprobado nosotros podemos iniciar el verdadero desarrollo del software. Pero eso si al construir el prototipo nos asegura que nuestro software sea de mejor calidad, además de que su interfaz sea de agrado para el usuario. Un prototipo podrá ser construido solo si con el software es posible experimentar. Sus desventajas son que debido a que el usuario ve que el prototipo funciona piensa que este es el producto terminado y no entienden que recién se va a desarrollar el software. Otro problema es que el prototipo deber ir acompañado de otro modelo pasa su desarrollo Hay dos clases de prototipos el desechable y el evolucionario. El desechable nos sirve para eliminar dudas sobre lo que realmente quiere el cliente además para desarrollar la interfaz que más le convenga al cliente El evolucionario es un modelo parcialmente construido que puede pasar de ser prototipo a ser software pero no tiene una buena documentación y calidad.
Universidad Tecnológica de San Juan del Río
Entrevista con el cliente
¿Cuál es la principal necesidad que desea cubrir con la implantación del sistema?
R= El encargado del almacén de química realiza todo el trabajo sin una herramienta que le
permita facilitarlo, como consecuencia de esto hay perdida de tiempo y no se lleva un manejo
adecuado ya que lo que necesitamos es que se lleve un control sobre el material existente
evitando así que haya faltantes a medio cuatrimestre.
¿Que es lo que necesita?
R= Un sistema que nos ayude a llevar un control sobre el almacén de química industrial
¿Como requiere que sea el sistema?
R= Que nos ayude a llevar un inventario sobre el material existente y que exista un sistema de
alerta que nos avise cuando algún elemento este a punto de agotarse permitiendo que se haga
un pedido de material nuevo a tiempo.
Necesitamos que cuente con dos modalidades, la primera seria manejada por un administrador
al que se le permitirá hacer modificaciones y la segunda será destinada a consultas de usuarios
comunes.
¿Para cuando necesita el sistema?
R= Lo más pronto posible, para tener tiempo de capacitar a la persona que habrá de usarlo.
¿Quienes estarían destinados a manejar el sistema?
R= El administrador del sistema seria el encargado del almacén y los usuarios comunes serian los
profesores que requieran hacer consultas sobre las existencias de materiales.
¿Con que recursos cuenta para implementar el sistema?
R= El sistema se implementara en el equipo de computo con el que se cuenta en el almacén que
es una computadora con pocas capacidades.
Universidad Tecnológica de San Juan del Río
SOFTWARE GESTIONADOR DE MATERIALES Y REACTIVOS QUÍMICOS
DESCRIPCIÓN
Desarrollar un sistema que lleve un control de inventarios de los reactivos y materiales con los que
cuenta el almacén de Química Industrial.
Dicho proyecto serviría para brindar un mejor servicio a los alumnos que requieren material para
sus prácticas y de esa forma llevar a cabo el control del almacén.
OBJETIVO DEL PROYECTO
Mejorar el servicio que se le brinda a los alumnos de la UTSJR, disminuir las cargas de trabajo para
el personal que esta a cargo del almacén, y optimizar el tiempo de respuesta.
OBJETIVO DEL EQUIPO
Que este proyecto, sea de utilidad para la carrera de química industrial en especifico, y al mismo
tiempo cumplir con las expectativas del cliente (que son los profesores de Química Industrial), con
posibilidad de que sirva como base para ser implementado en otras carreras.
ENTIDAD
El sistema esta dirigido al personal que labora en el almacén de Química Industrial de la UTSJR así
como a los alumnos que necesitan algún servicio de este (préstamo de material, para prácticas).
TAMAÑO
El proyecto esta planeado para mantener un buen control de material y reactivos del almacén de
la carrera de Química Industrial.
ALCANCE
Será únicamente para los servicios que presta el almacén de química o cualquier otro almacén ya
sea de una empresa, así como los procesos que se llevan en él.
Universidad Tecnológica de San Juan del Río
SERVICIOS
Préstamo de materiales
Altas y bajas de materiales
Control de inventario
Generar reporte de reactivos que estén a punto de agotarse.
Generar reporte cuatrimestrales sobre adeudos al almacén.
Minuta de reunión
Objetivo de la reunión: Definir requerimientos del proyecto
Lugar y Fecha de la reunión:
Edificio k de la Universidad Tecnológica de San Juan de Río, Av. La Palma No. 125, Col. Vista Hermosa, San Juan del Río, Qro. Lunes 14 de septiembre de 2009 Hora: 15:00 hrs
Asistentes
Nombre Puesto / Cargo
Raquel Árciga Pedraza Cliente
Alicia Cortés García Asesor de proyecto
Silvia Jardines Sabino Analista de proyecto
Pedro Esteban Ledesma Pichardo Diseñador de proyecto
Daniel Huerta Hernández Programador de proyecto
Acuerdos tomados
Durante la primera reunión se definieron los requerimientos que se pretenden satisfacer con la
implementación del sistema deseado dichos requerimientos son los siguientes:
Universidad Tecnológica de San Juan del Río
Firmas
Raquel Arciga Pedraza
Alicia Cortés García
Silvia Jardines Sabino
Pedro Ledesma Pichardo
Daniel Huerta Hernández
Universidad Tecnológica de San Juan del Río
Minuta de reunión
Objetivo de la reunión: Definir requerimientos del proyecto
Lugar y Fecha de la reunión:
Edificio k de la Universidad Tecnológica de San Juan de Río, Av. La Palma No. 125, Col. Vista Hermosa, San Juan del Río, Qro. Lunes 14 de septiembre de 2009 Hora: 15:00 hrs
Asistentes
Nombre Puesto / Cargo
Raquel Árciga Pedraza Cliente
Alicia Cortés García Asesor de proyecto
Silvia Jardines Sabino Analista de proyecto
Pedro Esteban Ledesma Pichardo Diseñador de proyecto
Daniel Huerta Hernández Programador de proyecto
Acuerdos tomados
Durante la primera reunión se definieron los requerimientos que se pretenden satisfacer con la
implementación del sistema deseado dichos requerimientos son los siguientes:
Firmas
Raquel Arciga Pedraza
Alicia Cortés García
Silvia Jardines Sabino
Pedro Ledesma Pichardo
Daniel Huerta Hernández
Universidad Tecnológica de San Juan del Río
Minuta de reunión
Objetivo de la reunión: Mostrar al cliente las interfaces del sistema
Lugar y Fecha de la reunión:
Edificio k de la Universidad Tecnológica de San Juan de Río, Av. La Palma No. 125, Col. Vista Hermosa, San Juan del Río, Qro. 14 de Octubre de 2009 Hora: 12:00 hrs
Asistentes
Nombre Puesto / Cargo
Raquel Árciga Pedraza Cliente
Alicia Cortés García Asesor de proyecto
Silvia Jardines Sabino Analista de proyecto
Motivo de la Reunión:
Durante esta reunión se presentaron al cliente los diseños de las interfaces con las que se
pretende realizar el sistema. A su vez se le explicó su posible funcionamiento.
Firmas
Raquel Àrciga Pedraza
Alicia Cortés García
Silvia Jardines Sabino
Universidad Tecnológica de San Juan del Río
Minuta de reunión
Objetivo de la reunión: Verificación del diseño de las pantallas
Lugar y Fecha de la reunión:
Edificio k de la Universidad Tecnológica de San Juan de Río, Av. La Palma No. 125, Col. Vista Hermosa, San Juan del Río, Qro. viernes 27 de Noviembre de 2009 Hora: 12:00 hrs
Asistentes
Nombre Puesto / Cargo
Raquel Árciga Pedraza Cliente
Silvia Jardines Sabino Analista de proyecto
Pedro Esteban Ledesma Pichardo Diseñador de proyecto
Daniel Huerta Hernández Programador de proyecto
Acuerdos tomados
Durante esta cita con el cliente se le mostraron los avances de las pantallas, casi en su totalidad, el
cliente hizo unas sugerencias que fueron tomadas su para implementación en el sistema, las
sugerencias realizadas por el cliente fueron:
Checar las existencias mínimas de los reactivos en la base de datos
Hacer más llamativo el botón “AGOTADO”
Manejar las unidades de medida en kilogramos y litros
Firmas
Raquel Árciga Pedraza
Silvia Jardines Sabino
Pedro Ledesma Pichardo
Daniel Huerta Hernández
Universidad Tecnológica de San Juan del Río
Minuta de reunión
Objetivo de la reunión: Mostrar el funcionamiento del prototipo
Lugar y Fecha de la reunión:
Edificio k de la Universidad Tecnológica de San Juan de Río, Av. La Palma No. 125, Col. Vista Hermosa, San Juan del Río, Qro. Lunes 30 de Noviembre de 2009 Hora: 10:00 hrs
Asistentes
Nombre Puesto / Cargo
Raquel Árciga Pedraza Cliente
Silvia Jardines Sabino Analista de proyecto
Pedro Esteban Ledesma Pichardo Diseñador de proyecto
Daniel Huerta Hernández Programador de proyecto
Víctor Hugo León Vargas Administrador del Sistema
Acuerdos tomados
En esta cita se mostró la función de cada una de las pantallas del software, el cliente se mostró
satisfecho con el sistema y los acuerdos tomados fueron los siguientes:
Este será el prototipo final.
El prototipo se mantendrá como prueba durante el transcurso de un mes.
De ser exitoso se implementará institucionalmente.
Firmas
Raquel Árciga Pedraza
Víctor Hugo León Vargas
Silvia Jardines Sabino
Pedro Ledesma Pichardo
Daniel Huerta Hernández
Universidad Tecnológica de San Juan del Río
Especificaciones del cliente
De acuerdo a las reuniones y el contacto que se ha tenido con el cliente que solicito la
implementación del sistema de información se ha llegado a recopilar una serie de requisitos
esenciales que se tienen y que se muestran a continuación.
Optimización de la base de datos y sistemas de control actuales
Optimización de tiempos en los procesos
Consulta de existencias de materiales y reactivos
Sistema de alerta sobre existencias actuales de materiales y reactivos
Control de adeudos de materiales en el almacén
Reportes finales sobre consumos, adeudos y existencias finales
Características del sistema
De acuerdo a las necesidades que el cliente tiene se diseñara un sistema de información que
tendrá características específicas que a continuación se muestran.
Diseño del sistema mediante el lenguaje de Visual Basic 2005
Base de datos actualizada e implementada en el sistema gestor de base de datos MySql
Rapidez en el manejo de datos del sistema
Control de acceso a usuarios y administradores del sistema.
Realización de consultas en la base de datos mediante una interfaz grafica fácil y precisa
Sistema de control de cantidades de materiales y reactivos que avisara al cliente cuando
algún elemento este a punto de agotarse.
Se llevara un historial de adeudos de materiales por alumno que se almacenara en la base
de datos del sistema.
Generación de estadísticas de consumo mensual y cuatrimestral
Generación de reportes finales mensuales y cuatrimestrales sobre consumos adeudos y
existencias de materiales y reactivos mediante la herramienta Crystal Reports.
Universidad Tecnológica de San Juan del Río
Cronograma del proyecto
*La descripción de cada una de las etapas o fases del proyecto se muestran a parte en la siguiente hoja.
Fases del proyecto * Septiembre Octubre Noviembre Diciembre
Responsable 1-7 8-15 16-23 24-30 1-7 8-15 16-23 24-31 1-7 8-15 16-23 24-30 1-7 8-15 16-23 23-31
Análisis de requisitos * * * * Silvia, Pedro y Daniel
Diseño del sistema * * Silvia, Pedro y Daniel
Diseño del programa * * Pedro y Silvia
Codificación * * * * Daniel y Silvia
Pruebas * Silvia, Pedro Daniel
Universidad Tecnológica de San Juan del Río
Descripción de las etapas del proyecto
Análisis de requisitos
En esta fase se analizaran las necesidades del usuario final del software para determinar qué
objetivos debe cubrir. En esta fase se obtendrá la especificación completa de lo que debe hacer el
sistema sin entrar en detalles internos. Es importante señalar que en esta etapa se debe
consensuar todo lo que se requiere del sistema y será aquello lo que seguirá en las siguientes
etapas, no pudiéndose requerir nuevos resultados a mitad del proceso de elaboración del
software.
Diseño del Sistema
En esta etapa se realizara la descripción de la estructura relacional global del sistema y la
especificación de lo que debe hacer cada una de sus partes, así como la manera en que se
combinan unas con otras. Se tiene como objetivo definir la estructura de la solución (una vez que
la fase de análisis ha descrito el problema) identificando grandes módulos (conjuntos de funciones
que van a estar asociadas) y sus relaciones. Con ello se define la arquitectura de la solución elegida
definiendo también los algoritmos empleados y la organización del código para comenzar la
implementación.
Diseño del Programa
Es la fase en donde se realizan los algoritmos necesarios para el cumplimiento de los
requerimientos del usuario así como también los análisis necesarios para saber que herramientas
usar en la etapa de Codificación.
Universidad Tecnológica de San Juan del Río
Codificación
Es la fase de programación o implementación propiamente dicha. Aquí se implementa el código
fuente, haciendo uso de prototipos así como pruebas y ensayos para corregir errores. Se crearan
las bibliotecas y componentes reutilizables dentro del mismo proyecto para hacer que la
programación sea un proceso mucho más rápido.
Pruebas
Los elementos, ya programados, se ensamblan para componer el sistema y se comprueba que
funciona correctamente y que cumple con los requisitos.
Implantación
El software obtenido se instala. Se implantaran los niveles software y hardware que componen el
proyecto. La implantación es la fase con más duración y con más cambios en el ciclo de
elaboración del proyecto. Es una de las fases finales del proyecto. Durante la explotación del
sistema de software pueden surgir cambios, bien para corregir errores o bien para introducir
mejoras. Todo ello se recoge en los Documentos de Cambios.
Mantenimiento
La fase de mantenimiento es la fase que viene después del despliegue (implementación) del
software en el campo. Es el proceso de mejora y optimización del software desplegado (es decir;
revisión del programa), así como también corrección de los defectos y prevención de los mismos.
Universidad Tecnológica de San Juan del Río
BASE DE DATOS
La base de datos que se utiliza en el sistema esta hecha en el manejador MySQL y consta
de 8 tablas esenciales que nos ayudaran a manejar la informacion necesaria para generar
los resultados que nuestro cliente exige.
TABLA ALUMNOS
En la tabla alumnos se almacenara la informacion de los alumnos de la carrera de quimica
que son los que tendran acceso a los prestamos de materiales del almacen. La clave
principal de esta tabla esta dada por la matricula del alumno.
Universidad Tecnológica de San Juan del Río
TABLA CLAVESREQ
En esta tabla se almacenaran las claves de las requisiciones que hara cada profesor de
reactivos del almacen de quimica industrial para asi llevar un planeamiento de lo que se
podria consumir a lo largo de un cuatrimestre. La clave generada en el sistema nos
ayudara a asociar la tabla requisiciones con esta misma tabla para asi poder llevar un
mayor control la clave de requisicion es tambien la llave primaria.
Universidad Tecnológica de San Juan del Río
TABLA CONSUMOS
En la tabla consumos se daran de alta lo que se gaste de reactivos a lo largo de un mes
para asi tener actualizada la existencia de cada uno de los reactivos que se manejan en el
almacen. Cada consumo genera una clave que nos ayudara a identificar el registro dicha
clave servira tambien como campo clave.
Universidad Tecnológica de San Juan del Río
TABLA MATERIALES
La tabla materiales alamacena la informacion referente a los materiales fisicios con los
que cuenta el almacen, dichos materiales sirven para que los alumnos lleven a cabo sus
practicas de laboratorio por lo que es conveniente llevar un control sobre la existencia y
adeudos de los mismos.
Universidad Tecnológica de San Juan del Río
TABLA REACTIVOS
En la tabla de reactivos se controla la informacion referente a las sustancias que se
manejan en el almacen de quimica industrial y esta tabla servira de base para llevar a cabo
consultas y generamiento de informacion que se requiere para el sistema. A cada reactivo
de le asigna una clave de reactivo que nos ayudara a identificarlo como un registro uno en
la tabla dicha clave es la llave principal de la tabla.
Universidad Tecnológica de San Juan del Río
TABLA REQUISICIONES
La tabla de requisiciones esta estrechamente asociada a la tabla clavesreq ya que si no
existe una clave de requisicion a la cual asociar una requisicion de algun reactivo dicha
requisicion no se puede validar. El campo clave en esta tabla es el mismo que en la tabla
clvesreq debido a su relacion directa.
Universidad Tecnológica de San Juan del Río
TABLA ADEUDOS
La tabla adeudos se utiliza para llevar un control del material que se presta en el almacen
la relacion que mantiene esta tabla es directamente con la tabla alumnos ya que son a
ellos a quienes se les realiza algun prestamo y de quien debemos llevar un control de
adeudos. Cada adeudo genera una clave que nos ayudara a identificarlo como un registro
unico.
Universidad Tecnológica de San Juan del Río
TABLA USUARIOS
Esta tabla esta destinada a registrar a cada uno de los usuarios que tendran acceso al
sistema se compone por una clave de usuario qe se dara de acuerdo al numero de
empleado de cada usuario que su vez servira como contraseña. Existen dos tipos de
usuarios que nos ayudaran a restringir el acceso a ciertas partes del sistema.
Universidad Tecnológica de San Juan del Río
DIAGRAMA ENTIDAD RELACION
El modelo entidad relacion del sistema nos permite identificar las relaciones que nos
ayudana aunir logicamente las tablas. Ene este diagrana se muestras el tipo de relaciones
de todas estas lo que nos ayudara a la hora de manejar los datos de la base de datos.
FUNCIONES DEL SISTEMA
Una de las principales funciones es el control del inventario tanto de materiales como de reactivos
de esta manera llevar un control de las existencias de estos mismos. Otra función es el registro de
los préstamos a los alumnos y así poder notificar sus adeudos, los profesores tendrán la
posibilidad de de consultar los materiales y reactivos, y al final de cada cuatrimestre el programa
podrá generar reportes de consumos, adeudos y existencias.
Universidad Tecnológica de San Juan del Río
REQUISITOS PARA TRABAJAR CON EL SISTEMA
Estos son los requerimientos básicos y mínimos para de hardware:
Una PC que trabaje con su procesador a 1.7 GHZ.
RAM de un 1GB.
Disco duro de 40 GB.
Estos serian los componentes base de un equipo de cómputo para la ejecución del
software.
Estos son los requerimientos básicos y mínimos para de software:
Sistema Operativo Windows XP (Con sus actualizaciones mas recientes como es
servicie pack 3).
My SQL versión 5.1.38.
Visual Studio 2005.
Adobe Reader versión 6 como base.
Procesador de textos (Microsoft Office recomendado 2007).
PANTALLAS
El software cuenta con un total de 24 interfaces que a continuación se presentan y
describen detalladamente.
Universidad Tecnológica de San Juan del Río
PANTALLA DE BIENVENIDA
Esta es la primera interfaz del sistema, la cual estará de inicio en la aplicación, para
accesar al sistema, contiene el logo y el nombre del software, cuenta dos campos uno
para el usuario y otro para su contraseña, además cuenta con un botón para entrar al
sistema.
Universidad Tecnológica de San Juan del Río
PANTALLA DE MENU DE ADMINISTRADOR
En el formulario que aparece a continuación tiene como objetivo seleccionar una acción
en el sistema por el administrador. Contiene un Combo Box para desplegar las funciones
del software. Consta con un botón para acceder a la aplicación y una etiqueta para salir
del sistema.
Universidad Tecnológica de San Juan del Río
PANTALLA DE MENU DE USUARIOS
La función de este panel es seleccionar una opción requerida por el usuario que
literalmente son consultas y requisiciones. Contiene un Combo Box para desplegar las
funciones. Consta con un botón para acceder a la aplicación y una etiqueta para salir del
sistema.
Universidad Tecnológica de San Juan del Río
ALTA DE MATERIALES
En esta interfaz se dará de alta al los materiales para almacenarlos en la Base de Datos,
cuenta con los campos Descripción, clave, cantidad y medida además de que contiene un
botón de Limpiar que deja en blanco los registros ingresados hasta el momento y uno de
Guardar que es el que realiza la acción de almacenar los registros directamente en la base
de datos. Además contiene una etiqueta con el nombre MENU PRINCIPAL que te lleva
directamente a la pantalla principal.
Universidad Tecnológica de San Juan del Río
BAJA DE MATERIALES
Esta interfaz tiene como objetivo eliminar o dar de baja materiales que estén inexistentes
físicamente, cuenta con los siguientes campos: Descripción, que es donde se seleccionará
el elemento que desea eliminar, contiene los campos Clave, Cantidad y Medida donde se
despliega información del elemento a eliminar, además contiene dos botones, uno de
Limpiar que deja en blanco los registros ingresados hasta el momento y uno de Borrar que
se encarga de eliminar el registro directamente de la base de datos. Además contiene un
navegador para visualizar las coincidencias de materiales en caso de que no se conozca
completamente el nombre del material y un enlace directo con el Menú principal.
Universidad Tecnológica de San Juan del Río
CONSULTA DE MATERIALES
Esta interfaz contiene cuatro campos descripción, clave, cantidad y medida que tiene
como objetivo mostrar información de los materiales existentes consta también con un
botón de limpiar y otro llamado ver registro que nos muestra directamente con el
material a buscar. En la esquina inferior derecha se encuentra una etiqueta que nos lleva
hasta el menú. Y en la esquina superior derecha contiene un navegador para visualizar las
coincidencias de materiales en caso de que no se conozca completamente el nombre del
material.
Universidad Tecnológica de San Juan del Río
ALTA DE REACTIVOS
Esta interfaz sirve para agregar un reactivo a la Base de Datos consta de diez campos de
los cuales tres son barras desplegables para especificar las características del reactivo,
también contiene un botón para guardar el elemento y otro para limpiar los campos. De
igual manera contiene una etiqueta que nos lleva al menú principal.
Universidad Tecnológica de San Juan del Río
ELIMINACION DE REACTIVOS
La interfaz tiene como objetivo dar de baja o eliminar un reactivo en la base de datos, y
cuenta con 10 campos uno de ellos es para seleccionar el elemento a eliminar y los
restantes muestran la información sobre el elemento y otros 6 para las propiedades del
reactivo marcadas con las letras C (Corrosivo), R(Reactivo), E(Explosivo), T(Tóxico), I
(Inflamable), B(Biológico), posteriormente contiene un botón para la eliminación, otro
para consultar el elemento que se visualizará en los campos y con una etiqueta que nos
vincula al menú. Contiene también un navegador para visualizar las coincidencias de
reactivos en caso de que no se conozca completamente el nombre del reactivo.
Universidad Tecnológica de San Juan del Río
CONSULTAS DE REACTIVOS
Esta interfaz no servirá para mostrar los elementos de de la base datos, contiene 10
campos para visualizar su descripción una etiqueta para notificar si el elemento esta
agotado, un botón para consultar, otro para limpiar y una etiqueta para vincularnos al
menú.
En la esquina superior derecha podrá observar un pequeño navegador que sirve para
buscar algún reactivo en caso de que hay as de una coincidencia o no se conozca el
nombre completo del reactivo.
Universidad Tecnológica de San Juan del Río
ALTAS DE CONSUMOS DE REACTIVOS
Esta interfaz sirve para dar de alta las adquisiciones o consumos de los reactivos, en ella se
puede especificar la cantidad y la fecha en que fue consumida, cuenta también con un
botón que guarda los consumos en la Base de Datos, además cuenta con una etiqueta que
enlaza directamente al Menú principal.
Universidad Tecnológica de San Juan del Río
BAJAS DE CONSUMOS
Esta interfaz nos sirve para dar de baja algún registro de consumo realizado
anteriormente. Cuenta con cuatro campos; Clave consumo, Producto Consumido,
Cantidad Consumida y fecha. Y un botón para limpiar los campos además de otro que
elimina el registro. Cuenta con un navegador queda a conocer las coincidencias de
reactivos en caso de no conocer el nombre del reactivo.
Universidad Tecnológica de San Juan del Río
CONSULTA DE CONSUMOS
Esta interfaz tiene como objetivo dar conocer el consumo de los reactivos por periodos en
los que fue requerido el elemento, contiene un panel en el que muestra la clave del
consumo, el producto, la fecha del consumo y la cantidad de consumo. Un botón que
realiza la acción de mostrar los datos en el Datagridview, otro botón para limpiar lo
contenido en el datagridview, un enlace con el menú principal mediante una etiqueta y un
navegador que ayudará saber que reactivo esta buscando en caso de no saber el nombre
o una parte de él.
Universidad Tecnológica de San Juan del Río
ALTA DE ALUMNOS
La interfaz mostrada el administrador la utilizara para registrar a los alumnos en la base de
datos, para que puedan solicitar materiales y reactivos químicos.
Contiene tres campos, nombre, matricula y grupo donde se insertarán los datos, además
consta de un botón para guardad los datos en la base, y otro para limpiar los campos y
finalmente una etiqueta que nos vincula al menú principal.
Universidad Tecnológica de San Juan del Río
BAJAS DE ALUMNOS
En esta pantalla se dará de baja a los alumnos en la Base de datos contiene los campos de
Nombre, Matricula y Grupo del alumno, también tiene un botón para consultar al alumno
antes de eliminarlo, otro para limpiar los campos, uno más para eliminar al alumno, un
enlace directo con el menú principal. Cuenta también con un navegador para visualizar las
coincidencias de los nombres de los alumnos en caso de que estos se repitan.
Universidad Tecnológica de San Juan del Río
CONSULTA DE ALUMNOS
Esta interfaz nos sirve para consultar los alumnos, contiene campos con el nombre, la
matricula y el grupo además de dos botones uno para ver el registro en los campos otro
para limpiar los campos, un enlace directo con el menú principal y un navegador que
mostrara las posibles coincidencias en caso de que estas se presentaran.
Universidad Tecnológica de San Juan del Río
ALTA DE ADEUDOS
Con esta interfaz se dará de alta los adeudos de los alumnos de la carrera de Química,
contiene varias barras desplegables para indicar la fecha en la que se dio de alta el
adeudo, una para indicar el material que se adeuda, una para indicar la matricula del
deudor, y una mas para indicar en que estado se encuentra la deuda, si está o no pagada,
contiene dos botones uno de los cuales es para limpiar las barras desplegables y otro para
guardar los cambios de adeudos directamente en la Base de Datos, cuenta además con un
enlace directo con el menú principal.
Universidad Tecnológica de San Juan del Río
BAJAS DE ADEUDOS
Este panel tiene como objetivo eliminar los adeudos que hayan sido cubiertos, dicho panel
contiene los siguientes elementos:
Un campo para el deudor y otros cuatro para consultar la información del deudor antes de
eliminar el adeudo, tres botones, uno de los cuales nos sirve para visualizar los registros,
otro para limpiar los campos y otro para eliminar la información de la Base de Datos
además un navegador para ver los posibles adeudos a eliminar y un enlace directo que
nos lleva al menú principal.
Universidad Tecnológica de San Juan del Río
CONSULTA DE ADEUDOS
Esta pantalla nos sirve para mostrar los adeudos de los alumnos, tiene cinco campos en
uno de ellos se ingresa la matricula del deudor y en los otros cuatro se visualiza la clave de
adeudo, el material, el estado de la deuda y la fecha, dos botones que nos servirán para
limpiar los campos y eliminar el adeudo en caso de que sea pagado. Cuenta también con
un navegador para ver las coincidencias de adeudos, un navegador para visualizar las
coincidencias en caso de que se presenten y un enlace directo con el Menú principal.
Universidad Tecnológica de San Juan del Río
ALTAS DE CLAVES DE REQUISICION
Esta pantalla nos sirve para dar de alta las claves de las requisiciones de reactivos de los
maestros de la carrera de Química, en ella encontramos los siguientes campos:
Clave de requisición, y tres barras desplegables para indicar la fecha y el solicitante, un
botón para generar dichas requisiciones, además contiene un panel desplegable para
visualizar el producto y la cantidad requerida, finalmente tres botones, uno para agregar
las altas, uno para limpiar los campos y otro para finalizar a requisición.
Universidad Tecnológica de San Juan del Río
BAJAS DE REQUISICIONES
Esta pantalla tiene como objetivo eliminar las requisiciones realizadas por los profesores
en dado caso de que ya no se desee dicha requisición. Cuenta con tres campos, clave de
requisición, solicitante y fecha, cuenta también con tres botones uno sirve para limpiar los
campos, uno para ver los registros de las consultas y uno mas para eliminar la requisición.
Además tiene una vinculación directa con el menú principal y un navegador que nos
permite encontrar más fácil la requisición.
Universidad Tecnológica de San Juan del Río
CONSULTAS DE REQUISICIONES
La siguiente pantalla muestra las requisiciones almacenadas en la base de datos, contiene
los campos de:
Clave requisición, solicitante y fecha, tres botones, uno de ellos nos sirve para ver el
registro, otro para ver los detalles que se desplegaran en el Datagridview y uno mas para
limpiar los campos, además de un enlace directo al menú principal cuenta también con un
navegador que nos muestra las posibles requisiciones a consultar.
Universidad Tecnológica de San Juan del Río
ALTAS USUARIOS
El siguiente formulario ayudara al administrador a dar de alta a los usuarios, contiene los
siguientes elementos:
Un campo donde se ingresa la clave del usuario, un campo más para el nombre del
usuario, una barra desplegable para el tipo de usuario y un campo adicional para ingresar
la contraseña según el tipo de usuario. Además de dos botones, uno de ellos se encarga
de limpiar los campos y el otro nos ayuda a guardar el tipo de usuario en la Base de Datos
y un enlace directo con el menú principal.
Universidad Tecnológica de San Juan del Río
BAJAS DE USUARIOS
Este formulario servirá al administrador para poder dar de baja a algún usuario cuando así
lo requiera, contamos con cuatro campos, uno para ingresar el usuario y otros tres que
nos auxiliaran para visualizar la información, dichos campos son; calve de usuario, tipo de
usuario y la contraseña. Además de contener tres botones, uno para ver el usuario, otro
para limpiar los campos y otro más para eliminar dicho usuario. Cuenta también con un
navegador en cual permite visualizar a los usuarios coincidentes con el usuario escrito
adicionalmente cuenta con una vinculación directa al menú principal.
Universidad Tecnológica de San Juan del Río
CONSULTAS DE USUARIOS
El siguiente formulario sirve para que el administrador visualice los usuarios activos el
formulario consta de un campo de usuario, uno de clave de usuario, tipo de usuario y su
contraseña, en dichos campos se mostrara la información del ya mencionado cuenta
también con dos botones de los cuales uno sirve para ver la descripción del usuario y el
otro para limpiar los campos, además contiene un navegador que nos ayuda a visualizar
los posibles usuarios y un enlace directo con el menú principal.
Universidad Tecnológica de San Juan del Río
PROGRAMACION
En el desarrollo d este sistema utilizamos el lenguaje Visual Basic 2005 ya que es un
ambiente factible para el desarrollo de aplicaciones para Windows que son de forma
grafica, otro factor es que se puede afiliar con My SQL que es el Manejador que utilizamos
para las Base de Datos.
A continuación des describirá cada una de las fases de las interfaces explicando el código
implementado.
INTERFAZ DE ALTA DE MATERIALES
Este método limpia las cajas de texto
Public Sub clear()
txtDescripcion.Text = ""
txtMedida.Text = ""
txtClave.Text = ""
txtCantidad.Text = ""
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla materiales para asi poder usarlo en le resto del formulario.
Private Sub frmAltasMateriales_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
Me.MaterialesTableAdapter.Fill(Me.QuimicaDataSet.materiales)
Me.clear()
End Sub
El codigo siguiente manda llamar el metodo limpiar para asi poder utilizar los campos nuevamente.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
El siguiente codigo realiza la accion de guardar la descripcion del elemento extraido de las cajas de texto. Despliega un MessageBox para indicar su insercion es exitosa en caso contrario visualiza uno de error.
Universidad Tecnológica de San Juan del Río
Private Sub cmdRGuardar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdRGuardar.Click
Try
MaterialesTableAdapter.InsertMateriales(txtClave.Text,
CInt(txtCantidad.Text), txtDescripcion.Text, txtMedida.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
frmMenuAdmin.Show()
Me.Hide()
End Sub
INTERFAZ DE BAJA DE MATERIALES
Este método deja en blanco los campos
Public Sub clear()
cboDescripcion.Text = ""
txtMedida.Text = ""
txtClave.Text = ""
txtCantidad.Text = ""
MaterialesTableAdapter.QueryMaterial(QuimicaDataSet.materiales, 0)
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla materiales para asi poder usarlo en le resto del formulario.
Private Sub frmBajasMateriales_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.MaterialesTableAdapter.Fill(QuimicaDataSet.materiales)
Me.clear()
End Sub
El siguiente codigo realiza la accion de seleccionar el elemento extraido del ComboBox. Despliega un MessageBox para indicar su selección es exitosa en caso contrario visualiza uno de error.
Private Sub cmdver_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdver.Click
Try
Universidad Tecnológica de San Juan del Río
MaterialesTableAdapter.QueryMaterial(QuimicaDataSet.materiales,
cboDescripcion.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Esta sintaxis manda llamar el metodo limpiar para asi poder utilizar los campos nuevamente.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
El siguiente codigo realiza la operación de eliminar al el elemento extraido del ComboBox. Despliega un MessageBox para indicar su eliminaciòn es exitosa en caso contrario visualiza uno de error.
Private Sub cmdEliminar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdEliminar.Click
Try
MaterialesTableAdapter.DeleteMaterial(cboDescripcion.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
INTERFAZ DE CONSULTAS DE MATERIALES
Este método deja en blanco los campos.
Public Sub clear()
txtDescripcion.Text = ""
txtMedida.Text = ""
txtClave.Text = ""
txtCantidad.Text = ""
End Sub
Se invoca al método clear()
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
Universidad Tecnológica de San Juan del Río
El siguiente codigo realiza la accion de seleccionar el elemento extraido del TextBox y viusalizan todos elementos que coincidan con el material escrito. Despliega un MessageBox para indicar su selección es exitosa en caso contrario visualiza uno de error.
Private Sub cmdVerRegistro_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles cmdVerRegistro.Click
Try
MaterialesTableAdapter.QueryMaterial(QuimicaDataSet.materiales,
txtDescripcion.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla materiales para asi poder usarlo en le resto del formulario.
Private Sub frmConsultasMateriales_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.MaterialesTableAdapter.Fill(QuimicaDataSet.materiales)
Me.clear()
End Sub
INTERFAZ DE ALTA DE REACTIVOS
Este método deja en blanco las cajas de texto.
Public Sub clear()
txtclave.Text = ""
txtNombre.Text = ""
txtPM.Text = ""
txtformula.Text = ""
txtcas.Text = ""
txtEactual.Text = ""
cbounidad.Text = ""
txtc.Text = ""
txtr.Text = ""
txte.Text = ""
txtt.Text = ""
txtI.Text = ""
txtb.Text = ""
cboTipo.Text = ""
cboColor.Text = ""
txteRequerida.Text = ""
End Sub
Universidad Tecnológica de San Juan del Río
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla reactivos para asi poder usarlo en le resto del formulario.
Private Sub frmAltasReactivos_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.ReactivosTableAdapter.Fill(Me.QuimicaDataSet.reactivos)
Me.clear()
End Sub
Esta sintaxis manda llamar el metodo limpiar para asi poder utilizar los campos nuevamente.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
En esta sintaxis se vincula directamente con el Menu del Administrador.
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
frmMenuAdmin.Show()
Me.Hide()
End Sub
El siguiente codigo realiza la funcion de guardar elemento y su descripcion extraida de las cajas de texto o TextBox. Despliega un MessageBox para indicar su insercion es exitosa en caso contrario visualiza uno de error.
Private Sub cmdGuardar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdGuardar.Click
Try
ReactivosTableAdapter.InsertReactivos(txtclave.Text,
txtNombre.Text, txtPM.Text, txtformula.Text, txtcas.Text,
txtEactual.Text, cbounidad.Text, CInt(txtc.Text), CInt(txtr.Text),
CInt(txte.Text), CInt(txtt.Text), CInt(txtI.Text), CInt(txtb.Text),
cboTipo.Text, cboColor.Text, txteRequerida.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Universidad Tecnológica de San Juan del Río
INTERFAZ DE BAJA DE REACTIVOS
Este método deja en blanco las cajas de texto.
Public Sub clear()
cboNombre.Text = ""
txtClave.Text = ""
txtpm.Text = ""
txtformula.Text = ""
txtcas.Text = ""
txtEactual.Text = ""
txtUnidad.Text = ""
CTextBox.Text = ""
RTextBox.Text = ""
ETextBox.Text = ""
TTextBox.Text = ""
ITextBox.Text = ""
BTextBox.Text = ""
txtTipo.Text = ""
txtColor.Text = ""
txtERequerida.Text = ""
ReactivosTableAdapter.QueryReactivo(QuimicaDataSet.reactivos, 0)
End Sub
El siguiente codigo realiza la accion de seleccionar el elemento extraido del ComboBox. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error.
Private Sub cmdVer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdVer.Click
Try
ReactivosTableAdapter.QueryReactivo(QuimicaDataSet.reactivos,
cboNombre.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla reactivos para asi poder usarlo en le resto del formulario.
Private Sub frmBajasReactivos_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.ReactivosTableAdapter.Fill(QuimicaDataSet.reactivos)
End Sub
El siguiente codigo realiza la operación de eliminar al el elemento extraido del ComboBox. Despliega un MessageBox para indicar su eliminaciòn es exitosa en caso contrario visualiza uno de error.
Universidad Tecnológica de San Juan del Río
Private Sub cmdEliminar_Click_1(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles cmdEliminar.Click
Try
ReactivosTableAdapter.DeleteReactivos(cboNombre.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Esta sintaxis manda llamar el metodo limpiar para asi poder utilizar los campos nuevamente.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
INTERFAZ DE CONSULTA DE REACTIVOS (PDTE)
Este codigo tiene como funcion indicar si el reactivo esta a punto ade agotarse.
Public Sub consultaexis()
Dim actual, requerida As Double
actual = Double.Parse(txtExistenciaActual.Text)
requerida = Double.Parse(txtexistenciaReq.Text)
If (actual < requerida) Then
MessageBox.Show("Éste reactivo está por agotarse", Me.Text,
0, MessageBoxIcon.Error)
Else
MessageBox.Show("La existencia de éste reactivo es
sufuciente", Me.Text, 0, MessageBoxIcon.Information)
End If
End Sub
Esta parte del codigo va modificar la fuente de las etiquetas respecto vaya cambiando el panel por el color de almacenaje del reactivo.
Public Sub colororiginal()
Label1.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label2.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label3.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label4.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label5.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label6.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label7.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label8.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Universidad Tecnológica de San Juan del Río
Label9.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label10.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label11.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label12.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label13.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label14.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label15.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
Label16.ForeColor = Drawing.Color.FromArgb(192, 0, 0)
LABEL17.ForeColor = Drawing.Color.Black
lblMenu.LinkColor = Drawing.Color.Blue
End Sub
Public Sub colorletra()
Label1.ForeColor = Drawing.Color.White
Label2.ForeColor = Drawing.Color.White
Label3.ForeColor = Drawing.Color.White
Label4.ForeColor = Drawing.Color.White
Label5.ForeColor = Drawing.Color.White
Label6.ForeColor = Drawing.Color.White
Label7.ForeColor = Drawing.Color.White
Label8.ForeColor = Drawing.Color.White
Label9.ForeColor = Drawing.Color.White
Label10.ForeColor = Drawing.Color.White
Label11.ForeColor = Drawing.Color.White
Label12.ForeColor = Drawing.Color.White
Label13.ForeColor = Drawing.Color.White
Label14.ForeColor = Drawing.Color.White
Label15.ForeColor = Drawing.Color.White
Label16.ForeColor = Drawing.Color.White
LABEL17.ForeColor = Drawing.Color.White
lblMenu.LinkColor = Drawing.Color.White
End Sub
La sintaxis que se presenta a continuacion cambia el color de fuente de las etiquetas. Public Sub colorFondo()
If txtColor.Text = "Rojo" Then
Me.BackColor = Drawing.Color.Red
Me.colorletra()
ElseIf txtColor.Text = "Naranja" Then
Me.BackColor = Drawing.Color.Orange
Me.colorletra()
ElseIf txtColor.Text = "Azul" Then
Me.BackColor = Drawing.Color.Blue
Me.colorletra()
ElseIf txtColor.Text = "Blanco" Then
Me.BackColor = Drawing.Color.White
Me.colororiginal()
ElseIf txtColor.Text = "Amarillo" Then
Me.BackColor = Drawing.Color.Yellow
Me.colororiginal()
ElseIf txtColor.Text = "Verde" Then
Me.BackColor = Drawing.Color.Green
Me.colorletra()
ElseIf txtColor.Text = "" Then
Universidad Tecnológica de San Juan del Río
Me.BackColor = Drawing.Color.White
Me.colororiginal()
End If
Esta parte del codigo realiza la funcion de limpar todas las cajs de texto.
End Sub
Public Sub clear()
txtBusqueda.Text = ""
ClaveTextBox.Text = ""
PMTextBox.Text = ""
FormulaTextBox.Text = ""
CASTextBox.Text = ""
txtExistenciaActual.Text = ""
txtUnidad.Text = ""
CTextBox.Text = ""
RTextBox.Text = ""
ETextBox.Text = ""
TTextBox.Text = ""
ITextBox.Text = ""
BTextBox.Text = ""
txtTipo.Text = ""
txtColor.Text = ""
txtexistenciaReq.Text = ""
Me.BackColor = System.Drawing.Color.White
Me.colororiginal()
ReactivosTableAdapter.QueryReactivo(QuimicaDataSet.reactivos, 0)
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla reactivos para asi poder usarlo en le resto del formulario.
Private Sub frmConsultasReactivos_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.ReactivosTableAdapter.Fill(Me.QuimicaDataSet.reactivos)
Me.clear()
End Sub
Esta sintaxis manda llamar el metodo clear() para asi poder utilizar los campos nuevamente.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
Private Sub cmdConsulta_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdConsulta.Click
Try
ReactivosTableAdapter.QueryReactivo(QuimicaDataSet.reactivos,
txtBusqueda.Text & "%")
Me.colorFondo()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
Universidad Tecnológica de San Juan del Río
End Sub
Private Sub cboCRNombre_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Me.clear()
End Sub
Private Sub ToolStripButton3_MouseUp(ByVal sender As Object, ByVal e
As System.Windows.Forms.MouseEventArgs) Handles cmdNext.MouseUp
Me.colorFondo()
End Sub
Private Sub ToolStripButton2_MouseUp(ByVal sender As Object, ByVal e
As System.Windows.Forms.MouseEventArgs) Handles cmdPrevious.MouseUp
Me.colorFondo()
End Sub
Private Sub ToolStripButton1_MouseUp(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles cmdFirst.MouseUp
Me.colorFondo()
End Sub
Private Sub ToolStripButton4_MouseUp(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles cmdLast.MouseUp
Me.colorFondo()
End Sub
Private Sub CmdEstado_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CmdEstado.Click
Try
Me.consultaexis()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
INTERFAZ DE ALTA DE ALUMNOS
Este método deja en limpia los de TextBox.
Public Sub clear()
txtNombre.Text = ""
txtMatricula.Text = ""
txtGrupo.Text = ""
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla alumnos para asi poder usarlo en le resto del formulario.
Private Sub frmAltasAlumnos_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
Me.AlumnosTableAdapter.Fill(Me.QuimicaDataSet.alumnos)
Universidad Tecnológica de San Juan del Río
Me.clear()
End Sub
Invoca al metodo clear() que es el que se encarga de vaciar los TextBox
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
La siguiente sintaxis realiza la funcion de guardar elemento y su descripcion extraida de las cajas de texto o TextBox. Despliega un MessageBox para indicar su insercion es exitosa en caso contrario visualiza MessageBox de error.
Private Sub cmdGuardar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdGuardar.Click
Try
AlumnosTableAdapter.InsertAlumnos(txtMatricula.Text,
txtNombre.Text, txtGrupo.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Las instrucciones descritas a continuacion tienen como objetivo vincularnos al menu del Administrador en casode dar clic en el label de Menu Principal.
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
frmMenuAdmin.Show()
Me.Hide()
End Sub
INTERFAZ DE BAJA DE ALUMNOS
Este método deja en limpia los de TextBox.
Public Sub clear()
txtNombre.Text = ""
txtMatricula.Text = ""
txtGrupo.Text = ""
AlumnosTableAdapter.QueryAlumnos(QuimicaDataSet.alumnos, 0)
End Sub
Invoca al método clear() que deja limpios los TextBox, para una nueva alta.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Universidad Tecnológica de San Juan del Río
Me.clear()
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla alumnos para asi poder usarlo en le resto del formulario.
Private Sub frmBajasAlumnos_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
Me.AlumnosTableAdapter.Fill(QuimicaDataSet.alumnos)
Me.clear()
End Sub
El siguiente codigo realiza la operación de eliminar a un alumno extraido TextBox. Despliega un MessageBox para indicar su eliminaciòn fue exitosa en caso contrario visualiza uno MessageBox de que ocurrio un error.
Private Sub cmdEliminar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdEliminar.Click
Try
AlumnosTableAdapter.DeleteAlumnos(txtNombre.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
El siguiente codigo realiza la accion de seleccionar el elemento extraido del TextBox. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error. Ademas devuelve todas coincidencias con el elemento tecleado, solo aplicando un signo de procentaje al final de la sentencia en la que se de manda llamar a la tabla de la Base de Datos.
Private Sub cmdVer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdVer.Click
Try
AlumnosTableAdapter.QueryAlumnos(QuimicaDataSet.alumnos,
txtNombre.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Las instrucciones descritas a continuacion tienen como objetivo vincularnos al menu del Administrador en casode dar clic en el label de Menu Principal.
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
frmMenuAdmin.Show()
Me.Hide()
Universidad Tecnológica de San Juan del Río
End Sub
INTERFAZ DE CONSULTAS DE ALUMNOS
Este método deja en limpia los de TextBox.
Public Sub clear()
txtNombre.Text = ""
txtMatricula.Text = ""
txtGrupo.Text = ""
End Sub
Invoca al método clear() que se encarga de limpiar los de TextBox.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
El siguiente codigo realiza la accion de seleccionar el elemento extraido del TextBox. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error. Ademas devuelve todas coincidencias del nombre tecleado, solo aplicando un signo de procentaje al final de la sentencia en la que se de manda llamar a la tabla de la Base de Datos.
Private Sub cmdVer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdVer.Click
Try
AlumnosTableAdapter.QueryAlumnos(QuimicaDataSet.alumnos,
txtNombre.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla alumnos para asi poder usarlo en le resto del formulario.
Private Sub frmConsultasAlumnos_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.AlumnosTableAdapter.Fill(QuimicaDataSet.alumnos)
Me.clear()
Universidad Tecnológica de San Juan del Río
INTERFAZ DE ALTAS CONSUMOS
Este metodo se encarga de limpiar todas las cajas de texto.
End Su Public Sub clear()
txtClave.Text = ""
cboProducto.Text = ""
txtfecha.Text = ""
txtCantidad.Text = ""
End Sub
El siguiente codigo realiza la operación de almacenar el consumo, se selecciona un producto a travez de un ComboBox. Despliega un MessageBox para indicar su el almacenamiento fue exitoso en caso contrario visualiza uno MessageBox de que ocurrio un error.
Private Sub cmdGuardar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdGuardar.Click
Dim claveReactivo As String
Try
claveReactivo =
ReactivosTableAdapter.FillByClaveReactivo(cboProducto.Text)
ConsumosTableAdapter.InsertConsumo(txtClave.Text,
claveReactivo, txtfecha.Text, txtCantidad.Text)
Me.clear()
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Este metodo manda llamar al procedimiento Clear() a travez de instancia Me.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla consumos para asi poder usarlo en le resto del formulario. Ademas de que
consulta a la tabla reactivos para extraer la clave del reactivo.
Private Sub frmAltasConsumos_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
Me.ConsumosTableAdapter.Fill(Me.QuimicaDataSet.consumos)
Me.ReactivosTableAdapter.Fill(Me.QuimicaDataSet.reactivos)
Me.clear()
Universidad Tecnológica de San Juan del Río
End Sub
El codigo siguiente nos vincula a travez de una etiqueta al Menu del administardor.
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
frmMenuAdmin.Show()
Me.Hide()
End Sub
INTERFAZ DE BAJAS DE CONSUMOS
Este metodo se encarga de limpiar todas las cajas de texto.
Public Sub clear()
txtClave.Text = ""
txtProducto.Text = ""
txtFecha.Text = ""
txtCantidad.Text = ""
ConsumosTableAdapter.QueryConsumo(QuimicaDataSet.consumos, 0)
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
a la tabla consumos para asi poder usarlo en le resto del formulario.
Private Sub frmBajaConsumos_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
Me.ConsumosTableAdapter.Fill(QuimicaDataSet.consumos)
Me.clear()
End Sub
El siguiente codigo realiza la accion de seleccionar el la clave extraida del TextBox. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error. Ademas devuelve todas coincidencias del nombre tecleado, solo aplicando un signo de procentaje al final de la sentencia en la que se de manda llamar a la tabla de la Base de Datos.
Private Sub cmdVer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdVer.Click
Try
ConsumosTableAdapter.QueryConsumo(QuimicaDataSet.consumos,
txtClave.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Universidad Tecnológica de San Juan del Río
Se Invoca al metodo clear() para limpiar los TextBox.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
El siguiente codigo realiza la accion de eliminar la clave extraida del TextBox. Despliega un MessageBox para indicar si su elimianciòn fue exitosa en caso contrario visualiza uno de error.
Private Sub cmdEliminar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdEliminar.Click
Try
ConsumosTableAdapter.DeleteConsumo(txtClave.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
INTERFAZ DE CONSULTAS DE CONSUMOS
Este metodo se encarga de limpiar todas las cajas de texto y por default inserta valores en los DataTimePicker. Public Sub clear()
txtFechaI.Text = ""
txtFechaF.Text = ""
ConsumosTableAdapter.QueryConsumosPeriodo(QuimicaDataSet.consumos,
"1755/09/09", "1755/09/09")
End Sub
Este metodo invoca al procedimiento clear().
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
El siguiente codigo realiza la accion de seleccionar el consumo que se encuentra en los elementos DataTimePicker. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error.
Private Sub cmdVer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdVer.Click
Try
ConsumosTableAdapter.QueryConsumosPeriodo(QuimicaDataSet.consumos,
txtFechaI.Text, txtFechaF.Text)
Universidad Tecnológica de San Juan del Río
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset a la tabla consumos para asi poder usarlo en le resto del formulario.
Private Sub frmConsultasConsumos_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.ConsumosTableAdapter.Fill(QuimicaDataSet.consumos)
Me.clear()
End Sub
INTERFAZ DE ALTAS DE ADEUDOS
Esta sintaxis se encarga de limpiar todas las cajas de texto.
Public Sub clear()
txtfecha.Text = ""
txtclave.Text = ""
txtMaterial.Text = ""
txtDeudor.Text = ""
cboEstado.Text = ""
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
consulta a las tabla materiales, alumnos y adeudos para extraer el material, clave del
deudor y disponer de la tabla de adeudos.
Private Sub frmAltasAdeudos_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
Me.MaterialesTableAdapter.Fill(Me.QuimicaDataSet.materiales)
Me.AlumnosTableAdapter.Fill(Me.QuimicaDataSet.alumnos)
Me.AdeudosTableAdapter.Fill(Me.QuimicaDataSet.adeudos)
Me.clear()
End Sub
Este metodo manda llamar al procedimiento Clear() a travez de instancia Me.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
La siguiente sintaxis realiza la funcion de guardar elemento y su descripcion a la tabla Adeudos de la Base de Datos extraida de las cajas de texto o TextBox. Despliega un
Universidad Tecnológica de San Juan del Río
MessageBox para indicar su insercion es exitosa en caso contrario visualiza MessageBox de error.
Private Sub cmdGuardar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdGuardar.Click
Try
AdeudosTableAdapter.InsertAdeudo(txtclave.Text,
txtDeudor.Text, txtfecha.Text, txtMaterial.Text, cboEstado.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
El procedimiento que acontinuacion se describe realiza la funcion de enlazarnos hasta el menu del administrador.
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
frmMenuAdmin.Show()
Me.Hide()
End Sub
INTERFAZ DE BAJAS DE ADEUDOS
Esta sintaxis se encarga de limpiar todas los TextBox.
Public Sub clear()
txtDeudor.Text = ""
txtFecha.Text = ""
txtMaterial.Text = ""
txtEstado.Text = ""
txtclave.Text = ""
AdeudosTableAdapter.QueryAdeudos(QuimicaDataSet.adeudos, 0)
End Sub
Este metodo manda llamar al procedimiento Clear() a travez de instancia Me.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
El siguiente codigo realiza la accion de seleccionar el la clave del deudor extraida del TextBox. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error. Ademas devuelve todas coincidencias del nombre tecleado, solo
Universidad Tecnológica de San Juan del Río
aplicando un signo de procentaje al final de la sentencia en la que se de manda llamar a la tabla de la Base de Datos.
Private Sub cmdVer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdVer.Click
Try
AdeudosTableAdapter.QueryAdeudos(QuimicaDataSet.adeudos,
txtDeudor.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
El siguiente codigo realiza la accion de eliminar la clave extraida del deudor del TextBox. Despliega un MessageBox para indicar si su baja fue exitosa en caso contrario visualiza un MessageBox de error.
Private Sub cmdEliminar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdEliminar.Click
Try
AdeudosTableAdapter.DeleteAdeudos(txtDeudor.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset a la tabla adeudos para asi poder usarlo en le resto del formulario.
Private Sub frmBajasAdeudos_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs)
Me.AdeudosTableAdapter.Fill(QuimicaDataSet.adeudos)
Me.clear()
End Sub
INTERFAZ DE CONSULTAS DE ADEUDOS
Esta sintaxis se encarga de limpiar todas las cajas de texto. Public Sub clear()
txtClave.Text = ""
txtDeudor.Text = ""
txtFecha.Text = ""
txtMaterial.Text = ""
txtEstado.Text = ""
End Sub
Universidad Tecnológica de San Juan del Río
Esta sintaxis se encarga de llamar al metodo clear() a travez de la instacia Me.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
El siguiente codigo realiza la accion de consultar la clave del deudor extraido del TextBox. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error. Ademas devuelve todas coincidencias del nombre tecleado, solo aplicando un signo de procentaje al final de la sentencia en la que se de manda llamar a la tabla de la Base de Datos.
Private Sub cmdVer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdVer.Click
Try
AdeudosTableAdapter.QueryAdeudos(QuimicaDataSet.adeudos,
txtDeudor.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
INTERFAZ DE ALTAS DE REQUISICIONES
Esta sintaxis se encarga de limpiar todas las cajas de texto. Public Sub agregarclear()
cmdGenerar.Enabled = False
txtCant1.Text = ""
cboProducto1.Text = ""
txtSolicitante.Enabled = False
txtFecha.Enabled = False
txtclave.Enabled = False
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
consulta a la tabla usuarios, requisiciones, claves requisiciones y reactivos.
Private Sub frmAltaClavesReq_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
Me.UsuariosTableAdapter.Fill(Me.QuimicaDataSet.usuarios)
Me.RequisicionesTableAdapter.Fill(Me.QuimicaDataSet.requisiciones)
Me.ClavesreqTableAdapter.Fill(Me.QuimicaDataSet.clavesreq)
Me.ReactivosTableAdapter.Fill(Me.QuimicaDataSet.reactivos)
'Me.clear()
End Sub
Universidad Tecnológica de San Juan del Río
Esta sintaxis genera a travez de la base de datos la clave de requisicion con un auto incremento. Private Sub cmdGenerar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdGenerar.Click
Try
ClavesreqTableAdapter.InsertClaveReq(txtSolicitante.Text,
txtFecha.Text)
txtclave.Text = ClavesreqTableAdapter.MaxClave()
Me.agregarclear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Esta sintaxis se encarga de llamar al metodo clear() a travez de la instacia Me. Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.agregarclear()
End Sub
Private Sub cmdFinalizar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdFinalizar.Click
Me.RequisicionesTableAdapter.Update(Me.QuimicaDataSet.requisiciones)
Me.ClavesreqTableAdapter.Update(Me.QuimicaDataSet.clavesreq)
frmMenuAdmin.Show()
Me.Hide()
End Sub
Esta parte del codigo es la que se encarga de agreagar la clave a la tabla Requisiciones
valida que que la clave con la que va registrar cada requisicion exista en la tabla
clavesrequiciones
Private Sub cmdAgregar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdAgregar.Click
Dim clave As String
clave =
ReactivosTableAdapter.FillByClaveReactivo(cboProducto1.Text)
Try
RequisicionesTableAdapter.InsertRequisiciones(CInt(txtclave.Text), clave,
Decimal.Round(Decimal.Parse(txtCant1.Text), 2))
Me.agregarclear()
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Universidad Tecnológica de San Juan del Río
INTERFAZ DE BAJAS DE REQUISICIONES
Esta sintaxis se encarga de limpiar todas las cajas de texto.
Public Sub clear()
txtclave.Text = ""
lblFecha.Text = ""
lblSolicitante.Text = ""
RequisicionesTableAdapter.QueryRequisiciones(QuimicaDataSet.requisiciones
, 0)
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset a la tabla Claves requisiciones para asi poder usarlo en le resto del formulario.
Private Sub frmBajaRequisiciones_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.ClavesreqTableAdapter.Fill(Me.QuimicaDataSet.clavesreq)
Me.clear()
End Sub
Esta sintaxis se encarga de llamar al metodo clear() a travez de la instacia Me.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
El siguiente codigo realiza la accion de consultar la clave de requisicion extraido del TextBox. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error. Ademas devuelve todas coincidencias del nombre tecleado, solo aplicando un signo de procentaje al final de la sentencia en la que se de mandan llamar a las tablas de requisiones y claves de requisiciones.
Private Sub cmdVer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdVer.Click
Try
RequisicionesTableAdapter.QueryRequisiciones(QuimicaDataSet.requisiciones
, txtclave.Text & "%")
ClavesreqTableAdapter.QueryClaveReq(QuimicaDataSet.clavesreq,
txtclave.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Universidad Tecnológica de San Juan del Río
El siguiente codigo realiza la accion de eliminar la clave de requisicion extraida del TextBox. Despliega un MessageBox para indicar si su baja fue exitosa en caso contrario visualiza un MessageBox de error. La eliminacion se realiza en la tabla de claves de requiciones y en la tabla de requisiciones.
Private Sub cmdEliminar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdEliminar.Click
Try
ClavesreqTableAdapter.DeleteClaveReq(txtclave.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
RequisicionesTableAdapter.Update(QuimicaDataSet.requisiciones)
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Muestra al Private Sub cmdEliminar_MouseUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles cmdEliminar.MouseUp
RequisicionesTableAdapter.QueryRequisiciones(QuimicaDataSet.requisiciones
, 0)
End Sub
El siguiente codigo nos lleva directamente al menu del administrador.
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
frmMenuAdmin.Show()
Me.Hide()
End Sub
INTERFAZ DE CONSULTAS DE REQUISICIONES
Esta sintaxis se encarga de limpiar todas las cajas de texto. Public Sub clear()
txtClave.Text = ""
txtSolicitante.Text = ""
txtFecha.Text = ""
RequisicionesTableAdapter.QueryRequisiciones(QuimicaDataSet.requisiciones
, 0)
End Sub
Esta sintaxis se encarga de llenar el table adapter a traves del dataset a la claves requisiciones para asi poder usarlo en le resto del formulario. Ademas verifica a travez
Universidad Tecnológica de San Juan del Río
del formulario y variable global si la contraseña es igual al del administrador. Si es asi muestra la pantalla de administrador de lo contrario eldel usuario limitado.
Private Sub frmConsultaRequisiciones_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.RequisicionesTableAdapter.Fill(Me.QuimicaDataSet.requisiciones)
Me.ClavesreqTableAdapter.Fill(Me.QuimicaDataSet.clavesreq)
Me.clear()
If frmBienvenida.admin = True Then
cmdUpdate.Visible = True
ElseIf frmBienvenida.admin = False Then
cmdUpdate.Visible = False
End If
End Sub
Esta sintaxis se encarga de llamar al metodo clear() a travez de la instacia Me.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
El siguiente codigo realiza la accion de consultar la clave de requisicion que se ha introducido en el TextBox y que se ha adquirido de Base de Datos por Table Adapter de las tablas claves de requisiciones y requisiciones. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error.
Private Sub cmdVer_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdVer.Click
Try
ClavesreqTableAdapter.QueryClaveReq(QuimicaDataSet.clavesreq,
CInt(txtClave.Text))
RequisicionesTableAdapter.QueryRequisiciones(QuimicaDataSet.requisiciones
, CInt(txtClave.Text))
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Esta sintaxis siguiente verifica a travez del formulario a la variable global si la contraseña es igual al del administrador. Si es asi muestra la pantalla de administrador de lo contrario el del usuario limitado.
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
If frmBienvenida.admin = True Then
frmMenuAdmin.Show()
Me.Hide()
ElseIf frmBienvenida.admin = False Then
Universidad Tecnológica de San Juan del Río
frmMenuUser.Show()
Me.Hide()
End If
End Sub
INTERFAZ DE ALTAS DE USUARIOS
Esta sintaxis se encarga de limpiar todas las cajas de texto.
Public Sub clear()
txtDescripcion.Text = ""
txtMedida.Text = ""
txtClave.Text = ""
txtCantidad.Text = ""
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
consulta a la tabla materiales.
Private Sub frmAltasMateriales_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.MaterialesTableAdapter.Fill(Me.QuimicaDataSet.materiales)
Me.clear()
End Sub
Esta sintaxis se encarga de llamar al metodo clear() a travez de la instacia Me.
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
La siguiente sintaxis realiza la funcion de guardar elemento y su descripcion a la tabla Materiales de la Base de Datos extraida de las cajas de texto o TextBox. Despliega un MessageBox para indicar su insercion es exitosa en caso contrario visualiza MessageBox de error.
Private Sub cmdRGuardar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdRGuardar.Click
Try
MaterialesTableAdapter.InsertMateriales(txtClave.Text,
CInt(txtCantidad.Text), txtDescripcion.Text, txtMedida.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
La siguiente sintaxis nos vincula al menu del administrador
Universidad Tecnológica de San Juan del Río
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
frmMenuAdmin.Show()
Me.Hide()
End Sub
INTERFAZ DE BAJAS DE USUARIOS
Esta sintaxis se encarga de limpiar todas las cajas de texto.
Public Sub clear()
txtClave.Text = ""
txtPassword.Text = ""
txtTipo.Text = ""
cboNombre.Text = ""
End Sub
Esta sintaxis se encarga de llamar al metodo clear() a travez de la instacia Me
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
Esta parte del codigo es la que se encarga de llenar el table adapter a traves del dataset
consulta a la tabla usuarios, requisiciones, claves requisiciones y reactivos.
Private Sub frmBajasUsuarios_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Me.UsuariosTableAdapter.Fill(QuimicaDataSet.usuarios)
Me.clear()
End Sub
El siguiente codigo realiza la accion de consultar la clave nombre del usuario del ComBo Box. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error. Ademas devuelve todas coincidencias del nombre seleccionado, solo aplicando un signo de procentaje al final de la sentencia en la que se de manda llamar a la tabla de la Base de Datos.
Private Sub cmdGuardar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdGuardar.Click
Try
UsuariosTableAdapter.QueryUsuarios(QuimicaDataSet.usuarios,
cboNombre.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Universidad Tecnológica de San Juan del Río
El siguiente codigo realiza la accion de eliminar al usuario extraida del deudor del ComBo Box. Despliega un MessageBox para indicar si su baja fue exitosa en caso contrario visualiza un MessageBox de error.
Private Sub cmdEliminar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdEliminar.Click
Try
UsuariosTableAdapter.DeleteUsuarios(cboNombre.Text)
MessageBox.Show("La operación fué exitosa", Me.Text, 0,
MessageBoxIcon.Information)
Me.clear()
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
La siguiente sintaxis nos vincula al menu del administrador, a travez de una etiqueta.
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
frmMenuAdmin.Show()
Me.Hide()
End Sub
INTERFAZ DE CONSULTAS DE USUARIOS
Public Sub clear()
txtNombre.Text = ""
txtTipo.Text = ""
txtClave.Text = ""
txtPassword.Text = ""
End Sub
El siguiente codigo realiza la accion de consultar la clave nombre del usuario del TextBox. Despliega un MessageBox para indicar su seleccion exitosa en caso contrario visualiza uno de error. Ademas devuelve todas coincidencias del nombre seleccionado, solo aplicando un signo de procentaje al final de la sentencia en la que se de manda llamar a la tabla de la Base de Datos.
Private Sub cmdGuardar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdGuardar.Click
Try
UsuariosTableAdapter.QueryUsuarios(QuimicaDataSet.usuarios,
txtNombre.Text & "%")
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
Universidad Tecnológica de San Juan del Río
End Sub
Esta sintaxis se encarga de llamar al metodo clear() a travez de la instacia Me
Private Sub cmdLimpiar_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdLimpiar.Click
Me.clear()
End Sub
Esta sintaxis siguiente verifica a travez del formulario a la variable global si la contraseña es igual al del administrador. Si es asi muestra la pantalla de administrador de lo contrario el del usuario limitado.
Private Sub lblMenu_LinkClicked(ByVal sender As System.Object, ByVal
e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblMenu.LinkClicked
If frmBienvenida.admin = True Then
frmMenuAdmin.Show()
Me.Hide()
ElseIf frmBienvenida.admin = False Then
frmMenuUser.Show()
Me.Hide()
End If
End Sub
Esta sintaxis siguiente verifica a travez del formulario a la variable global si la contraseña es igual al del administrador, si es correcta se hace visible el botón de actualizar para el administrador, de lo contrario no se tendra acceso a la actulizacion.
Private Sub frmConsultasUsuarios_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
If frmBienvenida.admin = True Then
cmdUpdate.Visible = True
ElseIf frmBienvenida.admin = False Then
cmdUpdate.Visible = False
End If
End Sub
La siguiente sintaxis indica la actualizacion de los campos de clave, nombre, password, tipo, en caso de error despliegaun MessageBox.
Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdUpdate.Click
Try
UsuariosTableAdapter.UpdateUsuarios(txtClave.Text,
txtNombre.Text, txtTipo.Text, txtPassword.Text, txtClave.Text)
MessageBox.Show("Tus datos han sido actualizados", Me.Text,
0, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
End Sub
Universidad Tecnológica de San Juan del Río
INTERFAZ DE BIENVENIDA
Se declara una variable admin que va a hacer variable global, para activar o comparar que tipo de administardor.
Public Shared admin As Boolean
Public Sub clear()
cboNombre.Text = ""
txtcontraseña.Text = ""
End Sub
Esta sintaxis se encarga de llenar el table adapter a traves del dataset dela tabla usuarios para asi poder usarlo en le resto del formulario.
Private Sub frmBienvenida_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
Me.UsuariosTableAdapter.Fill(Me.QuimicaDataSet.usuarios)
Me.clear()
End Sub
Esta sintaxis tiene como objetivo extraer el elemento del ComboBox y compararlo si es correspondiete al de administrador para sederle los privilegios de mayor jerarquia, a travez del form Administrador de lo contrario se visualiza en formulario de Usuario limitado.
Private Sub cmdEntrar_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdEntrar.Click
Dim contraseña, tipo As String
Try
UsuariosBindingSource.Position =
UsuariosBindingSource.Find("Nombre", cboNombre.Text)
contraseña = UsuariosBindingSource.Current(3)
tipo = UsuariosBindingSource.Current(2)
If contraseña = txtcontraseña.Text Then
If tipo = "Administrador" Then
admin = True
frmMenuAdmin.Show()
Me.Hide()
ElseIf tipo = "Limitado" Then
admin = False
frmMenuUser.Show()
Me.Hide()
End If
ElseIf contraseña <> txtcontraseña.Text Then
MessageBox.Show("Los datos de usuario o contraseña son
inválidos", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
Universidad Tecnológica de San Juan del Río
Catch ex As Exception
MessageBox.Show(ex.Message, Me.Text, 0, MessageBoxIcon.Error)
End Try
Me.clear()
End Sub
INTERFAZ DE MENU ADMINISTRADOR
Esta parte del codigo realiza la funcion por medio de la label o etiqueta la salida del sistema. Private Sub lblSalir_LinkClicked(ByVal sender As System.Object, ByVal e
As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblSalir.LinkClicked
MessageBox.Show("El sistema se cerrará, Hasta luego !!!",
Me.Text, 0, MessageBoxIcon.Hand)
End
End Sub
La funcion de esta sintaxis es desplegar los privilegios del administrador por medio de un ComboBox, dependiendo la opcion que seleccione la interfaz se mostrara.
Private Sub CmdAcceso_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CmdAcceso.Click
If cboOpcion.Text = "Alta de adeudos" Then
frmAltasAdeudos.Show()
ElseIf cboOpcion.Text = "Alta de alumnos" Then
frmAltasAlumnos.Show()
ElseIf cboOpcion.Text = "Alta de consumos" Then
frmAltasConsumos.Show()
ElseIf cboOpcion.Text = "Alta de materiales" Then
frmAltasMateriales.Show()
ElseIf cboOpcion.Text = "Alta de reactivos" Then
frmAltasReactivos.Show()
ElseIf cboOpcion.Text = "Alta de requisiciones" Then
frmAltaClavesRequisiciones.Show()
ElseIf cboOpcion.Text = "Alta de usuarios" Then
frmAltaUsuarios.Show()
ElseIf cboOpcion.Text = "Baja de adeudos" Then
frmBajasAdeudos.Show()
ElseIf cboOpcion.Text = "Baja de alumnos" Then
frmBajasAlumnos.Show()
ElseIf cboOpcion.Text = "Baja de consumos" Then
frmBajaConsumos.Show()
ElseIf cboOpcion.Text = "Baja de materiales" Then
frmBajasMateriales.Show()
ElseIf cboOpcion.Text = "Baja de reactivos" Then
frmBajasReactivos.Show()
ElseIf cboOpcion.Text = "Baja de requisiciones" Then
frmBajaRequisiciones.Show()
ElseIf cboOpcion.Text = "Baja de usuarios" Then
frmBajasUsuarios.Show()
Universidad Tecnológica de San Juan del Río
ElseIf cboOpcion.Text = "Consulta de adeudos" Then
frmConsultasAdeudos.Show()
ElseIf cboOpcion.Text = "Consulta de alumnos" Then
frmConsultasAlumnos.Show()
ElseIf cboOpcion.Text = "Consulta de consumos" Then
frmConsultasConsumos.Show()
ElseIf cboOpcion.Text = "Consulta de materiales" Then
frmConsultasMateriales.Show()
ElseIf cboOpcion.Text = "Consulta de reactivos" Then
frmConsultasReactivos.Show()
ElseIf cboOpcion.Text = "Consulta de requisiciones" Then
frmConsultaRequisiciones.Show()
ElseIf cboOpcion.Text = "Consulta de usuarios" Then
frmConsultasUsuarios.Show()
End If
Me.Hide()
End Sub
INTERFAZ DE MENU USUARIO LIMITADO
La funcion de esta sintaxis es desplegar los privilegios del usario limtado por medio de un ComboBox, dependiendo la opcion la que seleccione la interfaz se mostrara. Private Sub cmdAcceso_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdAcceso.Click
If cboOpcion.Text = "Alta de requisiciones" Then
frmAltaClavesRequisiciones.Show()
ElseIf cboOpcion.Text = "Consulta de adeudos" Then
frmConsultasAdeudos.Show()
ElseIf cboOpcion.Text = "Consulta de alumnos" Then
frmConsultasAlumnos.Show()
ElseIf cboOpcion.Text = "Consulta de consumos" Then
frmConsultasConsumos.Show()
ElseIf cboOpcion.Text = "Consulta de materiales" Then
frmConsultasMateriales.Show()
ElseIf cboOpcion.Text = "Consulta de reactivos" Then
frmConsultasReactivos.Show()
ElseIf cboOpcion.Text = "Consulta de requisiciones" Then
frmConsultaRequisiciones.Show()
ElseIf cboOpcion.Text = "Consulta de usuarios" Then
frmConsultasUsuarios.Show()
End If
Me.Hide()
End Sub
Esta parte del codigo realiza la funcion por medio de la label o etiqueta la salida del sistema. Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object,
ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles
lblSalir.LinkClicked
MessageBox.Show("El sistema se cerrará, Hasta luego !!!",
Me.Text, 0, MessageBoxIcon.Hand)
End
End Sub
Universidad Tecnológica de San Juan del Río
CONCLUSION
Las conclusiones generadas en la realización del sistema son muchas; nos ayudó a aplicar
los conocimientos adquiridos durante el transcurso del cuatrimestre además de adquirir
nuevos conocimientos, resolver conflictos, trabajar en equipo, nos ayudó a mejorar como
personas.
Nos fue de mucha ayuda para comprender el entorno laboral, como se trabaja, a que
ritmo y las responsabilidades que se adquieren.
Nos ayudó a relacionarnos y convivir con nuevas personas, las cuales nos brindaron apoyo
y nuevos conocimientos además de que nos hicieron ver las posibilidades del desarrollo
del sistema desde otro punto de vista.
Tuvimos retroalimentación por parte del cuerpo docente del la carrera, del cliente y de los
propios compañeros de clase.
Se generaron críticas constructivas en la elaboración del sistema que fueron bien
aceptadas y aplicas en algunas partes del proyecto.