Datamodule icindeki Tableların Acılısını PROGRESS bara atma

[hedefbusiness]

Herkese kolay gelsin
Program on create oldugunda
Datamodule icndeki 100 e yakın tablo veritabanı yolunu okuyup aktif hale getiriliyoru

Açılıştaki bu Datamodulun tamamının on create süresini Progress Bara atmam için nasıl bi kod kullanmalıyım ??
Herkese tesekkurler

[Kuri_YJ]

Özetle şöyle olur

MaxValue diye bir property'si olmalı oraya Kaç tablo açılacaksa onu koymalısınız.

Sonra Her bir tabloyu active etmeden önce Progressbar'ın (Galiba position gibi bir propertysi vardı) onu 1 arttırmalısınız. Sonra da
Application.ProcessMessages ;
satırı ile Progressbarın ekranda çizilmesini sağlıyorsunuz.

İşte bu kadar.

Ancak şunu unutmayın. Her tablo Datamodule'de Active'i False olmalı ve siz bunu kod ile (her tabloyu) open etmelisiniz. Her open etmeden önce de yukarıda yazdıklarımı yapmalısınız.

Not : Program ileride açılışta kullanıcıyı çok bekletir. Bence uyguladığınız bu mantığı (yani Datamodule'deki her tabloyu open etmeyi) yeniden düşünün ve gözden geçirin. Aslında Her tabloyu kullandığınız zaman open edin ve işi bitince kapatın. Makinanın kaynaklarını tüketirsiniz ve ileride daha da yavaşlar !...