Delphi 语句块《LceMeaning》

Love The Way You Lie 2021-12-17 02:25 226阅读 0赞

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

发表评论取消回复

表情：

评论列表（有 0 条评论，226人围观）

还没有评论，来说两句吧...

相关阅读

相关 java中static{}语句块详解

原文地址：http://blog.csdn.net/lubiaopan/article/details/4802430 感谢原作者！ static\{\}(即sta

旧城等待，/ 2022年09月26日 03:59/ 0 赞/ 158 阅读

相关 Delphi备忘录——基本语句

选择语句： 1.If…Then…Else选择语句： If (表达式) Then Begin

怼烎@/ 2022年09月19日 04:20/ 0 赞/ 152 阅读

相关 oracle 存储过程以及plsql语句块

1、 PLSQL语法 1.1、程序结构 PL/SQL程序都是以块（block）为基本单位。整个PL/SQL块分三部分：声明部分（用declare开头）、执行部分

分手后的思念是犯贱/ 2022年07月28日 09:44/ 0 赞/ 386 阅读

相关 java中static{}语句块详解

原文地址：http://blog.csdn.net/lubiaopan/article/details/4802430 感谢原作者！ static\{\}(即sta

悠悠/ 2022年03月26日 07:10/ 0 赞/ 234 阅读

相关 finally块中语句执行顺序问题

package com.question; / @author kankan @creater 2019-05-07 20:1

朱雀/ 2022年02月04日 13:29/ 0 赞/ 212 阅读

相关 JavaScript 语句、注释和代码块

[2019独角兽企业重金招聘Python工程师标准>>> ][2019_Python_] ![hot3.png][] [JavaScript 语句][JavaScript]

缺乏、安全感/ 2022年01月13日 23:55/ 0 赞/ 603 阅读

相关 Delphi 语句块《LceMeaning》

//输入事件中将字母设置为大写 if Key in ['a'..'z'] then begin Key := Upper

Love The Way You Lie/ 2021年12月17日 02:25/ 0 赞/ 227 阅读

相关 Delphi XE2 从Excel导入到数据库《LceMeaning》

以下代码经本人在Delphi XE2 下通过编译 uses Comobj; procedure EXCEL1Click(Sender:

╰半夏微凉°/ 2021年12月17日 02:23/ 0 赞/ 360 阅读

相关 Delphi 获取不重复随机数《LceMeaning》

uses ShareMem; type TArray = array of Integer;

川长思鸟来/ 2021年12月17日 02:23/ 0 赞/ 346 阅读

相关 JS--JavaScript语句（表达式语句、语句块、条件语句if、switch）详解

JavaScript语句语句就是JavaScript指令，通过这些指令可以执行特定任务，或者设计程序的逻辑结构。从功能上看，JavaScript语句可以分为声明语

柔情只为你懂/ 2021年08月13日 20:34/ 0 赞/ 756 阅读