Sistema De Ventas De Una Farmacia

Sistema de ventas de una farmacia

Base de Datos (dvventas) en SQL Server
Tablas
Categoría
Column Name
Data Type
idcategoria
Int
Primary Key
Identity Specification: yes, increment 1
nombre_categoria
Varchar(50)

Cliente
Column Name
Data Type
idcliente
Int
Primary Key
Identity Specification: yes, increment 1
nombre
Varchar(50)
apellido
Varchar(50)
direccion
Varchar(50)
telefono
Varchar(10)
rfcVarchar(13)

Detalle_venta
Column Name
Data Type
iddetalle_venta
Int
Primary Key
Identity Specification: yes, increment 1
idventa
Int
idproducto
Int
cantidad
decimal(18, 2)
precio_unitario
decimal(18, 2)

Producto
Column Name
Data Type
idproducto
Int
Primary Key
Identity Specification: yes, increment 1
idcategoria
Int
nombre
Varchar(50)
descripcion
Varchar(50)
stock
decimal(18, 2)
precio_compradecimal(18, 2)
precio_venta
decimal(18, 2)
fecha_vencimiento
Date
imagen
image

Usuario
Column Name
Data Type
idusuario
Int
Primary Key
Identity Specification: yes, increment 1
nombre
Varchar(50)
apellidos
Varchar(50)
rfc
Varchar(8)
direccion
Varchar(100)
telefono
Varchar(10)
login
Varchar(50)
password
Varchar(50)
acceso
Varchar(1)

Venta
Column Name
Data Type
idventa
Int
Primary Key
IdentitySpecification: yes, increment 1
idcliente
Int
fecha_venta
date
tipo_documento
Varchar(50)
num_documento
Varchar(50)

Diagrama de relaciones de tablas
Click en database diagrams/ new
Empezamos con cliente, un cliente tendrá ventas, arrastramos del idcliente de cliente a idcliente de ventas, en los cuadros de dialogo que aparezcan en el primero le damos ok, en el segundo cambiamos la opción donde diceinsert and update, delete rules, cambiamos no action por cascada, con esto si eliminamos un cliente, se eliminan todas sus ventas.
Idproducto de tabla producto con idproducto de detalle_venta.
Después idventas de ventas con idventa de detalle_venta, se hace la misma regla de cliente, en cascada.
Idcategoria de tabla categoría con idcategoria de tabla producto.
Guardamos como diagrama, pregunta que seafectaran las tablas y le damos ok.





Esquema del sistema en Visual Studio 2012

















En Visual Studio 2012, el sistema se va a dividir en 3 capas principales: Datos, Lógica y presentación.
En la capa datos se tiene una clase llamada conexión, donde se establece la conexión con la base de datos en SQL Server y tendremos las funciones de todas las tablas o todas las entidades de labases de datos, como mostrar, insertar, buscar y eliminar registros. Se utiliza el prefijo “f” en las clases de esta capa.
Dentro de la carpeta lógica se declararan todas las variables que se envían y reciben de la base de datos. Se utiliza el prefijo “v” en las clases de esta capa.
Dentro de la carpeta presentación se encuentran las interfaces graficas que se manejaran en el sistema.
A parte semanejara la carpeta reportes y resources que contendrá las imágenes que se añadan a nuestro sistema.


Código de la clase Conexión.vb
Imports System.Data.SqlClient

Public Class conexion
Protected cnn As New SqlConnection

Public idusuario As Integer

Protected Function conectado()
Try
cnn = New SqlConnection("data source=(local);initial catalog=dbventas;integratedsecurity=true")
cnn.Open()
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function

Protected Function desconectado()
Try
If cnn.State = ConnectionState.Open Then
cnn.Close()
Return True
Else
Return FalseEnd If
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
End Function
End Class

Trabajando la Tabla Cliente


Código de la clase fcliente.vb
Clase donde se edita, muestra, inserta y elimina un cliente.
Imports System.Data.SqlClient

Public Class fcliente
Inherits conexión (instrucción para incluir la conexión)
Dim cmd...