0000000000000000000000000000000000000000000000000000000000000000000000000000000
//BURADA BELEŞÇİLERE YER YOKTUR LÜTFEN DERDİNİZ VARSA FORUMLARI KULLANIN
//VE LÜTFEN KİMSE BURAYA GELEN SORULARI YANITLAMASIN Kİ YÜZ BULUP TEKRAR
//TEKRAR BURAYA SORU SORULMASIN BURASI KOD PAYLAŞIM YERİDİR VE KİMSE SİZİN
//İÇİN KOD YAZMAK ZORUNDA DEĞİLDİR. KODLAR BİR PROGRAMCI İÇİN DEĞERLİDİR
//ÇÜNKÜ BURAYA HERKES KENDİ ALIN TERİNİ VE KENDİ EKMEK PARASINI YAZMAKTA VE
//PAYLAŞMAKTADIR. BAZI ZİHNİYETLER BURAYA ASLINDA ÇOK DEĞERLİ BİLGİLER VERİLDİĞİNİ
//YANİ SİHİRBAZLARIN SIRLARINI PAYLAŞTIĞINI FARKETMEKSİZİN BU SİHİRBAZLARIN
//ONLAR İÇİN YENİ SİHİRLER BULMALARI GEREKMEDİĞİNİ YA DA TÜM SIRLARINI
//PAYLAŞMALARININ GEREKMEDİĞİNİ BİLMELİDİRLER..
//BURASI KALİTELİ BİR SİSTEMDİR VE BU KALİTEYİ ELDE TUTMAK ELİMİZDEDİR
//LÜTFEN BUNU DA HAKKIYLA YAPALIM
0000000000000000000000000000000000000000000000000000000000000000000000000000000
{
Öncelikle arkadaşlar yapmanız gereken şey arama bölümünü açtığınızda aramadan önce şu
kodu uygulatmak}
ADOConnection1.GetFieldNames('Nufuslar',ComboBox1.Items);
{Burada Nufuslar benim tablomun adıdır arkadaşlar...}
{Bu noktadan sonra Combobox'ınızın Autocomplete özelliğini True yapacak olursanız
yazdıklarınız otomatik tamalanacaktır.
Neyse sonra arama olayına gelelimmm... bir adet edit koyun vee... arama butonuna
şunun gibi bir kod yazın}
sorgu.SQL.Text:='select * from Nufuslar where ['+UpperCase(ComboBox1.Text)+'] LIKE '+UpperCase(QuotedStr('%'+acEdit1.Text+'%'))+' ORDER BY '+UpperCase(ComboBox1.Text);
sorgu.Active:=true;
{Bu sayede Comboboxta seçmiş olduğunuz alan adına göre arama yapılır
burada acEdit e takılmayın o benim kullandığım edit componentinin farklı oluşudur
normal edit ile bir farkı yoktur burada kullanımında
ayrıca sonuçlar alfabetik olarak seçtiğiniz alana göre listelenir..
}