Table'a otomatik kayıt ekleme

[mpolat]

S.A. Arkadaşlar
bir Table'a otomatik olarak kayıt nasıl eklenir.Mesela taksitler.db tablosu var ve ben islemkayit.db tablosunun tutar alanını böldürüp taksitler tablosuna kayıt ettirmek istiyorum. taksitler tablosunun verilerini bir DBGrid üzerinde görüntülüyorum. Sorunun ifadesi biraz çetrefilli oldu heralde neyse kodlarımı da yazarsam belki daha kolay anlaşılabilir

procedure TfrmTaksitSecenek.BitBtn1Click(Sender: TObject);
var
i,tadet,ttutar:integer;
begin
frmMain.tblTaksit.Edit;
tadet:=StrToInt(edtTaksitSayisi.Text);//taksit sayısını okuyorum
ttutar:=frmMain.tblKayit.FieldByName('TUTAR').Value/tadet;//taksit tutarını buluyorum
for i:=1 to tadet-1 do
tblTaksit.Insert;//yaygara burada kopuyor işte tadet-1 tane kayıt oluşmuyor oluşuyorsa da DBGrid'de görünmüyor
tblTaksit.FieldByName('TAKSIT_TUTARI').Value:=ttutar;
tblTaksit.FieldByName('TAKSIT_ADI').Value:=IntToStr(i)+'.Taksit';
end;

[mussimsek]

A.S.

temel olarak yazdığınız kod yapısı doğru. Ben mantığı size anlatayım, takıldığınız başka hususlar olursa sorarsınız.

Kod: Tümünü seç

- taksit sayısını belirle
- taksit miktarlarını belirle
- for ile döngü kurup kayıtları ekle. Kayıt ekleme standart kayıt ekleme
    o Append;
    o FieldByName('..').... ile atamaları yap;
    o Post; ile kaydet. 

Bu kadar

EK NOT : 1. Kayıtları Append - atamalar - Post şeklinde yapman lazım. Post'u unutma.
2. for döngüsünde veya herhangi bir döngüde eğer birden fazla satır varsa bu satırları begin..end arasına alman lazım.

Tek satırlık for :

for i:=0 to Adet do
......

Birden fazla satırsa

for i:=0 to Adet do
begin
....
....
end;

Kolay gelsin.

[mpolat]

S.A.
İlginiz ve yardımlarınız için çok teşekkür ederim.
Duacınızım...