Membuat Program Penjualan Dengan Visual Basic 6.0.

Membuat Program Penjualan Dengan Visual Basic 6.0.

Setelah pada tutorial sebelumnya kita membuat desain laporan, sekarang waktunya kita membuat form untuk mengatur pencetakan dari desain laporan yang telah kita buat tersebut. Karena laporan tersebut adalah Laporan Penjualan Harian, maka tentu saja tidak semua data penjualan akan kita tampilkan. Kita akan membuat filter, agar data yang tercetak adalah data pada tanggal yang kita inginkan saja. Untuk itu, silahkan kembali pada jendela form designer, dan tambahkan satu form kosong ke dalam Project kita ini. Caranya, sudah tahu kan? Tekan saja Ctrl-D, lalu pilih “Form”, dan klik tombol “Open”.

Setelah itu, akan muncul sebuah form kosong bernama Form1.

Lakukan perubahan pada beberapa properti form tersebut, pada item-item sebagai berikut:

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Form1	frmCetakLaporanHarian
2.	Caption	Form1	Cetak Laporan Harian
3.	StartUpPosition	3 – Windows Default	2 – Center Screen

Tampilan sesudah diubah akan menjadi kira-kira seperti di bawah ini:

Setelah itu, tambahkan kontrol Label, DateTimePicker, juga 3 buah CommandButton, dan atur agar tampilannya kira-kira seperti di bawah ini:

Kemudian, atur properti dari masing-masing kontrol tersebut, menjadi seperti di bawah ini :
Kontrol Label1

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Caption	Form1	Cetak Laporan Harian

Kontrol DTPicker1

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	DTPicker1	dtpTanggal
2.	CustomFormat	(kosong)	dd/MM/yyyy
3.	Format	1 – dtpShortDate	3 – dtpCustom

Kontrol Command1

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Command1	cmdPreview
2.	Caption	Command1	Preview

Kontrol Command2

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Command2	cmdCetak
2.	Caption	Command2	Cetak

Kontrol Command3

No.	Nama Item	Nilai Awal	Ubah Menjadi
1.	Name	Command3	cmdSelesai
2.	Caption	Command3	Selesai

Kemudian atur juga lebar dan tinggi form-nya, agar terlihat rapi. Kira-kira seperti di bawah ini:

Sekarang, kita tinggal menuliskan kode program untuk form ini. Double-click dulu pada control Command3 yang sekarang telah berubah menjadi cmdSelesai. Ini adalah kontrol yang paling mudah untuk penulisan script-nya.

Terlihat di situ jendela Code sudah terbuka dengan kursor keyboard yang berada di dalam prosedur “Private Sub cmdSelesai_Click()”. Nah, tuliskan kode berikut di situ:

Unload Me
Tampilan sesudahnya akan menjadi kira-kira seperti di bawah ini :

Tutup jendela Code ini, kemudian double-click pada kontrol Command1 yang sekarang telah berubah menjadi cmdPreview.

Terlihat di situ jendela Code sudah terbuka dengan kursor keyboard yang berada di dalam prosedur “Private Sub cmdPreview_Click()”. Tuliskan kode berikut di dalam situ:

Cek:

    On Error GoTo Buka

    dePenjualan.rscmdHarian_Grouping.Filter = _

        "Tanggal=#" & _

        Format(dtpTanggal.Value, _

        "dd/MM/yyyy") & "#"

    dePenjualan.rscmdHarian_Grouping.Requery -1

    rptHarian.Show vbModal

    Exit

 SubBuka:

    dePenjualan.rscmdHarian_Grouping.Open

    GoTo Cek
Tampilannya pada jendela code editor akan nampak kira-kira seperti di bawah ini:

Tutup jendela Code Editor ini. Sekarang kita akan menuliskan script untuk kontrol Command2 yang sekarang telah berubah menjadi cmdCetak. Jadi, silahkan double-click cmdCetak, untuk membuka jendela code editor, dengan kursor yang berada di dalam prosedur cmdCetak_Click() yang sudah terbentuk.

Script pada prosedur cmdCetak ini mirip dengan script pada cmdPreview, dan hanya berbeda pada satu baris tertentu saja. Jadi kalau mau, Anda bisa meng-copy-nya dari script cmdPreview, untuk kemudian di-paste di dalam prosedur cmdCetak. Setelah itu, carilah baris bertuliskan rptHarian.Show vbModal, dan gantilah dengan rptHarian.PrintReport True. Lengkapnya, adalah seperti di bawah ini:

Cek:

    On Error GoTo Buka

    dePenjualan.rscmdHarian_Grouping.Filter = _

        "Tanggal=#" & _

        Format(dtpTanggal.Value, _

        "dd/MM/yyyy") & "#"

    dePenjualan.rscmdHarian_Grouping.Requery -1

    rptHarian.PrintReport True

    Exit Sub

Buka:

    dePenjualan.rscmdHarian_Grouping.Open

    GoTo Cek

Tampilannya pada jendela code-editor akan menjadi kira-kira seperti di bawah ini:

Selanjutnya, tentu saja adalah menambahkan atau mengubah script yang ada pada form Utama, tepatnya pada prosedur mnuLaporanPenjualanHarian_Click(). Jadi sekarang, silahkan kembali pada form frmUtama, lalu klik pada menu Laporan, dan pilih submenu Laporan Penjualan Harian.

Tak lama kemudian akan muncul jendela Code Editor untuk prosedur mnuLaporanPenjualanHarian_Click().

Terlihat di situ script yang pernah kita tuliskan sebelumnya, saat hendak menguji desain laporan yang sudah kita buat. Script inilah yang akan kita ganti. Jadi, hapus script tersebut, dan gantilah dengan script berikut ini:

frmCetakLaporanHarian.Show

Tampilannya pada jendela Code Editor akan menjadi kira-kira seperti di bawah ini.

Tutup jendela Code Editor ini. Dan untuk sementara, script pada form CetakLaporanHarian ini sudah selesai. Anda bisa kembali pada jendela form-designer, dan menguji form ini dengan me-running program ini. Silahkan tekan tombol F5 pada keyboard Anda untuk me-running-nya. Jika sudah running, silahkan klik pada menu Laporan, lalu pilih submenu Laporan Penjualan Harian.

Tak lama akan muncul form Cetak Laporan Harian.

Pilih tanggal laporan yang diinginkan, kemudian silahkan klik pada tombol “Preview” untuk melihatnya pada layar monitor Anda (preview).

Anda dapat menutup jendela Preview ini, dan kembali ke form Cetak Laporan Harian, serta memilih tombol Cetak untuk menampilkan kotak dialog Print, untuk kemudian mencetaknya di atas kertas.

langkah-langkah membuat database

LANGKAH-LANGKAH MEMBUAT DATABASE

Keterangan :

Nama database : data_siswa

Nama tabel:

·         Data_siswa

·         Data_mapel

·         Data_nilai

·         Data_progdi

·         Data_guru

1.       Buka xampp

2.       Akan muncul jendela seperti dibawah ini , dan klik start pada apache dan mysql sampai running.

3.       Klik start => accesories => command promt

4.       Ketikan cd.. sampai muncul C:\>

5.       Selanjutnya ketikan dimana tempat menyimpan xampp

Misal : cd /program files/xampp/mysql/bin (lalu enter)

6.       Lalu akan muncul

C:\Program Files\xampp\xampp\xampp\mysql\bin>

7.       Lalu ketikan mysql -u root (lalu enter)

8.       Akan muncul

Welcome to the MySQL monitor.  Commands end with ; or \g.

Your MySQL connection id is 1 to server version: 5.0.27-community-nt

Type 'help;' or '\h' for help. Type '\c' to clear the buffer.

Mysql>

9.       Lalu ketikan

mysql> create database data_siswa; (lalu enter)

10.   Akan muncul

Query OK, 1 row affected (0.00 sec)

 mysql>

11.   Ketikan use data_siswa; (lalu enter)

12.   Lalu akan muncul

Database changed

mysql>

13.   Ketikan create table data_siswa (NIS_siswa varchar(4)not null primary key, nama_siswa varchar(25)not null, alamat varchar(30)not null, no_hp int(12)not null); (lalu enter)

14.   akan muncul

Query OK, 0 rows affected (0.01 sec)

mysql>

15.    untuk melihat tabel ketikan show tables; (lalu enter)

akan muncul hasil seperti ini

+-----------------------+

| Tables_in_data_siswa|

+-----------------------+

| data_siswa            |

+-----------------------+

1 row in set (0.00 sec)

mysql>

16.   Isi tabel dengan cara ketik  insert into data_siswa (NIS_siswa,nama_siswa,alamat,no_hp) values ('A001','imaniyat','pasirsari',’08564761330’); (lalu enter)

Query OK, 1 row affected (0.04 sec)

mysql>

17.   Untuk mengecek isi tabel caranya ketikan

select*from data_siswa; (lalu enter)

18.   Akan muncul hasil seperti ini

+----------+-----------+--------------+----------+

| id_siswa | nama_siswa | alamat   | no_hp |

+----------+-----------+--------------+----------+

| A001      | imaniyati         | pasirsari |    08564761330 |

+----------+-----------+--------------+----------+

1 row in set (0.00 sec)

Mysql>

19.   Selanjutnya kita buat tabel yang kedua yaitu data_mapel

20.   Ketikan create table data_mapel (id_mapel varchar(4)not null primary key, nama_ mapel varchar(25)not null, guru_pembimbing varchar(25)not null); (lalu enter)

21.   akan muncul

Query OK, 0 rows affected (0.01 sec)

mysql>

22.    untuk melihat tabel ketikan show tables; (lalu enter)

akan muncul hasil seperti ini

+-----------------------+-------+

| Tables_in_data_ siswa |

+---------+----------+---------+

| data_siswa                        |

+---------+-----------+---------

| data_mapel                       |

+---------+-----------+--------+

1 row in set (0.00 sec)

mysql>

23.   Isi tabel dengan cara ketik  insert into data_mapel (id_mapel,nama_mapel,guru_pembimbing) values ('M01','matematika','ihya_ulumudin'); (lalu enter)

Query OK, 1 row affected (0.04 sec)

mysql>

24.   Untuk mengecek isi tabel caranya ketikan

select*from data_mapel; (lalu enter)

25.   Akan muncul hasil seperti ini

+------------+------------+--------------+

| id_mapel | nama_mapel | guru_pembimbing |

+------------+------------+--------------+

| M01        | matematika        |            ihya_ulumudin |

+------------+------------+--------------+

1 row in set (0.05 sec)

mysql>

26.   Selanjutnya kita buat tabel yang ketiga yaitu data_nilai

27.   Ketikan create table data_nilai (NIS_siswa varchar(4)not null primary key, nama_siswa varchar(25)not null, nama_mapel varchar(25)not null, nilai int(10)not null); (lalu enter)

28.   akan muncul

Query OK, 0 rows affected (0.01 sec)

mysql>

29.    untuk melihat tabel ketikan show tables; (lalu enter)

akan muncul hasil seperti ini

+-----------------------+-----------------+

| Tables_in_data_siswa                  |

+---------+----------+--------------------+

| data_siswa                                      |

+                                                             |

| data_mapel                                    |

+                                                             |

| data_nilai                                         |

+---------+--------------+---------------+

1 row in set (0.00 sec)

mysql>

30.   Isi tabel dengan cara ketik  insert into data_nilai (NIS_siswa, nama_siswa,nama_mapel,nilai) values ('A001',’imaniyati','matematika',’100’); (lalu enter)

Query OK, 1 row affected (0.04 sec)

mysql>

31.   Untuk mengecek isi tabel caranya ketikan

select*from data_nilai; (lalu enter)

32.   Akan muncul hasil seperti ini

+----------+------------+--------------+-------------+--------------+

| NIS_siswa | nama_siswa | nama_mapel |      nilai      |

+----------+------------+--------------+-------------+--------------+

| A001      | imaniyati          |   matematika |100            |

+----------+------------+--------------+-------------+--------------+

1 row in set (0.07 sec)

mysql>

33.   Selanjutnya kita buat tabel yang ke-empat yaitu data_progdi

34.   Ketikan create table data_pogdi (id_progdi varchar(4)not null primary key, nama_progdi varchar(4)not null, guru_pembimbing varchar(25)not null); (lalu enter)

Query ok...

Mysql>

35.   Selanjutnya kalau kita ingin melihat tabel ketikan

Show tables; (enter)

36.   Isikan tabel dengan cara

Insert into data_progdi (id_progdi , nama_progdi, guru_pembimbing) values (‘P01’,’RPL’,’ade_irma_yunita’); (lalu enter)

Query ok

Mysql>

37.   Lalu ketikan select* from data_progdi; (lalu enter)

+----------+------------+--------------+-------------+

| id_progdi | nama_progdi | guru_pembimbing |     

+----------+------------+--------------+-------------+

| P01      | RPL          |ade_irma_yunita|100            |

+----------+------------+--------------+-------------+

1 row in set (0.07 sec)

                mysql>

38.   Lalu selanjutnya buat tabel yang terakhir yaitu data_guru

39.   Ketikan create table data_guru (id_guru varchar(4)not null primary key, nama_varchar(25)not null, nama_mapel varchar(25)not null); (enter)

Query ok

Mysql>

40.   Ketikan

Show tables; (enter)

+-----------------------+-----------------+

| Tables_in_data_siswa                  |

+---------+----------+--------------------+

| data_siswa                                      |

| data_mapel                                  |

| data_nilai                                      |

|data_guru                                      |                 

+---------+--------------+---------------+

1 row in set (0.00 sec)

mysql>

41.   Ketikan

Insert into data_guru (id_guru, nama_guru, nama_mapel) values (‘B01’,’ade_irma_yunita’,’RPL’); (lalu enter)

Query ok

Mysql>

42.   Untuk mengecek isi tabel kita ketikan

Select*from data_guru; (enter)

+------------+------------+--------------+

| id_guru | nama_gurul |nama_mapel |

+------------+------------+--------------+

| B01        | ade_irma_yunita    | rpl |

+------------+------------+--------------+

1 row in set (0.05 sec)

mysql>

SELESAI