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 ;)
Genç yaşlarda programlama ile tanıştı ve Delphi ile başladığı programlama macerasına şuanda PHP, SQL, Javascript, AJAX, CSS, XHTML teknolojileri ile devam etmektedir. Elektrik - Elektronik bölümü mezunu olan "yakuter" 2006 yılından itibaren yakuter.com'un yazarlığını yapmaya başlamıştır.
enver
04 Mayıs 2008
delphi hep öğrenmek istediğim bir dil olarak kaldı içimde. okulda pascal öğrenmiştik ilk olarak, sonrasın da delphi diye beklerken visual basic çıkınca piyangodan delphi kala kaldı öyle.
Sırrı
04 Mayıs 2008
Erhan şu paylaşacağın delphi uygulaması ne üzerine merak ettim :)
Bu aralar delphi yüzünden kafayı yedim
Okul bitirme projesi olarak emlak takip otomasyonu aldım.
Delphi dersi içinde ortak okul takip otomasyonu projemiz var.Delphi delphi yeter kardeşim :)
Sinem
10 Mayıs 2009
Bitirme projem ile uğraşıyorum.Yukarıdaki kodlar çok işime yaradı. Çok teşekkürler.
Yazılan yazılardan ilk siz haberdar olun, yeni yazılar e-postanıza gönderilsin.
menchek
02 Eylül 2010
yakuter.com © 2006-2010 Erhan Yakut. Site tasarım Cenk Akyıldız - (Tema Bilgisi). Hosting sponsoru WebGrup.
Site içerisindeki içerikler izinsiz kopyalanamaz, alıntı yapılamaz.