Sutun Baslikllarina tiklayarak Alfabetik Siralama

[erdogan_ozkaya]

Arkadaşlar,

Aşağıdaki kodu titleclick için kullanıyorum ama form açıldığında edit2 deki ref. göre kayıtlar çıkıyor. Titleclick tıkladığımda ise tüm kayıtlar geliyor kodun neresinde hatayapıyorum acaba? edit2 de kullanmasını istiyorum

Teşekkürler

Kod: Tümünü seç

procedure TPersonel_Kayit.DBGrid1TitleClick(Column: TColumn);
 begin
  inherited;
  if OrderDir then
    veri.Master_Data.SQL.Text := 'select * from personel_bilgileri order by ' + Column.FieldName  + ' ASC'
    veri.Master_Data.SQL.Add(' AND (Firma = "' + edit2.text + '")');
  else
  veri.Master_Data.SQL.Text := 'select * from personel_bilgileri order by ' + Column.FieldName + ' DESC';
    veri.Master_Data.SQL.Add(' AND (Firma = "' + edit2.text + '")');
  OrderDir := not OrderDir;
  veri.Master_Data.Close;
  veri.Master_Data.Open; }
end;

[conari]

titleclickte
where kısıtı SQL cümlelerine eklenmiyor. Düzeltmeye çalıştım.

Kod: Tümünü seç

procedure TPersonel_Kayit.DBGrid1TitleClick(Column: TColumn);
begin
  inherited;
    veri.Master_Data.SQL.Text := 'select * from personel_bilgileri ' +  Column.FieldName '
    veri.Master_Data.SQL.Add(' where (Firma = "' + edit2.text + '")');
    veri.Master_Data.SQL.Add( order by ' + Column.FieldName +')
  if OrderDir then
veri.Master_Data.SQL.Add('ASC')
 else
veri.Master_Data.SQL.Add('DESC')
  OrderDir := not OrderDir;
  veri.Master_Data.Close;
  veri.Master_Data.Open; 
end;

[erdogan_ozkaya]

Hocam Cevabıniçin Teşekkür Ederim Aşağıda Çalışır Hali var Arayan Arkadaş Olabilir.

Kod: Tümünü seç

 
begin
  inherited;
    veri.Master_Data.SQL.Text := 'select * from personel_bilgileri ' + Column.FieldName;
    veri.Master_Data.SQL.Add(' where (Firma = "' + edit37.text + '")');
    veri.Master_Data.SQL.Add( 'order by ' + Column.FieldName);
  if OrderDir then
veri.Master_Data.SQL.Add('ASC')
else
  veri.Master_Data.SQL.Add('DESC');
  OrderDir := not OrderDir;
  veri.Master_Data.Close;
  veri.Master_Data.Open;
 StatusBar1.Panels[3].Text:='Listelenen Personel Sayısı : '+IntToStr(veri.Master_Data.RecordCount)

[erdogan_ozkaya]

Hocam, Yukarıdaki kodu kullanıyorum sorunyok fakat şöyle birşey çıktı pencerede bazı filtrelemeler yapıyorum örNeğin bay, bayan, veya doğum yeri gibi değişik filtrelemeler yapıyorum yukarıdaki kodu kullandığımda filtreleme siliniyor. filtreleme silinmeden yapamazmıyım ?

[conari]

Where altına onlarıda eklemelisiniz.

Kod: Tümünü seç

veri.Master_Data.SQL.Add(' where (Firma = "' + edit37.text + '")');
veri.Master_Data.SQL.Add(' and .........)

Jedide ki UltimGridin kendi özelliği var. tıklanan alana göre sıralıyor.

[KoPilot]

Jedide ki UltimGridin kendi özelliği var. tıklanan alana göre sıralıyor.

Hocam ben şu UltimGridin bahsettiğiniz özelliğini beceremedim küçük bir örnek verebilir misiniz?

[estemacan]

yanlış bilmiyorsam Object inspector de
titlebuttons =true
sortwidth=swWhere
yaptığımızda başlığa göre sıralıyor.