Assalamu’alaikum
wr.wb.
Untuk kedua
kalinya saya akan share tentang Visual Basic lagi. Di postingan kali ini saya
akan berbagi tentang Penggunaan Visual Data Manager di VB yang lumayan
sederhana pembuatannya. Program ini hanya bisa dibuat di Visual Basic yang
sudah terpasang di PC, kalau di VB Portable Tidak bisa dibuat(sepengetahuan
saya sih).
Pertama buka dulu
IDE Visual Basicnya. Kemudian pilih Standard EXE. Sebelum membuat tampilan di
form, kalau saya bikin Data Managernya dulu...
Cara membuat Data
Manager di Visual Data Manager :
1.
Klik
Add-Ins di Menu Bar, Terus Pilih Visual Data Manager...
2.
Kemudian
akan muncul tampilan Visual Data Manager seperti ini,
3.
Lalu
Klik File – New – Microsoft Acces – Lalu pilih Version 7.0 MDB...(Maaf gambarnya kurang lengkap dikit )
4.
Setelah
itu simpan file database yang akan kita buat di directory. Di sini saya
menyimpannya di My Document dengan nama Data1.
5.
Kemudian
Klik kanan di area Data Window lalu pilih new table.
6.
Kemudian
ketikkan “dtaTeman” tanpa tanda kutip di kotak Table name.
7.
Lalu
klik Add Field, lalu buat Field. Caranya Ketikkan Nama di kotak Name: kemudian
Ok. Ulangi cara tersebut tapi dengan nama yang berbeda. Yaitu dengan nama Alamat,
HP, Email. Lalu klik tombol Build The Table, Sehingga mendapat tampilan seperti
ini.
8.
Setelah
itu silahkan agan-agan minimize or close aja, klo aq, aq minimizesin aj..
Kemudian kita kembali ke Form yang ada di Visual Basic tadi. Sekarang kita buat
tampilannya sbb. :
* Tambahkan Commponents berupa
DBGrid(Microsoft Data Bound Grid 5.0
(SP3) )
-
4 Label Yang masing – masing Captionnya Di rubah menjadi Nama, Alamat,
No. HP, Email.
-
4 TextBox yang,
TextBox
Text1
·
DataSource
= data
·
DataField
= Nama
Text2
·
DataSource
= data
·
DataField
= Alamat
Text1
·
DataSource
= data
·
DataField
= HP
Text2
·
DataSource
= data
·
DataField
= Email
-
Tambahkan Data
Data
Name =
data
DataBaseName
= pilih lokasi dimana agan meletakkan
file database kita tadi.
RecordSource = Pilih dtaTeman
-
Tambahkan DBGrid
DBGrid
DataSource
= data
-
Tambahkan 5 Command Button
Command 1
Caption
= Tambah
Command 2
Caption
= Simpan
Command 3
Caption
= Edit
Command 4
Caption
= Hapus
Commad 5
Caption
= Keluar
Terserah bagaimana agan ngaturnya, klo aq ngturnya yw kayak gini..(namanya
juga masih newbee J )
9.
Setelah
itu Klik kanan form yang ada titik-titiknya itu kemudian Pilih View Code,
setelah itu masukkan kode berikut :
------------------------------------Source------------------------------------
Private Sub Form_Load()
Command2.Enabled = False
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
End Sub
Private Sub Form_Activate()
If Text1.Text & Text2.Text & Text3.Text & Text4.Text =
"" Then
Command4.Enabled = False
End If
End Sub
Private Sub Command2_Click()
prompt$ = "Simpan data
baru..?"
reply = MsgBox(prompt$,
vbOKCancel, "Simpan data")
If reply = vbOK Then
data.Recordset!Nama =
Text1.Text
data.Recordset!Alamat =
Text2.Text
data.Recordset!HP =
Text3.Text
data.Recordset!Email =
Text4.Text
data.Refresh
End If
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
End Sub
Private Sub Command4_Click()
If Text1.Text & Text2.Text
& Text3.Text & Text4.Text = "" Then
peompt$ = "Tidak ada
data yang bisa dihapus !"
reply = MsgBox(peompt$, vbOKOnly,
"Hapus data")
Else
prompt$ = "Menghapus
Data Teman?"
reply = MsgBox(prompt$,
vbOKCancel, "Hapus data")
If reply = vbOK Then
data.Recordset.Delete
Text1.SetFocus
End If
Form1.data.Refresh
End If
End Sub
Private Sub Command3_Click()
If Text1.Text & Text2.Text & Text3.Text & Text4.Text =
"" Then
MsgBox "Tidak ada catatan yang bisa di edit !"
Else
prompt$ = "Edit data teman ?"
reply = MsgBox(prompt$,
vbOKCancel, "Edit DATA")
If reply = vbOK Then
data.Recordset.Edit
On Error Resume Next
Text1.SetFocus
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
End If
End If
End Sub
Private Sub Command1_Click()
prompt$ = "Tambah data teman
baru?"
reply = MsgBox(prompt$, vbOKOnly,
"TAMBAH DATA")
If reply = vbOK Then
data.Recordset.AddNew
Text1.SetFocus
End If
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
End Sub
Private Sub Command5_Click()
End
End Sub
------------------------------------End_Source------------------------------------
10.
Nah
setelah itu Klik F5 di keyboard... Buat yang malas copas, silahkan klik disini, dan klik di sini buat databasenya. Ya sekian
karena saya masih newbie jadi yw gini-gini aj postingannya. Jangan lupa
tinggalin komen ama kritik dan sarannya yw.... :)
...Semoga Bermanfaat...
Wassalamu'alaikum wr.wb
...Semoga Bermanfaat...
Wassalamu'alaikum wr.wb
Tags:
Visual Basic
Leave a comment