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

السلام عليكم
أريد ان أضع في خانة PAIE مبلغ محدد مثلا 96، إذا كان المبلغ أكبر من 93.8
يتم وضع 93.8 في السطر الأول
و 2.2 في السطر الثاني وهكذا حتى ينتهي المبلغ ...
للإشارة فإني أستعمل قاعدة بيانات SQL SERVER
[صورة: p_1223moktf1.png]

وشكرا

وعليكم السلام ورحمة الله وبركاته
عذرا لكن ما علاقة هذا بدلفي ؟

(09-05-2019, 01:08 PM)B.M.AbdelAziZ كتب : [ -> ]
وعليكم السلام ورحمة الله وبركاته
عذرا لكن ما علاقة هذا بدلفي ؟

أستعمل delphi xe7

كود :
if StrToFloat(RZCREDIT.Text) > StrToFloat(MTFACTURE.Text) THEN
    BEGIN
     with Qry.sql do
         begin
           Qry.SQL.Clear;
           Qry.SQL.Add
             ('INSERT INTO C_005_VNTCLTS ( CODE_VENTE_005, DATE_REG_005,  MTREG_005,' +
              '  ETAT_005, CODE_AUTO_005, CODE_CLT_005)'
            + ' values(:1,:2,:3,:4,:5,:6)');
           Qry.ParamByName('1').Value := RzCODEVNT.Text;
           QRY.ParamByName('2').Value := dtpRZDATEREG.DateTime;
         ;( Qry.ParamByName('3').Value := StrToFloat(MTFACTURE.Text);
           Qry.ParamByName('4').Value := 'F';
           Qry.ParamByName('5').Value := RzCODEVNT.Text;
           Qry.ParamByName('6').Value := RzCodeClt.Text;
           Qry.ExecSQL;
     end;
           QVNT.Next; 
          QVNT.REFRESH;  
 END;

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

YUSSRI

محمد عبد العزيز

YUSSRI