contoh program penjualan Visual Basic

Gambar saat di Jalankan Programnya

1.      Tombol cari

             Gambar1.1 tombol cari

2.      Proses Saat mencari

                                         Gambar1.2proses cari

3.      Hasil Pencarian

Gambar1.3 hasil pencarian

4.      Hasil Update

Gambar1.5 hasil update

Kodingnya

Sub bersih()

Textkd.Text = Empty

textbrg.Text = Empty

textqty.Text = Empty

cmbsatuan.Text = Empty

textharga.Text = Empty

optmem.Value = Empty

optnonmem.Value = Empty

checklibur.Value = Empty

End Sub

Sub nonaktif()

Textkd.Enabled = False

textbrg.Enabled = False

textqty.Enabled = False

cmbsatuan.Enabled = False

textharga.Enabled = False

optmem.Enabled = False

optnonmem.Enabled = False

checklibur.Enabled = False

End Sub

Sub aktif()

Textkd.Enabled = True

textbrg.Enabled = True

textqty.Enabled = True

cmbsatuan.Enabled = True

textharga.Enabled = True

optmem.Enabled = True

optnonmem.Enabled = True

checklibur.Enabled = True

End Sub

Private Sub cmdcari_Click()

Dim pesan, cari As String

pesan = InputBox("Masukkan Kode Barang yang dicari", "Cari Barang")

cari = "(kd_barang)= '" & pesan & "'"

Adodc1.Refresh

With Adodc1.Recordset

.MoveFirst

.Find cari

If .EOF Then

MsgBox "Data yang dicari tidak ada", , "Informasi"

bersih

Else

MsgBox "Data Terdaftar", , "Informasi"

Textkd.Text = ![kd_barang]

textbrg.Text = ![nama_barang]

textqty.Text = ![qty]

cmbsatuan.Text = ![satuan]

textharga.Text = ![harga]

If ![Status] = "Member" Then

optmem.Value = True

End If

If ![Status] = "Non Member" Then

optnonmem.Value = True

End If

If ![hari] = "Libur" Then

checklibur = 1

End If

If ![hari] = "Biasa" Then

checklibur = 0

End If

End If

End With

nonaktif

cmdsimpan.Enabled = False

cmddelete.Enabled = True

cmdedit.Enabled = True

End Sub

Private Sub cmddelete_Click()

box = "Yakin akan dihapus?"

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

If isi = vbOK Then

Adodc1.Recordset.Delete

bersih

Adodc1.Recordset.MoveNext

End If

aktif

bersih

cmdsimpan.Enabled = True

cmddelete.Enabled = False

cmdedit.Enabled = False

End Sub

Private Sub cmdedit_Click()

aktif

cmdsimpan.Enabled = True

cmdsimpan.Caption = "Update"

cmddelete.Enabled = False

cmdedit.Enabled = False

Textkd.SetFocus

End Sub

Private Sub cmdend_Click()

Unload Me

End Sub

Private Sub cmdsimpan_Click()

If cmdsimpan.Caption = "Simpan" Then

If optmem.Value Then

total = (Val(textharga.Text) * Val(textqty.Text) - 2000)

Status = "Member"

Else

If optnonmem.Value Then

total = Val(textharga.Text) * Val(textqty.Text)

Status = "Non Member"

End If

End If

If checklibur.Value Then

total = total - 500

hari = "Libur"

Else

total = total - 0

hari = "Biasa"

End If

Adodc1.Recordset.AddNew

With Adodc1.Recordset

!kd_barang = Textkd

!nama_barang = textbrg

!qty = textqty

!satuan = cmbsatuan

!harga = textharga

!total = total

!Status = Status

!hari = hari

Adodc1.Recordset.Save

End With

End If

If cmdsimpan.Caption = "Update" Then

If optmem.Value Then

total = (Val(textharga.Text) * Val(textqty.Text) - 2000)

Status = "Member"

Else

If optnonmem.Value Then

total = Val(textharga.Text) * Val(textqty.Text)

Status = "Non Member"

End If

End If

If checklibur.Value Then

total = total - 500

hari = "Libur"

Else

total = total - 0

hari = "Biasa"

End If

With Adodc1.Recordset

!kd_barang = Textkd

!nama_barang = textbrg

!qty = textqty

!satuan = cmbsatuan

!harga = textharga

!total = total

!Status = Status

!hari = hari

Adodc1.Recordset.Update

End With

End If

cmdsimpan.Caption = "Simpan"

bersih

cmdcari.Enabled = True

cmddelete.Enabled = False

cmdedit.Enabled = False

End Sub

Private Sub Form_Load()

bersih

cmddelete.Enabled = False

cmdedit.Enabled = False

cmbsatuan.AddItem "Pcs"

cmbsatuan.AddItem "Lusin"

End Sub