MODUL PRAKTIKUM PEMROGRAMAN VISUAL LANJUT

MODUL PRAKTIKUM PEMROGRAMAN VISUAL LANJUT STUDI KASUS : APLIKASI INPUT BARANG + REPORT

(Microsoft Access 2007 | Visual Studio 2010 | Crystal Report 2010)

DOSEN PENGAMPU MATA KULIAH ATEP RUHIAT, M.KOM.

STMIK SUMEDANG

Modul Pemrograman Visual Lanjut Dosen : Atep Ruhiat, M.Kom.

MEMBUAT APLIKASI INPUT DATA SEDERHANA 1. Membuat Database Database yang digunakan yaitu Microsoft Access. Langkahnya sebagai berikut : 1) Buatlah folder Aplikasi Input Barang pada drive D. 2) Buka program Microsoft Access. Klik Blank Database

3) Lalu simpan di lokasi D:\APLIKASI INPUT BARANG dan beri nama dbBarang.accdb.

4) Klik tombol Create. 5) Buatlah table baru dengan cara Create – Table Design

6) Perhatikan hasil table berikut :

7) Lalu simpan dengan nama BARANG.

STMIK SUMEDANG

Halaman : 1


2. Membuat Interface Form Untuk interfacenya dibuat di Visual Studio. Langkahnya sebagai berikut : 1) Buka program Microsoft Visual Studio. Lalu New Project

2) Pada kotak Name isi dengan Aplikasi Input Barang dan klik OK. 3) Buatlah desain seperti berikut :

4) Aturlah properties menjadi seperti ini No Komponen Properties 1 Label1 Text 2 Label2 Text 3 Label3 Text 4 Label4 Text 5 Label5 Text 6 TextBox1 Name STMIK SUMEDANG

Nilai KODE BARANG NAMA BARANG HARGA BELI HARGA JUAL STOK TXTKODE Halaman : 2


7 8 9 10 11 12

TextBox2 TextBox3 TextBox4 TextBox5 DataGridView1 Button1

13

Button2

14

Button3

15

Button4

Name Name Name Name Name Name Text Name Text Name Text Name Text

TXTNAMA TXTHBELI TXTHJUAL TXTSTOK DGBARANG BTNSIMPAN SIMPAN BTNUBAH UBAH BTNHAPUS HAPUS BTNKELUAR KELUAR

5) Lalu simpan project tersebut di folder yang telah dibuat D:\APLIKASI INPUT BARANG\ 3. Pindahkan database dbBarang.accdb Kemudian pindahkan database ke D:\APLIKASI INPUT BARANG\Aplikasi Input Barang\Aplikasi Input Barang\bin\Debug

STMIK SUMEDANG

Halaman : 3


4. Membuat Class Koneksi 1) Kembali ke tampilan visual studio, lalu buatlah file Class dengan cara klik icon Add New Item – pilih Add Class.

2) Lalu beri nama file kelas tersebut ClsKoneksi – Add.

3) Lalu ketikkan kode program dibawah ini. Imports System.Data Imports System.Data.OleDb Public Class ClsKoneksi Protected SQL As String Protected Cn As OleDb.OleDbConnection Protected Cmd As OleDb.OleDbCommand Protected Da As OleDb.OleDbDataAdapter Protected Ds As DataSet Protected Dt As DataTable Public Function OpenConn() As Boolean Cn = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=dbBarang.accdb") Cn.Open() If Cn.State <> ConnectionState.Open Then STMIK SUMEDANG

Halaman : 4


Else

Return False

Return True End If End Function Public Sub CloseConn() If Not IsNothing(Cn) Then Cn.Close() Cn = Nothing End If End Sub Public Function ExecuteQuery(ByVal Query As String) As DataTable If Not OpenConn() Then MsgBox("Koneksi gagal!!", MsgBoxStyle.Critical, "Error") Return Nothing Exit Function End If Cmd = New OleDb.OleDbCommand(Query, Cn) Da = New OleDb.OleDbDataAdapter Da.SelectCommand = Cmd Ds = New Data.DataSet Da.Fill(Ds) Dt = Ds.Tables(0) Return Dt Dt = Nothing Ds = Nothing Da = Nothing Cmd = Nothing CloseConn() End Function End Class 5. Membuat Kode Program Langkahnya sebagai berikut : 1) Buka area kode program, ketikan kode program dibawah ini Public Class F_BARANG Dim SQL As String Dim Proses As New ClsKoneksi Dim tblBarang As DataTable Dim data As DataSet

