MEMBUAT REPORT DENGAN MENNGGUNAKAN REPORT WIZARD

LANGKAH-LANGKAH MEMBUAT REPORT DENGAN MENNGGUNAKAN REPORT WIZARD

Baik la kita akan memulai tutorial pembuatan Report mengunkana Report Wizard Pada Delphi EX2. Lansung saja kita akan memulainya pertama Studi kasus yang saya gunakan iyalah Sistem informasi Perpustakaan (Sederhana) yang terdiri dari 4 table. oke lansung aja  lihat di bawah ya👇👇

Judul : Sistem Informasi Perpustakaan

.1. Microsoft Office Access 2007

A.  Membuka Microsoft Access 2007

Dengan cara tekan ctrl + R à ketikan Microsoft Office Access 2007

B.  Membuat Database Baru

Dengan Cara pilih Blank Database à lalu buat nama Database-àPilih Folder untuk meletekan file Database.

 Gambar 1 (Tampilan Membuat Database)

C.  Membuat Table Pada Microsoft Office Acces 2007

Dengan Cara klik Insert àlalu pilih Table à kemudain klik View à kemudian isi nama table sesuai dengan studi anda

Gambar 2 (Tambilan Membuat Table)

Pada Studi Kasus Saat ini saya Membuat Table-Table yang berkaitan dengan Perpustakaan. Yaitu Sebagai berikut :

                                         i.            Table Mahasiswa

Gambar 3 (Table Mahasiswa)

                                         ii.            Table Buku

Gambar 4 (Table T_buku)

                                       iii.            Table Pegawai

 

Gambar 4 (Table T_pegawai)

                                     iv.            Table Pinjam

Gambar 5 (Table Tpinjam)

Dan Dimana Table-table terserbut Berisi Sebagai berikut:

a.                    Table Mahasiswa

Field Name	Data Type	Size	Key
Npm	Text	12	*
Nama	Text	25
Jenis_kelamin	Text	25
Alamat	Text	25
No_hp	Text	12

b.                  Table T_buku

Field Name	Data Type	Size	Key
Kode_buku	Text	12	*
Judul_buku	Text	30
Pengarang	Text	30
Penerbit	Text	30
Tahun_terbit	Date/Time

c.                Table T_pegawai

Field Name	Data Type	Size	Key
Nip	Text	12	*
Nama	Text	30
Jenis_kelamin	Text	30
Alamat	Text	30
No_hp	Text	12

d.                    Table Tpinjam

Field Name	Data Type	Size	Key
KD_PJM	Text	12	*
Kode_buku	Text	12	*
Nip	Text	12	*
Npm	Text	12	*
Tgl_pijam	Date/time
Tgl_kembali	Date/Time

    2. Embarcadero XE2

A.  Form Menu Utama

Gambar 6 (Tampilan menu Utama)

Langkah-langkah :

1.    Masukan komponen Main Menu

2.    Tuliskan nama-nama Menu dan Main Menu nya

3.    Untuk memanggil setiap Form pada menu utama masukan coding. Sebagai contoh : Form2.Show; atau Form2.Showmodal;

B.  Form Data Mahasiswa

Gambar 7 (Tampilan Form Mahasiswa)

Langkah-langkah :

1.    Masukan komponen AdoTable

v Properties à ConectionString :  Build à Microsoft Jet 4.0 de DB Provider à Next à Pilih Database à Test Connection

v Properties - Table Name : Mahasiswa

v Properties - Active : True

2.    Masukan komponen DBGrid

v Properties : Datasource - Datasource1

3.    Masukan Button

v Button tambah : Adotable1.Insert;

     Bdedit1.SetFocus;

v Button simpan : Adotable1.Post;

v Button edit : Adotable1.Edit;

v Button hapus : Adotable1.Delete;

v Button keluar : Close

C.     Form Data Buku

Gambar 8 (Tampilan Form Buku)

Langkah-langkah :

1.    Masukan komponen AdoTable

v Properties à ConectionString :  Build à Microsoft Jet 4.0 de DB Provider à Next à  Pilih Database à Test Connection

v Properties - Table Name : T_buku

v Properties - Active : True

2.    Masukan komponen DBGrid

v Properties - Datasource - Datasource1

3.    Masukan Button

v Button tambah : Adotable1.Insert;

     Dbedit1.SetFocus;

v Button simpan : Adotable1.Post;

v Button edit : Adotable1.Edit;

v Button hapus : Adotable1.Delete;

v Button keluar : Close

D.  Form Data Pegawai

Gambar 9 (Tampilan Form Pegawai)

Langkah-langkah :

1.    Masukan komponen AdoTable

