dbgrid titleclick, tıklandığı yere göre sıralama yaptırma
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
dbgrid titleclick, tıklandığı yere göre sıralama yaptırma
S.a.
Tam olarak nasıl sorucağımı bilmediğimden resmini çektim
Titleda tıklandığında A'dan Z'ye, Z'den A'ya gibi sıralama yaptırmak istiyorum. Jedi'nin dbgridinde titleclick olayı var ama hangi alana tıklandığı ve hangi sorgulamayı (AZ - ZA) yapacağının kontrolünü nasıl yapabiliriz?
Tam olarak nasıl sorucağımı bilmediğimden resmini çektim
Titleda tıklandığında A'dan Z'ye, Z'den A'ya gibi sıralama yaptırmak istiyorum. Jedi'nin dbgridinde titleclick olayı var ama hangi alana tıklandığı ve hangi sorgulamayı (AZ - ZA) yapacağının kontrolünü nasıl yapabiliriz?
- sabanakman
- Kıdemli Üye
- Mesajlar: 3077
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
ADO Bileşenleri ile normal grid içinde yapabilirsin.
Eğer ADO'nun DataSet bileşenlerini (TADOQuery,TADOTable vs.) kullandıysan bunu normal grid içinden de yapabilirsin.
kolay gelsin.
Not:Yukarıdaki kodlar göz kararı yazıldı test edilmedi.
Kod: Tümünü seç
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
const Desc=' DESC'; LenDesc=Length(Desc);
var DataSet:TDataSet;
begin
if Assigned(Column) and Assigned(Column.Field) and
Assigned(Column.Field.DataSet) then
begin
DataSet:=Column.Field.DataSet;
if DataSet is TCustomADODataSet then
with TCustomADODataSet(DataSet) do
begin
if SameText(Desc,Copy(Sort,Length(Sort)-LenDesc+1,MaxInt)) then
Sort:=Column.FieldName
else Sort:=Column.FieldName+Desc;
end;
end;
end;
Not:Yukarıdaki kodlar göz kararı yazıldı test edilmedi.
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
- sabanakman
- Kıdemli Üye
- Mesajlar: 3077
- Kayıt: 17 Nis 2006 08:11
- Konum: Ah bi Antalya olaydı keşke (Ankara)
Aslında tam olarak öyle değil.
Göz kararı dediğime bakmayın 5-6 kere düzenleme yaptmıştım!
Şaban Şahin AKMAN
_________________
Derin olan kuyu değil kısa olan iptir. - .
_________________
Derin olan kuyu değil kısa olan iptir. - .
db grid title a göre sıralama
Mrb Ben beceremedim.
Neyi düzeltmem lazım
Kod: Tümünü seç
procedure TSform.ACIKsipDBGridTitleClick(Column: TColumn);
const Desc=' DESC'; LenDesc=Length(Desc);
var DataSet:TDataSet;
begin
if Assigned(Column) and Assigned(Column.Field) and
Assigned(Column.Field.DataSet) then
begin
DataSet:=Column.Field.DataSet;
if DataSet is TCustomADODataSet then
with TCustomADODataSet(DataSet) do
begin
if SameText(Desc,Copy(Sort,Length(Sort)-LenDesc+1,MaxInt)) then
Sort:=Column.FieldName
else Sort:=Column.FieldName+Desc;
end;
end;
end;
Hocam birde bu başlıktaki makaleye bakınız. Umarım işinize yarar...
Kolay gelsin...
viewtopic.php?t=12403
Kolay gelsin...
viewtopic.php?t=12403
Var olmaya değer her şey bilinmeye de değerdir. Çünkü bilgi varlığın bir imgesidir. Onda iyi ve kötü aynı anda bulunmaktadır...