Aplikasi Kasir

Membuat Database

Form Login

1.      Buat tampilan form  login seperti berikut:

2. Kemudian susun beberapa komponen-komponen seperti Label, TextBox dan Button dengan Properties sebagai berikut.

No	Komponen	Properties	Value
1	Label	Text	Username
2	TextBox	Name	txtUserName
3	Label	Text	Password
4	TextBox	Name	txtPassword
3	Button	Name	btnMasuk
		Text	Masuk
4	Button	Name	btnKeluar
		Text	Keluar
5	CheckBox	Name	cbkLihatPassword
		Text	Lihat Password

 Source Code

 Imports MySql.Data.MySqlClient
Public Class Form1
    Sub Clear()
        txtUsername.Text = ""
        txtPassword.Text = ""
    End Sub

    Private Sub OK_Click(sender As Object, e As EventArgs) Handles OK.Click
        Dim conn As MySqlConnection
        conn = New MySqlConnection
        conn.ConnectionString = "Server = 'localhost'; user id='root'; password=''; database='cv_amanah'"
        Try
            conn.Open()
        Catch ex As Exception
            MsgBox(" Ada Kesalahan dalam koneksi database")
        End Try

        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "select * from login where username = '" & txtUsername.Text & "' and password= '" & txtPassword.Text & "'"
        Dim myCommand As New MySqlCommand
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader()

        If myData.HasRows = 0 Then
            MsgBox("Username atau Password ada yang salah !", MsgBoxStyle.Exclamation, "Error Login")
            txtUsername.Clear()
            txtPassword.Clear()
        Else
            MsgBox(" Login berhasil, Selamat Datang " & txtUsername.Text & " ! ", MsgBoxStyle.Information, "Sukses Login")
            Form2.Show()
            Me.Hide()
        End If
        Clear()
    End Sub

    Private Sub Cancel_Click(sender As Object, e As EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub cbShowPassword_CheckedChanged(sender As Object, e As EventArgs) Handles cbShowPassword.CheckedChanged
        If cbShowPassword.Checked = True Then
            txtPassword.UseSystemPasswordChar = False
        Else
            cbShowPassword.Checked = False
            txtPassword.UseSystemPasswordChar = True
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub
End Class

FormTransaksi.

1.      Buat tampilan form  transaksi seperti berikut:

Buat tampilan pada form transaksi dengan komponen sebagai berikut.

No	Komponen	Properties	Value
1	Label	Text	Cari Transaksi
	TextBox	Name	txtCari
3	Button	Name	btnCari
		Text	GO
4	Button	Name	btnTambah
		Text	Tambah Transaksi
5	DataGridView	Name	DG
		AutoSizeColumnsMode	ALLCells
6	Button	Name	btnKembali
		Text	Kembali

 

 

 

 

 

 

 

 

 

Source code 

Public Class FormTransaksi

    Private Sub FormTransaksi_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        TampilTransaksi()
        Form2.Hide()
    End Sub
    Private Sub btnCari_Click(sender As Object, e As EventArgs) Handles btnCari.Click
        Dim cari As String = txtCari.Text
        CariTransaksi(cari)
    End Sub
    Private Sub btnKembali_Click(sender As Object, e As EventArgs) Handles btnKembali.Click
        Me.Close()
        Form2.ShowDialog()
    End Sub
    Private Sub btnTambah_Click(sender As Object, e As EventArgs) Handles btnTambah.Click
        FormTambahTransaksi.ShowDialog()
        TampilTransaksi()
    End Sub
    Private Sub DG_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DG.CellMouseDoubleClick
        Dim IndeksMax As Integer = DG.RowCount - 1
        Dim Indeks As Integer = e.RowIndex
        If Indeks < IndeksMax Then
            id_transaksi = DG.Rows(Indeks).Cells(0).Value
            FormDetailTransaksi.ShowDialog()
            TampilTransaksi()
        End If
    End Sub
End Class

Form Tambah Transaksi

1.      Buat tampilan formTambahtransaksi seperti berikut.

2.      Komponen yang digunakan adalah sebagai berikut.

No	Komponen	Properties	Value
1	Label	Text	Nama Barang
2	Label	Text	Customer
	ComboBox	Name	cbCustomer
		DropDownStyle	DropDownList
3	Label	Text	Tanggal
	TextBox	Name	txtTanggal
4	Label	Text	Harga
	TextBox	Name	txtHarga
5	Label	Text	Jumlah Beli
	TextBox	Name	txtJumlahBeli
6	Label	Text	TotalBayar
	TextBox	Name	txtTotalBayar
7	Label	Text	Simpan
	Button	Name	btnSimpan
8	Label	Text	Hitung
	Button	Name	btnHitung
9	Label	Text	Kembali
	Button	Name	btnKembali

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Source code

Public Class FormTambahTransaksi
    Private Sub FormTambahTransaksi_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtNamaBarang.Clear()
        txtHarga.Clear()
        txtJumlahBeli.Clear()
        txtTotalBayar.Clear()
        txtTanggal.Clear()

        cbCustomer.DataSource = Nothing
        Dim query As String = "Select * from customer"
        Dim dt As New DataTable
        dt = GetResult(query)
        cbCustomer.DataSource = dt
        cbCustomer.ValueMember = dt.Columns("id_customer").ToString
        cbCustomer.DisplayMember = dt.Columns("nama").ToString

    End Sub
    Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click
        Dim nama_barang As String = txtNamaBarang.Text
        Dim id_cus As Integer = cbCustomer.SelectedValue
        Dim harga As String = txtHarga.Text
        Dim jumlah_beli As Integer = txtJumlahBeli.Text
        Dim total_bayar As Double = txtTotalBayar.Text
        Dim tanggal As String = txtTanggal.Text

        TambahTransaksi(nama_barang, id_cus, harga, jumlah_beli, total_bayar, tanggal)
    End Sub
    Private Sub btnBatal_Click(sender As Object, e As EventArgs) Handles btnBatal.Click
        Me.Close()
    End Sub
    Private Sub btnHitung_Click(sender As Object, e As EventArgs) Handles btnHitung.Click
        Dim harga, jumlah_beli, total_bayar As Integer

        harga = txtHarga.Text
        jumlah_beli = txtJumlahBeli.Text
        total_bayar = harga * jumlah_beli

        txtTotalBayar.Text = total_bayar
    End Sub
End Class