MEMBUAT PROGRAM DATABASE SEDERHANA MENGGUNAKAN VISUAL BASIC

PROGRAM DATABASE SEDERHANA MENGGUNAKAN VISUAL BASIC

LANGKAH - LANGKAH PEMBUATAN :
1. Buatlah tampilah form seperti gambar dibawah ini :

  2. Buka new project kemudian ikuti langkah sesuai gambar berikut : 

   
3. Buat Tabel Jurusan dengan cara buka VisData dan klik kanan pada Properties kemudian pilih New Table

    
 4. Pada Data1 setting untuk Properties Recordsource dan DatabaseName seperti gambar berikut :
         

5. Pada DBGrid1 setting properties DataSource kemudian klik kanan lalu pilih Retrieve Fields seperti gambar berikut :

    6. Masukkan coding
       

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 hapus 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 ).

    

 OK...temen - temen ^^^SELAMAT BER_EKSPERIMEN^^^

~Titin's Friends~