Delphi 语句块《LceMeaning》

ahcxz24202

于 2019-09-22 03:43:02 发布

阅读量64

点赞数

原文链接：http://www.cnblogs.com/LceMeaning/p/4812827.html

版权

//输入事件中将字母设置为大写
  if Key in ['a'..'z'] then
    begin
      Key := UpperCase(key)[1];
    end;

//DBGrid排序方法
procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  if (pos('▲', Column.Title.Caption)=0) and (pos('▼', Column.Title.Caption)=0)  then  //说明前面没有排过序
    begin
       qryQuery.Sort := Column.FieldName+ ' ASC';   //asc一定要大写
       Column.Title.Caption := column.Title.Caption + '▼' ;
    end
  else
    if (pos('▲', Column.Title.Caption)=0) then //说明目前是降序
      begin
        qryQuery.Sort := Column.FieldName+' ASC';    // ↑占用了1个位
        Column.Title.Caption := copy(Column.Title.Caption,1,length(Column.Title.Caption)-1) + '▲';
      end
    else
      if (pos('▼', Column.Title.Caption)=0) then  //说明目前是升序
        begin
         qryQuery.Sort := Column.FieldName+' DESC';
         Column.Title.Caption := copy(Column.Title.Caption,1,length(Column.Title.Caption)-1) + '▼';
        end;
{  if Column.Title.SortMarker = smdowneh then
  begin
    qryQuery.Sort:=Column.FieldName + ' DESC';
  end
  else
  begin
    qryQuery.Sort:=Column.FieldName +' ASC';
  end;   }
end;

转载于:https://www.cnblogs.com/LceMeaning/p/4812827.html