+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية استعمالprogressbar1 مع الجداول (/showthread.php?tid=4728)
كيفية استعمالprogressbar1 مع الجداول - forzablida - 17-11-2012
السلام عليكم ورحمة االله وبركاته
منا طريقة وصل PROGRESS مع كل الجداول لقاعدة البيانات مع علم عندي طريقة لجدول واحد فقط
PHP كود :
ProgressBar1.Position := 0;
ProgressBar1.Min := 0;
ProgressBar1.Max := adoTABLE1.RecNo;
while NOT adoTABLE1.Eof do begin
progressBar1.Position := adoTABLE1.RecNo ;
ProgressBar1.Update;
adoTABLE1.Next ;
end;
كيفية استعمالprogressbar1 مع الجداول - Lam.Abdeldjalil - 17-11-2012
و عليكم السلام و رحمة الله وبركاته
أين تستعملها عند الفتح؟ عند تحريك المؤشر ؟
كيفية استعمالprogressbar1 مع الجداول - onexite - 17-11-2012
الخطا هنا
PHP كود :
:= adoTABLE1.RecNo ;
كيفية استعمالprogressbar1 مع الجداول - forzablida - 17-11-2012
أستعملها في الحدث oncreate
onexite كتب :حاول ب RecordCount;شكرا لك أخي العزيز و لكن ما الطريقة مع كل الجداول في لحظة واحدة
يعني عندي 6 جداول أستعملها مع progress واحدة
كيفية استعمالprogressbar1 مع الجداول - kachwahed - 17-11-2012
يمكنك كتابة إجراء Procedure
كود :
private
procedure ProgressTable(ADataSet: TDataSet);
end;
...
procedure TForm1.ProgressTable(ADataSet: TDataSet);
begin
ProgressBar1.Position := 0;
ProgressBar1.Min := 0;
ProgressBar1.Max := ADataSet.RecordCount;
Application.ProcessMessages;
with ADataSet do begin
DisableControls;
while not Eof do begin
ProgressBar1.Position := RecNo ;
ProgressBar1.Update;
Next;
end;
EnableControls;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ProgressTable(ADOTable1);
end;كيفية استعمالprogressbar1 مع الجداول - Lam.Abdeldjalil - 18-11-2012
السلام عليكم
هل تقوم بتحريك المؤشر من أول تسجيل إلى اللآخر ؟ ( ما هو عدد التسجيلات في كل جدول ؟ )
توجد طريقة أفضل (لكني لم أنجح في إستخدامها
) الإتصال بطريقة بالـ asynchronous يمكنك إستخدام الحدث OnFetchProgress لمعرفة الوضع الحالي للـ recordset أثناء تحميلها (الفتح)ملاحظة: لا تدعم كل قواعد البيانات طريقة asynchronous + حسبما قرأت هذه الطريقة فيها بعض العلل
كود :
https://forums.embarcadero.com/thread.jspa?messageID=369341كيفية استعمالprogressbar1 مع الجداول - kachwahed - 18-11-2012
بصراحة أنا ضد كل هذه الطرق
عمليات البحث في قواعد البيانات لا تأخذ وقت يتطلب عرض التقدم Progression
إذا لا تتم باستخدام حلقات، وإن تطلب ذلك فهناك خلل ما!