السلام علكيم ورحمة الله وبركاته
اريــد حساب مجموع edit1 و edit2 في edit3 دون اسخدام اي زر
اي بمجرد كتابة عدد في edit1 و edit2 يتم عرض النتيجة في edit3
طبعا لو تم كتابة رقم في edit1 ولم يكتب اي رقم في edit2 سيتم اكتساب edit2 على انها 0 :p
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;
لم يعمل العضو يـرجى فع الكود في المرفقات
عمل العود الحمد لله
الان انا اتعامل مع قاعدة بينات اريــد ان يتم احتساب
مجموع HT و TVA تم TTC كل هده الحقول نوعها عشري
اريــد بمجرد كتابة ht يتم احتساب tva و ايضا ttc ويتم التخزين في القاعدة علما اني استدعيت الحقول بسحب و الافلات فنتجت
dbedit1 و dbedit2 و dbedit3
وجزاك الله خيرااا
Table1 OnCalcFields
كود :
Table1TTC.Value := Table1HT.Value + Table1TVA.Value;
شكراا لك اخي
عموما نجح هدا الاستعلام
كود :
ADOTable1['TTC']:= ADOTable1['HT'] + ADOTable1['TVA'] ;
ADOTable1.Post;
لاكن اين اضعه حتى يشتغل مباشرتا لاني الان اشغله ب زر
FieldKnd of ADOTable1TTC must be fkCalculated
كود :
procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet);
begin
ADOTable1TTC.Value := ADOTable1TVA.Value + ADOTable1HT.Value;
end;
ferrero كتب :fieldknd of adotable1ttc must be fkcalculated
كود :
procedure tform1.adotable1calcfields(dataset: Tdataset);
begin
adotable1ttc.value := adotable1tva.value + adotable1ht.value;
end;
السلام علكيم ورحمة الله و بركاته اخي الكود يعمل ادا وضعته في زر اما بدون زر فهو لا يعمل
طيب اي شروط ادا كان محتوى هدا الحقل فارغ اعطيه قيمة صفر الكود الاول بدون قاعدة بينات يعمل
بشكل جيد اما هدا لا في انتظار التعديل
جزاك الله خيرااااا
med-01 كتب :السلام علكيم ورحمة الله و بركاته اخي الكود يعمل ادا وضعته في زر اما بدون زر فهو لا يعمل
طيب اي شروط ادا كان محتوى هدا الحقل فارغ اعطيه قيمة صفر الكود الاول بدون قاعدة بينات يعمل
بشكل جيد اما هدا لا في انتظار التعديل
جزاك الله خيرااااا
ربما تفيدك هذه الصورة
[
attachment=2722]