Private Sub CMDDELETEClick CMDADD.Enabled = False CMDCLEAR.Enabled = False CMDEDIT.Enabled = False a = MsgBox('YAKIN ANDA MAU MENGAHAPUS DATA INI?' , vbQuestion + vbYesNo, 'KONFIRMASI') If a = vbYes Then Data1.Recordset.Delete TXTKODE.Text = ' txtkd1.Text = ' CBOJENIS.Text = ' Call kosong MsgBox 'DATA TELAH BERHASIL DIHAPUS', vbOKOnly, 'INFO' TXTFIND.Text = ' TXTFIND.Enabled = True Data1.Refresh DBGrid1.Refresh CMDADD.Enabled = True Else CMDDELETE.Enabled = False CMDADD.Enabled = True TXTFIND.Text = ' TXTFIND.Enabled = True End If End Sub.
Nov 1, 2013 - Contoh Program Penjualan Barang Menggunakan Listview Pada VB.Net. Public Class Penjualan_Barang. Download source code contoh-contoh program dengan visual basic 6.0, 2008, 2010, 2013 dan Kumpulan Tutorial Belajar VB.