Mega Code Archive
Dbgrid için guzel biseyler
<![CDATA[
db gridin onclick olayına;
var OrderF:String;
begin
if Query.findfield(Column.FieldName).fieldKind=fkCalculated then begin
ShowMessage('Hesaplamalı alan Sıralanamaz');
Exit;
end;
if LastOrderField=Column.FieldName then begin
OrderDesc:=not OrderDesc;
if OrderDesc then
OrderF:=LastOrderField+' DESC'
else
OrderF:=LastOrderField+' ASC';
end else begin
OrderDesc:=FALSE;
LastOrderField:=Column.FieldName;
OrderF:=LastOrderField+' ASC';
end;
Load(OrderF);
end;
form create olayına;
OrderDesc:=False;
LastOrderField:='';
private yaz;
OrderDesc:Boolean;
LastOrderField:String;
public kısmına
procedure Load(OrderField:String);
herhangi biyere;
procedure TForm1.Load(OrderField:String);
begin
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('SELECT * FROM COUNTRY');
if OrderField<>'' then begin
Query.SQL.Add('ORDER BY '+OrderField);
end;
Query.Open;
end;
yaptığı şey: dbgridin hangi title ına tıklarsanız o sütuna göre sort ediyo.kodları kendinize gore dizayn edin
]]>