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]