PEMBUATAN MENU UTAMA DAN REPORT (DELPHI)

Metari Menu da pembuatan Report di lab saya bahas disini deh buat baca dan nambah ilmu para pengunjung blog ini.. ..
Silahkan disimak ajah untuk langkah-langkahnya :
Ø Tambahkan 1 Form untuk pembuatan menu utama

Ø Tambahkan 4table(BDE), 4RvDataSetConnection(Rave), RvProject(Rave), Menu(aadtional)
Ø Double Click Menu

Ø Koneksikan Table dan RVDataSetConnection

Obejct	Properties
Table 1	DatabaseName : Alias (penjualan_nim) Table Name : buku Active : true Name : tb_buku
Table 2	DatabaseName : Alias (penjualan_nim) Table Name : pelanggan Active : true Name : tb_pelanggan
Table 3	DatabaseName : Alias (penjualan_nim) Table Name : trans Active : true Name : tb_trans
Table 4	DatabaseName : Alias (penjualan_nim) Table Name : detail Active : true Name : tb_detail
RvDataSetConnection 1	Dataset : tb_buku
RvDataSetConnection 2	Dataset : tb_pelanggan
RvDataSetConnection 3	Dataset : tb_trans
RvDataSetConnection 4	Dataset : tb_detail

Ø Double Click RvProject

Ø Pilih File-New Data Object

Ø Pilih Direct Data View-Next

Ø Pilih RvDataSetConnection – Finish
Ø Pilih Tools-Report Wizard-Simple Table

Ø Pilih Next

Ø Ceklist Field- Next

Ø PIlih Next

Ø Pilih Next

Ø Pilih Generate

Ø Simpan dengan Nama: Laporan
procedure TForm5.BukuClick(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm5.PelangganClick(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm5.Exit1Click(Sender: TObject);
begin
if (Application.MessageBox('Anda Mau Keluar dari Program?','Pesan',MB_OKCANCEL+32)=idok) then
Application.Terminate;
end;
procedure TForm5.transaksiClick(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm5.LaporanBukuClick(Sender: TObject);
begin
RvProject1.ExecuteReport('laporan_buku.rav');
end;
procedure TForm5.LaporanPelangganClick(Sender: TObject);
begin
RvProject1.ExecuteReport('laporan_pelanggan.rav');
end;
procedure TForm5.LaporanJualClick(Sender: TObject);
begin
RvProject1.ExecuteReport('laporan_jual.rav');
end;
procedure TForm5.LaporanDetailClick(Sender: TObject);
begin
RvProject1.ExecuteReport('laporan_detail.rav');
end;

end.
Cukup segitu ajah langkah-langkahnya,Untuk download tutornya bisa klik gambar di bawah
Download