Buenas tardes amigos antes que nada quiero desearles anticipadamente una feliz navidad y un mejor año nuevo.
Bueno les comento que estoy haciendo un programa en el cual quiero meterle a un edit un codigo de productos y cuando le ingrese dicho codigo me visualiza tanto la imagen del producto, nombre y precio, mi problema radica en cuando meto dicho codigo solo me visualiza la imagen y no me muestra el nombre del producto ni el precio, estoy utilizando un edit para ingresar el codigo y dos DBlistbox en el cual ya esta conectados al datasource y al datafield de sus propiedades, les anexo el codigo que estoy usando
Este codigo es el que esta en el evento Onkeypress del edit
Código:
procedure TPunto_venta.Edit1KeyPress(Sender: TObject; var Key: Char);
Var
LCad :String;
begin
with dm1.Q_codigos do
begin
LCad :='%'+Edit1.Text+'%';
SQL.Text:='SELECT codigo,producto,foto,precio_unidad FROM codigos WHERE codigo LIKE :''N'';';
ParamByName('N').AsString:=LCad;
Open;
end;
end;
Este codigo siguiente esta en el evento Onkeyup
Código:
DBImage1.Picture.LoadFromFile(dm1.Q_codigos.fieldbyname('foto').asstring);
dblistbox1.Items(dm1.Q_codigos.FieldByName('producto').asstring);// aqui es donde no me muestra el nombre del producto
O tambien si me pueden ayudar en como hacerlo o con que otros objetos, gracias de antemano y estoy usando delphi 5.