Anasayfa > Kodlar > Delphi ile Harf harf aramak

Delphi ile Harf harf aramak

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 key press olayına kodu yazın

procedure TfrmKayit.Edit1KeyPress(Sender: TObject; var Key: Char);
var
sql1,sql2: string;
begin
if key = #8 then s := copy(s,1,length(s)-1)
else
s := s + key;
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;

* ben veritabanı araması olan her programımda bu kodu kullanmaya çalışıyorum.İyi çalışmalar!!!
Zekeriya Koç

zekeriya@linuxmail.org


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: