langkah - langkah untuk pembuatan aplikasi tersebut.
pertama buat gambar seperti ini:
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 :
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
setelah kita input dan simpan tombol kembali normal.
kita klik ubah, ubah berubah jadi simpan , keluar jadi batal, tambah dan hapus menjadi tidak aktiv.
kita klik batal tombol kembali normal..
kita klik hapus, hapus jadi simpan, keluar jadi batal dan tambah n ubah tidak aktiv..
jika kita klik keluar maka selesai aplikasinya..
selamat mencoba
No comments:
Post a Comment