delphi4arab منتديات دلفي للعرب
طرح قيمة من قاعدة البيانات - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : طرح قيمة من قاعدة البيانات (/showthread.php?tid=5915)



طرح قيمة من قاعدة البيانات - مبرمج مبتدأ - 03-02-2014

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

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

حيث أنه لدي جدوليين يحتويان على سلعة و لما يقوم البائع بالبيع فإنه تطرح القيمة المباعة من السلعة الإجمالية.

استعملت الكود التالي:

كود :
abstable2.edit; abstable2.fieldvalues['kamiya'] := abstable2.fieldvalues['kamiya'] - strtofloat (edit2.text); abstable2.post;
و شكرا مسبقا



طرح قيمة من قاعدة البيانات - chehrour - 03-02-2014

المثال و المطلوب غير واضح


طرح قيمة من قاعدة البيانات - مبرمج مبتدأ - 04-02-2014

شكرا أخي على التدخل و لكن السؤال يقول:

لدي جدول يحتوي على سلعة مثلا: أقراص العدد20 و لما أبيع كمية مثلا 5 فلابد للكمية السلعة أن تتغير من 20 لتصبح 15.

استخدمت الكود أعلاه لكنه يضيف القيمة بجانب القيمة السابقة بمعني تصبح:
520 بدلا من 15.



طرح قيمة من قاعدة البيانات - makhlouf - 05-02-2014

وعليكم السلام و رحمة الله تعالى و بركاته:
أخي تأكد من نوع بيانات الحقل kamiya قد يكون نص type de donnée char
و لتفادي أي مشكل استعمل الخاصية
fieldbyname('').asfloat
مثال

abstable2.edit;
abstable2.fieldvalues['kamiya'] := abstable2.fieldbyname['kamiya'].asfloat
- strtofloat (edit2.text);
abstable2.post;
بالتوفيق


طرح قيمة من قاعدة البيانات - مبرمج مبتدأ - 05-02-2014

جزاك الله خيرا أخي makhlouf و ما هو الفرق بين AsString و AsFloat

علما أن الكزد الصحيح هو
كود :
form1.ABSTable1.FieldValues['kamiya'] := form1.ABSTable1.FieldByName('kamiya').Asfloat - form3.ABSTable1.FieldByName('kamiya').asfloat ;



طرح قيمة من قاعدة البيانات - makhlouf - 06-02-2014

مبرمج مبتدأ كتب :
جزاك الله خيرا أخي makhlouf و ما هو الفرق بين AsString و AsFloat

علما أن الكزد الصحيح هو
كود :
form1.ABSTable1.FieldValues['kamiya'] := form1.ABSTable1.FieldByName('kamiya').Asfloat - form3.ABSTable1.FieldByName('kamiya').asfloat ;

العفو يا أخي و الحمد لله ما دمت وجدت الحل أما الفرق بينهما فهو:
AsString : يعيد القيمة كحرف
AsFloat : يعبد القيمة كعدد حقيقي
بالتوفيق