VERİ TABANI......(UFAK BİR YARDIM)

gamze_m · 2006-06-07T15:25:51.0000000+03:00

Arkadaşlar...veitabanında diyelimki ali adında bir den fazla kayıt olsun....... delpi de basit bir şekilde bu kayıtların sayısını bulan ve sayısını ekrana mesaj olarak veren program parçası . bu konuda kodu yazmanızı bekliyorum şimdiden teşekkür....

ethan hunt

Binbaşı

1094 Mesaj

Tüm Başarılarını Gör

ethan hunt

Binbaşı

1094 Mesaj

Tüm Başarılarını Gör

ISIS

Yüzbaşı

387 Mesaj

Tüm Başarılarını Gör

Veritabanının Paradox ya da dBase kökenli olduğunu varsaydım -
eğer bu ikisi de değilse, ODBC ile haberleştirebilirsin..
(tTable nesnesi ilgili veritabanını kullanabilir.)
Veritabanı bileşeninin adı Table1 olsun. (tTable nesnesi)
Aradığın bilgi tabloda "NickName" olsun (field name) .
Veritabanı bileşeninin Filtered özelliği ile sorgu yapabilirsin.

Filter içine "ali" olanlar yerine adı "ali" ile başlayanlar dersen :
Table1.Filter := 'NickName >='+''''+'ali'+'''' +' AND '+
'NickName <'+''''+'alizzzzzzzzzz'+'''';
Table1.Filtered:= true;
şeklinde minik bir numara çekebilirsin..

Eğer "ali" bilgisini formunda tanımladığın örn. edit1 alanından alacaksan :
Table1.Filter := 'NickName >='+''''+edit1.text+'''' +' AND '+
'NickName <'+''''+edit1.text + 'zzzzzzzzzz'+'''';
Table1.Filtered:= true;
olabilir..

Bunları bir button nesnesinin "onclick event"i içinde yazmalısın :
(edit1 içinde yazılı isim ile başlayanlar örn. "ali" => "ali, alican, aliye ...")

 
  procedure TForm1.SpeedButton1Click(Sender: TObject); 
  begin 
   
    Table1.Active := true; 
    DataSource1.Enabled := true; //bu nesne table1 ile bağlantılı olmalı 
      
     Table1.Filter := 'NickName >='+''''+edit1.text+'''' +' AND '+ 
                          'NickName <'+''''+edit1.text + 'zzzzzzzzzz'+'''';    
     Table1.Filtered:= true; 
   
     label1.Caption := 'Koşula uyan kayıt sayısı : ' + IntToStr(Table1.RecordCount); 
   
     //şimdi tabloyu eski haline getir : 
    Table1.Filtered:= false; 
   
  end;

Eğer yalnızca "ali" vb. olanların sayısı isteniyorsa
(.. ile başlayanlar yerine tam uyum => yalnızca örn. "ali" olanlar) :

 
  procedure TForm1.SpeedButton1Click(Sender: TObject); 
  begin 
   
    Table1.Active := true; 
    DataSource1.Enabled := true; //bu nesne table1 ile bağlantılı olmalı 
      
     Table1.Filter := 'NickName >='+''''+edit1.text+'''' ;    
     Table1.Filtered:= true; 
   
     label1.Caption := 'Koşula uyan kayıt sayısı : ' + IntToStr(Table1.RecordCount); 
   
     //şimdi tabloyu eski haline getir : 
    Table1.Filtered:= false; 
   
  end;

Burada büyük-küçük harf denetimi yapılmadı; belli bir standarda uyması gerekiyor..

ethan hunt

Binbaşı

1094 Mesaj

Tüm Başarılarını Gör

VERİ TABANI......(UFAK BİR YARDIM)

Benzer içerikler