STMIK SUMEDANG

Halaman : 5


End Class 2) Lalu buatlah dua buah prosedur Tampil_Data dan Atur. Public Class F_BARANG Dim SQL As String Dim Proses As New ClsKoneksi Dim tblBarang As DataTable Dim data As DataSet Sub Tampil_Data() tblBarang = Proses.ExecuteQuery("select * from barang") DGBARANG.DataSource = tblBarang End Sub Sub Atur() TXTKODE.Text = "" TXTNAMA.Text = "" TXTHBELI.Text = 0 TXTHJUAL.Text = 0 TXTSTOK.Text = 0 TXTKODE.Focus() BTNSIMPAN.Enabled = True BTNUBAH.Enabled = False BTNHAPUS.Enabled = False BTNKELUAR.Text = "KELUAR" End Sub End Class

3) Lalu double-click diarea kosong dan ketikkan kode program berikut Private Sub F_BARANG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call Tampil_Data() Call Atur() End Sub 4) Selanjutnya double-click pada tombol SIMPAN. Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click If TXTKODE.Text = "" Or TXTNAMA.Text = "" Or _ TXTHBELI.Text = "" Or TXTHJUAL.Text = "" Or _ TXTSTOK.Text = "" Then

STMIK SUMEDANG

Halaman : 6


"INFORMASI") Else "','" _

MsgBox("DATA ADA YANG KOSONG", MsgBoxStyle.Information,

On Error Resume Next SQL = "Insert into barang values('" & TXTKODE.Text &

& TXTNAMA.Text & "'," & TXTHBELI.Text & "," _ & TXTHJUAL.Text & "," & TXTSTOK.Text & ")" Proses.ExecuteQuery(SQL) MsgBox("DATA TELAH BERHASIL DISIMPAN") Call Tampil_Data() Call Atur() End If End Sub

5) Untuk melakukan perubahan atau penghapusan data dilakukan dengan cara mencari KODE BARANG yang akan diubah atau dihapus. Double click inputan KODE BARANG dan ketikkan kode program berikut : Private Sub TXTKODE_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTKODE.TextChanged tblBarang = Proses.ExecuteQuery("select * from barang where kode_barang like '" & TXTKODE.Text & "%'") DGBARANG.DataSource = tblBarang If tblBarang.Rows.Count = 1 Then TXTNAMA.Text = tblBarang.Rows(0).Item("NAMA_BARANG") TXTHBELI.Text = tblBarang.Rows(0).Item("HARGA_BELI") TXTHJUAL.Text = tblBarang.Rows(0).Item("HARGA_JUAL") TXTSTOK.Text = tblBarang.Rows(0).Item("STOK") BTNSIMPAN.Enabled = False BTNUBAH.Enabled = True BTNHAPUS.Enabled = True BTNKELUAR.Text = "BATAL" Else TXTNAMA.Text = "" TXTHBELI.Text = 0 TXTHJUAL.Text = 0 TXTSTOK.Text = 0 BTNSIMPAN.Enabled = True BTNUBAH.Enabled = False BTNHAPUS.Enabled = False BTNKELUAR.Text = "KELUAR" End If End Sub

STMIK SUMEDANG

Halaman : 7


