EasyDelphi Q&A

.تم الانتقال للموقع الجديد . وسيبقى الموقع القديم هذا متاح للقراءة فقط حتى الانتهاء من نقل كل الاسئلة إلى الموقع الجديد

يمكنك طرح الاسئلة والنقاشات في الموقع الجديد. الذهاب للموقع الجديد


0 تصويتات
54 مشاهدات

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

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,810 نقاط) | 54 مشاهدات

1 إجابة واحدة

+1 تصويت
أفضل إجابة

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

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

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

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

تم الرد عليه بواسطة (16,020 نقاط)
مختارة بواسطة

اسئلة متعلقة

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

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

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

497 سؤال
752 إجابة
1,417 تعليق
271 مستخدم