Web based Report dengan Delphi 7, Raudus, Zeos dan Quick Report Bag.3 (Implementasi)

Trik untuk membuat web based report (laporan berbasis web) dengan quick report adalah menyimpan report dalam bentuk file dengan format PDF lalu menampilkannya ke dalam web menggunakan framework raudus. Anda dapat mempelajari diagram flow trik ini pada artikel saya yang lalu. Untuk implementasi project web based report, sebaiknya Anda siapkan dulu amunisinya seperti artikel saya yang satu ini. Ohya, ada satu tambahan lagi yang perlu Anda siapkan, yakni konverter report ke file pdf menggunakan unit synPdf.pas. Unit ini dapat Anda download gratis di http://www.quickreport.co.uk/downloads/QR-synopse-pdf-files.rar. Jangan lupa menambahkan library path ini ke sistem Delphi. Jika belum tahu menambahkan library path, Anda dapat membaca artikel saya yang ini, kurang lebih caranya sama.

Buat sebuah project Raudus baru dan simpan dengan nama sesuai selera Anda. Ambil komponen-komponen pendukung berikut untuk membuat sebuah web online report sederhana

Atur peletakan komponen seperti pada gambar di bawah

Kemudian double click komponen RaExtButton1 dan isikan source code seperti di bawah

procedure TRaForm1.RaExtButton1Click(Sender: TObject);

var

    vpdf : TPdfDocumentGDI;

    pagemeta : TMetafile;

    p : integer;

    saatini:string;

    namafile:string;

begin

    vpdf := TPdfDocumentGDI.Create(true, 1252,false);

    vpdf.CompressionMethod := cmNone;

    QuickRep1.prepare;

    for p := 1 to QuickRep1.QRPrinter.PageCount do

    begin

      vpdf.AddPage;

      pagemeta := QuickRep1.QRPrinter.GetPage(p);

      vpdf.VCLCanvas.Draw(0,0,pagemeta);

    end;

    saatini:=FormatDateTime(‘ddmmyy-hhmmss’, now);

    namafile:= ‘report ‘+saatini+’.pdf’;

    vpdf.SaveToFile(‘c:\xampp\htdocs\download\’+namafile);

    vpdf.free;

    RaWwwPublisher1.FileURL := ‘http://localhost/download/’+namafile;

    Application.BrowserWindowOpen(RawwwPublisher1.URL);

end;

Jangan lupa tambahakan unit SynPdf.dcu di bawah reserved word ‘implementation’

implementation

uses SynPdf;

Tekan tombol F9 untuk running project, dan buka web browser (misal Google Chrome) dan ketikkan alamat web http://localhost:88, hingga muncul tampilan sebagai berikut

Tekan tombol ‘Quick Report Preview’ dan seharusnya akan muncul preview report dari tabel ‘tb_contoh’ di database ‘db_contoh’ sebagai berikut, di jendela browser yang baru (jika menggunakan IE atau Mozilla Firefox akan muncul di ‘new tab’, bukan ‘new window’).

Pada pojok kanan bawah terdapat beberapa tombol navigasi yang dapat Anda gunakan untuk scrolling, zooming, save maupun print. Selamat mencoba, untuk penjelasan program akan saya tulis pada artikel berikutnya. Ohya, jangan lupa tambahkan unit ‘Graphics’ di bawah klausa ‘Uses’ supaya tidak muncul error TMetaFile not found’.

Bersambung …

*biasakan menulis sumber referensi  jika Anda copas artikel ini untuk menghormati HAKI