ورود

View Full Version : مبتدی: نمایش progress هنگام لود کردن دیتابیس


majid2230
پنج شنبه 30 اردیبهشت 1389, 22:14 عصر
سلام
می خواستم ببینم چه جوری میشه موقع لود شدن دیتا بیس اکسس (از ADOTable استفاده کردم) یه پروگرس نشون بدم . کسی ایده ای داره ؟
ممنون
حسین شهریاری
پنج شنبه 30 اردیبهشت 1389, 22:28 عصر
سلام

اگه منظورتون پوشش دادن زمان مکسی است که هنگام لود اطلاعات رخ دیده باید عرض کنم که وقتی سیستم در چنین حالتی قرار میگیره هیچ کاری انجام نمیشه مگه اینکه از برنامه نویسی نخ استفاده کرده باشید.
majid2230
جمعه 31 اردیبهشت 1389, 00:25 صبح
سلام
درسته منظورم همونه ، اگر از Thread استفاده کنم چه جوری می تونم یه چیزی مثل پروگرس نشون بدم
merced
جمعه 31 اردیبهشت 1389, 09:07 صبح
البته روش دیگری هست .
هر کدوم از کامپوننت های Dataset مجموعه ADO یه پراپرتی دارند ExcuteOption که می شه اون رو تنظیم کنی برای اینکه هنگام باز شدن دیتاست برنامه مکثی نداشته باشه. توی رویداد OnFetchProgress و OnFetchComplete هم می تونی در حین لود شدن کارهایی انجام بدی


procedure TForm1.qryCustomersFetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
Form1.Caption := 'Percent complete: ' +
IntToStr(Trunc(Progress / MaxProgress * 100)) + '%';
Application.ProcessMessages;
end;
حسین شهریاری
جمعه 31 اردیبهشت 1389, 10:56 صبح
سلام

روش جناب merced را بنده هم تایید میکنم!!
majid2230
جمعه 31 اردیبهشت 1389, 12:08 عصر
سلام
ممنون از راهنماییتون ولی من این رو امتحان کرده بودم ولی هنگام لود شدن اطلاعات اصلا این رویداد فرا خوانی نمیشه اگه یه راهنمایی بکنید ممنون میشم .
majid2230
شنبه 01 خرداد 1389, 09:44 صبح
کسی نمی دونه دلیلش چیه ؟