Gönderen Konu: Sorgu Sırasında Cursor'ü Değiştirme ve İşlem Durumları (Okunma sayısı 1935 defa)

SelçuK · « : 30 Nisan 2008 15:14:41 »

Kod: (Unknown Language)

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

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Sorgu Sırasında Cursor'ü Değiştirme ve İşlem Durumları (Okunma sayısı 1935 defa)

SelçuK

Sorgu Sırasında Cursor'ü Değiştirme ve İşlem Durumları