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.