tgas vb 4

Tugas visual besic

NPM      : 43a87067100004

Nama    : anggie meylanda dea

Kelas     : D3 /KA/3/M

Membuat program database sederhana dengan visual besic

Langkah-langkahnya sebagai berikut :

1.buatlah form seperti dibawah ini

2. buka new project kemudian ikuti langkah berikut :

           

3. tampilan seperti dibawah ini :

Lalu klik file ->new->microsoft access->version 7.0 mdb ,seperti tampilan dibawah ini :

<

kemudian save

4.buat tabel jurusan dengan cara buka visdata dan klik kanan pada properties kemudian pilih new table

5.Pada dbgridl setting properties data source kemudian klik kanan lalu pilih retrieve field sperti gambar berikut :

6.masukkan coding dibawah ini

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_kdjur.Text)

Data1.Recordset("Nama_Jurusan") = Trim(txt_nmjur.Text)

Data1.Recordset.Update

Data1.Refresh

DBGrid1.Refresh

bersih

normal

End If

End Sub

Private Sub bersih()

txt_kdjur.SetFocus

txt_kdjur.Text = ""

txt_nmjur.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

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 Kode_Jurusan='" & Trim(kdjur) & "'"

'data2.Refresh

Data1.Recordset.Edit

Data1.Recordset("Nama_Jurusan") = Trim(Txt_nmjur.Text)

Data1.Recordset.Update

Data1.Refresh

DBGrid1.Refresh

bersih

normal

End If

Private Sub Cmd_hapus_Click()

If Cmd_hapus.Caption = "Hapus" Then

bersih

Cmd_tambah.Enabled = False

Cmd_ubah.Enabled = False

Cmd_hapus.Caption = "Simpan"

Cmd_keluar.Caption = "Batal"

Else

Data2.RecordSource = "select*from jurusan Kode_Jurusan='" & Trim(kdjur) & "'"

'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

 ~TAMPILAN SAAT RUNNING~

1. Ketika Running "tambah"

    Maka Command tambah menjadi Simpan, ubah dan hapus tidak aktif dan keluar menjadi Batal

2.ketika running “ubah”

Maka command ubah menjadi simpan,tambah dan ubah tidak aktif,keluar menjadi batal.

3. Ketika Running "hapus"

     Maka Command hapus menjadi Simpan, tambah dan ubah tidak aktif, keluar menjadi Batal

  

4. Ketika Running "keluar"

     Maka akan kembali ke normal ( tambah, ubah, hapus dan keluar aktif semua ) dan jika tombol "keluar" diklik maka akan keluar dari running ( end program ).