العمليات الحسابية في الجداول

السلام عليكم

أرجوا أن توضح لي بمثال بسيط وشكرا

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

السلام عليكم

أرجو أن يكون هذا الكود هو ما تبحث عنه بكل الأحوال هذه طريقة من الطرق التي قد يفيدك بها ذوي الخبرة

procedure TForm1.Button1Click(Sender: TObject);

var a,b : integer ;

c : real ;

begin

// إجراء إحتياطي في حال كانت إحدى القيم في الجدول فارغة

// تلافي تدخل خارجي

try

// أخذ قيمة السعر من الجدول

a := strtofloat(table1.FieldValues['price']) ;

// أخذ الكمية من الجدول

b := strtofloat(table1.FieldValues['pice']) ;

// حساب المبلغ

c := a * b ;

// إظهار المبلغ

edit1.Text := floattostr© ;

// حساب و إظهار المبلغ الإجمالي

edit2.Text := floattostr(c * 0.17) ;

except

on e : exception do

begin

a := 0 ; b := 0 ; c := 0 ;

end ;

end ;

end;

السلام عليك

بارك الله فيك وجزاك الله ألف ألف خيرا

أرجوا منك أن توضح لى أكواد

الحفظ

البحث

في حالة ما إذا كانت الطبيعة بالنقود هل أستعمل str

في الحفظ

وشكرا

فى حالة استعمال DBNavigator1 يمكن استعمال

*للحفظ

**للبحث يفضل أداة ADOQuery1

بالتوفيق

السلام عليكم

أخي الكريم بانسبة للحفظ برأيي أن تكون الأرقام int أو real لتلافي حدوث خطأ أثناء أجراء العمليات عليها

بالنسبة للبحث أنا أستخدم filter

table.filtered := false ;

table.filter := 'ColName like '''+edit1.text+'''' ;

table.first ;

table.filtered := true ;

أما الحفظ كما قال الأخ Swift

table.post ;

إن كان هذا ما تقصده بسؤوالك عن الحفظ

والسلام ختام

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

شكرا لكم على ردودكم القيمة والثمينة جزاكم الله ألف ألف خيرا