+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أقوم بإنقاص الكمية المباعة من الكمية المتواجدة في المخزن (/showthread.php?tid=5477)
كيف أقوم بإنقاص الكمية المباعة من الكمية المتواجدة في المخزن - des4life - 20-08-2013
اللسلام عليكم ورحمة الله وبركته
لدي جدول للمواد فيه معلومات عني المادة (اسم المادة ...ثمن....إلخ) و لدي جدول المبيعات...
مشكلتي هي أنني لم أعرف كيف أقوم بإنقاص الكمية المباعة من الكمية المتواجدة في المخزن بحيث يتم إدخال الكمية المباعة في edit1 ... أقوم بإسترجاعها و إنقاصها من الكمية المتواجدة في المخزن و أدخل هذه القيمة الجديدة في خانة الكمية في جدول المواد
استعمل ado + access
كيف أقوم بإنقاص الكمية المباعة من الكمية المتواجدة في المخزن - h-farid - 20-08-2013
و عليكم السلام و رحمة الله و بركاته
جرب مايلي :
كود :
TableArticles.Field[2].AsInteger:=TableArticles.Field[2].AsInteger - strtoint(Edit1.text);و الله أعلم.
كيف أقوم بإنقاص الكمية المباعة من الكمية المتواجدة في المخزن - King SofT - 20-08-2013
وعليكم السلام ورحمة الله
عليك باستخدام الخاصية Locate للبحث عن اسم السلعة من المواد او المخزون ويقوم بانقاص الكمية المدخلة في المحرر
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
if ADOTable1.Locate('Nom',ComboBox1.Text,[]) then begin
ADOTable1.Edit;
ADOTable1Ctt.Value:=ADOTable1Ctt.Value-StrToInt(Edit1.Text);
ADOTable1.Post;
ADOTable2.Insert;
ADOTable2Nom.Value:=ComboBox1.Text;
ADOTable2Ctt.Value:=StrToInt(Edit1.Text);
ADOTable2.Post
end else
ShowMessage('non Existe Dans le Stock');
end;شاهد المثال المرفق
كيف أقوم بإنقاص الكمية المباعة من الكمية المتواجدة في المخزن - des4life - 20-08-2013
شكرا لكم بارك الله فيكم
الحل كان في اضافة ADOTable1.Edit;
الى الكود الذي انشئته
تم الحل