yaş bilgisini güncelleme

y.kulac · Mesaj gönderen **y.kulac** » 27 Nis 2007 02:26

s.a.

firebird 1.5 ile yaptığım bir projede kişilerin yaşını bir döngü ile güncellettiriyorum.

procedure TfrmIstatistik.BitBtn13Click(Sender: TObject);
var
TARIH,BUGUN:TDateTime;
    GUN1,AY1,YIL1,GUN2,AY2,YIL2:word;
    GUN,AY,YIL:integer;
begin
ibdataset1.Open;
ibdataset1.First;
ibdataset1.FetchAll;
progressbar1.Max:= ibdataset1.RecordCount;
label97.Caption:= 'Yaş güncelleme sırasında lütfen bekleyiniz. Bu işlem kayıt sayınıza bağlı olarak zaman alabilir.';
Screen.Cursor := crHourGlass;
while not ibdataset1.Eof do
begin
BUGUN:=Date;

    TARIH:=ibdataset1DOGUMTARIHI.Value;
    DecodeDate(BUGUN, YIL1, AY1, GUN1);
    DecodeDate(TARIH, YIL2, AY2, GUN2);
    YIL:=YIL1 - YIL2;
    AY:=AY1 - AY2;
    if AY<0 then
    begin
       AY:=AY+12;
         YIL:=YIL-1;
    end;
    GUN:=GUN1 - GUN2;
    if GUN<0 then
    begin
       GUN:=GUN+30;
         AY:=AY-1;
    end;
    if AY<0 then
    begin
       AY:=AY+12;
         YIL:=YIL-1;
    end;
    ibdataset1.Edit;
    ibdataset1YAS.Value:=YIL;
    ibdataset1.Post;
    application.ProcessMessages;
 ibdataset1.Next;
progressbar1.Position:= ibdataset1.RecNo;
end;
progressbar1.Max:= 0;
label97.Caption:= 'Yaş güncelleme işlemi bitti.';
Screen.Cursor := crDefault;
label179.Caption:= '';
end;

4000 tane kayıt var. yaş güncelleme butonuna basınca 4000 adet kayıt için yaş hesaplaması yaklaşık 5 dakika alıyor. ileride kayıt sayısı 30.000 gibi bir rakam olursa bu belkide yarım saatten fazla bir zaman alacak.

acaba yukarıdai kodlarda bir hata veya mantıksızlık var mı?.
bu süreyi en minumuma nasıl indirebilirim.
iyi çalışmalar.

Mesaj gönderen **mussimsek** » 27 Nis 2007 02:49

Merhaba,

Hata fetchall'da hocam, 4.000 kayıdın hepsini client'a çekiyorsun. Bir SP yap, DB tarafında hesaplasın.

Hesaba detaylı gözatmadım ama doğrulamasını yapınca sonuç istediğin gibiyse tamamdır : ) Yaş hesabı çok çetrefilli bir konu

Kolay gelsin.

Mesaj gönderen **aslangeri** » 27 Nis 2007 03:28

s.a.
yaşı calc alan olarak kullansanız nasıl olur.
geçen forumda geçmişti bu konu. aratırsanız ordan faydalanabilirsiniz.
kolay gelsin.

y.kulac · Mesaj gönderen **y.kulac** » 27 Nis 2007 03:33

mussimsek yazdı:Merhaba,

Hata fetchall'da hocam, 4.000 kayıdın hepsini client'a çekiyorsun. Bir SP yap, DB tarafında hesaplasın.

Hesaba detaylı gözatmadım ama doğrulamasını yapınca sonuç istediğin gibiyse tamamdır : ) Yaş hesabı çok çetrefilli bir konu

Kolay gelsin.

abi fetchall'ı bir kere yapıyorum. bunun sebebide
progressbar1.Max:= ibdataset1.RecordCount; için
döngü içinde fetchall yapmadım. hesap doğru. yani yaşı hesaplıyor.
sıkıntı bu işin zaman alması.

Hakan Can · Mesaj gönderen **Hakan Can** » 27 Nis 2007 03:49

