Transaksi Penjualan di Visual Basic

Transaksi penjualan adalah suatu alur proses dalam pemrograman di visual basic yang berfungsi untuk menginput data penjualan yang dilakukan oleh kasir terhadap barang- barang yang terjual. dengan melakukan penginputan pada form transaksi penjualan maka, data yang diinputkan akan tercatat di dua tabel yaitu: tabel transaski dan tabel detail, serta akan merubah nilai stok yang terdapat pada tabel barang.

berikut adalah sedikit koding yang bisa di pakai dalam form transaksi:
Private Sub TxtData_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
Txnota = TxtData(0).Text

If Index = 4 Then

If Val(TxtData(4).Text) < Val(TxtData(3).Text) Then
MsgBox “Periksa Kembali Pembayaran anda!”
Else
TxtData(5).Text = Val(TxtData(4).Text) – Val(TxtData(3).Text)

‘===!!to be continue, proses penyimpanan
If DE.rsPENJUALAN.State = adStateClosed Then DE.rsPENJUALAN.Open
DE.rsPENJUALAN.AddNew
DE.rsPENJUALAN.Fields(0) = TxtData(0).Text
DE.rsPENJUALAN.Fields(1) = DTPicker1.Value
DE.rsPENJUALAN.Fields(2) = TxtData(1).Text
DE.rsPENJUALAN.Fields(3) = TxtData(2).Text
DE.rsPENJUALAN.Fields(4) = TxtData(3).Text
DE.rsPENJUALAN.Fields(5) = “K001”

DE.rsPENJUALAN.Update

If DE.rsDETAIL1.State = adStateClosed Then DE.rsDETAIL1.Open
For i = 1 To ListView1.ListItems.Count

kdbrg = ListView1.ListItems(i).Text
HARGA = ListView1.ListItems(i).SubItems(2)
diskon = ListView1.ListItems(i).SubItems(3)
jumlah = ListView1.ListItems(i).SubItems(4)
DE.rsDETAIL1.AddNew
DE.rsDETAIL1(0) = TxtData(0).Text
DE.rsDETAIL1(1) = kdbrg
DE.rsDETAIL1(2) = Val(ListView1.ListItems(i).SubItems(2))
DE.rsDETAIL1(3) = Val(jumlah)
DE.rsDETAIL1(4) = Val(diskon)
DE.rsDETAIL1.Update

If DE.rsBARANG.State = adStateClosed Then DE.rsBARANG.Open
DE.rsBARANG.MoveFirst

DE.rsBARANG.Find “kd_brg='” + kdbrg + “‘”

If Not DE.rsBARANG.EOF Then
jml = DE.rsBARANG.Fields(3)
xsetok = jml – jumlah

DE.rsBARANG.Fields(3) = xsetok
DE.rsBARANG.Update
End If

Next

If DE.rsRptNota_Grouping.State = 0 Then DE.rsRptNota_Grouping.Open
DE.rsRptNota_Grouping.Requery
DE.rsRptNota_Grouping.Filter = adFilterNone
DE.rsRptNota_Grouping.Filter = “nOTA = ‘” & TxtData(0).Text & “‘”
RptNota.Show 1
DE.rsRptNota_Grouping.Filter = adFilterNone

ListView1.ListItems.Clear

End If
End If
End If
End Sub

koding ini dimaksud untuk menyimpan nilai-nilai terkait ke dalam tabel-tabel yang di maksud.

Advertisements
Explore posts in the same categories: Uncategorized

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s


%d bloggers like this: