Membuat Program sederhana dengan VB6

1.      Form database di MS. ACCES

2.      Tampilan desain Form awal

Source Code nya :

Sub bersih()

txtkd_barang.Text = Empty

txtnm_barang.Text = Empty

txtqty.Text = Empty

combosatuan.Text = Empty

txtharga.Text = Empty

optmember.Value = False

optnonmember.Value = False

checklibur.Value = False

checkbiasa.Value = False

End Sub

Sub nonaktif()

txtkd_barang.Enabled = False

txtnm_barang.Enabled = False

txtqty.Enabled = False

combosatuan.Enabled = False

txtharga.Enabled = False

Frame1.Enabled = False

checklibur.Enabled = False

checkbiasa.Enabled = False

End Sub

Sub aktif()

txtkd_barang.Enabled = True

txtnm_barang.Enabled = True

txtqty.Enabled = True

combosatuan.Enabled = True

txtharga.Enabled = True

Frame1.Enabled = True

checklibur.Enabled = True

checkbiasa.Enabled = True

End Sub

Sub cari()

nonaktif

End Sub

Private Sub cmddelete_Click()

box = "Yakin anda akan menghapus?"

isi = MsgBox(box, vbOKCancel, "Hapus Record")

    If isi = vbOK Then

        Adodc1.Recordset.Delete

        Adodc1.Recordset.MoveNext

        cmddelete.Enabled = False

        cmdedit.Enabled = False

        End If

aktif

bersih

txtkd_barang.SetFocus

End Sub

Private Sub cmdedit_Click()

cmdsave.Caption = "UPDATE"

cmdedit.Enabled = False

aktif

txtkd_barang.SetFocus

End Sub

Private Sub cmdsave_Click()

If cmdsave.Caption = "SIMPAN" Then

Adodc1.Recordset.AddNew

ElseIf cmdsave.Caption = "UPDATE" Then

'Adodc1.Recordset

End If

With Adodc1.Recordset

!Kd_Barang = txtkd_barang

!Nama_Barang = txtnm_barang

!Qty = txtqty

!Satuan = combosatuan

!Harga = txtharga

Total = Val(txtqty.Text) * Val(txtharga.Text)

If optmember.Value = True Then

!Status = optmember.Caption

!Total = Total - 2000

End If

If optnonmember.Value = True Then

!Status = optnonmember.Caption

!Total = Total

End If

If checklibur.Value Then

!Hari = "Libur"

!Total = !Total - 500

End If

If checkbiasa.Value Then

!Hari = "Biasa"

End If

End With

bersih

txtkd_barang.SetFocus

cmdsave.Caption = "SIMPAN"

cmdedit.Enabled = False

cmddelete.Enabled = False

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdsearch_Click()

Dim pesan, cari As String

pesan = InputBox("Masukan Kode Barang yang anda cari!", "Cari Kd_Barang")

cari = "[Kd_Barang]='" & pesan & "'"

Adodc1.Refresh

With Adodc1.Recordset

.MoveFirst

.Find cari

    If .EOF Then

    MsgBox "Data yang anda cari tidak ada", , "Informasi"

             bersih

             Else

                MsgBox "Data terdaftar", , "Informasi"

                nonaktif

    txtkd_barang.Text = ![Kd_Barang]

    txtnm_barang.Text = ![Nama_Barang]

    txtqty.Text = ![Qty]

    combosatuan.Text = ![Satuan]

    txtharga.Text = ![Harga]

cmddelete.Enabled = True

cmdedit.Enabled = True

    End If

    End With

End Sub

Private Sub Form_Load()

cmddelete.Enabled = False

cmdedit.Enabled = False

bersih

End Sub

3.      Tampilan Input Data saat dijalankan

4.      Tampilan tombol Pencarian Data

5.      Tampilan UPDATE data

6.      Tampilan HAPUS data