Delphi Forum

arkadaşlar iyi geceler stokkartı oluşturmak istemiştim fakat biraz değişik olabilir sizin için

stokkarti vt
id------İnteger-------primery key
stokkodu-----varchar
stok adi ------varchar


stokbirim vt
id-----integer ------- primery key
stokid----integer
birim -----varchar
adet-----integer
barkod ...

İyi geceler arkadaşlar sql veri tabanı ile bir stok proğramı yazmak istedim lafı uzatmadan konuya geçeyim
https://hizliresim.com/KB2AMq

resimde de görüldüğü gibi son kayıt editmode olarak duruyor. ilkini kayıt yapıyor yalnız ikincisini kayıt yapmıyor ve dbgrid içindekini memoya alarak kayıt ...

tanerileri teşekkürler hatanın nereden kaynaklandığını buldum array kısımlarını tanımlarken birini eksik yazmışım gozumden kaçmış. şimdik dönüş yaptım. teşekkürler.

..........

procedure tanimla();
begin
data.DataModule1.ADOKonum.Active:=true;
data.DataModule1.ADOKonum.First;
konumsay:=1;
repeat
konumismi[konumsay]:=data.DataModule1.ADOKonum.Fields[1].AsString;
konumxy[konumsay,1]:=data.DataModule1.ADOKonum.Fields[2].AsInteger;
konumxy[konumsay,2]:=data.DataModule1 ...

ekran görüntüsünü butona basınca alıyorum. yalnız döngü içinde 10 sn sonra almak istediğimde aşağıdaki hata ortaya çıkıyor. bu konuda bana yol gösterecek bir arkadaşım varmı. Şimdiden bilgileriniz altın olsun.