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

نسخة كاملة : كيفه أقوم بجمع حقلين مختلفين في القيمه؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

هل من الممكن الجمع بين العمله والعدد الطبيعي

[صورة: Uuv4QO.jpg]

لقد قمت بالربط بين قاعده بيانات الأكسس والدلفي وكما هو مبين في الصوره فهناك حقول من نوع رقمي والأخرى عمله فأردت ضرب العمله في العدد الصحيح لإظهار المجموع كيف يتم ذلك

أم أجعل كل الحقول رقمي وفي الفورم في الدلفي أحولها على شكل عمله

هل هناك من طريقى مثلى لحل هذه المشكله كيف يثم كتابه الكود وماذا أفعل في الفورم :confused:

[صورة: M0yBHu.jpg]
نفرض أنا edit1 هو حقل المجموع
و dbEdit2 هو حقل الكميه رقمي في قاعده البيانات
وdbEDIT3 هو حقل السعر والمشكل أنه عملة كيف نقوم بالحساب بين العمله والرقم
او نقوم بتغييرها في قاعده البينات إلى رقم حتى هي!!

Edit1.Text := floattostr(strtofloat(DBEdit3.text) * strtoint(DBEdit2.Text)) ;


البرنامج يعمل ولا يقوم بالحساب في حقل المجموع من نوع TEDIT لماذا؟
واجهتني نفس المشكلة و لم أتوصل إلى حل مع العلم أنني أعلم بأن المشكلة تكمن في أن الصيغ لكل من الحقلين ليس لهما نفس النوع.
السلام عليكم...

بالطبع يمكن إجراء العمليات الحسابية (جمع و طرح و ضرب ... إلخ) بين القيم العددية ذات الأنواع المختلفة بصرف النظر عن نوعها (Integer, Real, Currency,...) و لا داعي لتغيير أنواع الحقول. مثلاً يمكنك ضرب الكمية (رقم حقيقي) بالسعر (عملة) للحصول على الإجمالي.

لا أدري ما المقصود بأن الكود لا يعمل: هل يعطي خطأ أم أنه لا يظهر ناتج في المربع Edit1 ؟ و أين يوجد هذا الكود (في أي حدث مثلاً) ؟

جرب أن تضع Break Point على هذا السطر ثم تفحص قيم DBEdit2 و DBEdit3 لتتأكد من أن الخاصية Text لهما تعطي القيمة التي تتوقعها.

سلام.
لقد وجدت المساعـده في منتدى آخر
وهو كتابه الكود في ADOTABLE وليس في كود textEDIT3 لتظهر النتيجه في السعر الإجمالي وهو textEDIT3