Cara Membuat ID Transaksi dan ID Barang Secara Otomatis di Visual Basic .Net (VB.NET)

Kalau Anda bikin Aplikasi kasir atau Aplikasi inventori, ID itu sangat penting dalam mengidentifikasi suatu data yang sifatnya unik misalnya untuk pencarian atau pemanggilan data, bayangkan kalau ID itu kita ketik satu per satu tentu sangat lama sekali sangat menyita waktu apalagi datanya ribuan.

Dalam artikel blog ini Admin akan membahas bagaimana Cara Membuat ID Transaksi dan ID Barang Cecara Otomatis di Visual Basic .Net dengan dua kebutuhan :

• ID Barang dengan format BR-001
• ID Transaksi dengan format TRX-ddmmyy-0001

Keterangan :

• BR adalah Barang
• 001 adalah nomor urut barang saat ditambah
• TRX adalah Transaction
• ddmmyy adalah format tanggal hari ini terdiri dari tanggal, bulan dan tahun
• 0001 adalah nomor urut terjadinya transasksi

Berikut adalah langkah-langkah pembuatan ID otomatis di VB.Net

A. ID Barang

Dim nomorBarang As Integer = 0

nomorBarang += 1

Dim kodeOtomatis As String = "BR" & nomorBarang.ToString("00")

Tempatkan kode dibawah ini di tombol Tambah Data

Label1.Text=kodeOtomatis

Hasilnya:BR001

B. ID Transaksi

Dim nomorTransAktif As String = ""

Function GenerateNomorTrans() As String

        Dim hariIni As String = Date.Now.ToString("ddMMyy")

        ' Reset urutan jika ganti hari

        If tanggalTerakhir <> hariIni Then

            nomorUrutCetak = 0

            tanggalTerakhir = hariIni

        End If

        nomorUrutCetak += 1

        Dim nomorTrans As String = "TRX-" &

        hariIni & nomorUrutCetak.ToString("0000")

        Return nomorTrans

    End Function

Tempatkan kode dibawah ini di tombol Print saat mau cetak Transaksi

 nomorBonAktif = GenerateNomorBon()

Label1.Text= nomorBonAktif

Hasilnya : TRX-1002260001

Bonus :

Membuat Penjumlahan total pada DataGridView, misal Total item dan Total harga

Sub HitungTotalItem()

        Dim totalItem As Integer = 0

        For Each row As DataGridViewRow In DataGridView1.Rows

            If Not row.IsNewRow Then

                totalItem += Val(row.Cells(3).Value)

            End If

        Next

        LabelTotalItem.Text = totalItem

    End Sub

Konsep Dasar ID Otomatis di VB.Net

• Mengambil ID dari suatu entitas
• Mengambil angka urutnya
• Menambah 1 angka
• Menggabungkannya

Biasanya ID ini tampil saat Form dibuka atau klik Tombol, misal klik tombol Tambah Data

Kelebihan Menggunakan ID Otomatis

• Menghindari duplikat data
• Proses input lebih cepat
• Tanpa mengetik manual

Demikianlah artikel pada hari membahas tentang Cara Membuat ID Transaksi dan ID Barang Secara Otomatis di Visual Basic .Net (VB.NET), semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil