BELAJAR PEMULA VISUAL BASIC: MEMBUAT APLIKASI DATABASE DENGAN MENGGUNAKAN VB 6.0

langkah - langkah untuk pembuatan aplikasi tersebut.

pertama buat gambar seperti ini:

untuk DBGRID kita mesti menambahkannya..
caranya:
a.klik kannan pada area object,
b.kllik components..
c.pilih microsoft data bound grid 5.0(SP3)
setelah itu klik ok.

selanjutnya kita membuat databasenya.

klik add_ins atau bisa dengan menekan alt+a lalu pilih visual data manager , selanjutnta kllik file, new, microsoft acces dan version 7MDB
lihat gambar di bawah ini:

kita save pada data kita selain d C..
klik kanan pada properties, lalu klik new table..

kita isikan data base nya..
table name : jurusan

klik add field
name= kode jurusan
klik ok
name = nama_jurusan
klik ok
klik close
klik build the table

selanjut nya kita rubah pada

sekarang kita masukin coding nya :

Private Sub cmd_hapus_Click()
If cmd_hapus.Caption = "hapus" Then
bersih
cmd_hapus.Caption = "simpan"
cmd_tambah.Enabled = False
cmd_ubah.Enabled = False
cmd_keluar.Caption = "batal"
Else
Data2.RecordSource = "select*from jurusan where kode_jurusan='" & Trim(txt_kd_jur) & "'"
'data2.Refresh
Data1.Recordset.Delete
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub cmd_keluar_Click()
If cmd_keluar.Caption = "keluar" Then
Unload Me
Else
bersih
normal
End If
End Sub

Private Sub cmd_tambah_Click()
If cmd_tambah.Caption = "tambah" Then
bersih
cmd_tambah.Caption = "simpan"
cmd_ubah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "batal"
Else
Data1.Recordset.AddNew
Data1.Recordset("kode_jurusan") = Trim(txt_kd_jur.Text)
Data1.Recordset("nama_jurusan") = Trim(txt_nm_jur.Text)
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub cmd_ubah_Click()
If cmd_ubah.Caption = "ubah" Then
bersih
cmd_ubah.Caption = "simpan"
cmd_tambah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "batal"
Else
Data2.RecordSource = "select*from jurusan where kd_jur='" & Trim(txt_kd_jur.Text) & "'"
'Data2.Refresh
Data1.Recordset.Edit
Data1.Recordset("nama_jurusan") = Trim(txt_nm_jur.Text)
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub form_load()
txt_kd_jur = ""
txt_nm_jur = ""
End Sub

Private Sub bersih()
txt_kd_jur.SetFocus
txt_kd_jur.Text = ""
txt_nm_jur.Text = ""

End Sub

Private Sub normal()
cmd_tambah.Caption = "tambah"
cmd_ubah.Caption = "ubah"
cmd_hapus.Caption = "hapus"
cmd_keluar.Caption = "keluar"
cmd_tambah.Enabled = True
cmd_ubah.Enabled = True
cmd_hapus.Enabled = True
End Sub

coba kita run

klik tambah , tambah berubah jadi simpan , ubah dan hapus berubah menjadi tidak aktiv, keluar berubah jadi batal

lalu lita input

setelah kita input dan simpan tombol kembali normal.

kita klik ubah, ubah berubah jadi simpan , keluar jadi batal, tambah dan hapus menjadi tidak aktiv.