المشاركات : 2
المواضيع 1
:
: 0
الإنتساب : May 2019
08-05-2019, 01:12 PM
(آخر تعديل لهذه المشاركة: 08-05-2019, 02:17 PM بواسطة محمد عبد العزيز.)
السلام عليكم
أريد ان أضع في خانة PAIE مبلغ محدد مثلا 96، إذا كان المبلغ أكبر من 93.8
يتم وضع 93.8 في السطر الأول
و 2.2 في السطر الثاني وهكذا حتى ينتهي المبلغ ...
للإشارة فإني أستعمل قاعدة بيانات SQL SERVER
وشكرا
المشاركات : 3,686
المواضيع 98
:
: 567
الإنتساب : Feb 2008
وعليكم السلام ورحمة الله وبركاته
عذرا لكن ما علاقة هذا بدلفي ؟
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
المشاركات : 2
المواضيع 1
:
: 0
الإنتساب : May 2019
09-05-2019, 04:18 PM
(آخر تعديل لهذه المشاركة: 09-05-2019, 05:02 PM بواسطة S.FATEH.)
(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 فقط في مجموعة من السطور