Tutorial Membuat Html Report di Delphi

Tutorial Membuat Html Report di Delphi, gunakan Quick Report atau Rave Designer untuk membuat Report di Delphi. Namun seandainya anda ingin menyusun sebuah report yang memiliki desain cara termudah anda tinggal membuat report dari file html.
Hal yang perlu diperhatikan dalam membuat html report di delphi :

Dreamweaver, Frontpage atau aplikasi lain sejenis yang dapat digunakan sebagai Html Editor
Program Delphi (dalam artikel ini menggunakan Delphi versi 7)

Langkah awal buatlah database (report mengambil data dari database), dalam hal ini coba buat tabel field-field menggunakan Microsoft Acces, contoh :

Nama tabel : Demo
Field, Type, Size
No, AutoNumber
Nama, Karakter, 30
Alamat, Karakter, 65
Kota, Karakter, 35

Lanjutkan dengan isi tabel tersebut (contoh gambar) lalu simpan pada folder yang akan degunakan dalam membuat project di delphi :
(Tabel Demo)

Selanjutnya buat file Html dengan isi berupa tabel dengan kolom yang sama dengan tabel pada database anda. Perlu diperhatikan, memasukkan tag String pada kolom harus sesuai dengan nama field-field tabel anda (tabel demo). Sebagai contoh : <#no>, <#nama>, <#alamat>, semua harus sesuai sehingga langkah selanjutnya dapat diganti dengan data yang sesuai oleh Delphi. Pada desain, anda dapat mengaplikasikan flash, java script, dan sebagainya.

Report menggunakan Html File

Setelah itu masuk ke kode editornya maka akan muncul :

<html>
<head>
<title>Untitled Document</title>
<style type=”text/css”>
<!–
.style1 {
color: #FFFFFF;
font-weight: bold;
}
.style2 {font-family: “Courier New”, Courier, mono}
.style3 {color: #FFFFFF; font-weight: bold; font-family: “Courier
New”, Courier, mono; }
.style7 {color: #0000FF}
–>
</style>
</head>
<body>
<h1>Report menggunakan HTML FILE :</h1>
<table width=”743″ border=”1″>
<tr bgcolor=”#0033FF”>
<td width=”43″><div align=”center”>No</div></td>
<td width=”275″><div align=”center”>Nama</div></td>
<td width=”172″><div align=”center”
class=”style3″>Alamat</div></td>
<td width=”225″><div align=”center”>Kota</div></td>
</tr>
<tr>
<td><#no></td>
<td><#nama></td>
<td><#alamat></td>
<td><#kota></td> </tr>
</table>
<h1>Copyright 2005 </h1>
</body>
</html>
——————————————————–*

Selanjutnya memecah script tersebut menjadi tiga bagian yaitu header, isi dan footer. Buka notepad atau teks editor lain terus copy bagian :

<html>
<head>
<title>Untitled Document</title>
<style type=”text/css”>
<!–
.style1 {
color: #FFFFFF;
font-weight: bold;
}
.style2 {font-family: “Courier New”, Courier, mono}
.style3 {color: #FFFFFF; font-weight: bold; font-family: “Courier
New”, Courier, mono; }
.style7 {color: #0000FF}
–>
</style>
</head>
<body>
<h1>Report menggunakan HTML FILE :</h1>
<table width=”743″ border=”1″>
<tr bgcolor=”#0033FF”>
<td width=”43″><div align=”center”>No</div></td>
<td width=”275″><div align=”center”>Nama</div></td>
<td width=”172″><div align=”center”
class=”style3″>Alamat</div></td>
<td width=”225″><div align=”center”>Kota</div></td>
</tr>

Simpan format nama header.txt pada folder yang sama dengan database.
Langkah berikutnya select pada bagian :

<tr>
<td><#no></td>
<td><#nama></td>
<td><#alamat></td>
<td><#kota></td> </tr>

Copy ke notepad dan simpan dengan nama isi.txt
Langkah terakhir select :

</table>
<h1>Copyright 2005 </h1>
</body>
</html>

Copy ke notepad dan simpan dengan nama isi.txt
Masuk ke Delphi, lalu buat form baru dengan komponen-komponen berikut :

Ado Connection : hubungkan dengan database yang telah dibuat tadi
Ado Query , set connection ke Ado Connection dan Sql String isi dengan “select * from demo”
Data Set Page Producer pada page Internet, set dataset ke Ado Query ;
Button untuk menampilkan report tadi

Perlu diperhatikan adalah menggunakan unit shellApi pada uses di unit tadi

Contoh gambar setting, komponen :

Ado Query Setting :

Klik 2X pada button tampil dan tulis script berikut :

procedure TForm1.Button1Click(Sender: TObject);
var
Outfile : TextFile;
Begin
ADOQuery1.Close;
ADOQuery1.Open;
AssignFile(Outfile,’Demohtml.htm’);
rewrite(Outfile);
DataSetPageProducer1.HTMLFile := ‘header.txt’;
write (outfile,DataSetPageProducer1.content);
DataSetPageProducer1.HTMLFile := ‘isi.txt’;
AdoQuery1.Prior;
while not AdoQuery1.Eof do
begin
write (outfile,DataSetPageProducer1.content);
AdoQuery1.Next;
end;
DataSetPageProducer1.HTMLFile := ‘footer.txt’;
write (outfile,DataSetPageProducer1.content);
closefile(Outfile);
ShellExecute(Handle,’Open’,pchar(‘Demohtml.htm’),’
‘,nil,SW_SHOWMAXIMIZED);
end;

Simpan project tersebut pada folder yang sama. Dan compile form tersebut maka akan tekan tombol tampil, maka akan muncul :

Kata Kunci : contoh report text tentang tempat, contoh iklan keluarga, report text about turtle, contoh limbah domestik, contoh surat undangan rapat sekolah

Pages - Menu

Selasa, 25 September 2012

Tutorial Membuat Html Report di Delphi

Tutorial Membuat Html Report di Delphi

Tidak ada komentar:

Posting Komentar