Contoh kode mengisi textboxt hanya boleh dengan angka di vb.net

Tambahkan sebuah textbox pada form, kemudian masukkan kode pada event On KeyPress.

Private Sub txtBayar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtBayar.KeyPress
If Not ((e.KeyChar

Contoh kode Membuat nomor invoice pada vb.net

Kode di tulis didalam sebuah region

Sub CekInvoice()
objDataTable.Clear()
strSQL = "Select * from Penjualan Where Tgl_Invoice = #" & dtTgl_Invoice.Text & "# Order by Invoice Desc"
objCommand =

Contohh kode Print Preview Nota Pada vb.net

Sub ViewReport()
objDataTable.Clear()
strSQL = "Select * from Q_Invoice Where Invoice " & _
" = '" & Trim(txtInvoice.Text) & "' Order by ID_Penjualan asc"
objCommand =

Membuat koneksi dengan database Acces di modul pada vb net

Imports System.Data
Imports System.Data.OleDb

Namespace AccessData
Public Class DatabaseConnection

Contoh kode Membuat class untuk Simpan,Edit dan hapus data pada vb.net

// Kode Untuk Class: dipanggil melalui form kerja.
 Imports System.Data
Imports System.Data.OleDb
Namespace AccessData

    Public Class AccessBarang

Contoh kode membuat Browse File gambar dan menampikan di box photo pada vb.net

Tambahkan KOmponen Opendialog dan Picture box

 Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        'Filter file extension
        OFD.Filter = "Image Files (*.JPEG, *.jpg, *.bmp, *.gif, *.png)|*.JPEG; *.jpg; *.bmp; *.gif; *.png"

Contoh Kode Membuat Pencarian data pada table di vb.net

Sub Displaydata()
        Try
            objDataTable.Clear()
            strSQL = "Select * from Barang Order by Kode_Brg asc"
            objCommand = New OleDbCommand
            objCommand.Connection = MyConnection.open
            objCommand.CommandType = CommandType.Text
            objCommand.CommandText = strSQL
            objDataAdapter = New OleDbDataAdapter(objCommand)
            objDataAdapter.Fill(objDataSet, "MDT_Barang")
            MyConnection.close()

Contoh kode menyimpan data dari listView ke database pada VB.Net

 If LstTransaksi.Items.Count = 0 Then
                MsgBox("Lakukan transaksi pembelian", _
                 MsgBoxStyle.Exclamation, "POS")
                Exit Sub
            End If
            CekInvoice()
            If objDataTable.Rows.Count >= 1 Then
                MsgBox("Nomor Invoice sudah ada pada table", _
                MsgBoxStyle.Exclamation, "POS")
                Exit Sub
            End If
            Dim mYes_No As String = MsgBox("Anda yakin data mau disimpan ?", vbYesNo)
            If mYes_No = vbYes Then
                Dim i, Sisa, DisPersen As Integer
                Dim DisRp As Double

                For i = 0 To (LstTransaksi.Items.Count - 1)
                    MyConnectionPembelian.AccessPembelianInsert(Trim(txtInvoice.Text), dtTgl_Invoice.Text, _
                    LstTransaksi.Items(i).Text, LstTransaksi.Items(i).SubItems(2).Text, _
                    LstTransaksi.Items(i).SubItems(4).Text, LstTransaksi.Items(i).SubItems(5).Text, _
                    LstTransaksi.Items(i).SubItems(6).Text)

                    objCommand = MyConnection.open.CreateCommand
                    objCommand.CommandText = "select Stok from Barang Where Kode_Brg = '" & Trim(LstTransaksi.Items(i).Text) & "';"
                    objdatareader = objCommand.ExecuteReader
                    objdatareader.Read()
                    Stok = objdatareader.Item("Stok").ToString
                    MyConnection.close()

                    Sisa = Stok + Val(LstTransaksi.Items(i).SubItems(2).Text)
                    MyConnectionBarang.AccessBarangUpdateStok(Trim(LstTransaksi.Items(i).Text), Sisa)
                    Sisa = Nothing
                    Stok = Nothing
                Next i

                If txtTotDisPersen.Text = "" Then
                    DisPersen = 0
                Else
                    DisPersen = txtTotDisPersen.Text
                End If
                If txtTotDisRp.Text = "" Then
                    DisRp = 0
                Else
                    DisRp = txtTotDisRp.Text
                End If
                MyConnectionTotalPembelian.AccessTotalPembelianInsert(Trim(CbPO.SelectedItem), _
                Trim(txtInvoice.Text), DisPersen, DisRp, txtTotalHarga.Text, Username, Now)
                ClearAll()
            Else

            End If
        Catch When Err.Number <> 0
            MsgBox("Program error" _
            & vbCrLf & Err.Description)
            MyConnection.close()
        End Try

    End Sub

Contoh Kode Memindahkan data dari ListView kedalam TextBox melalui Even Double_Click pada Vb.net

 Metode ini digunakan saat user menekan tombol add apabila barang yang dibeli/jual/pesan lebih dari satu item barang namun satu nota/faktur:

Private Sub LstTransaksi_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LstTransaksi.DoubleClick
        Try
            Dim intIndex As Integer
            Dim TotalHarga, Harga As Double

            If LstTransaksi.SelectedItems.Count = 0 Then Exit Sub

Contoh kode memasukkan data dari pencarian SQL kedalam ListView pada VB.Net

  Sub ViewPembelian()
        Dim lSingleItem As ListViewItem
        objCommand = MyConnection.open.CreateCommand
        objCommand.CommandText = "SELECT Pembelian.Invoice, Pembelian.Tgl_Invoice, " & _
        " Pembelian.Kode_Brg, Barang.Deskripsi, Barang.Hrg_Beli, Pembelian.Qty, " & _
        " Barang.Path, Pembelian.Jlh_Diskon, Pembelian.Hrg_Diskon, Pembelian.Harga, " & _
        " Total_Pembelian.Total_DiskonPersen, Total_Pembelian.Total_DiskonRp," & _
        " Total_Pembelian.Total_Harga, Karyawan.FirstName, Supplier.NamaSupplier," & _
        " Supplier.Alamat, Supplier.ContactPerson, Total_PO.PO_No " & _
        " FROM Supplier INNER JOIN ((((Pembelian INNER JOIN Total_Pembelian " & _
        " ON Pembelian.Invoice = Total_Pembelian.Invoice) INNER JOIN Barang ON " & _
        " Pembelian.Kode_Brg = Barang.Kode_Brg) INNER JOIN Karyawan ON " & _
        " Total_Pembelian.NIK = Karyawan.NIK) INNER JOIN Total_PO ON " & _
        " (Karyawan.NIK = Total_PO.NIK) AND (Total_Pembelian.PO_No = Total_PO.PO_No)) " & _
        " ON Supplier.SupplierID = Total_PO.SupplierID Where Pembelian.Invoice ='" & Trim(CbSearch.SelectedItem) & "';"
        objdatareader = objCommand.ExecuteReader
        While objdatareader.Read()
            txtNama.Text = objdatareader.Item("FirstName")
            dtTgl_Invoice.Text = objdatareader.Item("Tgl_Invoice")
            txtInvoice.Text = objdatareader.Item("Invoice").ToString
            lSingleItem = LstTransaksi.Items.Add(objdatareader.Item("Kode_Brg").ToString)
            lSingleItem.SubItems.Add(objdatareader.Item("Deskripsi").ToString)
            lSingleItem.SubItems.Add(objdatareader.Item("Qty").ToString)
            lSingleItem.SubItems.Add(FormatCurrency(objdatareader.Item("Hrg_Beli").ToString))
            lSingleItem.SubItems.Add(objdatareader.Item("Jlh_Diskon").ToString)
            lSingleItem.SubItems.Add(FormatCurrency(objdatareader.Item("Hrg_Diskon").ToString))
            lSingleItem.SubItems.Add(FormatCurrency(objdatareader.Item("Harga").ToString))
            txtTotDisPersen.Text = objdatareader.Item("Total_DiskonPersen").ToString
            txtTotDisRp.Text = FormatCurrency(objdatareader.Item("Total_DiskonRp").ToString)
            txtTotalHarga.Text = FormatCurrency(objdatareader.Item("Total_Harga").ToString)
            txtNamaSupplier.Text = objdatareader.Item("NamaSupplier").ToString
            txtContactPerson.Text = objdatareader.Item("ContactPerson").ToString
            txtAlamat.Text = objdatareader.Item("Alamat").ToString
            lblPO.Text = "PO No. " & objdatareader.Item("PO_No").ToString
        End While
        MyConnection.close()

    End Sub

contoh kode memasukkan data dari textbox kedalam listView pada vb net

  Dim harga, TotalHarga, DisRp As Double
            Dim DisPersen As Integer
            If txtKode_Brg.Text = "" Or TxtQty.Text = "" Then
                MsgBox("Masukan data pembelian", MsgBoxStyle.Exclamation, "")
                Exit Sub
            End If
            If TxtDiskonPersen.Text = "" Then
                DisPersen = 0
            Else
                DisPersen = TxtDiskonPersen.Text
            End If
            If TxtDiskonRp.Text = "" Then
                DisRp = FormatCurrency(0)
            Else
                DisRp = TxtDiskonRp.Text
            End If
            Dim lSingleItem As ListViewItem
            lSingleItem = LstTransaksi.Items.Add(txtKode_Brg.Text.Trim)  'Create a new line, and assign the ListItem into the variable so we can add sub items
            lSingleItem.SubItems.Add(TxtDeskripsi.Text.Trim) 'The first sub item for the first line
            lSingleItem.SubItems.Add(TxtQty.Text.Trim)  'The second sub item for the first line
            lSingleItem.SubItems.Add(FormatCurrency(txtHarga.Text))
            lSingleItem.SubItems.Add(DisPersen)
            lSingleItem.SubItems.Add(FormatCurrency(DisRp))
            lSingleItem.SubItems.Add(FormatCurrency(TxtHargaBarang.Text))
            If txtTotalHarga.Text = "" Then
                TotalHarga = 0
            Else
                TotalHarga = txtTotalHarga.Text
            End If

            harga = TxtHargaBarang.Text
            TotalHarga = TotalHarga + harga
            txtTotalHarga.Text = FormatCurrency(TotalHarga)
            ClearBrg()
        Catch When Err.Number <> 0
            MsgBox("Program error" _
                & vbCrLf & Err.Description)
            MyConnection.close()
        End Try

Contoh kode untuk form login di vb.net

#Region "Deklarasi"
    Dim MyConnection As New AccessData.DatabaseConnection
    Dim objConnection As OleDbConnection
    Dim objCommand As OleDbCommand
    Dim objDataAdapter As OleDbDataAdapter
    Dim objdatareader As OleDbDataReader
    Dim strSQL As String
    Dim objDataSet As New DataSet
    Dim objDataTable As New DataTable
    Dim f_utama As New f_utama
#End Region

#Region "Sub"
    Sub login()
        Try
            'Mencari data user berdasarkan NIK yang dimasukkan pada txtuser
            CekUser()
            'tidak boleh mengkosongkan username & password
            If txtuser.Text.Trim() = "" And _
                   txtPassword.Text.Trim() = "" Then
                MsgBox("Masukan Username dan Password", MsgBoxStyle.OKOnly, "POS")
                txtuser.Focus()
            ElseIf txtuser.Text = "" Then
                MsgBox("Masukan Username ", MsgBoxStyle.OKOnly, "POS")
                txtuser.Focus()
            ElseIf txtPassword.Text = "" Then
                MsgBox("Masukan password ", MsgBoxStyle.OKOnly, "POS")
                txtPassword.Focus()
            Else
                'jika username dan password tidak kosong, maka program akan mengecek
                'apakah data yang dicari tersedia pada objDataTable.
                'Jika Tidak (baris data = 0 ) maka akan keluar pesan
                'bahwa username tidak ada
                If objDataTable.Rows.Count <= 0 Then
                    MsgBox("Username tidak ada ", MsgBoxStyle.OKOnly, "POS")
                    txtuser.Focus()
                Else
                    'jika data yang di cari ada, maka program akan mencari password
                    'berdasarkan username (NIK) yang dimasukkan.
                    Find_User()
                    'jika password yang di masukkan salah atau tidak sama
                    ' dengan yang ada pada tabel, maka akan keluar pesan dari program
                    If Password <> Trim(txtPassword.Text) Then
                        MsgBox("Password salah!", MsgBoxStyle.OKOnly, "POS")
                        txtPassword.Focus()
                        Exit Sub
                    Else
                        'Jika benar program akan menampilkan pada form utama
                        Me.ShowInTaskbar = False
                        Me.Close()
                        Me.Dispose()
                        f_utama.ShowDialog()
                        txtuser.Text = ""
                        txtPassword.Text = ""
                    End If
                End If
            End If
        Catch When Err.Number <> 0
            MsgBox("Tidak dapat melakukan proses" _
            & vbCrLf & Err.Description)
            MyConnection.close()
        End Try

    End Sub

    Sub Find_User()
        objCommand = MyConnection.open.CreateCommand
        objCommand.CommandText = ("Select Users.NIK,Users.[Password],Karyawan.[FirstName], Users.RoleID" & _
        " FROM Karyawan INNER JOIN Users ON Karyawan.NIK = Users.NIK where Users.NIK='" & Trim(txtuser.Text) + "' ")
        objdatareader = objCommand.ExecuteReader
        objdatareader.Read()
        Username = objdatareader.Item("NIK")
        Password = objdatareader.Item("Password")
        Nama = objdatareader.Item("FirstName")
        RoleID = objdatareader.Item("RoleID")
        MyConnection.close()
    End Sub

    Sub CekUser()
        objDataTable.Clear()
        strSQL = ("SELECT * FROM [Users] WHERE [NIK] = '" & Trim(txtuser.Text) & "' ")
        objCommand = New OleDbCommand
        objCommand.Connection = MyConnection.open
        objCommand.CommandType = CommandType.Text
        objCommand.CommandText = strSQL
        objDataAdapter = New OleDbDataAdapter(objCommand)
        objDataAdapter.Fill(objDataSet, "MDT_user")
        objDataTable = objDataSet.Tables("MDT_user")
        MyConnection.close()
    End Sub
#End Region


    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Dim mYes_No As String = MsgBox("Apakah anda mau keluar dari program ?", vbYesNo, "POS")
        If mYes_No = vbYes Then
            End
        Else
            Exit Sub
        End If
    End Sub

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        login()
    End Sub

    Private Sub F_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyConnection.close()
    End Sub

    Private Sub txtPassword_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPassword.KeyUp
        If e.KeyCode = Keys.Enter Then
            btnLogin.PerformClick()
        ElseIf e.KeyCode = Keys.Escape Then
            btnBatal.PerformClick()
        End If
    End Sub

contoh kode Simpan edit dan hapus pada vb.net

  contoh kode simpan dan edit:

 If btnsave.Text = "Save Add" Then
            Try
                If cbNama.SelectedItem = "- PILIH -" Then
                    MsgBox("Silahkan pilih Nama Karyawan terlebih dahulu", MsgBoxStyle.Information, "")
                    Exit Sub
                End If
                If cbRole.SelectedItem = "- PILIH -" Then
                    MsgBox("Silahkan pilih Otoritas User terlebih dahulu", MsgBoxStyle.Information, "")
                    Exit Sub
                End If
                Dim mYes_No As String = MsgBox("Anda yakin data mau disimpan ?", vbYesNo)
                If mYes_No = vbYes Then
                    Dim NIK, RoleID As String
                    NIK = Microsoft.VisualBasic.Left(cbNama.SelectedItem, 4)
                    RoleID = Microsoft.VisualBasic.Left(cbRole.SelectedItem, 1)
                    MyConnectionUsers.AccessUserInsert(NIK, Trim(txtPassword.Text), _
                    RoleID)
                    NonAktif_Inputan()
                    btnsave.Enabled = False
                    btnsave.Text = "Save (Ctrl+S)"
                    btnadd.Focus()
                    Displaydata()
                    clear()
                Else
                    NonAktif_Inputan()
                    clear()
                    btnadd.Focus()
                End If
            Catch When Err.Number <> 0
                MsgBox("Tidak dapat melakukan proses simpan" _
                & vbCrLf & Err.Description)
                MyConnection.close()
            End Try

        ElseIf btnsave.Text = "Save Edit" Then
            Try

                Dim mYes_No As String = MsgBox("Anda yakin data mau diupdate ?", vbYesNo)
                If mYes_No = vbYes Then
                    Dim NIK, RoleID As String
                    NIK = Microsoft.VisualBasic.Left(cbNama.SelectedItem, 4)
                    RoleID = Microsoft.VisualBasic.Left(cbRole.SelectedItem, 1)
                    MyConnectionUsers.AccessUserUpdate(NIK, RoleID)
                    NonAktif_Inputan()
                    btnsave.Text = "Save (Ctrl+S)"
                    btnsave.Enabled = False
                    btnadd.Focus()
                    Displaydata()
                    clear()
                Else
                    NonAktif_Inputan()
                    clear()
                    btnadd.Focus()
                End If

            Catch When Err.Number <> 0
                MsgBox("Tidak dapat melakukan proses update" _
                & vbCrLf & Err.Description)
                MyConnection.close()
            End Try
        End If
    End Sub

   contoh kode Hapus:

        Try
            If mProcess <> "View" Then
                MsgBox("Lakukan pencarian terlebih dahulu, sebelum proses hapus", MsgBoxStyle.Information, "POS")
            Else
                If cbSearch.SelectedItem = "- PILIH -" Then
                    MsgBox("Pilih nama karyawan yang mau di hapus/ubah", MsgBoxStyle.Information, "")
                    Exit Sub
                End If
                Dim mYes_No As String = MsgBox("Anda yakin data mau dihapus ?", vbYesNo)
                If mYes_No = vbYes Then
                    Dim NIK As String
                    NIK = Microsoft.VisualBasic.Left(cbNama.SelectedItem, 4)
                    MyConnectionUsers.AccessUserDelete(NIK)
                    NonAktif_Inputan()
                    clear()
                    Displaydata()
                Else
                    NonAktif_Inputan()
                    clear()
                    btnadd.Focus()
                End If
            End If
        Catch When Err.Number <> 0
            MsgBox("Tidak dapat melakukan proses hapus" _
            & vbCrLf & Err.Description)
            MyConnection.close()
        End Try
    End Sub

Contoh kode memasukkan data dari table ke komponent combobox di vb.net

' Memasukkan data dari tabel Role (RoleId & RoleName)
    ' ke dalam ComboBox Role
    Sub Sort_CbRole()
        cbRole.Items.Clear()
        cbRole.Items.Add("- PILIH -")
        objCommand = MyConnection.open.CreateCommand
        objCommand.CommandText = ("SELECT (Role.RoleID & ' - '&  Role.RoleName) as [RoleN] FROM Role;")
        objdatareader = objCommand.ExecuteReader
        While objdatareader.Read
            cbRole.Items.Add(objdatareader.Item("RoleN"))
        End While
        MyConnection.close()
        cbRole.SelectedIndex = 0
    End Sub

    ' Memasukkan data dari tabel Karyawan (NIK & Nama)
    ' ke dalam ComboBox Nama
    Sub Sort_CbNama()
        cbNama.Items.Clear()
        cbNama.Items.Add("- PILIH -")
        objCommand = MyConnection.open.CreateCommand
        objCommand.CommandText = ("SELECT (Karyawan.NIK & ' - '&  Karyawan.FirstName) as [Nama]FROM Karyawan;")
        objdatareader = objCommand.ExecuteReader
        While objdatareader.Read
            cbNama.Items.Add(objdatareader.Item("Nama"))
        End While
        MyConnection.close()
        cbNama.SelectedIndex = 0
    End Sub

    ' Memasukkan data dari tabel Users & Karyawan (Inner Join)
    ' ke dalam ComboBox Search
    Sub Sort_CbSearch()
        cbSearch.Items.Clear()
        cbSearch.Items.Add("- PILIH -")
        objCommand = MyConnection.open.CreateCommand
        objCommand.CommandText = ("SELECT (Users.NIK & ' - '&  Karyawan.FirstName) as [Nama] " & _
        " FROM Karyawan INNER JOIN Users ON Karyawan.NIK = Users.NIK;")
        objdatareader = objCommand.ExecuteReader
        While objdatareader.Read
            cbSearch.Items.Add(objdatareader.Item("Nama"))
        End While
        MyConnection.close()
        cbSearch.SelectedIndex = 0
    End Sub

contoh kode membuat navigator pada vb net

 Sub Navigator()
        Try
            Dim NIK, RoleID, RoleName, Nama As String
            Dim FullName, FullRole As String
            Dim i As Integer
            strSQL = "SELECT Users.NIK, Karyawan.FirstName, Role.RoleID, " & _
        " Role.RoleName, Users.Password" & _
        " FROM Role INNER JOIN (Karyawan INNER JOIN Users ON Karyawan.NIK = Users.NIK) " & _
        " ON Role.RoleID = Users.RoleID Order by Users.Nik asc;"

            objCommand = New OleDbCommand
            objCommand.Connection = MyConnection.open
            objCommand.CommandType = CommandType.Text
            objCommand.CommandText = strSQL
            objDataAdapter = New OleDbDataAdapter(objCommand)
            objDataAdapter.Fill(objDataSet, "MDT_Users")
            MyConnection.close()
            objDataTable = objDataSet.Tables("MDT_Users")
            mPosition = BindingContext(objDataTable).Position
            With objDataTable.Rows(mPosition)
                NIK = .Item("NIK")
                Nama = .Item("FirstName").ToString
                RoleID = .Item("RoleID").ToString
                RoleName = .Item("RoleName").ToString
                txtPassword.Text = .Item("Password").ToString

            End With

            FullName = NIK & " - " & Nama
            FullRole = RoleID & " - " & RoleName
            For i = 0 To (cbNama.Items.Count - 1)
                If FullName = cbNama.Items.Item(i).ToString() Then
                    cbNama.SelectedIndex = i
                    Exit For
                End If
            Next i

            For i = 0 To (cbRole.Items.Count - 1)
                If FullRole = cbRole.Items.Item(i).ToString() Then
                    cbRole.SelectedIndex = i
                    Exit For
                End If
            Next i
            NIK = Nothing
            RoleID = Nothing
            RoleName = Nothing
            Nama = Nothing
            FullName = Nothing
            FullRole = Nothing
        Catch When Err.Number <> 0
            MsgBox("Tidak dapat membuat hubungan ke database" _
            & vbCrLf & Err.Description)
            MyConnection.close()
        End Try
    End Sub

Contoh Kode Membuat Panel status bar dan cek otoritas pada vb net

Sub BuatPanelStatusBar()
        StatusBar1.Panels.Add("Ready..")
        StatusBar1.Panels.Add("")
        StatusBar1.Panels.Add("")
        StatusBar1.Panels(0).AutoSize = _
         StatusBarPanelAutoSize.Spring
        StatusBar1.Panels(1).Width = 300
        StatusBar1.Panels(2).Width = 300
        StatusBar1.Panels(0).BorderStyle = _

Membuat Progressbar dengan Splash Timer pada saat Login di VB.Net

Pada Pembahasan ini penulis akan memposting cara membuat tanda loding dengan splash timer:

Komponent:

1.Splash Timer.

2.Progressbarr.

1. Tambahkan kedua komponen tersebut kedalam form.
2. Atur Propertis Splashtimer value max = 1000.