Source Code Export Database ke Excel dengan Delphi

Bagaimana cara export data database ke Format Microsoft Excel dengan mudah menggunakan bahasa pemrograman delphi? Tentu caranya sangan mudah sekali cukup dengan menambahkan beberapa baris kode delphi, dalam contoh kali ini saya menggunakan database yang sudah ada di delphi adapun file yang harus dibuat yaitu file export dan serta aksi untuk tombol export adapun tampilan program seperti dibawah ini

Berikut listing kode untuk uni file export :

-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files\borland\delphi7\Projects\Bpl"
-LN"c:\program files\borland\delphi7\Projects\Bpl"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

Berikut Listing kode untuk Tombol Export :

procedure TForm1.ExcelClick(Sender: TObject);
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 dbgrid1.FieldCount-1 do
 begin
   XlSheet.cells[2,i+1].value:=dbgrid1.columns[i].Title.Caption;
 end;
// transfer data ke excel
table1.First;
x:=1;
while not table1.Eof do
begin
 for i:=0 to dbgrid1.FieldCount-1 do
  begin
  XlSheet.cells[2+x,i+1].value:=dbgrid1.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;

PERHATIAN!
Untuk Download Anda akan diarahkan ke adf.ly kemudian tunggu 5 detik dan cari tombol SKIP AD yang berada di sebelah kanan atas monitor anda.

Download Via 4Shared

Download Source Code Export Data to Excell

Password :

Source Code Export Database ke Excel dengan Delphi 100%out of 100% based on 5 ratings. 5 user reviews.