Cara Membuat Tombol Simpan dan Ubah Database VB6

Selamat datang di achulblog.blogspot.com, kali ini Tutorial Cara membuat Tombol Simpan (Save) dan Tombol Ubah (Update) Database pada Program Visual Basic 6. Untuk memudahkan anda Sebaiknya Lihat Tutorial VB6 lainnya di Tutorial VB6, dikarenakan saya menggunakan variable-variable dan tampilan yang sama pada tutorial sebelumnya. yang dipentingkan adalah Cara Koneksi Database vb6, Tampil Data pada Textbox, dan Procedure Disabled Textbox sudah anda buat sebelumnya.

Untuk memahami penggunaan tombol ini akan saya jelaskan sebelumnya, saya menggunakan kedua tombol dengan Caption Tambah dan Ubah, dan kedua tombol ini nantinya akan memiliki masing-masing dua fungsi, yaitu Tombol Tambah akan memiliki fungsi Simpan dan Tombol Ubah akan memiliki fungsi Batal (Cancel). jadi kodenya akan sedikit lebih banyak. ini tampilan Design saya :

Ini Adalah Contoh Kode Tombol Tambah ( Add ) :

Private Sub cmdTambah_Click()
If cmdTambah.Caption = "Tambah" Then
    cmdTambah.Caption = "Simpan"
    cmdUbah.Caption = "Batal"
    cmdHapus.Enabled = False
    cmdCari.Enabled = False
    cmdTutup.Enabled = False
    cmdBrowse.Enabled = False
            'nonaktifkn navigasi
            cmdFirst.Enabled = False
            cmdPrev.Enabled = False
            cmdNext.Enabled = False
            cmdLast.Enabled = False
            Aktif Me, True 'aktifkan textbox
            Kosong Me 'kosongkan textbox
            txtkodeBrg.SetFocus 'kursor pada txtbox
            Cek = 1
Else
'Simpan 'prosedure simpan data
            Call Simpan1 ' simpan store procedure
            'Call IsiSatuan 'menambahkan satuan pd combo box
            'perubahan nama caption
            cmdTambah.Caption = "Tambah"
            cmdUbah.Caption = "Ubah"
            'tombol2
            cmdHapus.Enabled = True
            cmdCari.Enabled = True
            cmdTutup.Enabled = True
            cmdBrowse.Enabled = True
            'nonaktifkn navigasi
            cmdFirst.Enabled = True
            cmdPrev.Enabled = True
            cmdNext.Enabled = True
            cmdLast.Enabled = True
            Aktif Me, False
            Kosong Me
End If
End Sub

Ini adalah Kode pada Tombol Ubah ( Update ) :

Private Sub cmdUbah_Click()
If cmdUbah.Caption = "Ubah" Then
    cmdUbah.Caption = "Batal"
    cmdTambah.Caption = "Simpan"
    cmdHapus.Enabled = False
    cmdCari.Enabled = False
    cmdTutup.Enabled = False
    cmdBrowse.Enabled = False
            'nonaktifkn navigasi
            cmdFirst.Enabled = False
            cmdPrev.Enabled = False
            cmdNext.Enabled = False
            cmdLast.Enabled = False
            Cek = 0
            Aktif Me, True 'aktifkan textbox
            txtkodeBrg.Enabled = False 'txbox kode dinonaktifkan
            txtnamaBrg.SetFocus ' fokus pd nm barang
Else
'tombol2
            cmdTambah.Caption = "Tambah"
            cmdUbah.Caption = "Ubah"
            cmdHapus.Enabled = True
            cmdCari.Enabled = True
            cmdTutup.Enabled = True
            cmdBrowse.Enabled = True
            'nonaktifkn navigasi
            cmdFirst.Enabled = True
            cmdPrev.Enabled = True
            cmdNext.Enabled = True
            cmdLast.Enabled = True
            Aktif Me, False
            call tampil

End If
End Sub

Penjelasan : If diatas dimaksudkan Jika CmdTambah memiliki caption Tambah maka captionnya diganti dengan Simpan, dan tombol Ubah captionnya dirubah menjadi batal. kemudian nonaktifkan tombol-tombol lainnya dengan menggunakan property .Enabled kemudian panggil Pocedure Aktif Textbox, karena Textbox pada Form load di nonaktifkan akan Tidak ada perubahan data, Kemudian pangil Procedure Kosong. Berikan setfocus pada textbox yang memiliki Primarykey. beri nilai Cek=1, PERHATIKAN -> Sebelumnya Deklarasikan variable Cek pada (General) Deklaration, Cek dimaksudkan Bila Cek = 1 maka Simpan dengan manambahkan Data baru, Dan Bila Cek=0 Maka Simpan akan merubah Data atau Update.

Setelah Else itu adalah Tempat Kode untuk Tombol Simpan, panggil Procedure Simpan ini Cara Membuat Procedure Simpan VB6. kemudian aktifkan kembali Tombol-Tombol yang dinonaktifkan sebelumnya, juga kembalikan nama Caption pada cmdTambah dan CmdUbah seperti semula. Selesai

Link Tutoria yang berhubungan :

1. Cara Membuat Procedure Simpan
2. Cara Membuat Koneksi VB6
3. Cara Menampilkan TextBox VB6
4. Cara Membuat Procedure Aktif dan Kosong Textbox

Terima Kasih, Tunggu Tutorial Selanjutnya.