مشكل في المقارنة بين قيمة 2 dbedit لـ 2 table مختلفتين

مشكل في المقارنة بين قيمة 2 dbedit لـ 2 table مختلفتين - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكل في المقارنة بين قيمة 2 dbedit لـ 2 table مختلفتين (/showthread.php?tid=7078)

مشكل في المقارنة بين قيمة 2 dbedit لـ 2 table مختلفتين - coeur_blanc - 04-07-2015

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

كود :
if Table4.FieldByName('qte_stock').AsInteger >= Table3.FieldByName('qte_vente').AsInteger then
     begin

        ;Table3Num_vente.value:=Table1Numero_v.Value
        ;Table3Ref_prod.value:=fiche_liste_produit_vente.Table1Reference.Value
        ;Table3.Post
     end
  else
     begin
     ( 'ShowMessage('stock disponible insuffisant
       ; DBEdit11.SetFocus
    ; end

كود :
http://www.casimages.com/i/150704033949608777.png.html

مشكل في المقارنة بين قيمة 2 dbedit لـ 2 table مختلفتين - rahiche - 09-07-2015

يمكنك ان تعكس الشرط و تقول له اذا كان كمية المنتوج المراد بيعه اكثر من الكمية في المخزن اضهر رسالة

كود :
if Table3.FieldByName('qte_vente').value  >= Table4.FieldByName('qte_stock').value then
     begin
	 ( 'ShowMessage('stock disponible insuffisant
       ; DBEdit11.SetFocus     
     end
  else
     begin
        ;Table3Num_vente.value:=Table1Numero_v.Value
        ;Table3Ref_prod.value:=fiche_liste_produit_vente.Table1Reference.Value
        ;Table3.Post
    ; end

لو فهمت الترميز لاعطيتك اجابة افضل