Sorgulama Fonksiyonu

[NewMember]

Arkadaşlar basit bir fonksiyon belki bir çoğunuzun kendi yazıp kullandığı fornksiyonları vardır ama yeni arkadaşlar için faydalı olabilir.Çorbada bizimde tuzumuz olsun hesabı.

Kod: Tümünü seç

function sorgula(Parametre:String;HangiAlan:String;TabloAdi:String;Data:TADOQuery):Boolean;
begin
//Parametre:Aranacak olan string ifade
//Hangi Alan:Bu ifadeyi hangi alanda arayacağız.
//TabloAdi:Arama yapılacak Olan Tablo adi
//Data:ADoquerymizin adı eğer başka bir query kullanıyorsak ona göre düzenleyebiliriz.
    data.SQL.Clear;
    data.SQL.add('Select * From ');
    data.SQL.Add(TabloAdi+' Where '+HangiAlan);
    data.SQL.Add(' like "'+Parametre+'%"');
    data.Open;
end;

Kullanımı:

Kod: Tümünü seç

procedure TForm1.Edit1Change(Sender: TObject);
begin
    sorgula(Edit1.Text,'Musteriadi','MusteriTable',sorgumusteri);
end;

Faydalı olur inşallah.

[aslangeri]

s.a.
paylaşım duygunuz için sizi tebrik ediyorum fakat bu tür mesajları makale ve ipucları forumuna atarsanız daha faydalı olur kanaatindeyim.
kolay gelsin.