sistema de caja en visual basic 6.0 Resuelto/Cerrado

Question

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.

Elinv · Accepted Answer

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

ds · Answer

podes realizar una consulta de actualizacion con sql
 ej

if rsventas.estate = 1 then rsventas.close
sql= "select * from productos"
rsventas.Open SQL, miconexion, adOpenStatic, adLockOptimistic
   

y despues seleccionas elproducto y actualizas segun una condicion de filtrado de datos

pepe · Answer

por favor necesitoo urgentemente la definicon de:

- caja de vista en visual basic
- caja combinada en visual basic

Bob Esponja · Answer

seria bueno saber eso y que pases ese conocimiento me gustaria tambien ver eso te lo agradeceria te dejo mi correo de por ahi me lo mandas y te lo agradeceria gamau6@gmail.com

betto · Answer

hola mira para q te pueda ayudar me tienes q embiar el sistema q estas desarrollando, para q pueda verlo como es el funcionamiento,  y asi poder ayudarte.

saludos.

98736 · Answer

Private Sub Command2_Click()
COMPRAR = ""
MONEDERO = ""
End Sub

Private Sub Command3_Click()
End
End Sub

ElseIf PROMEDIO >= 6 And PROMEDIO < 7 Then
    LEYEN = "INDEFICIENTE"
ElseIf PROMEDIO < 5 Then
    LEYEN = "REPROBADO"
End If
End Sub

Private Sub Command2_Click()
LEYEN = ""
PROMEDIO = ""
ELABORAR = ""
DISEÑAR = ""
APLICAR = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()

End Sub

Private Sub Command1_Click()
RESULTADO = ""
End Sub

Private Sub Command2_Click()
End
End Sub

Jeimer Lenin · Answer

Escribeme a este msn y yo te respondere

Betto · Answer

gracias Roman, me jue de ayuda.
porfa no se podrias embiarme un modelo,
de un sistema de ventas.
porfa. a este E-mail:  beetto10@gmail.com
saluods.
Betto

x siempre sincero · Answer

q tal ve  oye no se si me puedes hacer el favor de enviarme ese pequeño sistema lo q pasa es q kiero seguir informatica y necesito saber como se extructura eso xfa enviamelo y el folleto q dices 
mi correo es maicolmiguel085@hotmail.es todo es unido xfa hasme es plie XD
att: maicol

vicsasuke · Answer

no me sale  esta parte sale error 
Private cnn As ADODB.Connection
dice error de compilacion
puedes ayudarme

Sistema de caja en visual basic 6.0

10 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!