TUGAS PEMROGRAMAN VISUAL BASIC 2010
PEMBUATAN PROGRAM APLIKASI RESTORAN
Nama : Furqon
Kelas : TI 11 D
NIM : 11.11.2531
SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER
STMIK AMIKOM Purwokerto
Tahun 2013
Pembuatan Program Data restoran
A. Software
Yang Dibutuhkan
1. Mikrosoft
Access 2010
2. Microsoft
Visual Studio 2010
3. Crystal
Reports For Visual Studio 13.0
B. Langkah
Pembuatan
a. Penginstalan
ketiga software di atas.
4. Pembuatan
Database Perpustakaan dengan Mikrosoft Access 2010, dengan rincian sebagai berikut
:
-
Nama database : dbrestoran
-
Database mempunyai 9 Tabel namun yang
saya ambil hanya 4 tabel, yaitu tbl_makanan, tbl_member, tbl_pembayaran, dan tbl_karyawan.
-
Field, type data, masing-masing tabel yaitu :
Ø
Tabel
Pembayaran
Ø
Tabel Member
Ø
Tabel Makanan
Ø
Tabel Karyawan
b. Menghubungkan
Database yang tadi dibuat dengan Ms. Visual Studio 2010, dengan cara :
·
Buka dulu Ms. Visual Studio 2010 dan
membuat project baru dan pastikan bahasa yang digunakan adalah bahasa Visual
Basic.
File
– New Project – Windows Forms Application (Beri Nama Projectnya ‘AppPerpustakaan’ –
Ok
5. Pilih
menu Data – Add New Data Source – Database – Next – Dataset – Next – New Connection – Isi sesuai pembuatan dbperpustakaan di Mikrosoft Access 2010 – Next – Centang semua tabel di dbperpustakaan – Finish
·
Jika ingin melihat tabelnya, pilih menu Data – Show Data Sources (Maka disebelah kiri muncul tabel-tabel yang mau
dimasukkan ke dalam Form).
c. Memasukkan
tabel-tabel tadi ke dalam Form
-
Drag and Drop field-field tbl_makanan,
tbl_member, tbl_pembayaran, dan tbl_karyawan ke dalam form seperti pada gambar
di bawah ini :
·
Menambahkan 5 Button dan 1 Textbox di
keempat form tadi
|
Jenis
|
Property
|
|
Text
|
(Name)
|
|
Button1
|
&Tambah
|
bttambah
|
|
Button2
|
&Simpan
|
btsimpan
|
|
Button3
|
&Cari
|
btcari
|
|
Button4
|
&Hapus
|
bthapus
|
|
Button5
|
&Keluar
|
btkeluar
|
|
TextBox1
|
Isi Di Sini
|
TextBox1
|
·
Mengedit Property Form
|
Form
|
Property
|
|
Text
|
(Name)
|
|
Form1
|
Data Makanan
|
Datamakanan
|
|
Form2
|
Data Member
|
Datamember
|
|
Form3
|
Data
Pembayaran
|
Datapembayaran
|
|
Form4
|
Data Karyawan
|
Datakaryawan
|
d. Membuat
From Laporan
·
Masukkan crystal reports ke dalam ms.
Visual studio 2010 dengan cara pilih menu
Project – AppPerpustakaan Properties
– Compile – Advanced Compile Options – Pada Target Framework (pilih .Net Framework 4)
·
Untuk memilih tabel yang mw dijadiin
laporan yaitu dengan cara pilih menu project
– Add New Item – Reporting – Crystal Reports – Add.
·
Muncul kotak dialog Crystal Reports
Gallery,pilih Using The Report Wizard, pilih Standard, lalu Ok.
·
Muncul kotak dialog Standard Report
Creation Wizard, pilih Create New Connection – OLE DB (ADO) – klik 2x pada Microsoft
Access Native Client pada bagian provider.
·
Muncul kotak dialog OLE DB (ADO), pada
Server isikan rdi-pc(server notebook saya), centang pada bagian Integrated
Security, pilih database dbrestoran pada bagian Database, lalu pilih Finish.
·
Klik 2x pada dbrestoran – klik 2x pada dbo
– pilih tabel yang akan dijadikan laporan. Misal : tbl_makanan.
·
Lalu klik Next, trus pilih semua field
yang ada di tbl_makanan dengan
menekan >>.
·
Klik Next, lalu pilih tbl_makanan. KD_Makanan dan Nama_Makanan.
Klik Next sampai ke kotak dialog Report Style.
·
Pilih Gaya Tampilan Laporan Sesuai
dengan keinginan (dalam hal ini saya memilih Table. Lalu klik Finish.
·
Atur kerapian dan posisi tulisan dan
kasih judul ‘Laporan Data Makanan’ di bagian Main Report. Untuk melihat
laporannya klik pada bagian Main Report Preview. Lalu disimpan.
·
Lalu membuat form untuk menempatkan
laporannya, pilih menu project – Add Windows Form – beri nama formnya ‘LapDatamakanan’ – klik Add.
·
Ubah Property Text’nya menjadi Laporan
Data MAkanan. Kemudian ganti iconnya dengan gambar yang sesuai dengan tema
formnya.
·
Untuk memasukan laporan ke dalam form,
pilih dan drag and drop Crystal Report Viewer pada Toolbox ke Form Laporan Data Makanan.
·
Klik pada Tanda Panah Ke kanan,pojok
kanan atas. Lalu pilih Choose a Crystal Report, pilih crystal report
yang tadi dibuat. Pada Choose a Tool
Panel View, ganti Group Tree menjadi None
(menghilangkan tampilan Tree/Pohon).
·
Laporan sudah selesai dibuat, adapun
untuk membuat laporan yang lain, caranya sama seperti di atas.
e. Membuat
Menu Utama
-
Buat Form dengan nama MenuUtama, dengan
cara pilih menu project – add windows form – beri nama form ‘MenuUtama’ lalu klik add.
-
Ganti property Text menjadi ‘Menu Utama’, dan ganti icon form dan
background image sesuai dengan tema perpustakaan, serta IsMDIContainer diubah menjadi True.
-
Desain dengan menggunakan MenuStrip seperti gambar di bawah ini :
C. Di
bawah ini coding di dalam masing2 form berikut penjelasannya.
1. Coding
dalam Form DataSiswa
Public Class Form8
Private Sub Form8_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
'TODO: This
line of code loads data into the 'Database2DataSet1.Tbl_Pembayaran' table. You
can move, or remove it, as needed.
Me.Tbl_PembayaranTableAdapter.Fill(Me.Database2DataSet1.Tbl_Pembayaran)
End Sub
Private Sub simpan_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
simpan.Click
Me.Validate()
Me.Tbl_PembayaranBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database2DataSet1)
End Sub
Private Sub tambah_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
tambah.Click
Dim
ketemu As Integer
ketemu =
Tbl_PembayaranBindingSource.Find("KD_Pembayaran",
TextBox1.Text)
If
ketemu >= 0 Then
MsgBox("Kode
Pembayaran sudah terpakai", 0 + 16 + 256, "Perhatian")
TextBox1.Text = ""
TextBox1.Focus()
Else
Tbl_PembayaranBindingSource.AddNew()
KD_PembayaranTextBox.Text =
TextBox1.Text
KD_PembayaranTextBox.Focus()
End If
End Sub
Private Sub keluar_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
keluar.Click
If
MsgBox("Anda Yakin Data Sudah Tersimpan Dan
Ingin Keluar???", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
Me.Close()
End If
End Sub
Private Sub cari_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
cari.Click
Dim
caripembayaran As String
Dim
posisi As Integer
= 1
caripembayaran = InputBox("Masukkan Kode Pembayaran", "Cari Kode Pembayaran")
If
(Tbl_PembayaranBindingSource.Find("KD_Pembayaran",
caripembayaran)) > -1 Then
MsgBox("Data
Ditemukan", vbOKOnly, "Pencarian
Data")
Me.Tbl_PembayaranBindingSource.Position
= Tbl_PembayaranBindingSource.Find("KD_Pembayaran",
caripembayaran)
posisi =
Tbl_PembayaranBindingSource.Find("KD_Pembayaran",
caripembayaran) + 1
Else
MsgBox("Data
Tidak Ditemukan", vbOKOnly, "Pencarian
Data")
End If
End Sub
Private Sub hapus_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
hapus.Click
Me.Tbl_PembayaranBindingSource.RemoveCurrent()
End Sub
End Class
Penjelasan
:
Pada dasarnya untuk tabel yang lainnya sama namun cukup mengganti
dalam penamaannya saja.
2. Form
MenuUtama
Public Class Menu_Utama
Private Const CP_NOCLOSE_BUTTON As
Integer = 512
Protected Overrides ReadOnly Property CreateParams() As
System.Windows.Forms.CreateParams
Get
Dim
noclose As CreateParams
noclose = MyBase.CreateParams
noclose.ClassStyle =
CP_NOCLOSE_BUTTON
Return
noclose
End Get
End Property
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles KeluarToolStripMenuItem.Click
If
MsgBox("Anda Yakin Data Sudah Tersimpan Dan
Ingin Keluar???", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
Me.Close()
End If
End Sub
Private Sub MakananToolStripMenuItem2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles MakananToolStripMenuItem2.Click
Form1.Show()
End Sub
Private Sub MemberToolStripMenuItem2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles MemberToolStripMenuItem2.Click
Form2.Show()
End Sub
Private Sub KaryawanToolStripMenuItem2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles KaryawanToolStripMenuItem2.Click
Form6.Show()
End Sub
Private Sub PembayaranToolStripMenuItem2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles PembayaranToolStripMenuItem2.Click
Form8.Show()
End Sub
Private Sub MakananToolStripMenuItem3_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles MakananToolStripMenuItem3.Click
Form4.Show()
End Sub
Private Sub MemberToolStripMenuItem3_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles MemberToolStripMenuItem3.Click
Form5.Show()
End Sub
Private Sub KaryawanToolStripMenuItem3_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles KaryawanToolStripMenuItem3.Click
Form7.Show()
End Sub
Private Sub PembayaranToolStripMenuItem3_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles PembayaranToolStripMenuItem3.Click
Form9.Show()
End Sub
Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles KeluarToolStripMenuItem1.Click
If
MsgBox("Anda Yakin Data Sudah Tersimpan Dan
Ingin Keluar???", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
Me.Close()
End If
End Sub
End Class
