EasyDelphi Q&A
0 تصويتات
25 مشاهدات

احاول القيام بفلترة لجدول كالتالي 
 

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT [معطرات و أدوات التنضيف],[تاريخ نهاية الصلاحية],ph1, Date() as [تاريخ اليوم],  DATEDIFF("d",Date(),[تاريخ نهاية الصلاحية]) as [الأيام المتبقية] FROM t1  where DATEDIFF("d",Date(),[تاريخ نهاية الصلاحية])  = 2');
      ADOQuery1.Open

وبعد ذلك مباشرة اريد قراءة كل سطر في مكون   htmlpopup   كالتالي 

 

while Not ADOQuery1.Recordset.EOF do
begin
  ADOQuery1.Recordset.Movenext;
htmlpopup1.Text.Add('!!...هام تنبيه '+ #10#13 +': مــنــتج'+ #10#13 + ' ' + #10#13 + ADOQuery1.FieldByName('معطرات و أدوات التنضيف').AsString + #10#13 + '      '  + #10#13 +': الصلاحية نهاية تاريخ' + #10#13 +  '  ' + #10#13 +  ADOQuery1.FieldByName('تاريخ نهاية الصلاحية').AsString + #10#13 + ('أيام (03)  من أقل في صلاحيته ستنتهي'));
htmlpopup1.RollUp   ;

اريد الانتظار بين كل قراءة لقيمة في الجدول ل 15 ثانية قبل الانتقال للقيمة التي تلييها وهكذا الى اخر الجدول ثم اعادة ذلك مرة اخرى يعني loop 
حاولت استعمال مكون تايمر لكن لم اوفق هل من حل .

سُئل في تصنيف Delphi بواسطة (1,640 نقاط) | 25 مشاهدات

1 إجابة واحدة

+1 تصويت

ضع تايمر  Timer ضع فيه

if Not ADOQuery1.Recordset.EOF then
begin
  ADOQuery1.Recordset.Movenext;
end
else
	ADOQuery1.Recordset.First;
////// Show your info here

لكن يفضل سحب كامل السجل على مصفوفة، و عمل ذلك على المصفوفة إلى ان تنتهي، ثم بدل من First تقوم بطلب الاستعلام مرة اخرى و تعبئة المصفوفة

السبب انه تخفف فتح استعلام دائم و لا تشكل عبيء على قاعدة البيانات

تم الرد عليه بواسطة (15,110 نقاط)

اسئلة متعلقة

–2 تصويتات
3 إجابة
سُئل يونيو 9 في تصنيف Delphi بواسطة hidenpain (880 نقاط) | 29 مشاهدات
+3 تصويتات
2 إجابة
سُئل أغسطس 24، 2018 في تصنيف Delphi بواسطة Yamada Fakir (1,640 نقاط) | 73 مشاهدات
+2 تصويتات
1 إجابة
سُئل سبتمبر 11، 2018 في تصنيف vcl بواسطة Yamada Fakir (1,640 نقاط) | 40 مشاهدات
0 تصويتات
4 إجابة
+2 تصويتات
1 إجابة
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

396 سؤال
634 إجابة
1,130 تعليق
237 مستخدم