+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استعلام المواد القريبة انتهاء الصلاحية في Paradox (/showthread.php?tid=7767)
استعلام المواد القريبة انتهاء الصلاحية في Paradox - townuser - 27-04-2016
السلام عليكم ورحمة الله وبركاته
ما الخطأ في هاته الكتابة
قاعدة البيانات بارادوكس
SELECT * FROM PRODUCTS
WHERE DATE_PROD < TODAY +6
ابحث عن تاريخ المواد القريبة انتهاء الصلاحية ولم اعرف كيف اكتب لبتعبيمة الصحيحة
RE: DATE IN PARADOX SQL - أبو معاذ - 27-04-2016
وعليكم السلام ورحمة الله وبركاته ،
لست أدري إذا كانت التعليمة TODAY معروفة في ال Paradox ؟
على كل حال ، لماذا لا تستعمل الباراميتر ؟
كود :
SELECT * FROM PRODUCTS
WHERE DATE_PROD < :MyDateوبعد ذلك تقوم بإمرار قيمة الباراميتر برمجيا
كود :
MyQuery.close;
MyQuery.ParamByName('MyDate').asDate := IncDay(Date, 6);
MyQuery.openRE: DATE IN PARADOX SQL - محمد عبد العزيز - 27-04-2016
إقتباس :لست أدري إذا كانت التعليمة TODAYغير معرفة... يمكن ايضا كتابة التاريخ مباشرة
كود :
Query1.close;
Query1.SQL.Clear;
Query1.SQL.add('SELECT * FROM PRODUCTS WHERE DATE_PROD < '+Quotedstr(DateToStr(Date+6)));
Query1.open;RE: DATE IN PARADOX SQL - ramiparadox - 02-05-2016
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
D1,D2: TDateTime;
diff: Integer; //الفرق
begin
Memo1.Lines.Clear;
ABSTable1.First;
repeat
if ABSTable1.Eof=false then
begin
D1 :=ABSTable1.FieldValues['Date_VEN']; //تاريخ انتهاء صلاحية المادة
D2 :=Date; // تاريخ اليوم
diff := trunc(D1) - trunc(D2); // trunc حساب الفرق باستعمال الدالة
IF D2>D1 THEN Memo1.Lines.Add(ABSTable1.FieldValues['Code_Pro']+' / '+'perime il y a'+ ' : '+ IntToStr(diff)+' '+'jour(s)' ) ;
IF D2<D1 THEN Memo1.Lines.Add(ABSTable1.FieldValues['Code_Pro']+' / '+'reste'+ ' : '+ IntToStr(diff)+' '+'jour(s)' ) ;
end ;
ABSTable1.Next;
until ABSTable1.Eof=true;
end;