Jvdbgrid in Sort özelliği nasıl kullanıyoruz..
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Jvdbgrid in Sort özelliği nasıl kullanıyoruz..
Jvdbgrid in Sort özelliği nasıl kullanıyoruz..
bu benim kullandığım şu şekilde çalışıyor. Grid Zquery1 e bağlı. sıralamaları istediğim gibi yapıyor. eğer query içindeki sorgu değişirse onda da hata çıkmamasını sağlıyor. (bitbtn1 içerisindeki kod arama sorgularını oluşturmak için hazırlandı)
procedure TForm1.PngBitBtn1Click(Sender: TObject);
begin
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('SELECT * FROM tablo1');
ZQuery1.Open;
end;
procedure TForm1.JvDBGrid1TitleClick(Column: TColumn);
var
artazal: string;
begin
JvDBGrid1.Tag:=0;
if JvDBGrid1.SortMarker=smUp then
artazal := 'ASC' else
artazal := 'DESC';
PngBitBtn1.Click;
ZQuery1.SQL.Add('order by '+Column.FieldName+' '+artazal);
ZQuery1.Open;
JvDBGrid1.SortedField:=Column.FieldName;
end;
procedure TForm1.PngBitBtn1Click(Sender: TObject);
begin
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('SELECT * FROM tablo1');
ZQuery1.Open;
end;
procedure TForm1.JvDBGrid1TitleClick(Column: TColumn);
var
artazal: string;
begin
JvDBGrid1.Tag:=0;
if JvDBGrid1.SortMarker=smUp then
artazal := 'ASC' else
artazal := 'DESC';
PngBitBtn1.Click;
ZQuery1.SQL.Add('order by '+Column.FieldName+' '+artazal);
ZQuery1.Open;
JvDBGrid1.SortedField:=Column.FieldName;
end;