پردازش یک گزارش

[rahro]

سلام
من در فاکس پرو 2.6 بوسیله یک جدول پردازش که درصد پیشرفت کار را به کابر نمایش میداد زمان انتظار تهیه گزارش را به کاربر ابلاغ میکردم در ویژوال فاکس نتوانستم آیا کسی از دوستان این کار را انجام داده !؟؟ میشه کسانی که این کار را کرده اند بزرگواری کرده توضیح و یا برای استفاده دیگران در این مبحث برای دانلود بذارن.

[javad_hosseiny]

اگر منظورتان همون progressbar باشد (نمایش پیشرفت عملیات (کپی، حذف، جستجو و....) )
هم می تونید از ole ها مربوطه استفاده کنید (مثلا Microsoft Progresbar control ) و سپس به راحتی تغییر پارامترهایش )value برای مقدار نمایشش Max برای بالاترین مقدار و....) و یا بصورت کد آن را فراخوانی (مناسب برای جاهایی که فورم ندارید (مثلا فقط سورس کد خالی هست)


loTherm = NewObject("_thermometer","_therm","",' سیستم در حال جستجو' ) && create object
loTherm.Show()
* command or while or ...
*....
* contor : varaible for value( %) of progress bar
loTherm.Update(contor, ' :تعداد جواب') && for change value for show
*....
* end of scope or progress
loTherm.complete('اتمام عملیات')