VB

Data

1.     

Pada Menu, pilih Add-Ins, Visual Data Manager

Membuat Database dan Tabel

Materi Visual Basic Pasca UTS

Koneksi Database Menggunakan

lalu muncul jendela visdata karena membuat database baru maka pilih file,new,Microsoft Access, Version 7.0 MDB

Lalu simpan database dengan nama penjualan di dalam folder nim masing-masing

C:\lab_pagi\1211xxxx\penjualan

Klik kanan pada Properties lalu pilih New Table

Setelah itu klik OK

Tentukan sizenya ( panjang karakter) : 6

Pilih type datanya : Text

Ketik nama fielnya : kdbrg

Klik Add Field untuk membuat field baru

Pada Table Structure, ketik nama tabelnya : barang

Lalu isi field di bawah ini

Field name	Type	Size	Index
kdbrg	text	6	Barangdex
nmbrg	text	30
harga	double	8
satuan	text	10

Setelah semua field kita buat, langkah selanjutnya membuat index, caranya : Klik Add Index

Ketik nama indexnya : barangdex Klik field kdbrg sebagai field index OK

Isi recordnya dengan cara : Klik kanan pada tabel barang lalu pilih open

Untuk mengisi record, pilih add

Isi terlebih dahulu recordnya Setelah di isi semua, pilih update Isikan sebanyak 5 record

Lalu design Form seperti di bawah ini

Untuk menambahkan object baru yang bernama DBGrid, ada 3 cara yang dapat digunakan yaitu :

1. Pilih menu Project, klik Components
2. Klik kanan pada jendela ToolBox lalu pilih Components
3. Tekan tombol Ctrl. + t pada keyboard

Lalu tampil jendela Components cari Microsoft Data Bound Grid Control 5.0 (SP3), checklist kotak sebelah kiri.

Setting properties pada object

Nama object	Properties	Value
Data1	DatabaseName	Cari path tempat penyimpanan database anda
	RecordsetType	0-Table
	RecordSource	Barang
DBGrid1	DataSource	Data1
Text1	Name	Txtkdbrg
CommandButton1	Name	cmdadd
	Caption	ADD

Listing Program

Sub tampilkan()

With Data1.Recordset

txtkdbrg = !kdbrg

txtnmbrg = !nmbrg

txtharga = !harga

txtsatuan = !satuan

End With

End Sub

Sub kosong()

Dim a As Control

For Each a In Form1

If TypeName(a) = "TextBox" Then

a.Text = ""

End If

Next

End Sub

Sub aktif()

txtkdbrg.Enabled = True

txtnmbrg.Enabled = True

txtharga.Enabled = True

txtsatuan.Enabled = True

End Sub

Sub nonaktif()

txtkdbrg.Enabled = False

txtnmbrg.Enabled = False

txtharga.Enabled = False

txtsatuan.Enabled = False

End Sub

Private Sub Form_Activate()

nonaktif

cmdsave.Enabled = False

cmdedit.Enabled = False

cmdundo.Enabled = False

cmddelete.Enabled = False

End Sub

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

kosong

aktif

txtkdbrg.SetFocus

cmdadd.Enabled = False

cmdsave.Enabled = True

cmdedit.Enabled = False

cmdundo.Enabled = True

cmddelete.Enabled = False

cmdexit.Enabled = False

cserch.Enabled = False

tseek.Enabled = False

End Sub

Private Sub cmdundo_Click()

Data1.Recordset.CancelUpdate

nonaktif

Data1.Recordset.MoveFirst

tampilkan

cmdadd.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = False

cmdundo.Enabled = False

cmddelete.Enabled = False

cmdexit.Enabled = True

cserch.Enabled = True

tseek.Enabled = True

End Sub

Private Sub cmdedit_Click()

Data1.Recordset.Edit

aktif

txtkdbrg.Enabled = False

txtnmbrg.SetFocus

cmdadd.Enabled = False

cmdsave.Enabled = True

cmdedit.Enabled = False

cmdundo.Enabled = True

cmddelete.Enabled = False

cmdexit.Enabled = False

cserch.Enabled = False

End Sub

Private Sub cmddelete_Click()

del = MsgBox("yakin akan dihapus???", vbYesNo, "KONFIRMASI")

If del = vbYes Then

Data1.Recordset.Delete

Data1.Recordset.MoveFirst

End If

tampilkan

cmdadd.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = False

cmdundo.Enabled = False

cmddelete.Enabled = False

cmdexit.Enabled = True

cserch.Enabled = True

tseek.Enabled = True

tseek.Text = ""

End Sub

Private Sub cmdsave_Click()

With Data1.Recordset

!kdbrg = txtkdbrg

!nmbrg = txtnmbrg

!harga = txtharga

!satuan = txtsatuan

.Update

End With

Data1.Refresh

nonaktif

tampilkan

cmdadd.Enabled = True

cmdsave.Enabled = False

cmdedit.Enabled = False

cmdundo.Enabled = False

cmddelete.Enabled = False

cmdexit.Enabled = True

cserch.Enabled = True

tseek.Enabled = True

End Sub

Private Sub cmdfrist_Click()

Data1.Recordset.MoveFirst

tampilkan

End Sub

Private Sub cmdprev_Click()

Data1.Recordset.MovePrevious

If Data1.Recordset.BOF Then

MsgBox "DATA SUDAH DIAWAL RECORD", vbOKOnly, "INFORMASI"

Data1.Recordset.MoveFirst

End If

tampilkan

End Sub

Private Sub cmdnext_Click()

Data1.Recordset.MoveNext

If Data1.Recordset.EOF Then

MsgBox "DATA SUDAH DIAKHIR RECORD", vbOKOnly, "INFORMASI"

Data1.Recordset.MoveLast

End If

tampilkan

End Sub

Private Sub cmdlast_Click()

Data1.Recordset.MoveLast

tampilkan

End Sub

Private Sub cmdexit_Click()

kel = MsgBox("YAKIN AKAN KELUAR", 36, "konfirmasi")

If kel = vbYes Then

End

End If

End Sub

Private Sub cmdserch_Click()

Data1.Recordset.Index = "barangdex"

Data1.Recordset.Seek "=", tseek

If Data1.Recordset.NoMatch Then

MsgBox "DATA TIDAK DITEMUKAN", vbOKOnly, "INFORMASI"

Data1.Recordset.MoveFirst

tseek = ""

tseek.SetFocus

Else

tampilkan

End If

End Sub