Proyecto Ingenieria De Software

BASE DE DATOS

create database perfumeria

create table inventario(clave int primary key,
nombre varchar (30),
marca varchar(30),
cantidad int,
precio int,
fecha varchar (30))

create table punto_venta(clave int primary key,
nombre varchar (30),
precio int,
existencias int,
marca varchar (30),
descuentoint,
fecha varchar (30))

create table pedido (clave int primary key,
cantidad int,
producto varchar (30),
precio int,
fecha varchar(30))

create table nomina (clave int primary key,
nombre varchar (30),
ap_pat varchar (30),
ap_mat varchar (30),
dias_trabajados int,hrs_trabajadas int,
pago_x_hra int,
sueldo int)

create table empleados (clave int primary key,
nombre varchar (30),
ap_pat varchar (30),
ap_mat varchar (30),
fecha varchar (30))

DIAGRAMA ENTIDAD RELACION

DICCIONARIO DE LA BASE DE DATOS
CAMPO | LLAVE | TABLAS |
CLAVE | PRIMARY KEY | INVENTARIO, PUNTO_VENTA, PEDIDO, NOMINA,EMPLEADOS |
NOMBRE | | INVENTARIO, PUNTO_VENTA, NOMINA,EMPLEADOS |
MARCA | | INVENTARIO, PUNTO_VENTA |
CANTIDAD | | INVENTARIO, PEDIDO, |
PRECIO | | INVENTARIO, PUNTO_VENTA, PEDIDO |
FECHA | | INVENTARIO, PUNTO_VENTA, PEDIDO, EMPLEADOS |
EXISTENCIAS | | PUNTO_VENTA |
MARCA | | PUNTO_VENTA |
DESCUENTO | | PUNTO_VENTA |
PRODUCTO | | PEDIDO |
AP_PAT | | NOMINA, EMPLEADOS |AP_MAT | | NOMINA, EMPLEADOS |
DIAS_TRABAJADOS | | NOMINA |
HORAS_TRANAJADAS | | NOMINA |
PAGO_X_HORA | | NOMINA |
SUELDO | | NOMINA |

SECUENCIA DE FORMAS
EMPLEADOS
ALTA
BAJA

INICIO SESION

NOMINA
PUNTO DE VENTA
PEDIDOS
INVENTARIO
MENU

SECUENCIA DE FORMAS

PANTALLA PRINCIPAL INICIO DE SESION

CODIGO DE PANTALLA PRINCIPAL INICIO DE SESION
Public Class inicioPrivate Sub btninicio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninicio.Click
Dim contraseña As String
If usuarios.Text = "Administrador" Then
contraseña = "fatima"
If txtcontra.Text = contraseña Then
mdi.activar2()
Me.Close()
End If
ElseIf usuarios.Text ="Empleado" Then
mdi.activar()
Me.Close()
End If
End Sub
Private Sub btncancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancelar.Click
End
End Sub

Private Sub inicio_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
usuarios.Items.Add("Administrador")usuarios.Items.Add("Empleado")
End Sub
End Class

DESCRIPCION

INICIO DE SESION
ESTA VENTANA FUNCIONA PARA ENTRAR AL SISTEMA
SOLO LOS USUARIOS DEL NEGOCIO QUE TIENEN ACCESO
SE VALIDA CUANDO EL USUARIO INSERTE EL USUARIO ADMINISTRADOS LA CONTRASEÑA SERA “fatima”

Y SI INSERTA EMPLEADO LA CONTRASEÑA SE DESACTIVA Y MANDA A LLAMAR LA FUNCION ACTIVAR PARA QUE NO TENGA ACCESO A LAFUNCION NOMINA

LLENA EL CUADRO DE LISTA CON LOS USUARIOS EXISTENTES
ADMINISTRADOR
EMPLEADO

PANTALLA DE MENU ARCHIVO

PANTALLA DE MENU EMPLEADOS

CODIGO DE LAS PANTALLAS MENU
Public Class mdi
Private Sub InventarioToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InventarioToolStripMenuItem.Click
Dim x As New productosx.MdiParent = Me
x.Show()
End Sub

Private Sub PedidosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PedidosToolStripMenuItem.Click
Dim x As New pedidos
x.MdiParent = Me
x.Show()
End Sub

Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles...