DBGRID标题排序上放↑
DBGRID标题排序上放↑
procedure TF_StockReport.FlatDBGrid1TitleClick(Column: TColumn);
var
TheTitleName:string;
begin
if DM.GoodsInfo.IsEmpty then Exit;
TheTitleName:=Column.Title.Caption;
if Pos('↑',TheTitleName)>0 then begin
DM.GoodsInfo.SQL.Clear;
DM.GoodsInfo.SQL.Add('Select * From 商品信息 Order By '+StringReplace(TheTitleName,'↑','',[rfReplaceAll]));
DM.GoodsInfo.Open;
Column.Title.Caption:=StringReplace(Column.Title.Caption,'↑','↓',[rfReplaceAll]);
end;
if Pos('↓',TheTitleName)>0 then begin
DM.GoodsInfo.SQL.Clear;
DM.GoodsInfo.SQL.Add('Select * From 商品信息 Order By '+StringReplace(TheTitleName,'↓','',[rfReplaceAll])+' DESC');
DM.GoodsInfo.Open;
Column.Title.Caption:=StringReplace(Column.Title.Caption,'↓','↑',[rfReplaceAll]);
end;
end;
------------------------------------------------------------------------------------