Kode Ubah Visual Basic 6.0 dengan mengunakan komponen mshflexgrid dan adodc

Kode Ubah Visual Basic 6.0 dengan mengunakan komponen mshflexgrid dan adodc

Private Sub cmdubah_Click()

On Error Resume Next

buka_database

Source.Open "select * from pembeli where id_pembeli='" & Trim(txtid_pembeli.Text) & "'", kon, adOpenDynamic, adLockOptimistic

    If Not Source.EOF Then

    Source!id_pembeli = txtid_pembeli.Text

    Source("kd_barang") = txtkd_barang.Text

    Source("nm_barang") = txtnm_barang.Text

    Source("hrg_barangsatuan") = txthrg_barangsatuan.Text

    Source("ket") = txtket.Text

    Source.Update

    End If

tutup_database

pembeli.Refresh

batal

End Sub

 

Keterangan dalam kode ini saya akan jelaskan berikut ini :

-Tulisan yang dikelilingi warna kuning:

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

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

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

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

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

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

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

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

-Tulisan yang berwarna hijau kebiruan itu field yang ada di databasesnya ( XAMPP)

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

 

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.