單擊 DBGrid 標題實現資料自動排序

2022-08-02 21:15:15 字數 1312 閱讀 6077

var i : integer;

begin

for i:= 1 to dbgrid1.columns.count do

begin

//恢復所有標題字型為預設

dbgrid1.columns[i-1].title.font.color := clwindowtext;

dbgrid1.columns[i-1].title.font.style := ;

end;

if adoquery1.sort<>(column.fieldname+' asc') then      //判斷原排序方式

begin

adoquery1.sort := column.fieldname+' asc';

column.title.font.color := clred;          //改變標題行字型為紅色,表示當前的排序方式為公升序

column.title.font.style := [fsbold];

endelse begin

adoquery1.sort := column.fieldname+' desc';

column.title.font.color := clblue;         //改變標題行字型為紅色,表示當前的排序方式為降序

column.title.font.style := [fsbold];

end;

end;

一、先在public

blorder:boolean;

二、procedure tdlgk3t_icitemform.dbgrid1titleclick(column: tcolumn);

begin

if adoquery1.state=dsbrowse then

begin

if blorder then

begin

adoquery1.sort := column.fieldname + ' asc';

dbgrid1.columns[column.field.fieldno-1].title.caption:=column.fieldname+ '△';

blorder:=false;

endelse

begin

adoquery1.sort := column.fieldname + ' desc';

blorder:=true;

dbgrid1.columns[column.field.fieldno-1].title.caption:=column.fieldname+ '▽';

end;

end;

end;

單擊dbgrid列標題排序 公升降序

delphi中如何通過單擊列標題進行公升降排序,在dbgrid的ontitleclick事件裡新增這樣的事件處理 3 if frmdatapool.qry需要做的事.sql.text.contains desc then 4 begin 5 with frmdatapool.qry需要做的事 do ...

DBGrid點選標題欄實現自動排序功能

通過adoquery控制項的sort屬性,配合dbgrid的ontitleclick事件,可以方便地實現此功能。sort屬性可以讓活動資料集按指定的字段進行排序,與sql語句order後面的寫法一樣 公升序asc 降序desc form1 adoconnection1 tadoconnection ...

Tensorflow實現MNIST資料自編碼 1

自編碼網路能夠自學習樣本特徵的網路,屬於無監督學習模型的網路,可以從無標註的資料中學習特徵,它可以給出比原始資料更好的特徵描述,具有較強的特徵學習能力。主要的網路結構就是高維特徵樣本 編碼成 低維特徵 解碼回 高維特徵,下面以mnist資料集為示例進行演示 import tensorflow as ...