DETAIL BELI
LANGKAH PERTAMA :
·
Buatlah dulu desainnya seperti ini boleh, atau
terserah anda mau seperti apa
LANGKAH KEDUA :
Private Sub cmddelete_Click()
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End Sub
Private Sub cmdfinish_Click()
Unload Me
End Sub
Private Sub cmdnew_Click()
ListView1.ListItems.Add(, , txtbarangID).Text = txtbarangID.Text
x = ListView1.ListItems.Count
ListView1.ListItems(x).SubItems(1) = txtnamabarang.Text
ListView1.ListItems(x).SubItems(2) = txtharga.Text
ListView1.ListItems(x).SubItems(3) = txtjumlah.Text
ListView1.ListItems(x).SubItems(4) = txttotal.Text
txtbarangID = ""
txtjumlah = ""
txtbarangID.SetFocus
End Sub
Private Sub cmdsave_Click()
rshbeli.AddNew
rshbeli!notaID = txtnotaID
rshbeli!tanggalbeli = tanggal
rshbeli!supplierID = txtsupplierID
rshbeli!total = txttotal
rshbeli!totalbayar = txttotalbayar
rshbeli.Update
For x = 1 To ListView1.ListItems.Count
rsdbeli.AddNew
rsdbeli!notaID = txtnotaID.Text
rsdbeli!barangID = ListView1.ListItems(x)
rsdbeli!jumlahbeli = Val(ListView1.ListItems(x).SubItems(4))
rsdbeli.Update
Next x
MsgBox "Data Sudah Tersimpan"
End Sub
Private Sub cmdtambah_Click()
ListView1.ListItems.Add(, ,
txtnotaID).Text = txtnotaID.Text
x = ListView1.ListItems.Count
ListView1.ListItems(x).SubItems(1)
= txtbarangID.Text
ListView1.ListItems(x).SubItems(2) = txtnamabarang.Text
ListView1.ListItems(x).SubItems(3) = txtharga.Text
ListView1.ListItems(x).SubItems(4) = txtjumlah.Text
ListView1.ListItems(x).SubItems(5) = txttotal.Text
ListView1.ListItems(x).SubItems(6) = txttotalbayar.Text
Reset
End Sub
Private Sub Form_Load()
Koneksi
End Sub
Private Sub ListView1_Click()
x = ListView1.SelectedItem.Index
txtnotaID = ListView1.ListItems(x).SubItems(1)
txtbarangID = ListView1.ListItems(x).SubItems(2)
txtjumlah = ListView1.ListItems(x).SubItems(4)
End Sub
Private Sub txtBarangID_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
rsb.MoveFirst
rsb.Find ("barangID='" & txtbarangID & "'")
If rsb.EOF Then
MsgBox "Kode Barang
Salah"
Else
txtnmbarang = rsb!namabarang
txtharga = rsb!harga
End If
End If
End Sub
Private Sub txtJumlah_Change()
txttotal = Val(txtharga) * Val(txtjumlah)
txttotalbayar.Text = Val(txtharga) + Val(txttotal)
txttotalbayar.SetFocus
End Sub
·
Kemudian buat kode detail beli yang sudah anda
rancang terserah kamu di vb 6 atau vb 2015. Terserah kamu.
LANGKAH TERAKHIR :
·
Nah ini hasilnya. Mudahkan, jika kamu mau
melihat keseluruhannya Download Here !
0 comments:
Post a Comment