6) Kemudian double-click tombol UBAH, dan ketikkan kode program berikut : Private Sub BTNUBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNUBAH.Click If TXTKODE.Text = "" Or TXTNAMA.Text = "" Or _ TXTHBELI.Text = "" Or TXTHJUAL.Text = "" Or _ TXTSTOK.Text = "" Then MsgBox("DATA ADA YANG KOSONG", MsgBoxStyle.Information, "INFORMASI") Else On Error Resume Next SQL = "Update barang Set nama_barang='" _ & TXTNAMA.Text & "',harga_beli=" & TXTHBELI.Text & ",harga_jual=" _ & TXTHJUAL.Text & ",stok=" & TXTSTOK.Text & " where kode_barang='" & TXTKODE.Text & "'" Proses.ExecuteQuery(SQL) MsgBox("DATA TELAH BERHASIL DIPERBAHARUI") Call Tampil_Data() Call Atur() End If End Sub 7) Lalu double-click tombol HAPUS, dan ketikkan kode program berikut : Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click If TXTKODE.Text = "" Or TXTNAMA.Text = "" Or _ TXTHBELI.Text = "" Or TXTHJUAL.Text = "" Or _ TXTSTOK.Text = "" Then MsgBox("DATA ADA YANG KOSONG", MsgBoxStyle.Information, "INFORMASI") Else On Error Resume Next Dim konfirmasi As String konfirmasi = MsgBox("Anda yakin akan menghapus data ini?", MsgBoxStyle.YesNo, "Konfirmasi") If konfirmasi = vbYes Then SQL = "Delete From barang where kode_barang='" & TXTKODE.Text & "'" Proses.ExecuteQuery(SQL) MsgBox("DATA TELAH BERHASIL DIHAPUS") Call Tampil_Data() Call Atur() Else Exit Sub STMIK SUMEDANG

Halaman : 8


End If End If End Sub 8) Lalu double-click pada tombol KELUAR dan ketikkan kode program berikut : Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click If BTNKELUAR.Text = "KELUAR" Then Dispose() Else Call Atur() End If End Sub 6. Menjalankan Program 1) Tekan tombol F5 atau klik icon berikut :

2) Akan muncul form berikut :

3) Lalu coba isi data sesuai dengan form tersebut misal : KODE BARANG NAMA BARANG HARGA BELI B001 BUKU GAMBAR 3000 B002 BUKU TULIS 2700 B003 PENSIL 1500 B004 PENGGARIS 1200

STMIK SUMEDANG

HARGA JUAL 3500 3000 2000 1500

STOK 50 70 100 20 Halaman : 9


B005

PENGHAPUS

800

1000

40

4) Untuk melakukan perubahan dan menghapusan data, caranya dengan mencari KODE BARANG yang akan diubah atau dihapus sehingga fasilitas UBAH dan HAPUS menjadi aktif. Implementasi ubah data :

STMIK SUMEDANG

Halaman : 10


Implementasi hapus data :

STMIK SUMEDANG

Halaman : 11


Latihan Buatlah satu tabel baru pada database dbBarang.accdb yaitu PELANGGAN. Dengan field seperti berikut : Nama field Tipe Data Field size Keterangan NO_PELANGGAN Text 10 Primary Key NAMA_PELANGGAN Text 50 ALAMAT Text 100 STATUS Text 30 NO_HP Text 30 EMAIL Text 50 Selanjutnya buatlah form input data pelanggan beserta kode programnya sehingga program tersebut lengkap dengan fitur simpan, pencarian, ubah, dan hapus.

STMIK SUMEDANG

Halaman : 12


7. Membuat Report Hal yang paling penting dalam pembuatan program yaitu output yang dapat dihasilkan. Untuk membuat report pada visual studio kali ini menggunakan Crystal Report. Ikutilah langkah berikut : 1) Installkan terlebih dahulu CRforVS yang telah di download.

2) Tunggu sampai prosesnya selesai. 3) Lalu buka project yang sebelumnya sudah dibuat. 4) Pilih menu Project - Add New Item

STMIK SUMEDANG

Halaman : 13


5) Pilih Reporting – Crystal Reports, beri nama daftar_barang.rpt lalu Add.

6) Akan muncul tampilan seperti dibawah ini. pilih Using the Report Wizard – Standard – OK.

7) Pada pilihan Create New Connection, lalu double click pada OLE DB (ADO) – Microsoft Office 12.0 Access Database Enginer OLE DB Provider - Next

