zoukankan      html  css  js  c++  java
  • Delphi 语句块《LceMeaning》

    //输入事件中将字母设置为大写
      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;
    

      

  • 相关阅读:
    如何安装mysql
    07 登录接口开发
    06 跨域问题
    05 实体校验
    04 异常处理
    03 整合shiro+jwt 会话共享
    02 统一结果封装
    01 新建SpringBoot项目 整合Mybatis Plus(Spring Boot 前后端分离)
    结合Scikit-learn介绍几种常用的特征选择方法
    Set_ML
  • 原文地址:https://www.cnblogs.com/LceMeaning/p/4812827.html
Copyright © 2011-2022 走看看