Dear All Master Delphi Dear All, misal di reportnya excelnya bentuknya gini man Nama----------Alamat---------Kode_Obat-------Desc------------------Harga----------Total Anis------------Jl Repuki------ 024523----------Parasetamol--------20000 ----------------------------------024215----------Hopper--------------30000----------50000 Andi------------Jl Repali------ 024523----------Parasetamol--------20000 ----------------------------------024215----------Hopper--------------30000----------50000 Ada yang bisa bantu gak cara buat excel report nya Databasenya isinya Tabel Customer Nama Alamat Invoice no Bayar Date Invoice Invoice No Kode_Obat Description Harga Tolong bantuin yah deadline nih

Sebagai Referensi saya menggunakan Komponen scExcelReport dari http://www.scip.be dgn database MS SQL Server Bantuin Yah

pake komp. TMS langsug bisa export ke exel....

...menambahkan.... Load data ke ADVStringgrid (klo pake TMS), lalau Export ke Excel

bisa juga pake BvComp ( Bvsoft ) disana sudah disiapkan properti "save to file". ( klik kanan gridnya ----> save to file (excel,word,text,dll) ) cuman sayangnya hanya untuk delphi 5 dan 6, saya belum mendapatkan untuk delphi 7.

Tapi yang saya bingungkan adalah membuat excel Report Group yang betuk reportnya seperti yang diatas itu Gimana.soalnya biasanya hasil reportnya rata semua. jadi nama dan alamat keluar juga di bawahnya sehingga keluar dua kali gimana donk

saran : gunakan FastReport

Komponen scExcelReport kan tinggal pake. Buat Query yang sesuai kebutuhan. procedure TForm1.report_export; var FName : string; begin try FName:=ExtractFilePath(Application.ExeName)+'laporan.xls'; if FileExists(FName) then DeleteFile(FName); scExcelExport1_export.LoadDefaultProperties(); scExcelExport1_export.Dataset:=IBQuery1; //scExcelExport1_export.Filename:=FName; scExcelExport1_export.ConnectTo:=ctNewExcel; scExcelExport1_export.WorksheetName:='Sheet1'; scExcelExport1_export.ExportDataset; scExcelExport1_export.SaveAs(FName,ffXls); Finally scExcelExport1_export.Disconnect(); end; end;

Kalo mau pake group tambahkan di properti GroupFields. scExcelExport1_export.GroupFields.Clear; scExcelExport1_export.GroupFields.add('Invoice_No'); alternatif : Coba juga dengan memanfaatkan event : OnGetFieldValue. kalo nilainya masih sama, tindih nilai asli dengan string kosong ('') mestinya bisa, tp sy belum coba. hehe

Dear all saya sudah coba pake Group field tapi hasilnya adalah seperti ini scExcelExport1_export.GroupFields.Clear; scExcelExport1_export.GroupFields.add('Nama'); Anis -----------------Jl Repuki------ 024523----------Parasetamol--------20000 -----------------Jl Repuki-------024215----------Hopper--------------30000 Andi -----------------Jl Repali------ 024523----------Parasetamol--------20000 -----------------Jl Repali--------024215----------Hopper--------------30000 Gimana dong ...