MERANCANG FORM INPUT DATA PELANGGAN LOUNDRY
Teman – teman kali ini kita akan mencoba untuk membuat
sebuah program sederhanan dengan menggunakan visual basic, contoh project saya
kali ini adalah form pelanggan. Pada tutorial visual basic kali ini kita akan membuat perintah simpan peribrah hapus dan perintah ubah pada vb ( visual basic)..
Sebelum kita mulai
siapkan dulu bahan – bahannya ya…
Pertama kita bikin
databasenya yaa teman, untuk percobaan kali ini kita menggunakan database dari
MS.Acces2.
Field
|
Size
|
Kode_pelanggan
|
5
|
Nama
|
30
|
Alamat
|
30
|
No_Hp
|
Number
|
Seteh field kita selesai
simpan dengan nama “pelanggan”, dan seteh itu simpan database dengan nama
“loundry”, simpanlah database disatu folder dengan program aplikasi yang akan
kita bikin.
Okeeee setelah database
selesai kita bikin selanjutnya kita kerjakan form input VB nya. Bukalah program
VB dan masukkan komponen – komponen berikut kedalam form vb :
Nama Komponen
|
Keterangan
|
Label1
Label2
Label3
Label4
Label5
Text1
Text2
Text3
Text4
Command1
Command2
Command3
Command4
Command5
Datagrid1
|
INPUT DATA PELANGGAN
Kode Pelanggan
Nama Pelanggan
Alamat
No.HP
Untuk memasukkan kode pelanggan
Untuk memasukkan Nama Pelanggan
Untuk memasukkan Alamat
Untuk memasukkan No.HP
SIMPAN
UBAH
HAPUS
BATAL
KELUAR
Untuk menampilkan data
|
Susunlah komponen diatas
seperti gambar dibawah ini :
Gambar 1. Tampilan Desain Form Pelanggan
Setelah itu kita akan
masuk pada pengekodean, yang pertama akan kita bahas adalah koneksi, untuk
menghubungakan vb dengan database acces kita memerlukan komponen ADODC untuk
mencari alamat database yang telah kita buat, setelah itu baru kita masukkan
alamat tadi kedalam module, baiklah kita lansung saja untuk mengkoneksikan vb
dengan database acces adalah sebagai berikut :
1. Ambillah
komponen ADODC didalam menu komponen, jika tidak ada nama komponen ADODC maka
kita keluarkan dengan cara klik kanan pada menu komponen .
Seperti gambar dibawah
ini :
Gambar 2. Memanggil menu komponen
Lalu beri tanda
pada komponen yang akan kita gunakan seperti gambar dibawah ini:
Gambar 3. Memilih Komponen yang digunakan
Setelah memilih komponen yang digunakan lalu tekan tombol “Ok”.
2. Untuk
membuat module koneksi pada vb kita perlu memanggil fungsinya dengan cara
sebagai berikut :
- Klik kanan pada bagian project > lalu
pilih Add > Module, makan pada bagian project akan ada module seperti gambar
dibawah ini :
Gambar 4. Form module koneksi
- Untuk
membuat koneksi kita ambil alamat database dengan menggunakan komponen ADODC
masukkan kedalam form.
Gambar 5. Komponen ADODC
-
Klik Kanan komponen ADODC dan pilih ADODC
Properties seperti gambar dibawah ini:
Gambar 6. Propertis ADODC
-
Klik Tombol Build
Gambar 7. Propertis dari ADODC
Setelah muncul
properties dari ADODC selanjutnya klik tombil buid.
- Pilih Next
Gambar 8. Pilih Microsoft Jet 4.0 OLE DB Provider
- Selajutnya klik tombol next dan properties
selanjutnya akan menuju ke tab connection
selanjutnya pada bagian select or enter a database name, carilah
lokasi penyimpanan database yang sudah kita buat.
- selanjutnya setelah
database kita temukan, untuk memastikan bahwa databasenya sudah terkoneksi
dengan baik, klik tombol Test Connection.
Jika sudah terhubung dengan baik maka akan muncul pesan seperti dibawah ini :
Gambar 9. Connection Succeessded
- Selanjutnya klik oke dan salin perintah yang ada pada use connection string semuanya.
Gambar 10. Salin lokasi database yang ada pada properties ADODC.
Setelah alamat lokasi
database disalin semua, tutup properties ADODC dengan klik tombol CANCEL. Selah
itu kembali pada module yang kita buat pada project tadi dan ketikkan perintah dibawah ini :
Membuat variabel koneksi
dan recordset
Public cn As New
ADODB.Connection
Public rs As New
ADODB.Recordset
Membuat fungsi baru
dangan nama “koneksi”
Function koneksi()
Set cn = New
ADODB.Connection
cn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &
"\londry.mdb;Persist Security Info=False"
End Function
Seperti pada g dimbar
bawah ini.
Gambar 11. Scrip koneksi pada modul
Setelah koneksi database
kita lakukan tutup halaman module koneksi ini dan simpan, setelah itu hapus
saja ADODC yang ada pada form dan koneksi ini cukup satu kali kita lakukan
untuk satu project vb ini,untuk form selanjutnya kita akan panggil koneksi yang
sudah kita buat tadi.
Sekarang kita akan
mengisi perintah pada setiap tombol yang ada pada form dan yang pertama kita
membuat tombol simpan,.
-
Klik 2 kali tombol
simpan dan ketikkan perintah dibawah ini
:
Private Sub Command1_Click()
Set rs = New ADODB.Recordset
rs.Open " select * from pelanggan where kode_pelanggan =
'" & Text1.Text & "'", cn, adOpenKeyset
If rs.RecordCount <> 0 Then
MsgBox " data sudah
ada"
Else
cn.Execute " insert into pelanggan values ( '" &
Text1.Text & "','" & Text2.Text & "','" &
Text3.Text & "','" & Text4.Text & "')"
MsgBox " Data Sudah Disimpan"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If
tampil
End Sub
Catatan :
Perintah
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Adalah untuk membersihkan komponen text1 sampai dengan tetxt4.
-
Selanjutnya klik tombol
hapus dan masukkan perintah ini:
Private Sub
Command3_Click()
cn.Execute "delete
from pelanggan where kode_pelanggan = '" & Text1.Text &
"'"
MsgBox " Data Sudah
dihapus"
tampil
Text1.Text =
""
Text2.Text =
""
Text3.Text =
""
Text4.Text =
""
End Sub
-
Selanjutnya kita
masukkan perintah ubah / update
Private
Sub Command2_Click()
cn.Execute
("update pelanggan set kode_pelanggan = '" & Text1.Text &
"',nama_pelanggan = '" & Text2.Text & "', alamat =
'" & Text3.Text & "', No_hp = '" & Text4.Text &
"' where kode_pelanggan = '" & Text1.Text & "'")
MsgBox
" Data Sudah Diperbaiki"
tampil
Text1.Text
= ""
Text2.Text
= ""
Text3.Text
= ""
Text4.Text
= ""
End
Sub
Sekarang
perintah yang paling gampang yaitu untuk membersihkan komponen text :
Text1.Text
= ""
Text2.Text
= ""
Text3.Text
= ""
Text4.Text
= ""
Tampil
Sebelum
kita uji coba programnya kita harus masukkan perintah koneksi pada Form Load , perintahnya adalah :
Call
koneksi
Text1.Text
= ""
Text2.Text
= ""
Text3.Text
= ""
Text4.Text
= ""
Tampil
Demikianlah program sederhana simpan data pelanggan loundry, emoga bermanfaat bagi teman - teman.
Pemrograman Visual Basic, form input VB, Perintah simpan data, perintah hapus data, perintah ubah data, perintah batal pada visual basic.