ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا

[مبرمج مبتدأ]

جزاك الله أخي الكريم عنتر ، تم حل المشكلة و لله الحمد و المنة

كود :

procedure TForm1.Button2Click(Sender: TObject); begin // نقل من جدول إلى جدول abstable2.First ; while not abstable2.Eof do begin abstable3.Append; abstable3.Insert; abstable3.FieldByName('ARTICLE').AsWideString := abstable2.FieldByName('ARTICLE').AsWideString; abstable3.FieldByName('prix_u').AsString := abstable2.FieldByName('prix_u').Asstring; abstable3.FieldByName('prix_g').AsString := abstable2.FieldByName('prix_g').Asstring; abstable3.FieldByName('qnt').AsString := abstable2.FieldByName('qnt').Asstring; abstable3.Post; // القيام بالعملية الحسابية لحذف المباع من المخزون abstable2.First; abstable1.Edit; abstable1.FieldValues['qnt']:=abstable1.FieldValues['qnt'] - abstable2.FieldValues['qnt']; abstable1.Post; abstable1.Next; // حذف السجلات من الجدول بعد إنتهاء الطلبية abstable2.Delete; end; exit; end;