Scribd
Upload
24 views3 pages

Membuat Form Transaksi Penjualan (Lanjutan Dari Form Data Barang)

The document describes how to create a form for sales transactions by adding tables to a database, creating sub procedures to view transactions, and adding functionality to buttons for saving, resetting, printing and closing transactions.

Uploaded by

Umar Wirahadi
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
24 views3 pages

Membuat Form Transaksi Penjualan (Lanjutan Dari Form Data Barang)

The document describes how to create a form for sales transactions by adding tables to a database, creating sub procedures to view transactions, and adding functionality to buttons for saving, resetting, printing and closing transactions.

Uploaded by

Umar Wirahadi
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

Membuat Form Transaksi Penjualan (Lanjutan dari form data barang)

1. Buatlah form transaksi sebagai berikut :

2. Tambahkan tabel baru pada database yang sudah dibuat dengan nama “TbTransaksi”
Field Name Data Type Desc
No_Transaksi AutoNumber
Tanggal Date/Time
Nama_Konsumen Text 50
Kode_barang text 10
Jumlah_beli Number Byte
Total Number Long Integer

3. Buat Sub procedure dengan nama “Lihat_transaksi” :


Sub lihat_transaksi()
cmd = New OleDbCommand("SELECT tbTransaksi.No_Transaksi, tbTransaksi.Tanggal,
tbTransaksi.Nama_Konsumen, tbbarang.nama_barang, tbTransaksi.Jumlah_beli, tbTransaksi.Total FROM
tbbarang INNER JOIN tbTransaksi ON tbbarang.kode_barang = tbTransaksi.Kode_barang", cn)
cmd.ExecuteNonQuery()
da = New OleDbDataAdapter(cmd)
tb = New DataTable
da.Fill(tb)
DataGridView1.DataSource = tb
End Sub

4. Double Click pada form Transaksi :


Imports System.Data.OleDb
Public Class Frm_Transaksi
Private Sub Frm_Transaksi_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
koneksi()
cmd = New OleDbCommand("SELECT Kode_barang FROM tbbarang", cn)
dr = cmd.ExecuteReader
cmbKode.Text = "--Pilih--"
While dr.Read
cmbKode.Items.Add(dr.Item(0).ToString)
End While
dr.Close()
lihat_transaksi()
End Sub
5. Double Click pada comboBox Kode barang :
Private Sub cmbKode_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles
cmbKode.SelectedIndexChanged
cmd = New OleDbCommand("SELECT * FROM tbbarang WHERE kode_barang=@kode", cn)
cmd.Parameters.AddWithValue("@kode", cmbKode.SelectedItem)
dr = cmd.ExecuteReader
dr.Read()
txtNamaBrg.Text = dr.Item(1).ToString
txtHarga.Text = dr.Item(3).ToString
dr.Close()
txtJumlahBeli.Focus()
End Sub

6. Double Clik pada txtjumlahbeli kemudian ubah event menjadi keypress “

Private Sub txtJumlahBeli_TextChanged(sender As System.Object, e As System.EventArgs) Handles


txtJumlahBeli.TextChanged

End Sub

Private Sub txtJumlahBeli_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs)


Handles txtJumlahBeli.KeyPress
If Asc(e.KeyChar) = 13 Then
TxtTotal.Text = Val(txtHarga.Text) * Val(txtJumlahBeli.Text)
End If
End Sub

7. Double Clik pada tombol Simpan :


Private Sub BtnSimpan_Click(sender As System.Object, e As System.EventArgs) Handles BtnSimpan.Click
cmd = New OleDbCommand("insert into tbtransaksi
(tanggal,nama_konsumen,Kode_barang,jumlah_beli,total)VALUES(@tanggal,@nama_konsumen,@Kode_bar
ang,@jumlah_beli,@total)", cn)
cmd.Parameters.AddWithValue("@tanggal", FormatDateTime(DtTransaksi.Value,
DateFormat.ShortDate))
cmd.Parameters.AddWithValue("$nama_Konsumen", txtNama.Text)
cmd.Parameters.AddWithValue("$kode_barang", cmbKode.SelectedItem)
cmd.Parameters.AddWithValue("$jumlah_beli", Val(txtJumlahBeli.Text))
cmd.Parameters.AddWithValue("$total", Val(TxtTotal.Text))
cmd.ExecuteNonQuery()
lihat_transaksi()
DtTransaksi.Value = Now
txtNama.Clear()
cmbKode.Text = "--Pilih--"
txtNamaBrg.Clear()
txtHarga.Clear()
txtJumlahBeli.Clear()
txtNama.Focus()
End Sub

8. Double Clik pada tombol Cetak :

Buat design Laporan seperti Form Barang pada materi sebelumnya

9. Double Clik pada tombol Reset:


Private Sub BtnReset_Click(sender As System.Object, e As System.EventArgs) Handles BtnReset.Click
lihat_transaksi()
DtTransaksi.Value = Now
txtNama.Clear()
cmbKode.Text = "--Pilih--"
txtNamaBrg.Clear()
txtHarga.Clear()
txtJumlahBeli.Clear()
txtNama.Focus()
End Sub
10. Double Click pada tombol Tutup:
Private Sub BtnTutup_Click(sender As System.Object, e As System.EventArgs) Handles BtnTutup.Click
Close()
End Sub

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy