Kode Hapus Visual Basic 6.0 dengan mengunakan komponen mshflexgrid dan adodc

Kode Hapus Visual Basic 6.0 dengan mengunakan komponen mshflexgrid dan adodc

Private Sub cmdhapus_Click()

On Error Resume Next

Dim ADA As Boolean

buka_database

Source.Open "Select kd_barang From stok_bertambah Where kd_barang='" & txtkd_barang.Text & "'", kon, 1, 2

    If Source.EOF Then

        ADA = False

    Else

        ADA = True

    End If

Source.Close

tutup_database

    If MsgBox("APAKAH KAMU YAKIN INGIN MENGHAPUSNYA ?????", vbQuestion + vbOKCancel, "Hapus ?") = vbOK Then

        buka_database

            kon.Execute "Delete From stok_bertambah  Where kd_barang='" & txtkd_barang.Text & "'"

        tutup_database

        MsgBox "Data telah terhapus !", vbInformation + vbOKOnly, "Sukses"

        txtkd_barang.Text = ""

    End If

stok_bertambah.Refresh

batal

End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

Perama kalo Private Sub cmdhapus_Click() kode pembuka dalam program vb 6

Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb.

Namun, cmdhapus artinya nama dari component “commandbutton” di propertynya.

-Kode yang bertulisan source artinya sumber “ dimana data itu berasal

-tulisan yang berwarna kuning dan digarisi, itu nama table yang ada di XAMPPnya.

-tulisan yang berwarna hijau, itu nama field yang dijadiakan sbg perwakilan dari field-field lainya untuk menetapkan apa yang harus ditetapakan dalam proses penghapusan.

-tulisan "APAKAH KAMU YAKIN INGIN MENGHAPUSNYA ?????" seperti ini kode untuk membuat kotak pesan dalam menanyakan sebelum menjalani proses.

-tilisan yang berwarna merah muda adalah , nama component textbox yang dijadikan sbg perwakilan diantara textbox lainnya untuk menetapkan inputan yg akan disimpannya.

-tulisan yang dikelilingi warna biru didalammya warna putih, stok_bertambah.Refresh stok_bertambah.Refresh itu nama component adodc namun yang titik refresh itu tuk menLOAD.

 

Kode MSHFlexGrid untuk,hapus,ubah dengan mengunakan Visual Basic 6.0 komponen adodc

Private Sub MSpembeli_Click()

With MSpembeli

txtid_pembeli.Text = .TextMatrix(.Row, 0)

txtkd_barang.Text = .TextMatrix(.Row, 1)

txtnm_barang.Text = .TextMatrix(.Row, 2)

txthrg_barangsatuan.Text = .TextMatrix(.Row, 3)

txtket.Text = .TextMatrix(.Row, 4)

End With

pembeli.Refresh

cmdsimpan.Enabled = False

cmdubah.Enabled = True

cmdhapus.Enabled = True

End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

Perama kalo Private Sub MSpembeli_Click()kode pembuka dalam program vb 6

Kalo End Sub kode penutup/ mengakhiri proses bejalanya system program kode”” tsb.

Namun, MSpembeli artinya nama dari component “MSHFlexGrid” di propertynya.

-yang berwarna merah itu nama dari component textboxyang dibuat dipropertynya.

Txt,txt,txt lainya itu semuanya juga sama gx leh beda sedikitpun, karna program gx bs baca bahasa program tsb .

-tulisan kode yang seperti ini (.Row, 0) dan seterusnya adalah urutan mshflexgridnya dimana data record harus ditempatkan pada saat menyimpan.