Membuat Form Kasir Dengan VB Net 2013

4:52:00 PM
Cara membuat form kasir dengan VB Net 2013 dalam membangun aplikasi kasir. Ini adalah Tahap ke-8 dalam membuat aplikasi kasir dengan Visual Basic versi 2013. Jika anda ingin mengikuti tahapan ini, anda wajib mengikuti tahapan sebelumnya agar anda tidka tersesat.

Tahapan sebelumnya  : Membuat Form Login dan Koding Logout

Jika anda sudah mengikuti tahapan diatas, berarati anda sudah bisa mengikuti tahapan dibawah ini.
Berikut langkah dalam membuat Form Kasir.
Form kasir yang akan kita buat saat ini adalah berdungsi untuk management TBL_KASIR dimana kita bisa input, edit dan delete untuk keperluan login ke Aplikasi Kasir.

Buka Project Aplikasi Kasir sebelumnya :
Jika sudah membuka project sebelumnya,
Klik Project - Add windows form
Kemudian isikan seperti gambar dibawah  ini :
Kemudian buatlah design form seperti gambar dibawah ini :
Masukan koding dibawah ini pada FormMasterAdmin.vb
Imports System.Data.OleDb
Public Class FormMasterKasir
    Sub TampilStatus()
        ComboBox1.Items.Clear()
        ComboBox1.Items.Add("ADMIN")
        ComboBox1.Items.Add("USER")
    End Sub
    Sub Kosongkan()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox1.Focus()

    End Sub
    Sub TidakSiapIsi()
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        ComboBox1.Enabled = False
    End Sub
    Sub SiapIsi()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
        ComboBox1.Enabled = True
    End Sub
    Sub KondisiAwal()
        Button1.Text = "Input"
        Button2.Text = "Edit"
        Button3.Text = "Hapus"
        Button4.Text = "Tutup"
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
        Call TidakSiapIsi()
        Call Kosongkan()
        Call TampilGrid()
        Call TampilStatus()
    End Sub
    Sub TampilGrid()
        DA = New OleDbDataAdapter("select KODE_KASIR as [Kode],NAMA_KASIR as [Nama],LEVEL_KASIR as [Level] from TBL_KASIR", CONN)
        DS = New DataSet
        DA.Fill(DS, "TBL_KASIR")
        DataGridView1.DataSource = DS.Tables("TBL_KASIR")
        DataGridView1.ReadOnly = True
    End Sub

    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        If e.KeyChar = Chr(13) Then

        End If
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        CMD = New OleDbCommand("select * from TBL_KASIR where NAMA_KASIR like '%" & TextBox4.Text & "%'", CONN)
        RD = CMD.ExecuteReader
        RD.Read()
        If RD.HasRows Then
            DA = New OleDbDataAdapter("select KODE_KASIR,NAMA_KASIR,LEVEL_KASIR from TBL_KASIR where NAMA_KASIR like '%" & TextBox4.Text & "%'", CONN)
            DS = New DataSet
            DA.Fill(DS, "ketemu")
            DataGridView1.DataSource = DS.Tables("ketemu")
            DataGridView1.ReadOnly = True
        Else
            MsgBox("data tidak ditemukan")
        End If
    End Sub


    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "Input" Then
            Call KodeOtomatis()
            Call SiapIsi()
            Button1.Text = "Simpan"
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Text = "Batal"
            TextBox1.Enabled = False
            TextBox2.Focus()
        Else
            If TextBox1.Text.Length < 6 Or TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox1.Text = "" Then
                MsgBox("Data belum lengkap, Pastikan Kode KASIR 6 Digit dan Semua form terisi")
                Exit Sub
            Else
                Call Koneksi()
                CMD = New OleDbCommand("Select * from TBL_KASIR where KODE_KASIR='" & TextBox1.Text & "'", CONN)
                RD = CMD.ExecuteReader
                RD.Read()
                If Not RD.HasRows Then
                    Dim simpan As String = "insert into TBL_KASIR values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "')"
                    CMD = New OleDbCommand(simpan, CONN)
                    CMD.ExecuteNonQuery()
                Else
                End If
                Call KondisiAwal()
                Call TampilGrid()
                Call Kosongkan()
                Call TampilStatus()

            End If
        End If

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "Tutup" Then
            Me.Close()
        Else
            Call KondisiAwal()
        End If

    End Sub

    Private Sub FormTBL_KASIR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
        Call TampilStatus()
        Call TampilGrid()
        Call KondisiAwal()
        Call Kosongkan()
        TextBox3.PasswordChar = "X"
    End Sub

    Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        TextBox1.MaxLength = 6
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            CMD = New OleDbCommand("Select * from TBL_KASIR where KODE_KASIR='" & TextBox1.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                MsgBox("Kode TBL_KASIR Tidak Ada, Silahkan coba lagi!")
                TextBox1.Focus()
            Else
                TextBox2.Text = RD.Item("NAMA_KASIR")
                TextBox3.Text = RD.Item("password_KASIR")
                ComboBox1.Text = RD.Item("LEVEL_KASIR")
                TextBox2.Focus()
            End If
        End If
    End Sub

    Private Sub TextBox2_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        TextBox2.MaxLength = 30
        If e.KeyChar = Chr(13) Then ComboBox1.Focus()
    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        TextBox3.MaxLength = 15
        If e.KeyChar = Chr(13) Then Button1.Focus()
    End Sub
    Private Sub ComboBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        ComboBox1.MaxLength = 15
        If e.KeyChar = Chr(13) Then TextBox3.Focus()
    End Sub

    Sub KodeOtomatis()
        Call Koneksi()
        CMD = New OleDbCommand("Select * from TBL_KASIR where KODE_KASIR in (select max(KODE_KASIR) from TBL_KASIR)", CONN)
        Dim urutan As String
        Dim hitung As Long
        RD = CMD.ExecuteReader
        RD.Read()
        If Not RD.HasRows Then
            urutan = "KSR" + "001"
        Else
            hitung = Microsoft.VisualBasic.Right(RD.GetString(0), 3) + 1
            urutan = "KSR" + Microsoft.VisualBasic.Right("000" & hitung, 3)
        End If
        TextBox1.Text = urutan
    End Sub
End Class
Silahkan Klik Start atau jalankan Aplikasi anda, jangan lupa pada FormMenuUtama ketika Klik Master - Kasir anda sudah buatkan FormMasterKasir.showdialog

Silahkan login dengan KodeKasir : KSR001 dan Password : ADMIN

Silahkan KLIK DISINI, untuk hasil dari step-8
Silahkan KLIK DISINI Untuk melanjutkan ke Tahap-9 

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

2 komentar

Write komentar
June 8, 2015 at 2:31 PM delete

bu ini jika database nya diganti sqlserver bisa tidak?

Reply
avatar
Tutarni Aliya
AUTHOR
June 8, 2015 at 5:11 PM delete

Hi Fariez,
Untuk SQL Server bias juga..
yang perlu diganti adalah koneksinya dan ganti oledb menjadi sql
silahkan dicoba ya....

Reply
avatar