database de arama

[musalpay]

table veya query ile arama yaparken edit in change olayına yazıp edit de her tuşa basışta arama yaptıran bir kod için yardımcı olursanız sevinirim teşekkürler.

[P206]

Merhaba,

editin onchange olayına şu kodu yaz.
ama query kullan.

query1.sql.text:='select * from stok where kod like :kod';
query1.ParamByName('kod').AsString:=Edit1.Text+'%';
query1.open;

büyük kayıtlı DB lerde bunu onenter a koyarsa daha hızlı çalışabilirisin.

Kolay Gelsin.

[mehmet_turecan_cakmak]

bu konuda bnimde bir katkım olsun
editin keydown olayına:



if key=13 then
begin
if table1.locate('adi','edit1.text',[]) then
else
showmessage('Aradığnz Kayıt Bulunamadı');
end;
end;
end.

iyi çalışmalar kolay gele...

[husonet]

Tedit kullanarak, Ttable üzerinde arttırmalı arama yapmak için, Tedid bileşeninin OnChange olay yordamına, aşğıdaki kod yazılır.

Kod: Tümünü seç

 

procedure TForm1.Edit1Change(Sender: TObject); 
begin 
    With Edit1 do 
         if Text <> '' then 
              Table1.FindNearest([Text]); 
end; 

Bu türlü bir arama Tquerry üzerinde yapılacaksa, 

procedure TForm1.Edit1Change(Sender: TObject); 
begin 
    With Edit1 do 
        if Text <> '' then begin 
           Query1.Filter := 'code = '''+Edit1.Text+''''; 
           Query1.FindFirst; 
end; 

veya 

procedure TForm1.Edit1Change(Sender: TObject); 
begin 
    With Edit1 do 
        if Text <> '' then 
           Query1.Locate('code',Edit1.Text,[loPartialKey]); 
End;

Umarım yardımcı olabilmişimdir.