Form Aplikasi Sederhana Penjualan Pulsa VB.Net

VB.Net

Form Data Penjualan Pulsa

Form ini dapat digunakan untuk mencatat penjualan pulsa yang terjual di suatu toko pulsa elektrik. User pun dimudahkan dalam penginputannya, karena hanya cukup menginput nomor telepon nya saja. Adapun nama operator dan nominal sudah saya sediakan data nya dalam combo box, maka user hanya perlu melakukan klik ketika memilih operator dan nominal saat penginputan. Pada form ini saya tambahkan beberapa fitur untuk melengkapi aktifitas user seperti : Save, Reset, Delete, dan Clear.

·         Button Save digunakan untuk memunculkan data yang diinput user setelah selesai melakukan penginputan. Data tersebut akan muncul pada data grid view sesuai kolom yang telah dibuat.

·         Button Reset berfungsi untuk menghapus semua data pada kolom penginputan.

·         Button Delete berfungsi untuk menghapus kolom data grid view yang dipilih.

·         Button Clear berfungsi untuk menghapus semua data pada data grid view.

Berikut adalah gambar form pada saat penginputan berhasil dilakukan :

Gambar 1.1

(Gambar ketika data berhasil diinput dan tampil pada kolom data grid view)

Gambar 1.2

(Gambar yang menerangkan fungsi dari button delete ketika kursor memilih data no. 2)

Berikut adalah source codenya :

Public Class DataPulsa

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dgv.CellContentClick

End Sub

Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
Dgv.RowCount = Dgv.RowCount + 1
Dgv(0, Dgv.RowCount - 2).Value = TxtHari.Text()
Dgv(1, Dgv.RowCount - 2).Value = CboOp.Text()
Dgv(2, Dgv.RowCount - 2).Value = CboNominal.Text()
Dgv(3, Dgv.RowCount - 2).Value = TxtNomer.Text()
If TxtNomer.Text = "" Then
MsgBox("Data masih kosong cuy")
End If

End Sub

Private Sub TxtHari_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtHari.TextChanged

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
TxtHari.Text = Format(Now, "dddd,dd/MM/yyyy")
End Sub

Private Sub Dgv_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles Dgv.CellFormatting
Dgv.Rows(e.RowIndex).HeaderCell.Value = CStr(e.RowIndex + 1)
End Sub

Private Sub Data_Penjualan_Pulsa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CboOp.Items.Add("Telkomsel")
Me.CboOp.Items.Add("M3")
Me.CboOp.Items.Add("Mentari")
Me.CboOp.Items.Add("XL")
Me.CboOp.Items.Add("TRI")
Me.CboOp.Items.Add("SmartFren")
Me.CboOp.Items.Add("AXIS")
Me.CboNominal.Items.Add("Rp.10.000")
Me.CboNominal.Items.Add("Rp.20.000")
Me.CboNominal.Items.Add("Rp.30.000")
Me.CboNominal.Items.Add("Rp.40.000")
Me.CboNominal.Items.Add("Rp.50.000")
End Sub

Private Sub BtnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDel.Click
If MessageBox.Show("Hapus Data : " & Dgv.Item(1, Dgv.CurrentRow.Index).Value & _
" ?", "KONFIRM", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = _
Windows.Forms.DialogResult.Yes Then
If Dgv.CurrentRow.Index <> Dgv.NewRowIndex Then

Dgv.Rows.RemoveAt(Dgv.CurrentRow.Index)
End If
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClr.Click
Dgv.Rows.Clear()


End Sub

Private Sub BtnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnReset.Click
Me.TxtHari.Text = ""
Me.CboOp.Text = ""
Me.CboNominal.Text = ""
Me.TxtNomer.Text = ""
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
Me.Close()
FormMenu.Show()

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub
End Class

Bagikan

Jangan lewatkan

Form Aplikasi Sederhana Penjualan Pulsa VB.Net

4/ 5

Oleh Hery Prasetyo

Hery Prasetyo April 01, 2018 Komentar