Form Transaksi – Sistem Warta Penjualan (Vb6)
Program berikut merupakan form untuk mendata transaksi sistem informasi penjualan (VB6). Silahkan mendesain form menyerupai pada gambar diatas.
Berikut merupakan jadwal form transaksi sistem informasi penjualan (VB6)
Dim lst As ListItem
Dim ckdbarang As String
Dim njumlah As Double
Dim i As Byte
Dim nT As Double
Private Sub cmdHapus_Click()
If LV.ListItems.Count = 0 Then
MsgBox “Record Belum ada Dalam Tabel ! “, vbOKOnly + vbInformation, “Pilih…”
Else
LV.ListItems.Remove LV.SelectedItem.Index
CekTotal
End If
End Sub
Private Sub CmdTrans_Click(Index As Integer)
Select Case Index
Case 0
Call Hapus
RUBAH False, True, False, True
Case 1
If CmdTrans(1).Caption = “SIMPAN” Then SimpanJUAL Else EditJUAL
Call Hapus
Case 2
X = MsgBox(“YAKIN ! Data akan dihapus ?”, vbCritical + vbYesNo, “Hapus Record”)
If X = vbYes Then
HapusJual
End If
Call Hapus
Case 3
Call Hapus
Call HapusBarang
Case 4
Unload Me
End Select
End Sub
Private Sub Form_Activate()
Hapus
HapusBarang
Tabel
End Sub
Private Sub PA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Sisa.Text = Val(CCur(txtTotal.Text)) – Val(PA.Text)
Sisa.Text = Format(Sisa.Text, “###,###,###”)
End If
End Sub
Private Sub txtJualB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtJualB.Text = “” Then Exit Sub
Call Proses
HapusBarang
txtKodeB.SetFocus
End If
End Sub
Private Sub txtKd_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtKd.Text = “” Then Exit Sub
If Found(Data2, “KdPelanggan”, txtKd, 0) Then
With Data2.Recordset
txtNama.Text = !Nama
End With
Else
MsgBox “Ma’af ! Data Konsumen ini tidak ada…”, vbInformation + vbOKOnly, “Not Found”
txtKd.SetFocus
End If
End If
End Sub
Private Sub txtNO_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtNO.Text = “” Then Exit Sub
With Data3.Recordset
.Index = “NoBukti”
.Seek “=”, txtNO.Text
If Not .NoMatch Then
txtTanggal.Value = !Tanggal
txtKd.Text = !KdPelanggan
Sisa.Text = Format(!Sisa, “###,###,###”)
PA.Text = Format(!PA, “###,###,###”)
Found Data2, “KdPelanggan”, txtKd.Text, 0
txtNama.Text = Data2.Recordset!Nama
CmdTrans(1).Caption = “EDIT”
RUBAH False, True, True, True
ShowJual
CekTotal
Else
X = txtNO.Text
Call Hapus
txtNO.Text = X
RUBAH False, True, False, True
End If
txtTanggal.SetFocus
End With
End If
End Sub
Private Sub txtKodeB_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If txtKodeB.Text = “” Then Exit Sub
If Found(Data1, “KdBarang”, txtKodeB, 0) Then
With Data1.Recordset
txtNamaB.Text = !Nama
txtSatuanB.Text = !Penerbit
txtHargaB.Text = !harga
txtJualB.Text = !Stock
txtJualB.SetFocus
End With
Else
MsgBox “Ma’af ! Data barang ini tidak ada…”, vbInformation + vbOKOnly, “Not Found”
txtKode.SetFocus
End If
End If
End Sub
Sub Tabel()
LV.ColumnHeaders.Add , , “Kode”, 850
LV.ColumnHeaders.Add , , “Nama”, 3250
LV.ColumnHeaders.Add , , “Penerbit”, 2000
LV.ColumnHeaders.Add , , “Harga”, 830, 1
LV.ColumnHeaders.Add , , “Qty”, 530, 1
LV.ColumnHeaders.Add , , “Nilai”, 900, 1
LV.View = lvwReport
LV.GridLines = True
End Sub
Sub Proses()
Set lst = LV.ListItems.Add(, , txtKodeB.Text)
lst.SubItems(1) = txtNamaB.Text
lst.SubItems(2) = txtSatuanB.Text
lst.SubItems(3) = txtHargaB.Text
lst.SubItems(4) = txtJualB.Text
lst.SubItems(5) = txtHargaB.Text * txtJualB.Text
CekTotal
End Sub
Sub CekTotal()
nT = 0
For i = 1 To LV.ListItems.Count
nT = nT + CCur(LV.ListItems(i).ListSubItems(5).Text)
Next i
txtTotal.Text = Format(nT, “###,###,#”)
End Sub
Sub RUBAH(L0 As Boolean, L1 As Boolean, L2 As Boolean, L3 As Boolean)
CmdTrans(0).Enabled = L0
CmdTrans(1).Enabled = L1
CmdTrans(2).Enabled = L2
CmdTrans(3).Enabled = L3
End Sub
Sub Hapus()
txtNO.Text = “”
txtKd.Text = “”
txtNama.Text = “”
txtTanggal.Value = Now
LV.ListItems.Clear
txtTotal.Text = “”
PA.Text = “”
Sisa.Text = “”
CmdTrans(1).Caption = “SIMPAN”
RUBAH True, False, False, False
txtNO.SetFocus
End Sub
Sub HapusBarang()
txtKodeB.Text = “”
‘txtNama.Text = “”
txtNamaB.Text = “”
txtSatuanB.Text = “”
txtHargaB.Text = “”
txtJualB.Text = “”
End Sub
Sub SimpanJUAL()
With Data3.Recordset
For i = 1 To LV.ListItems.Count
njumlah = Val(LV.ListItems(i).ListSubItems(4).Text)
.AddNew
!Nobukti = txtNO.Text
!Tanggal = txtTanggal.Value
!KdPelanggan = txtKd.Text
!KdBarang = LV.ListItems(i).Text
!Jumlah = njumlah
!Total = CCur(txtTotal.Text)
!Sisa = CCur(Sisa.Text)
!PA = CCur(PA.Text)
.Update
If Found(Data1, “KdBarang”, LV.ListItems(i).Text, 0) Then
Data1.Recordset.edit
Data1.Recordset!Stock = Data1.Recordset!Stock – njumlah
Data1.Recordset.Update
End If
If Found(Data2, “KdPelanggan”, txtKd.Text, 0) Then
Data2.Recordset.edit
Data2.Recordset!TAGIHAN = CCur(Data2.Recordset!TAGIHAN) + CCur(Sisa.Text)
Data2.Recordset.Update
End If
Next i
End With
Call Hapus
End Sub
Sub HapusJual()
With Data3.Recordset
If Data3.Recordset.RecordCount = 0 Then Exit Sub
.MoveFirst
Do While Not .EOF
ckdbarang = Data3.Recordset!KdBarang
njumlah = Data3.Recordset!Jumlah
If Data3.Recordset!Nobukti = txtNO.Text Then
Found Data1, “KdBarang”, ckdbarang, 0
Data1.Recordset.edit
Data1.Recordset!Stock = Data1.Recordset!Stock + njumlah
Data1.Recordset.Update
Data3.Recordset.Delete
End If
.MoveNext
Loop
End With
End Sub
Sub EditJUAL()
HapusJual
SimpanJUAL
End Sub
Sub ShowJual()
With Data3.Recordset
If Data3.Recordset.RecordCount = 0 Then Exit Sub
.MoveFirst
Do While Not .EOF
If Data3.Recordset!Nobukti = txtNO.Text Then
ckdbarang = Data3.Recordset!KdBarang
njumlah = Data3.Recordset!Jumlah
Found Data1, “KdBarang”, ckdbarang, 0
Set lst = LV.ListItems.Add(, , ckdbarang)
lst.SubItems(1) = Data1.Recordset!Nama
lst.SubItems(2) = Data1.Recordset!Penerbit
lst.SubItems(3) = Format(Data1.Recordset!harga, “###,###”)
lst.SubItems(4) = njumlah
lst.SubItems(5) = Format(Data1.Recordset!harga * njumlah, “###,###,#”)
End If
.MoveNext
Loop
End With
End Sub
Demikianlah program form transaksi sistem informasi penjualan (VB6)
