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 ...