STMIK SUMEDANG

Halaman : 14


8) Pada kotak Data Source cari lokasi penyimpanan databasenya BARANG\Aplikasi Input Barang\Aplikasi Input Barang\bin\Debug\

STMIK SUMEDANG

D:\APLIKASI INPUT

Halaman : 15


9) Lalu hapus alamatnya dan pada pilihan Office Database Type pilih Access. Klik Finish.

STMIK SUMEDANG

Halaman : 16


10) Lalu pilih tabel BARANG klik tombol > untuk memilih tabel sebagai sumber datanya. Kalau sudah klik tombol Next.

11) Kemudian pada tahapan Field pindahkan semua field pada tabel BARANG dengan mengklik tombol >> lalu klik Next.

STMIK SUMEDANG

Halaman : 17


12) Tahapan Grouping (untuk mengelompokan field). Klik tombol Next karena dalam kasus ini tidak ada field yang akan dikelompokan.

13) Pada tahapan Report Style, silahkan pilih bentuk reportnya, lalu klik tombol Finish.

STMIK SUMEDANG

Halaman : 18


14) Hasilnya seperti tampilan dibawah ini

15) Lalu pada area Report Header, tambahkan objek Text Object dan ketikkan DAFTAR BARANG untuk memberikan judul laporan.

STMIK SUMEDANG

Halaman : 19


16) Kemudian aturlah pada Propertiesnya yaitu HorAlignment dan Fontnya.

17) Sehingga menjadi seperti tampilan dibawah ini.

STMIK SUMEDANG

Halaman : 20


18) Lalu simpan (CTRL+S). 8. Membuat Form Untuk Menampilkan Report Langkah selanjutnya yaitu membuat form untuk menampilkan report yang telah dibuat yaitu daftar_barang.rpt. ikuti langkah berikut : 1) Tambahkan form baru, pilih menu Project – Add Windows Form.

2) Lalu beri nama F_DAFTAR_BARANG.vb dan klik tombol Add.

STMIK SUMEDANG

Halaman : 21


3) Hasilnya seperti tampilan dibawah ini.

4) Selanjutnya tambahkan (F_DAFTAR_BARANG.vb)

STMIK SUMEDANG

objek

CrystalReportViewer

dan

letakan

pada

form

Halaman : 22


Catatan : Jika objek CrystalReportViewer tidak muncul, klik kanan pada project Aplikasi Input Barang – Properties – Compile – Advanced Compile Options.

Lalu ubah Target framework (all configurations) pilih .NET Framework 4, kemudian klik OK dan Ctrl+S.

STMIK SUMEDANG

Halaman : 23


5) Lalu diatas terdapat navigation

, lalu klik nanti akan muncul pilihan seperti dibawah ini.

6) Kemudian pilih Choose a Crystal Report dan pada pilihan Specify a Crystal Report for the control pilih daftar_barang.rpt, lalu klik OK.

STMIK SUMEDANG

Halaman : 24


7) Hasilnya seperti tampilan dibawah ini.

9. Memanggil Report Selanjutnya tinggal memanggil report yang telah dibuat pada saat aplikasi dijalankan. Caranya sebagai berikut : 1) Buka form (F_BARANG.vb), lalu tambahkan satu buah Button baru.

STMIK SUMEDANG

Halaman : 25


2) Lalu atur propertisnya menjadi (Text=CETAK dan Name=BTNCETAK).

3) Double-click tombol CETAK, dan ketikkan kode program berikut :

Private Sub BTNCETAK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNCETAK.Click F_DAFTAR_BARANG.CrystalReportViewer1.RefreshReport() F_DAFTAR_BARANG.Show() End Sub 4) Lalu tekan tombol F5, dan jalankan F_BARANG.vb.

STMIK SUMEDANG

Halaman : 26


5) Klik tombol CETAK dan akan muncul tampilan seperti dibawah ini.

STMIK SUMEDANG

Halaman : 27

MODUL PRAKTIKUM PEMROGRAMAN VISUAL LANJUT

Recommend Documents