Mega Code Archive

Sod - tabloda field seçerek özel arama oluşturma

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.. }