Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Cursor crSQLWait takılı kalması
#1
Merhaba; Kodlamada hata yok sanırım; SearchBox.Text edit aranan ürünün adı yazılınca listview de listeleniyor, fakat mouse'u oynatana kadar mouse crSQLWait gösteriyor sanki Search işlemi devam ediyormuş gibi bu neden olabilir?

procedure TForm2.SearchBoxChangeTracking(Sender: TObject);
begin
  With Form1, FDQuery, Listv do
  begin
    Connection := MainConnect;
    Close;
    SQL.Clear;
    SQL.Add('Select * From URUNLER');
    SQL.Add('WHERE BARKOD LIKE ' + QuotedStr('%' + SearchBox.Text + '%'));
    SQL.Add('Limit 0,100');
    Prepared := True;
    Open;
    BeginUpdate;
    try
      Items.Clear;
      while Not Eof do
      begin
        LItem := Items.Add;
        LItem.Data['Text1'] := FieldByName('URUN').AsString;
        LItem.Data['Text2'] := FieldByName('BARKOD').AsString;
        LItem.Data['Text3'] := FieldByName('SATIS').AsString;
        LItem.Data['Text4'] := FieldByName('MODEL').AsString;
        LItem.Data['Text5'] := FieldByName('ADET').AsString;
        Next;
      end;
    finally
      EndUpdate;
    end;
  end;
  Cursor := crDefault;
  Form1.FDQuery.Close;
end;
Cevapla
#2
Cursor durumunu crDefault'a çeviren bir prosedür yazın. Bu prosedürü arama işleminizin bittiğini bildiğiniz bir yerde tetikleyin, sorun çözülmüş olacaktır.
{ talk is cheap show me the code. }
Cevapla

Konuyu Paylaş : facebook gplus twitter





Konuyu Okuyanlar: 1 Ziyaretçi