Arşiv Anasayfa Delphi Makaleleri
Sayfalar: 1
Sorgu Sırasında Cursor'ü Değiştirme ve İşlem Durumları Gönderen: SelçuK Tarih: 30 April 2008 16:14:41
begin
Screen.Cursor := crSQLWait;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM table Where adr_no='''+Edit1.Text+'''');
try
try
ADOQuery1.Open;
except
on E: Exception do
raise Exception.CreateFmt('Tablo acilamadi. Hata mesaji: %s', [E.Message]);
end;
finally
Screen.Cursor := crDefault;
end;
end;

Belki 10 Kayıtlı bir Veritabanında Birşey ifade etmeyebilir ancak 10000 ve fazlası kaydın olduğu bir tabloda
kulanıcıya "Elleşme Program Bir işlem yapıyor az sabret birağız" demek için birebir bir yöntem.
Belki daha da görselleştirilebilir.
1-)İşlem durumu gauge gibi bir bileşenle %lik olarak gösterileiblir.
2-)Okunan kayıt sayısı/ Toplam Kayıt sayısı gibi
3-) Sorgunun tamamlanma süresi x sn dir gibi
Artık bunlarıda hocalarımızdan bekliyoruz Smile