كيف أقوم بإنقاص الكمية المباعة من الكمية المتواجدة في المخزن

[des4life]

اللسلام عليكم ورحمة الله وبركته

لدي جدول للمواد فيه معلومات عني المادة (اسم المادة ...ثمن....إلخ) و لدي جدول المبيعات...
مشكلتي هي أنني لم أعرف كيف أقوم بإنقاص الكمية المباعة من الكمية المتواجدة في المخزن بحيث يتم إدخال الكمية المباعة في edit1 ... أقوم بإسترجاعها و إنقاصها من الكمية المتواجدة في المخزن و أدخل هذه القيمة الجديدة في خانة الكمية في جدول المواد

استعمل ado + access

[h-farid]

و عليكم السلام و رحمة الله و بركاته

جرب مايلي :

كود :

TableArticles.Field[2].AsInteger:=TableArticles.Field[2].AsInteger - strtoint(Edit1.text);

و الله أعلم.

[King SofT]

وعليكم السلام ورحمة الله

عليك باستخدام الخاصية 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]

شكرا لكم بارك الله فيكم

الحل كان في اضافة ADOTable1.Edit;
الى الكود الذي انشئته

تم الحل