+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إدخال عدد في COLUMN SQL SERVER (/showthread.php?tid=10199)
إدخال عدد في COLUMN SQL SERVER - YUSSRI - 08-05-2019
السلام عليكم
أريد ان أضع في خانة PAIE مبلغ محدد مثلا 96، إذا كان المبلغ أكبر من 93.8
يتم وضع 93.8 في السطر الأول
و 2.2 في السطر الثاني وهكذا حتى ينتهي المبلغ ...
للإشارة فإني أستعمل قاعدة بيانات SQL SERVER
![[صورة: p_1223moktf1.png]](https://1.top4top.net/p_1223moktf1.png)
وشكرا
RE: إدخال عدد في COLUMN SQL SERVER - محمد عبد العزيز - 09-05-2019
وعليكم السلام ورحمة الله وبركاته
عذرا لكن ما علاقة هذا بدلفي ؟
RE: إدخال عدد في COLUMN SQL SERVER - YUSSRI - 09-05-2019
(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 فقط في مجموعة من السطور