Control e inventario de una tienda

Introducción

Es necesario crear un sistema de base de datos la cual ayude a llevar una mejor administración y control de mercancías así como sus ventas y compras de productos.

El sistema de base de datos pretende llevar un control con el obtener información de los registros obtenidos de la mercancía. El sistema de base de datos es necesario para cualquier tipo de negocio ya que con el tienes un mejor punto de vista de la mercancía que entra en la pequeña empresa dando un mejor manejo de capital en el negocio y dando de referencia un buen aspecto para e l bienestar de los clientes al ver que la mercancía que necesitan se encuentra en ese lugar y con ello tendrá mejores ventas

Objetivo general

Crear un sistema de base de datos con el nombre de: Controla y administra información de productos de una tienda.

Objetivos específicos:

• Analizar los requisitos de mi cliente
• Identificar atributos, entidad relación
• Crear tablas

Hacer el programa en visual Basic

Narración de la situación actual del cliente
Cliente: Sahara Córdova Pérez
Dirección; Av. primero de mayo #10 Zacatelco Tlaxcala
Teléfono 4970932
Mi cliente necesita un sistema de base de datos con la cual tenga una mejor administración de su pequeña empresa. Visite a la señora Sahara Córdova Pérez que como me explico tiene una muy mal manejo de su mercancía ya que por falta de un sistema de base de datos ella a perdido producto por falta de conocimiento de caducidad y también me explico que tiene una mal administración de capital para invertir en sus compras de mercancía
el cual requiere información de los productos como marca, color, código, precio, cantidad de producto para el inventario. También quiere conocer el nombre del cliente, teléfono dirección, código postal y de compra quiere conocer del costo de la compra, fecha de compra, cliente, producto.< style="TEXT-ALIGN: center; MARGIN: 0px auto 10px; WIDTH: 264px; DISPLAY: block; HEIGHT: 320px; CURSOR: hand" id="BLOGGER_PHOTO_ID_5474954675388298706" border="0" alt="" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibu5ZOMJ4iaZWVOgWzwCxCQJiLHmrznt0wyYf8UTUYyVZtJzNTKLANmIyPTzMwfuWmtX1wpMAnhLzT4lxSGlA8IIA1hfPMjoqYFxMOTjisW-H9auBzG6oys9tYBrvPjlChKDj7GqfBrPM/s320/final_decarmen_img1.PNG">

Private Sub Command1_Click()
Load CONTRASEÑA
CONTRASEÑA.Show
Unload
Me
End Sub

Private Sub Command2_Click()
RESP = MsgBox("¿SEGURO QUE DESEAS SALIR DE LA APLICACIÓN?", 4 + 0 + 32, "AVISO")
If RESP = 6 Then
MsgBox "GRACIAS"
End
End If
End Sub

Private Sub entrar_Click()
RESP = Text2.Text
Select Case RESP
Case
"carmen"
Unload Me
MsgBox "bienbenido espero ser de su agrado"
Load
MENU
MENU.Show
Case Else
Unload Me
RESP = MsgBox("su contraseña
es incorrecta", 5 + 0 + 64, "AVISO")
If RESP = 4 Then
Load CONTRASEÑA
CONTRASEÑA.Show
Else
End
End If
End Select
End Sub

Private Sub salir _Click()
RESP = MsgBox("desea salir", 4 + 0 + 32,
"aviso")
If RESP = 6 Then
MsgBox "adios"
End
End If
End Sub

Private Sub Command1_Click()
Load MENU
MENU.Show
Unload Me
End
Sub

Private Sub Command2_Click()
Load CLIENTE
CLIENTE.Show
Unload Me
End Sub

Private Sub Command3_Click()
Load producto
producto.Show
Unload Me
End Sub

Private Sub Command4_Click()
RESP = MsgBox("¿SEGURO QUE DESEAS SALIR DE LA APLICACIÓN?", 4 + 0 + 32,
"AVISO")
If RESP = 6 Then
MsgBox "GRACIAS"
End
End If
End
Sub

Private Sub Command1_Click()
Data1.Refresh
Data1.Recordset.AddNew
EMPLEADOS.SetFocus
End Sub

Private
Sub Command2_Click()
RESP = MsgBox("¿SEGURO QUE DESEAS SALIR DE LA
APLICACIÓN?", 4 + 0 + 32, "AVISO")
If RESP = 6 Then
MsgBox "GRACIAS"
End
End If
End Sub

Private Sub Command3_Click()
Load
CLIENTE
CLIENTE.Show
End Sub

Private Sub Command4_Click()
Load MENU
MENU.Show
End Sub

Private Sub Command1_Click()
Data1.Recordset.MoveFirst
End Sub

Private Sub Command2_Click()
Data1.Recordset.MoveLast
End Sub

Private Sub Command3_Click()
RESP = MsgBox("¿SEGURO QUE DESEAS SALIR
DE LA APLICACIÓN?", 4 + 0 + 32, "AVISO")
If RESP = 6 Then
MsgBox
"GRACIAS"
End
End If
End Sub

Private Sub Command4_Click()
Data1.Refresh
Data1.Recordset.AddNew
VENTA.SetFocus
End Sub

Private Sub Command5_Click()
Load MENU
MENU.Show
End Sub

Private Sub Command2_Click()
Data1.Recordset.Edit
If TXTproducto
<> "" Then
Data1.Recordset("NOMBRE").Value = TXTproducto
Data1.Recordset.Update
End If
End Sub

Private Sub
salir_Click()
RESP = MsgBox("¿SEGURO QUE DESEAS SALIR DE LA APLICACIÓN?", 4
+ 0 + 32, "AVISO")
If RESP = 6 Then
MsgBox "regrese pronto"
End
End If
End Sub

Private Sub menu_Click()
Load MENU
MENU.Show
End Sub