v Properties à ConectionString :  Build à Microsoft Jet 4.0 de DB Provider à Next à  Pilih Database à Test Connection

v Properties - Table Name : T_pegawai

v Properties - Active : True

2.    Masukan komponen DBGrid

v Properties - Datasource - Datasource1

3.    Masukan Button

v Button tambah : Adotable1.Insert;

     Dbedit1.SetFocus;

v Button simpan : Adotable1.Post;

v Button edit : Adotable1.Edit;

v Button hapus : Adotable1.Delete;

v Button keluar : Close

E.  Form Data Pinjam

Gambar 10 (Tampilan Form Pinjam)

Langkah-langkah :

1.    Masukan komponen AdoTable

v Properties - ConectionString :  Build à Microsoft Jet 4.0 de DB Provider à Next à  Pilih Database

v Properties - Table Name : Tpinjam

v Properties - Active : True

2.    Masukan komponen DBGrid

v Properties : Datasource - Datasource1

3.    Masukan Komponen DbComboBoxLookUp

v  Properties – KeyField – Field lookup

4.    Masukan Button

v Button tambah : Adotable1.Insert;

     Dbedit1.SetFocus;

v Button simpan : Adotable1.Post;

v Button edit : Adotable1.Edit;

v Button hapus : Adotable1.Delete;

v Button keluar : Close

F.   Form Pencarian Data Buku

Gambar 11 (Tampilan Form Pencarian Data Buku)

Langkah-langkah :

1.    Masukan komponen AdoQuery

v Properties - Conectionstring : Buildà Microsoft Jet 4.0 de DB Provider à Next à  Pilih Database

v Properties - SQL : Select*from T_buku

v Properties - Active : True

2.    Masukan Data Source

v Properties - Dataset : ADOQuery1

3.    Masukan Edit

v Edit1 : Properties - Text : Select*from T_buku

v Edit2 : Properties - Text :

4.    Masukan Button

v Button Run : Adoquery1.Close; Adoquery1.SQL.Clear;

 Adoquery1.SQL.Add(Edit1.Text);

 Adoquery1.Open;

v Button View : Adoquery1.Close;

Adoquery1.SQL.Clear;

If RadioButton2.Checked=TRUE begin

Adoquery1.SQL.Add(‘Select*from T_buku Where judul_buku=’+Quotedstr(Edit2.Text));

End;

If RadioButton1.Checked=TRUE begin

Adoquery1.SQL.Add(‘Select*from T_buku Where kode_buku=’+Quotedstr(Edit2.Text));

End;

Adoquery1.Open;

End;

v Button Preview : FrxReport1.Showreport();

v Button Keluar : Close;

5.    Masukan GroupBox :

v Properties - Caption : Cari

6.    Masukan RadioButton :

v kode_buku : Edit2.Setfocus;

v judul_buku : Edit2.Setfocus;

7.    Masukan DBGrid :

v Properties - DataSource : DataSource1

8.    Masukan FrxDBDataset :

v Properties - Dataset : DataSet1

9.    Masukan FrxReport :

v Double Klik FrxReport

v File-New-Standar Report Wizard-Ok

v Next-Add All-Finish

v Ctrl+P untuk melihat hasil report

Gambar 12 (Tampilan Report Pencarian Buku)

G.  Form Pencarian Data Mahasiswa

Gambar 13 (Tampilan Pencarian Form Mahasiswa)

Langkah-langkah :

1.    Masukan komponen AdoQuery

v Properties - Conectionstring : Buildà Microsoft Jet 4.0 de DB Provider à Next à  Pilih Database

v Properties - SQL : Select*from Mahasiswa

v Properties - Active : True

2.    Masukan Data Source

v Properties - Dataset : ADOQuery1

3.    Masukan Edit

v Edit1 : Properties - Text : Select*from Mahasiswa

v Edit 2 :Properties - Text :

4.    Masukan Button

v Button Run : Adoquery1.Close; Adoquery1.SQL.Clear;

 Adoquery1.SQL.Add(Edit1.Text);

 Adoquery1.Open;

v Button View : Adoquery1.Close;

Adoquery1.SQL.Clear;

If RadioButton3.Checked=TRUE begin

Adoquery1.SQL.Add(‘Select*from Mahasiswa Where jenis_kelamin=’+Quotedstr(Edit2.Text));

End;

If RadioButton2.Checked=TRUE begin

Adoquery1.SQL.Add(‘Select*from Mahasiswa Where npm=’+Quotedstr(Edit2.Text));

End;

If RadioButton1.Checked=TRUE begin

Adoquery1.SQL.Add(‘Select*from Mahasiswa Where nama=’+Quotedstr(Edit2.Text));

End;

Adoquery1.Open;

End;

v Button Preview : FrxReport1.Showreport();

