Export data hasil query ke excel di Delphi

Adakalanya kita membutuhkan laporan data dalam bentuk format file excel, yang mana laporan tersebut biasanya merupakan hasil dari sebuah query. Agar hal tersebut bisa kita lakukan, maka kita bisa menggunakan komponen tambahan yaitu ExcelExport yang dengan mudah kita bisa tambahkan ke component pallete dengan menginsallnya melalui menu Component >> Install Packages.

Langkah-langkahnya :
1. Tambahkan komponen scExcelExport pada form yang akan ada fasilitas untuk export ke excel
2. Tambahkan sebuah button untuk tombol export. Dan ketikkan code berikut, pada event onclick button tersebut.
(Misalkan kita akan mengeksport ke excel data beban mengajar dosen).

procedure Tflapbebanajar.BEksporClick(Sender: TObject);
begin
try
scExcelExport1.ExcelVisible:=True;
scExcelExport1.LoadDefaultProperties;
scExcelExport1.Dataset:=Qbebanajar; //nama komponen query
scExcelExport1.WorksheetName:=’Beban Mengajar Dosen’; //judul sheet
scExcelExport1.ConnectTo := ctNewExcel;

scExcelExport1.HeaderText.Text:= ‘BEBAN MENGAJAR DOSEN ‘;
scExcelExport1.HeaderText.Add(’FAKULTAS SAINS DAN TEKNOLOGI’);
scExcelExport1.BeginRowTitles:=5; //mulai baris data
scExcelExport1.ExportDataset;
finally
scExcelExport1.Disconnect;
end;
end;