حساب مجموع edit1 و edit2 في edit3

[Med-01]

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


اريــد حساب مجموع edit1 و edit2 في edit3 دون اسخدام اي زر

اي بمجرد كتابة عدد في edit1 و edit2 يتم عرض النتيجة في edit3

طبعا لو تم كتابة رقم في edit1 ولم يكتب اي رقم في edit2 سيتم اكتساب edit2 على انها 0 :p

[ferrero]

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;

[Med-01]

لم يعمل العضو يـرجى فع الكود في المرفقات

[Med-01]

عمل العود الحمد لله

الان انا اتعامل مع قاعدة بينات اريــد ان يتم احتساب

مجموع HT و TVA تم TTC كل هده الحقول نوعها عشري

اريــد بمجرد كتابة ht يتم احتساب tva و ايضا ttc ويتم التخزين في القاعدة علما اني استدعيت الحقول بسحب و الافلات فنتجت

dbedit1 و dbedit2 و dbedit3


وجزاك الله خيرااا

[ferrero]

Table1 OnCalcFields

كود :

Table1TTC.Value := Table1HT.Value + Table1TVA.Value;

[Med-01]

شكراا لك اخي

عموما نجح هدا الاستعلام

كود :

ADOTable1['TTC']:= ADOTable1['HT'] + ADOTable1['TVA'] ; ADOTable1.Post;

لاكن اين اضعه حتى يشتغل مباشرتا لاني الان اشغله ب زر

[ferrero]

FieldKnd of ADOTable1TTC must be fkCalculated

كود :

procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet); begin ADOTable1TTC.Value := ADOTable1TVA.Value + ADOTable1HT.Value; end;

[Med-01]

fieldknd of adotable1ttc must be fkcalculated

كود :

procedure tform1.adotable1calcfields(dataset: Tdataset); begin adotable1ttc.value := adotable1tva.value + adotable1ht.value; end;

السلام علكيم ورحمة الله و بركاته اخي الكود يعمل ادا وضعته في زر اما بدون زر فهو لا يعمل

طيب اي شروط ادا كان محتوى هدا الحقل فارغ اعطيه قيمة صفر الكود الاول بدون قاعدة بينات يعمل

بشكل جيد اما هدا لا في انتظار التعديل

جزاك الله خيرااااا

[ferrero]

السلام علكيم ورحمة الله و بركاته اخي الكود يعمل ادا وضعته في زر اما بدون زر فهو لا يعمل

طيب اي شروط ادا كان محتوى هدا الحقل فارغ اعطيه قيمة صفر الكود الاول بدون قاعدة بينات يعمل

بشكل جيد اما هدا لا في انتظار التعديل

جزاك الله خيرااااا

ربما تفيدك هذه الصورة

  ADOTable1CalcFields.jpg (الحجم : 124.82 ك ب / التحميلات : 58)

[Med-01]

سارفع لك الكود اخي