Sistema de caja en visual basic 6.0

Resuelto/Cerrado
HARDSOFT DREAW Message postés 6 Date d'inscription sábado, 3 de enero de 2009 Estatus Miembro Última intervención jueves, 8 de enero de 2009 - 6 ene 2009 a las 17:43
 ana - 7 nov 2013 a las 19:58
Hola,
Hola, tengo una duda, he hecho un pequeño sistema de abarrotes en visual basic 6.0 tengo hechos lo formularios para los proveedores, productos, vendedores y clientes todos estos formularios que mencione, dan de alta, baja, modifican, eliminan, buscan, etc; en el cual para vincularlo a la base de datos (access) tuve que utilizar el la herramienta data. Pero mi duda es en crear un formulario en donde venda los productos.

les comento;

la ventana productos tiene los siguientes campos: clave, producto, cantidad, proveedor.

El formualrio (venta de productos) que es el quiero crear debe estar relacionado con la ventande productos, pues cuando venda productos automaticamente se debe reducir la cantidad del producto........

ayudenme.

Postada: Si no soy muy explicito en esto podemos ponernos en contacto, para que asi yo les puede explicar bien o mandarles el proyecto con un pequeño manual en donde explique dada uno de los codigos que e utilizado.

10 respuestas

Mirá este mini sistema de control de stock lo realice para vos, no utilizo el data control sino que lo accedo todo por código, pero con este código podes tener una idea de como manejarte.

En el formulario agregas dos combos (combo1 y combo2)

Luego agrega un frame(Frame1) con el caption "Control de Stock" y dentro del mismo pones cuatro casillas de
texto en este orden:
text1 para ---> Clave del Producto
text2 para ---> Producto
text3 para ---> Proveedor
text4 para ---> Cantidad

Agregas otro frame(Frame2) con el captión "Facturación de Ventas" y dentro del mismo pones cuatro casillas mas de texto en este orden:

text8 para ---> Clave del Producto
text7 para ---> Producto
text6 para ---> Proveedor
text5 para ---> Cantidad Vendida.

Dentro de este frame ingresas un commandbutton con el caption "Imprimir factura"

Este código que desarrolle esta tarde, funciona con una base de datos access, cuyo nombre es "Fotos", tiene una tabla creada nombrada como "Tabla1", y los siguientes campos:

nombre tipo
----------------------------------------
clave Número (Indexado sin duplicados)
producto texto
cantidad texto
proveedor texto
-----------------------------------------

Ahora te dejo el código para que lo estudies:
-------------------------------------------------------
Option Explicit
' Objeto para acceder directamente a la base usando código sin el datacontrol
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset

Private Sub Combo1_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE clave = " & Combo1.Text, cnn

Text1.Text = rst.Fields!Clave
Text2.Text = rst.Fields!producto
Text3.Text = rst.Fields!proveedor
Text4.Text = rst.Fields!cantidad
cnn.Close
End Sub

Private Sub Combo2_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE producto = '" + Combo2.Text + "';", cnn

Text1.Text = rst.Fields!Clave
Text2.Text = rst.Fields!producto
Text3.Text = rst.Fields!proveedor
Text4.Text = rst.Fields!cantidad
cnn.Close
End Sub

Private Sub Command1_Click()
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1 WHERE clave = " & Text8.Text, cnn, adOpenDynamic, adLockOptimistic

'rst.Fields!Clave = Text8.Text
'rst.Fields!producto = Text7.Text
'rst.Fields!proveedor = Text6.Text
rst.Fields!cantidad = Val(Text4.Text) - Val(Text5.Text)
Text4.Text = rst.Fields!cantidad
rst.Update
rst.MoveFirst

cnn.Close
Text8.Text = ""
Text7.Text = ""
Text6.Text = ""
Text5.Text = ""
End Sub

Private Sub Form_Load()
On Error Resume Next
' Asignar el nombre de la base de datos
' (si la aplicación se ejecuta en el directorio raiz, quitar el \)
Dim sBase
sBase = App.Path & "\fotos.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Tabla1", cnn

Do Until rst.EOF
Combo1.AddItem rst.Fields(0).Value
Combo2.AddItem rst.Fields(1).Value
rst.MoveNext
Loop
Combo1.ListIndex = 0
Combo2.ListIndex = 0
rst.MoveFirst
cnn.Close
End Sub

Private Sub Text1_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub

Private Sub Text2_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub


Private Sub Text3_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub


Private Sub Text4_DblClick()
Text8.Text = Text1.Text
Text7.Text = Text2.Text
Text6.Text = Text3.Text
End Sub
--------------------------------------------------------------

Esperando haberte sido util, te dejo un abrazo.

Cualquier duda, estoy a tu disposición.


Luis
40
OYE
QUE TE PARESE SI INTERCAMBIAMOS DE SISTEMA...
YO TE DOY MI SISTEMA Y TU ME DAS EL TUYO....
MI CORREO ES

comando_729@hotmail.com

respondeme
0
Hice tu programa me funciono pero ^^ quiero saber como puedo calcular las cantidades de los productos por favor
0
necesito hacer una consulta en acces quiero hacer una base de datos de un inventario de bodega
mi correo es jcaleroq@hotmail.com
espero hagas contacto conmigo
gracias
0
wolap kiciera k me ayudaran a krear un control de una tienda de abarrotes en bisual y acces plis
urge ojala plonto resiva su mensaju mi koreo es conejito _erika@hot
0
nose
1