Official StoreTekan tombol di atas untuk membeli semua alat dan bahan eksperimen di web ini

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

Komponen Tab Component Pallete Properties Nilai
RaExtWindow1 Raudus Ext
RaExtButton1 Raudus Ext Text Quick Report Preview
RaWwwPublisher1 Raudus Ext
ZConnection1 Zeos Access database db_contoh
Hostname localhost
Protocol mysql
User Root
ZQuery1 Zeos Access Connection ZConnection1
SQL Select * from tb_contoh
DataSource1 Data Access Dataset ZQuery1
QuickRep1 QReport Bands HasDetail, HasPageHeader, HasTitle
Dataset ZQuery1
QRLabel1 QReport Caption Contoh Quick Report di Raudus
QRLabel2 QReport Caption ID
QRLabel3 QReport Caption Nama
QRLabel4 QReport Caption Nilai
QRDBText1 QReport Dataset ZQuery1
Datafield id
QRDBText2 QReport Dataset ZQuery1
Datafield nama
QRDBText3 QReport Dataset ZQuery1
Datafield nilai

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

 

Incoming search terms:

komponen pada raudus beserta penjelasannya ext, 2 koneksi di lazarus, koding delphi raudus button simpan, koding printview qreport delphi, mengatasi cannot resolve unit name pada delphi, mengisi data mahasiswa dengan raudus dan zeos delpi, menyimpan pdf quick report delphi, Menyimpan quick report jadi pdf, pengertian qreport, raudus with dotmatrix
34 Comments

Add a Comment

Your email address will not be published. Required fields are marked *

error: Content is protected !!