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
{
Bu kodu bir Kimlik Bildirme programına ek yazarken kullanmam gerekmişti.
e Polis Çocuğu olunca ve az biraz da bu işlerden anlayınca muhakkak
sizden bir şeyler isteniyor :)}
ADOQuery1.SQL.Text:='select * from Konut where (DURUM like '+QuotedStr(Edit1.Text)+' or KONUT_TURU like '+QuotedStr(Edit1.Text)+' or SEMT_KOY like '+QuotedStr(Edit1.Text)+' or MAHALLE_MEVKI like '+QuotedStr(Edit1.Text)+' or CADDE_SOKAK like '+QuotedStr(Edit1.Text)+' or BINA_ADI like '+QuotedStr(Edit1.Text)+' or BINA_NO like '+QuotedStr(Edit1.Text)+' or DAIRE_NO like '+QuotedStr(Edit1.Text)+' or ISYERI_ADI like '+QuotedStr(Edit1.Text)+' or TELEFON like '+QuotedStr(Edit1.Text)+')'