麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發設計 > 正文

一個很實用的Ehlib排序函數,適合ADO

2019-11-18 18:03:23
字體:
來源:轉載
供稿:網友
 

Ehlib3.0版本以上雖然支持排序功能,但不支持帶有Order By的SQL語句,而且排序很慢;我寫的這個排序函數,利用ADO的sort方法,排序很快,幾萬條數據也是很快。該函數支持Lookup字段排序,不支持計算字段排序,因為計算字段值在內存里高速運算。排序分為:升序、降序和默認三種,支持排序圖標。

PRocedure  SortDBGridEh(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
var
  FieldName, SortStr: string;
begin
  Screen.Cursor := crSQLWait;
  try
    if (Sender is TDBGridEh) and
      ((Sender as TDBGridEh).DataSource.DataSet <> nil) then
    begin
      if not ((Sender as TDBGridEh).DataSource.DataSet is TCustomADODataSet) then
        Exit;

      if not (Sender as TDBGridEh).DataSource.DataSet.Active then
        Exit;

      FieldName := Column.FieldName;
      if (Sender as TDBGridEh).DataSource.DataSet.FindField(FieldName).IsBlob then
        Exit;

      if (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).FieldKind =
        fkData then
        SortStr := FieldName
      else if (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).FieldKind =
        fkLookup then
        FieldName := (Sender as TDBGridEh).DataSource.DataSet.FieldByName(FieldName).KeyFields
      else
        FieldName := '';

      if (FieldName = '') or (Pos(';', FieldName) > 0) then
        Exit;
      case Column.Title.SortMarker of
        smNoneEh:
          begin
            Column.Title.SortMarker := smUpEh;
            TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort :=
              FieldName;

          end;
        smUpEh:
          begin
            Column.Title.SortMarker := smDownEh;
            TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort :=
              FieldName + ' DESC';
          end;
        smDownEh:
          begin
            Column.Title.SortMarker := smNoneEh;
            TCustomADODataSet((Sender as TDBGridEh).DataSource.DataSet).Sort := '';
          end;
      end;
    end;
  finally
    Screen.Cursor := crDefault;
  end;
end;

--程序實現如下:
--在DBGridEh的事件OnTitleBtnClick引用該函數即可:
procedure TFrmU_BasicSetup.dbgAddrCodeTitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
   SortDBGridEh(Sender, ACol, Column);
end;
--為了保證表格的每一列都能點擊觸發排序,你需要將你需要排序的列屬性
--  Title->TitleButton設置為True。


上一篇:DBGrid中用光標鍵控制Cell

下一篇:關于開發系統后門軟件的幾點思路

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板: 国产成人精品日本亚洲语音 | 黄色成人小视频 | 黄色片在线免费播放 | 国产精品国产成人国产三级 | 成人毛片100免费观看 | 久久露脸国语精品国产91 | 国产在线色 | 视频一区二区三区免费观看 | 国产精品午夜一区 | 国产一区二区视频网站 | 亚洲午夜精品视频 | 国产又白又嫩又紧又爽18p | 成年人黄色免费网站 | 精品国产一区二区三区久久久狼牙 | 欧美一级黄色录像片 | av电影在线免费 | 美女视频黄a视频免费全过程 | 51国产偷自视频区视频小蝌蚪 | 91成人午夜性a一级毛片 | 亚州综合| 激情视频在线播放 | 欧美日韩高清不卡 | gogo全球大胆高清人露出91 | 久色乳综合思思在线视频 | 国产美女爽到喷白浆的 | 伊人yinren22综合网色 | 成人福利视频 | 免费欧美一级视频 | 欧美18xxxx | 狠狠操天天射 | 国产亚洲精品久久午夜玫瑰园 | 奇米888一区二区三区 | 黄色a级片视频 | 欧美成人黄色 | 美国一级黄色毛片 | av免费大全 | 激情综合视频 | 国产亚洲精品成人 | 免费嗨片首页中文字幕 | 美女性感毛片 | jizzjizzjizzjizz国产 |