dbgrid kayıt sayısı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
dbgrid kayıt sayısı
dbgridde gösterdiğim kayıtların sayısını labelda nasıl gösterebilirim acaba.
Kod: Tümünü seç
Label1.caption := IntToStr(DBGrid1.DataSource.DataSet.RecordCount);
hbahadır abimin vermiş olduğu komutu arama yaptırdığım edit içerisine uyguladım ve çok güzel sonuç aldım burada büyük küçük harf duyarsız ve formun ismi kısmına istediğimiz yazıyı yazdırıp kayıt sayısınıda gösterte biliyoruz
procedure TForm7.Edit1Change(Sender: TObject);
VAR
A:STRING;
begin
A:=Edit1.Text;
IBQUERY1.SQL.CLEAR;
IBQUERY1.SQL.Add('select * FROM ADRES WHERE UPPER(ADSOYAD) CONTAINING UPPER('+#39+A+#39+')');
IBQUERY1.Active:=TRUE;
form7.caption :=' Ad soyada Göre Bulunan Kayıt Sayısı : '+ IntToStr(DBGrid1.DataSource.DataSet.RecordCount);
end;
procedure TForm7.Edit1Change(Sender: TObject);
VAR
A:STRING;
begin
A:=Edit1.Text;
IBQUERY1.SQL.CLEAR;
IBQUERY1.SQL.Add('select * FROM ADRES WHERE UPPER(ADSOYAD) CONTAINING UPPER('+#39+A+#39+')');
IBQUERY1.Active:=TRUE;
form7.caption :=' Ad soyada Göre Bulunan Kayıt Sayısı : '+ IntToStr(DBGrid1.DataSource.DataSet.RecordCount);
end;
Ülkemizin geleceği için Genç beyinlerin devamlı öğrenmesi ve uygulama yapması gereklidir Bu da önce ilgi sonra bilgi paylaşımıyla olur.