Rabu, 25 Mei 2011

Komponent EKRTFD2010

Pernahkan temen-temen bikin laporan dalam word?? Mungkin yang pernah bikin report lewat FastReport ada fasilitas yang bisa digunakan langsung export ke Word tapi aq sendiri belum pernah coba.hehehehe.....!!! Maklum selama ini aq bikin laporan yang ke word g' pake FasrReport melainkan lewat komponent EKRTF. Disini saya akan berbagi component EKRTF tu, ini untuk DELPHI2010 Download untuk contoh penggunaan nya ada download disini oiy disini contoh nya pake Delphi 7 untuk yg versi Delphi2010 tunggu sebentar lag yach...!!

Export DbGrid Ke Excel

Hallo sobat blogger, sudah lama ga' posting maklum karena sibuk banyak kegiatan di luar.he5x. Sok sibuk, ok dech pada kesempatan kali ini saya akan coba sharing ilmu mengexport dbgrid ke excel, mngkn sudah banyak blog-blog yang membahas tentang export data atau membuat laporan kedalam bentuk excel. Ini contoh source nya :D
procedure exportExcel;
var
i, x: Integer;
sfile: string;
begin
// buka excel
XlApp := CreateOleObject('Excel.Application');
// tambahkan workbook
XlBook := XlApp.WorkBooks.Add;
// tambahkan worksheet
XlSheet := XlBook.worksheets.Add;
// cetak header field dari dbgrid
for i := 0 to DBgrid.FieldCount - 1 do
begin
XlSheet.cells[2, i + 1].value := DBgrid.columns[i].Title.Caption;
end;
// transfer data ke excel
Table1.First;
x := 1;
while not Table1.Eof do
begin
for i := 0 to DBgrid.FieldCount - 1 do
begin
XlSheet.cells[2 + x, i + 1].value := DBgrid.Fields[i].Text;
end;
Table1.Next;
inc(x);
end;
if MessageDlg('Apakah hasil export ditampilkan..?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
begin
MessageDlg('Hasil Ditampilkan', mtInformation, [mbOk], 0);
XlApp.visible := true;
end
else
// simpan ke file
begin
sfile := InputBox('Nama File', 'hasil export', 'c:\hasil.xls');
XlApp.ActiveWorkbook.SaveAs(sfile);
XlApp.visible := true;
end;
end;