Sistema de inventario-control de mercadria
Hola experto quisiera saber como presentar valores de una base de datos o una tabla a un ofrmulario en una caja de texto...
Por ejm en mi tabla de base de datos tengo 5 campos... Los cuales son código(char), preciounitario(num), existencia(num), nombre(char), ¿costo(num) y ya tengo ingresado en el registro datos en cada comapo por ejm el primer registro es
código 001
nombre señor de los anillos
preciounitario 2.00
existencia 15
costo 15
quisiera saber si en el formulario al yo poner en una caja de texto digamos el código 001
en otras cxajas de texto me aparezacn los demás valores
podrías decirme como es el código y donde va en una caja de texto donde podigo 001 o en un botón de comando?
Por ejm en mi tabla de base de datos tengo 5 campos... Los cuales son código(char), preciounitario(num), existencia(num), nombre(char), ¿costo(num) y ya tengo ingresado en el registro datos en cada comapo por ejm el primer registro es
código 001
nombre señor de los anillos
preciounitario 2.00
existencia 15
costo 15
quisiera saber si en el formulario al yo poner en una caja de texto digamos el código 001
en otras cxajas de texto me aparezacn los demás valores
podrías decirme como es el código y donde va en una caja de texto donde podigo 001 o en un botón de comando?
1 Respuesta
Respuesta de ingesoft
1
claro lo q debes hacer es poner en el evento keypress lo siguiente
if nkeycode=13
selec * from tabla where codigo=this.value into cursor cur_tabla
if reccount('cur_tabla')>0
thisform.nombre.value =cur_tabla.nombre
thisform.precio.txt.value=cur_tabla.precio
**asi todos los campos q quieras mostrar
else
messagebox('el codigo no existe vuelva a ingresar otro codigo')
this.value=''
Endif
Endif
Solo que no recomiendo usar char para el código siempre o casi siempre se usa números
Espero te sirva el tip. Te recomiendo la página ingesoftsrl. Mi-web. Es y mi este video www.ingesoftsrl.com/downs
if nkeycode=13
selec * from tabla where codigo=this.value into cursor cur_tabla
if reccount('cur_tabla')>0
thisform.nombre.value =cur_tabla.nombre
thisform.precio.txt.value=cur_tabla.precio
**asi todos los campos q quieras mostrar
else
messagebox('el codigo no existe vuelva a ingresar otro codigo')
this.value=''
Endif
Endif
Solo que no recomiendo usar char para el código siempre o casi siempre se usa números
Espero te sirva el tip. Te recomiendo la página ingesoftsrl. Mi-web. Es y mi este video www.ingesoftsrl.com/downs
