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.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
Cevapla




Konuyu Okuyanlar: 1 Ziyaretçi