domingo, 15 de agosto de 2010

Filtrando letra a letra com SQL

Não se esqueçam que é preciso colocar um ListBox e três Edits para este código.

procedure TForm1.Edit1Change(Sender: TObject);
begin
q1.Close;
q1.SQL.clear;
q1.SQL.add('Select * from cliente where nome like '+chr(39)+edit1.text+'%'+chr(39));
q1.open;
listbox1.Clear;
q1.first;
while not q1.eof do
begin
listbox1.items.add(q1.fields.fields[0].value);
q1.next;
end;

end;

procedure TForm1.FormActivate(Sender: TObject);
begin
q1.first;
while not q1.eof do
begin
listbox1.items.add(q1.fields.fields[0].value);
q1.next;
end;

end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
vnome:string;
begin
vnome:=listbox1.items[listbox1.Itemindex];
q1.Close;
q1.SQL.clear;
q1.SQL.add('Select * from cliente where nome ='+chr(39)+vnome+chr(39));
q1.open;
edit1.text:=q1.fields.fields[0].value;
edit2.text:=q1.fields.fields[1].value;
edit3.text:=q1.fields.fields[2].value;
end;

Nenhum comentário:

Postar um comentário