v Button Keluar : Close;

5.    Masukan GroupBox :

v Properties - Caption : Cari Data

6.    Masukan RadioButton :

v Nama : Edit2.Setfocus;

v NPM : Edit2.Setfocus;

v JENIS_KELAMIN : Edit2.Setfocus;

7.    Masukan DBGrid :

v Properties - DataSource : DataSource1

8.    Masukan FrxDBDataset :

v Properties - Dataset : DataSet1

9.    Masukan FrxReport :

v Double Klik FrxReport

v File-New-Standar Report Wizard-Ok

v Next-Add All-Finish

v Ctrl+P untuk melihat hasil report

Gambar 14 (Tampilan Report Pencarian Mahasiswa)

H.  Form Pencarian Data Pegawai

Gambar 15 (Tampilan Form Pencarian Pegawai)

Langkah-langkah :

1.    Masukan komponen AdoQuery

v Properties - Conectionstring : Buildà Microsoft Jet 4.0 de DB Provider à Next à  Pilih Database

v Properties - SQL : Select*from T_pegawai

v Properties - Active : True

2.    Masukan Data Source

v Properties - Dataset : ADOQuery1

3.    Masukan Edit

v Edit1 : Properties - Text : Select*from T_pegawai

v Edit 2 :Properties - Text :

4.    Masukan Button

v Button Run : Adoquery1.Close; Adoquery1.SQL.Clear;

 Adoquery1.SQL.Add(Edit1.Text);

 Adoquery1.Open;

v Button View : Adoquery1.Close;

Adoquery1.SQL.Clear;

If RadioButton2.Checked=TRUE begin

Adoquery1.SQL.Add(‘Select*from T_Pegawai Where nama=’+Quotedstr(Edit2.Text));

End;

If RadioButton1.Checked=TRUE begin

Adoquery1.SQL.Add(‘Select*from T_pegawai Where nip=’+Quotedstr(Edit2.Text));

End;

Adoquery1.Open;

End;

v Button Preview : FrxReport1.Showreport();

v Button Keluar : Close;

5.    Masukan GroupBox :

v Properties - Caption : Cari Data

6.    Masukan RadioButton :

v NIP : Edit2.Setfocus;

v NAMA : Edit2.Setfocus;

7.    Masukan DBGrid :

v Properties - DataSource : DataSource1

8.    Masukan FrxDBDataset :

v Properties - Dataset : DataSet1

9.    Masukan FrxReport :

v Double Klik FrxReport

v File-New-Standar Report Wizard-Ok

v Next-Add All-Finish

v Ctrl+P untuk melihat hasil report 

Gambar 16 (Tampilan Report Pencarian Karyawan)

I.  Form Pencarian Data Pinjam

Gambar 17 (Tampilan Form Pencarian Pinjam)

Langkah-langkah :

1.    Masukan komponen AdoQuery

v Properties - Conectionstring : Buildà Microsoft Jet 4.0 de DB Provider à Next à  Pilih Database

v Properties - SQL : Select*from Tpinjam

v Properties - Active : True

2.    Masukan Data Source

v Properties - Dataset : ADOQuery1

3.    Masukan Edit

v Edit1 : Properties - Text : Select*from Tpinjam

4.    Edit 2 : Properties - Text :

5.    Masukan Button

v Button Run : Adoquery1.Close; Adoquery1.SQL.Clear;

 Adoquery1.SQL.Add(Edit1.Text);

 Adoquery1.Open;

v Button View : Adoquery1.Close;

Adoquery1.SQL.Clear;

If RadioButton2.Checked=TRUE begin

Adoquery1.SQL.Add(‘Select*from Tpinjam Where tgl_kembali=’+Quotedstr(Edit2.Text));

End;

If RadioButton1.Checked=TRUE begin

Adoquery1.SQL.Add(‘Select*from Tpinjam Where tgl_pinjam=’+Quotedstr(Edit2.Text));

End;

Adoquery1.Open;

End;

v Button Preview : FrxReport1.Showreport();

v Button Keluar : Close;

6.    Masukan GroupBox :

v Properties - Caption : Cari Data

7.    Masukan RadioButton :

v tgl pinjam : Edit2.Setfocus;

v tgl kembali : Edit2.Setfocus;

8.    Masukan DBGrid :

v Properties - DataSource : DataSource1

9.    Masukan FrxDBDataset :

v Properties - Dataset : DataSet1

10.     Masukan FrxReport :

v Double Klik FrxReport

v File-New-Standar Report Wizard-Ok

v Next-Add All-Finish

v Ctrl+P untuk melihat hasil report

Gambar 18 (Tampilan Report Pencarian Pinjam)

Terimakasih 😊😊