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.

Kode Simpan Visual Basic 6.0 dengan mengunakan komponen mshflexgrid dan adodc

Kode Simpan Visual Basic 6.0 dengan mengunakan komponen mshflexgrid dan adodc

Private Sub cmdsimpan1_Click()

On Error Resume Next

MSstok_bertambah.Refresh

buka_database

Source.Open "select * from stok_bertambah where kd_barang='" & Trim(txtkd_barang1.Text) & "'", kon, adOpenKeyset, adLockOptimistic

    If Source.EOF Then

    Source.AddNew

    Source!kd_barang = txtkd_barang1.Text

    Source("nm_barang") = txtnm_barang1.Text

    Source("hrg_barang") = txthrg_barang1.Text

    Source("jmlh_barang") = txtjmlh_barang1.Text

    Source("total_barang") = txttotal_barang1.Text

    Source("kd_terima") = cmbkd_terima.Text

    Source("ket") = txtket1.Text

    Source.Update

            MsgBox "Berhasil di input !", vbInformation + vbOKOnly, "Sukses"

    End If

stok_bertambah.Refresh

tutup_database

batal1

txtkd_barang1.SetFocus

End Sub

Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

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

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

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

-tulisan yang dikelilingi berwarna merah artinya MSstok_bertambah.Refresh

 nama dari component  MSHFlexGrid  di propertynya dan itu harus sama dengan kodenya tidak boleh beda sedikitpun, kalo titik refresh tuh untuk menLOAD.

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

-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 yang berwarna hijau kebiruan itu field yang ada di databasesnya ( XAMPP)

-tulisan yang seperti  ini (              MsgBox "Berhasil di input !", vbInformation + vbOKOnly, "Sukses"

       )

Itu kode membuat kotak pesan.

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

-tulisan yang miring dan digarisbawahi itu nama dari component “commandbutton” dan anda wajib membuat komponen itu jika anda ingin menghapusnya secara otomatis apabila inputan yang disimpannya berhasil. contoh: nama commandbuttonnya adalah cmdbatal16 otomatis kode nya harus batal16 juga, bila cmdbatal789 kode simpannya harus batal789, cmd itu pa sich?? Nama singkat dari components dari commandbutton, klo txt itu nama components dari textbox, kalo lbl nama component dari label.

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

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

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