Uzun zamandan sonra yeniden Delphi’ye el atayım dedim. Bilgisayarımda kullanmak üzere kendi ihtiyaç duyduğum birkaç program hazırlamak için kollarımı sıyırmışken size bir iki ipucu vereyim ;) Bu yazımdaki ipuçları Delphi ile veritabanında arama yapmanıza yarayan basit ama kullanışlı iki kod.

Veritabanınıdaki verileri yönetmek için TTable nesnesi kullanmışsak bu nesnenin FindNearest fonksiyonunu kullanabilirsiniz. Oldukça basit ve kullanışlı bir fonksiyondur. Örnek bir kod ile göstermem gerekirse;

Table1.indexname := 'SOYAD';
Table1.FindNearest(['Edit1.text']);

1nci satırda arama yapacağımız sütunu belirttik. 2nci satırda da Edit1 kutusundan gelen kelimeyi arattık.

Veritabanınıdaki verileri yönetmek için TTable değil de SQL cümlelerini kullanmamıza yarayan TQuery nesnesini kullanmışsak, uygulamamıza şöyle bir SQL cümlesi ekleyerek arama yapabiliriz;

Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add('select * from ozetler where SOYAD like ' + QuotedStr('%' + Edit1.Text + '%'));
Query1.Active := True;

Bu örnekte öncelikle Query’yi durduruyoruz. Daha sonra SQL cümlesini sıfırlayıp yeni cümlemizi (arama cümlesi) ekliyoruz ve tekrar çalıştırıyoruz. Hepsi bu kadar.

Yukarıda en basit haliyle iki örnek verdim. Sorularınız için Delphi Dünyası‘na başvurabilirsiniz.

Bu arada yakında hazırlamış olduğum bir Delphi uygulamasını kodlarıyla birlikte paylaşacağım, haberiniz olsun ;)