arkadaşlar ;
buncan önce acces kullanıyodum sorunsuz çalışıyodu ancak firebird e geçince biraz sorunlu oldu... tabloda yaklaşık 15.000 kayıt var...
bu şekilde 20 tane daha sql filtreleme kodu var yaş grubu olarak programdan bilgi alınıyor bu kodlar ilk seferinde sorunsuz çalışıyor ancak ikinci seferde çalışmıyor... kullanıcıyı bekletiyor ve öle kalıyor... bellek mi temizlememiz gerekli ? acaba bu sorunu nasıl düzeltebiliriz..(ilk rapor alındıktan sonra programın kullanadığı bellek miktarı 44.176)
Kod: Tümünü seç
dm.qanatb.close;
dm.qanatb.sql.text:='select* from anatb where yg=''1E'' and karar=''Muhtaç''';
dm.qanatb.sql.text:=dm.qanatb.sql.text + ' and kayittarihi<='''+DateToStr(bsSkinDateEdit2.Date)+'''';
dm.qanatb.Open;
dm.qanatb.FetchAll;
dm.qanatb.Last;
bsSkinEdit1.Text:=inttostr(dm.qanatb.RecNo);
dm.qanatb.Close;
dm.qanatb.sql.text:='select* from anatb where yg=''1K'' and karar=''Muhtaç''';
dm.qanatb.sql.text:=dm.qanatb.sql.text + ' and kayittarihi<='''+DateToStr(bsSkinDateEdit2.Date)+'''';
dm.qanatb.Open;
dm.qanatb.FetchAll;
dm.qanatb.Last;
bsSkinEdit2.Text:=inttostr(dm.qanatb.recno);
dm.qanatb.close;
dm.qanatb.sql.text:='select* from anatb where yg=''2E'' and karar=''Muhtaç''';
dm.qanatb.sql.text:=dm.qanatb.sql.text + ' and kayittarihi<='''+DateToStr(bsSkinDateEdit2.Date)+'''';
dm.qanatb.Open;
dm.qanatb.FetchAll;
dm.qanatb.Last;
bsSkinEdit3.Text:=inttostr(dm.qanatb.recno);
dm.qanatb.close;
dm.qanatb.sql.text:='select* from anatb where yg=''2K'' and karar=''Muhtaç''';
dm.qanatb.sql.text:=dm.qanatb.sql.text + ' and kayittarihi<='''+DateToStr(bsSkinDateEdit2.Date)+'''';
dm.qanatb.open;
dm.qanatb.FetchAll;
dm.qanatb.Last;
bsSkinEdit4.Text:=inttostr(dm.qanatb.recno);