Döngüden (while not eof) önce (mesela Open'dan sonra):

Kod: Tümünü seç

ibdataset1.DisableControls;

Döngüden sonra da:

Kod: Tümünü seç

ibdataset1.EnableControls;

diyerek tekrar test eder misin?

İyi çalışmalar.

Mesaj gönderen **mussimsek** » 27 Nis 2007 03:59

y.kulac yazdı:...
abi fetchall'ı bir kere yapıyorum. bunun sebebide
progressbar1.Max:= ibdataset1.RecordCount; için
döngü içinde fetchall yapmadım. hesap doğru. yani yaşı hesaplıyor.
sıkıntı bu işin zaman alması.

hocam yazım olarak bir yanlış yok zaten. Yöntem hatası var.

@aslangeri gibi ben de olsa calculated alan kullanırdım. firebird'te bu seçenek var.

Ama yönteminize devam etmek istiyorsanız da SP ile yapmanızda aşırı fayda var. Fahrettin abinin seminerlerini izlemekte fayda var.

Kolay gelsin.

Mesaj gönderen **hbahadir** » 27 Nis 2007 04:53

Kod: Tümünü seç

select count(*) from KUTUK

ile progress barın için kayıt adedini alabilirsin. Artı @mussimsek ile aynı fikirdeyim.

abi fetchall'ı bir kere yapıyorum. bunun sebebide
progressbar1.Max:= ibdataset1.RecordCount; için
döngü içinde fetchall yapmadım. hesap doğru. yani yaşı hesaplıyor.
sıkıntı bu işin zaman alması.

y.kulac · Mesaj gönderen **y.kulac** » 27 Nis 2007 07:12

Kod: Tümünü seç

ibquery1.Close;
ibquery1.SQL.Clear;
ibquery1.SQL.Add('select count(*) from BILGILER');
ibquery1.Open;
progressbar1.Max:= ibquery1.RecordCount;

hocam bu şekilde 4000 adet kayıt olan bir tablodan dönen toplam kişi sayısı =1 kişi

Kod: Tümünü seç

ibquery1.SQL.Add('select count(*) from BILGILER');

bu şekilde tam kişi sayısını vermediği gibi 1 gibi komik bir değer dönüyor.

Mesaj gönderen **hbahadir** » 27 Nis 2007 08:55

şöyle yapabilirsin.

Progressbar1.max := ibquery1.Fields[0].AsInteger;

ek olarak formda count kullanımı üzerine arama yapsaydın bir sürü sonuç dönerdi.

Hakan Can · Mesaj gönderen **Hakan Can** » 28 Nis 2007 12:09

Fazla kafanı karıştırma istersen.

Fetchall, SQL vs. ilerde öğrenirsin.

Şimdiki sorunun bunlarla ilgili değil. Zira 4000 kaydı Fetchall yapmak 1-2 saniye sürmez. Sorunun döngüde, her kayıt sonrası ekranın update edilmesi ile ilgili.

Yoksa değil 4000 kayıt 4 milyon kaydın Fetchall işlemi 5 dakika sürmez.

Sen DisableControls ve EnableControls'ü önce dene. Eğer düzelmezse (ki büyük bir ihtimalle 5 dakikadan 3-5 saniyeye inecek) kullandığın datasetin eventlerine bakmak gerekecek.

İyi çalışmalar.

Mesaj gönderen **mussimsek** » 28 Nis 2007 01:18

Aslında SP yapsan progressbar'a da gerek kalmayacak

Lost Soul · Mesaj gönderen **Lost Soul** » 28 Nis 2007 04:14

bence sorunun

Kod: Tümünü seç

ibdataset1YAS.Value:=YIL;

1. kayıta tablodan erişmek yerine ibdataset1YAS isminde TField tipinde bir değişken ile erişmişsin.
2. ibdataset1YAS.Value:=YIL; diyerek Asinteger yerine Variant değişken kullanmış oldun. Bu da her seferinde değişken tipine delphinin kendisinin kara vemesi demek

Ayrıca yılı hesplamak için o kadar hesap kitaba gerek yoktu.
zira delphide tarih ve saat aslında kayannoktalı sayının virgülden öncesi ve virgülden sonrasından başkası değil

yani
Trunc(DateTime);
ile noktadan önceki kısmını (Tdate) yani günsaysını

Frac(AValue); ile de noktadan sonraki kısmını (ttime) yani milisaniyeleri alabilirsin

dolayısı ile

Kod: Tümünü seç

yas:=(trunc(now) -trunc(dogumtarihi)) div 365

yeterli.

bir diğer nokta ise
progressbar kullanmak istiyorsan

Kod: Tümünü seç

TDataset.Last;

dedikten sonra

Kod: Tümünü seç

PRogressbar1.max:=TDataset.recordcount

ve

Kod: Tümünü seç

progressbar1.postition:=tdataset.recno;
application.proceesmessages;

işlemin başında ve sonunda enablecontrols ve disablcontrols demeyi ihmal etme

ayrıca
gerek programda gerekse veritabanında beforeinsert,afterinser,beforepost,afterpost olaylarında kod olmadığından emin ol.

son olarak bunlar bi tarafa

Kod: Tümünü seç

yas:=(trunc(now) -trunc(dogumtarihi)) div 365

benzeri bir fonksiyon SQL içinde mutlaka vardır. Gecenin 4 ü olduğ için o kadarını söyleyecek kadar kafam iyi değil

bu kodu bulup firebirdin kendi içinden tek satırda 1 saniyenin çok küçük bir parçası kadar bir süre içinde 4000 değil 40000 tane kaydı değiştirebilirsin.

Aklımagelenler şimdilik bunlar
Dediğim gibi gecenin 4 ünde yazıyorum. Bazen ekranı görmmekte güçlük çekiyorum

:D