Filtrowanie a DBGird

0

Pisze aplikacje z baza oparta na MySQL, korzystam z ZEOS, problem tego typu ze gdy chce filtrowac zawartosc tabeli (np wyswietleni jakis nazwiska zaczynające sie na cos tam) to mi nikna wszyskie pola.
jakis pomys dlaczego tak sie dzieje

wiem ze moglby robic to poprzez zmiane zapytania SQL ale choodzlo mi o jakies prostszy sposób.

z góry thx

genius23

0

juz sobie zrobilem

dla potomnych kawalek kodu:
aha pokazuje automatycznie przy wpisywaniu kooejnych liter

[code]

procedure TMain_scr.Edit1Change(Sender: TObject);
var
u:char;
oso: integer;
licz: string;

begin
u:=chr(39);
if edit1.Text <> '' then
begin
Data.qrPacjenci.Close;
Data.qrPacjenci.Sql.Clear;
Data.qrPacjenci.Sql.Add('select * from pacjenci where nazwisko like '+u+edit1.Text+'%'+u);
Data.qrPacjenci.ExecSql;
Data.qrPacjenci.Open;
oso:= Data.qrPacjenci.RecordCount;
Data.qrBadanie.RecordCount;
Statusbar1.Panels[1].Text:='Znaleziono '+IntToStr(oso)+' pozycje w bazie.';
//Statusbar1.Panels[2].Text:='Badań: '+IntToStr(Data.qrBadanie.RecordCount);
end
else
begin
Data.qrPacjenci.Close;
Data.qrPacjenci.Sql.Clear;
Data.qrPacjenci.Sql.Add('select * from pacjenci');
Data.qrPacjenci.ExecSql;
Data.qrPacjenci.Open;
Statusbar1.Panels[1].Text:=IntToStr(Data.qrPacjenci.RecordCount)+' osoby w bazie.';
Data.qrPacjenci.FindLast;
end;
end;
[/code]

1 użytkowników online, w tym zalogowanych: 0, gości: 1