delphi4arab منتديات دلفي للعرب

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

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

استعمل ado + access

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

جرب مايلي :

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

و الله أعلم.

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

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

شاهد المثال المرفق

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

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

تم الحل

des4life

h-farid

King SofT

des4life