sıralama yapabilen dbgrid

[FXERKAN]

merhaba

dbgridde herhangibir title kısmına tıkladıkça o title (fielda) göre bilgileri tekrar sıralayarak gösteren bir dbgrid var mı? (ki vardır)

yada ben böyle birşey nasıl yaparım

[mussimsek]

Merhaba,

evet var : DevExpress Quantum Grid : http://www.devexpress.com

Diğer türlü Query ile yapılabilir sanırım. Tıklanan kolona göre order by yapman lazım. Ama Quantum Grid kullandığım için hiç uğraşmadım.

Kolay gelsin.

[bgoktas]

Delphi ile birliktre gelen dbgrid ile de yapılabilir.

[husonet]

Arkadaşım bunu DBGrid Component'ine bir Query bağlaman şartıyla basit SQL cümlecikleri ile istediğin gibi sıralama yapabilirsin...

DBGrid'in TitleClick Eventine kodişlemen gerekir unutma !

Kod: Tümünü seç

With Query1 Do Begin 
SQL.Clear; 
SQL.Add('Select * From CariKart Order By CariUnvan'); 
Open; 
End; 

Şayet DBGrid'ine Tablo ile bağlantı kurduysan doğal olarak SQL kullanamazsın.

Kod: Tümünü seç

procedure TForm1.DBGrid1TitleClick(Column: TColumn); 
begin 
     (column.Field.DataSet as TTable).Sort := column.fieldname +' ASC'; 
end; 

ASC yerine DESC yazdığımız zaman sıralama tersine dönecektir. Table1.Sort := ''; dediğimiz zaman sıralamayı ilk haline çeviririz. Ayrıca aralarına virgül koyarak birden fazla alan için de sırlama yapabiliriz.
Table1.Sort := 'Unvan ASC, CariKod DESC' vb...
Alan isimleri arasında boşluk varsa örneğin 'Cari Kod' ozaman Column.Fieldname değerini köşeli parentez içine almalıyız örnek ['Cari Kod'] vb...


Kolay Gelsin...

[sako]

Ben şu şekilde denediğim zaman oluyor.

if column.FieldName='Adi' then begin
With Query1 Do Begin
SQL.Clear;
SQL.Add('Select * From sorusturmakisi Order By adi');
Open;
End;
end;

Order By adi yerine dbgridde seçili olan alana göre sıralama yapamazmıyız.

(column.Field.DataSet as TTable).Sort := column.fieldname +' ASC';
burada sort komutunda hata veriyor o nedenle öbürünü denedim.

kolay gelsin...

[husonet]

Kullandığınız Dataset nedir veritabanınız nedir bahsederseniz hatayı yakalama olayımız daha yüksek olur.

Kolay Gelsin...

[sako]

paradox.

[husonet]

Table obje si Sort Prporty sini deteklemiyormuş

[mussimsek]

Table'da sıralama yapmak için indeks kullanmak zorundasınız. Bu durumda her alanda sıralama yapmak mümkün değil çünki her alanı indekslemek akıllıca değil.

En uygunu Query kullanmak.

Kolay gelsin.

[sako]

Tamam Query kullandım.
With Query1 Do Begin
SQL.Clear;
SQL.Add('Select * From sorusturmakisi Order By adi');
Open;
End;
end;

bold yazılı alanda bi değişkin aktarıp istediğim alana göre sıralama yapamammı. Mesela hangi kolonu seçerse o kolonu oraya aktarmak gibi..

[mege]

Kod: Tümünü seç

SQL.Add('Select * From sorusturmakisi '); 
SQL.Add('Order By adi'); 

Kod: Tümünü seç

SQL.Add('Select * From sorusturmakisi '); 
if  .... then SQL.Add('Order By adi'); 
if  .... then SQL.Add('Order By soyadi'); 
if  .... then SQL.Add('Order By yas'); 

ek : valla bende bu şekilde kullanıyorum daha kısasını bilemicem

[sako]

Tamam bende o şekilde yaptım zaten ama belki daha kısadan bu işi yapan bi kod vardır uzaklarda diye sordum

teşekkürler..

[gkimirti]

Kod: Tümünü seç

SQL.Add('Select * From sorusturmakisi ');
SQL.Add('Order By '+column.FieldName);

bu sekilde olmaz mı?

[husonet]

Kaç çeşit yöntem çıktı yaw Gökmen hocam sizinki bayağı hoş gözüküyor.

Kolay Gelsin...

[sako]

[quote="gkimirti"]

Kod: Tümünü seç

SQL.Add('Select * From sorusturmakisi ');
SQL.Add('Order By '+column.FieldName);

Invalid use of keyword
token: BY
line:2

yukarıdaki hatayı veriyor bu seferde
yerlerini değiştiriyim diyorum bu seferde sıralama yapmıyor..