+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : حساب مجموع edit1 و edit2 في edit3 (/showthread.php?tid=5839)
الصفحات:
1
2
حساب مجموع edit1 و edit2 في edit3 - Med-01 - 06-01-2014
السلام علكيم ورحمة الله وبركاته
اريــد حساب مجموع edit1 و edit2 في edit3 دون اسخدام اي زر
اي بمجرد كتابة عدد في edit1 و edit2 يتم عرض النتيجة في edit3
طبعا لو تم كتابة رقم في edit1 ولم يكتب اي رقم في edit2 سيتم اكتساب edit2 على انها 0 :p
حساب مجموع edit1 و edit2 في edit3 - ferrero - 07-01-2014
Edit1 and Edit2 OnChange
كود :
var x,y : Integer;
begin
if Edit1.Text <> '' then
X:= StrToInt(Edit1.Text) else X := 0;
if Edit2.Text <> '' then
Y := StrToInt(Edit2.Text) else Y := 0;
Edit3.Text := IntToStr(x+y);
end;Edit1 and Edit2 OnKeyPress
كود :
if not(Key in [#8, '0' .. '9']) then
begin
Key := #0;
end;حساب مجموع edit1 و edit2 في edit3 - Med-01 - 07-01-2014
لم يعمل العضو يـرجى فع الكود في المرفقات
حساب مجموع edit1 و edit2 في edit3 - Med-01 - 07-01-2014
عمل العود الحمد لله
الان انا اتعامل مع قاعدة بينات اريــد ان يتم احتساب
مجموع HT و TVA تم TTC كل هده الحقول نوعها عشري
اريــد بمجرد كتابة ht يتم احتساب tva و ايضا ttc ويتم التخزين في القاعدة علما اني استدعيت الحقول بسحب و الافلات فنتجت
dbedit1 و dbedit2 و dbedit3
وجزاك الله خيرااا
حساب مجموع edit1 و edit2 في edit3 - ferrero - 07-01-2014
Table1 OnCalcFields
كود :
Table1TTC.Value := Table1HT.Value + Table1TVA.Value;حساب مجموع edit1 و edit2 في edit3 - Med-01 - 07-01-2014
شكراا لك اخي
عموما نجح هدا الاستعلام
كود :
ADOTable1['TTC']:= ADOTable1['HT'] + ADOTable1['TVA'] ;
ADOTable1.Post;لاكن اين اضعه حتى يشتغل مباشرتا لاني الان اشغله ب زر
حساب مجموع edit1 و edit2 في edit3 - ferrero - 07-01-2014
FieldKnd of ADOTable1TTC must be fkCalculated
كود :
procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet);
begin
ADOTable1TTC.Value := ADOTable1TVA.Value + ADOTable1HT.Value;
end;حساب مجموع edit1 و edit2 في edit3 - Med-01 - 07-01-2014
ferrero كتب :fieldknd of adotable1ttc must be fkcalculated
كود :procedure tform1.adotable1calcfields(dataset: Tdataset); begin adotable1ttc.value := adotable1tva.value + adotable1ht.value; end;
السلام علكيم ورحمة الله و بركاته اخي الكود يعمل ادا وضعته في زر اما بدون زر فهو لا يعمل
طيب اي شروط ادا كان محتوى هدا الحقل فارغ اعطيه قيمة صفر الكود الاول بدون قاعدة بينات يعمل
بشكل جيد اما هدا لا في انتظار التعديل
جزاك الله خيرااااا
حساب مجموع edit1 و edit2 في edit3 - ferrero - 07-01-2014
med-01 كتب :السلام علكيم ورحمة الله و بركاته اخي الكود يعمل ادا وضعته في زر اما بدون زر فهو لا يعمل
طيب اي شروط ادا كان محتوى هدا الحقل فارغ اعطيه قيمة صفر الكود الاول بدون قاعدة بينات يعمل
بشكل جيد اما هدا لا في انتظار التعديل
جزاك الله خيرااااا
ربما تفيدك هذه الصورة
ADOTable1CalcFields.jpg (الحجم : 124.82 ك ب / التحميلات : 58)
حساب مجموع edit1 و edit2 في edit3 - Med-01 - 07-01-2014
سارفع لك الكود اخي