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?
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;
kolay gelsin.
Not:Yukarıdaki kodlar göz kararı yazıldı test edilmedi.
Şaban Şahin AKMAN
_________________ Derin olan kuyu değil kısa olan iptir. - .
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;
