Fórum Consulta SQL #386388

Bom Dia...

pessoal eu carrego uma sql q quando abro o formulario ele carrega um grid porem o grid nao vai existir hj estou fazendo dessa forma

var
 i:integer;
begin
  frmmodulo.qrUsuario.Open;

  query.close;
  query.sql.clear;
  query.sql.add('select codigo,produto,unidade,precovenda from c000025');
  query.sql.add('order by produto');
  query.open;

  grid.clearrows;
  if query.recordcount > 0 then
  begin
    query.first;
    while not query.eof do
    begin
      i := grid.AddRow(1);
      grid.Cell[0,i].asstring := query.fieldbyname('codigo').asstring;
      grid.cell[1,i].asstring  := query.fieldbyname('produto').asstring;
      grid.cell[2,i].asstring  := query.fieldbyname('unidade').asstring;
      grid.cell[3,i].asfloat    := query.fieldbyname('precovenda').asfloat;
      query.next;
    end;
    grid.SelectedRow := 0;
  end;
  flag_iniciou:= false;
end;

atravez do grid eu carrego essas funções para mostrar a no micro terminal o nome do produto

  if grid.Cells[3,Ind_Produto[terminal]] = 'KG' then // produto por peso
   estado[Terminal]:= 10
  else    // produto por quantidade
   estado[Terminal]:=8;
   produto[Terminal]:= grid.cells[1,Ind_Produto[terminal]];  

gostaria de uma ajuda pq sem o grid eu nao estou conseguindo fazer esssas funções funcionar...

esqueci de citar as funções

grid.cells[1,Ind_Produto[terminal]];

o 1 é a coluna q pega o codigo do produto e Ind_Produto[terminal] é o terminal de referencia...

Mas vc vai substituir a grid pelo que ?

temq  ser uma sql no caso o grid simula o meu banco de dados quando eu informo o codigo do produto no terminal essa linha aqui produto[Terminal]:= grid.cells[1,Ind_Produto[terminal]]; retorna o nome do produto no display do terminal

entao eu so quero um sar uma sql para fazer isso

o 1 é a coluna do grid q contem no nome do produto
o Ind_Produto[terminal] é o controle do terminal digitado