Cara Sorting DBGrid Delphi Dengan Klik Title Column
Untuk melakukan sorting data pada tampilan DBGrid Delphi, anda dapat melakukannya dengan mudah. Langkah yang perlu anda lakukan yaitu sebagai berikut :
1. Pasang komponen data seperti biasa, DBGrid, ADOTable, dan DataSource pada form anda. Jika Anda ingin memakai ADOQuery juga tidak apa-apa untuk menggantikan ADOTable.
2. Klik DBGrid, pada object inspector pilih tab Event >> OnTitleClick lalu masukkan kode di bawah ini.
3. Jalankan program dan lihat hasilnya. Coba dengan melakukan klik salah satu title DBGridnya.procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var i:byte;
begin
with TDBGrid(Column.Grid) do begin
for I := 0 to Columns.Count - 1 do
begin
if Columns[I] = Column then
begin
ADOTable1.Sort:=dbgrid1.Columns[i].fieldname;
Columns[I].Title.Font.Style := Columns[I].Title.Font.Style + [fsBold];
end
else
Columns[I].Title.Font.Style := Columns[I].Title.Font.Style - [fsBold];
end;
end;
end;
EmoticonEmoticon