Hola, bienvenido a Delphi, seria bueno que leyeras la
guia de estilo
Para que te responda de manera mas facil encierra el codigo entre etiquetas es mas facil para quien te vaya a ayudar
Respecto a tu problema si no dices el error solo puedo tratar de adivinar, asi que adivinando te podria decir que tienes que abrir la tabla
Código Delphi
[-]procedure TAltas.PO(Sender: TObject);
begin
Con_Art_Bar.SQL.Clear;
Con_Art_Bar.active := False;
Con_Art_Bar.SQL.Add('SELECT Min(Precio) AS minimo, Articulo, Nombre, ');
Con_Art_Bar.SQL.Add('Precio, Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
Con_Art_Bar.SQL.Add('FROM proveedores, articulos');
Con_Art_Bar.SQL.Add('where proveedores.Cod_Proveedor = Articulos.Cod_Proveedor');
Con_Art_Bar.SQL.Add('GROUP BY Articulo, Nombre, Precio, ');
Con_Art_Bar.SQL.Add('Fecha, Ultimo_precio, Fecha_ultima, Cod_Art');
Con_Art_Bar.SQL.Add('HAVING Articulo=Foli;');
Con_Art_Bar.active := True;
DBText1.Visible := True;
DBText2.Visible := True;
DBText3.Visible := True;
DBText4.Visible := True;
DBText5.Visible := True;
DBText7.Visible := True;
end;
Fijate en la linea que esta resaltada prueba y dinos que tal te va
PD: Mira lo bien que se ve el codigo entre etiquetas
edito: 4 respuestas al mismo tiempo, ejejejeje despues dicen q aqui no ayudan