+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=213)
+--- قسم : قسم اسئلة Delphi (http://vb4arb.com/vb/forumdisplay.php?fid=215)
+--- الموضوع : هل من الممكن مزامنة البروغراس بار مع تحميل البيانات (/showthread.php?tid=29933)
هل من الممكن مزامنة البروغراس بار مع تحميل البيانات - asemshahen5 - 20-06-19
هل من الممكن مزامنة البروغراس بار مع تحميل البيانات من جدول او ملف نوت باد .
و أيضا هل من الممكن مزامنة البروغراس بار عند تنفيذ استعلام انشاء قاعدة بيانات و عدة جداول و عدة فيو .
و مشكور مقدما .
RE: هل من الممكن مزامنة البروغراس بار مع تحميل البيانات - viv - 20-06-19
في تحميل البيانات من ملف نصي يمكنك ذلك من خلال عد عدد السطور مثلا
وطبعا انت سوف تقراءها سطر بسطر ولذلك لا مشكلة في استخدام البروغراس بار
اما بخصوص البيانات عن نفسي لم استخدمها
واذا تلاحظ حتى الشركات تستخدم بروغرس بار لا نهائي يظهر اثناء التحميل ويختفي بعد الانتهاء من التحميل
على العموم الامر متروك لك وحلك هنا جربه لانني لم اجربه
كود :
procedure TForm1.FormClick(Sender: TObject);
begin
ADOQuery1.ExecuteOptions := [eoAsyncFetch];
ADOQuery1.Open;
end;
procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
if (ProgressBar1.Max <> MaxProgress) then
ProgressBar1.Max := MaxProgress;
ProgressBar1.Position := Progress;
Application.ProcessMessages;
end;
end.رابط الموضوع
كود :
http://www.delphipages.com/forum/showthread.php?t=114677موضوع اخر
كود :
https://stackoverflow.com/questions/40945131/display-a-progressbar-when-i-perform-a-queryعملية البحث عن الموضوع بالقوقل
https://www.google.com.ly/search?safe=strict&biw=1600&bih=753&ei=ipQLXfeDLcGWsAeXparICw&q=delphi+progresspar+with+dataset&oq=Delphi+Progresspar+with+data&gs_l=psy-ab.1.0.33i22i29i30.29117.59356..61617...0.0..0.516.5650.0j20j4j1j1j2......0....1..gws-wiz.......0i71j35i39j0i131j0j0i67j0i203j0i13j0i13i30j0i22i30j0i22i10i30j0i19j0i13i30i19j0i8i13i30.wN6tlCNzqP8