![]() |
|
|
#1 (permalink) |
|
*BUNALIMLARIN ADMİNİ*
![]() |
harf harf arama
________________________________________ programların help lerindeki gibi her harfe basışınızda olasılıkları elyerek listeyi küçülten bir kod oldukça kullanışlı forma bir edit ile bir dbgrid koyun.gerekli data bağlantılarını yapın.edit in on aaa press olayına kodu yazın procedure TfrmKayit.Edit1aaaPress(Sender: TObject; var aaa: Char); var sql1 sql2: string;begin if aaa = #8 then s := copy(s 1 length(s)-1)else s := s + aaa; sql1 := 'select * from T082003'; sql2 := 'where Firma like "%' + s + '%"'; query1.Close; query1.SQL.Clear; query1.SQL.Add(sql1); query1.SQL.Add(sql2); datasource1.DataSet := query1; query1.Open; end; * s değişkeni public tanımlanmıştır. * tam çalışması için onenter olayına da su kodu yazın edit2.Clear; s := "; s := edit1.Text; sql1 := 'select * from T082003'; sql2 := 'where Firma like "%' + s + '%"'; query1.Active := false; query1.SQL.Clear; query1.SQL.Add(sql1); query1.SQL.Add(sql2); datasource1.DataSet := query1; query1.Active := true; |
|
|
|
![]() |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
| Stil | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | UslanmaM | Cevaplar | Son Mesaj |
| üç harf... | The SeCReT | UslanmaM Oyunları | 881 | 04-08-2008 09:00 AM |
| Aşk 29 harf | öZNe | Sevgini Haykır | 0 | 11-03-2007 10:12 PM |
| Git Harf Harf Tümcemden/// | iyra | Sevgini Haykır | 1 | 10-20-2007 04:24 PM |