Cara Membuat Nomor Transaksi Otomatis di Visual Basic Net

Cara Membuat Nomor Transaksi Otomatis di Visual Basic Net, dalam dunia pemrograman nomor transaksi yang dibuat secara otomatis akan selalu ditemui dan digunakan sebagai parameter untuk membuat kode khusus untuk mencatat setiap transansaksi yang terjadi. Dalam membuat nomor transaksi ini biasanya selain nomor urut transaksi terkadang adanya penambahan dalam bentuk tanggal dari transaksi yang telah di lakukan.

Pada visual basic sendiri kita dapat membuat nomor transaksi tersebut secara otomatis yang menggunakan parameter - parameter yang dapat digunakan sesuai dengan kebutuhan. Dalam kesempatan kali ini kita akan coba mengaplikasikannya pada sebuah transaksi barang. Untuk membuat nomor transaksi secara otomatis tersebut anda dapat mengikut langkah - langkah berikut ini.

Buatlah sebuah database dengan nama dbNo_Otomatis pada microsoft access dan sebuah tabel dengan nama tbnomor. Lihatlah tabel berikut ini untuk kebutuhan spesifikasi tabel tbnomor tersebut.

Field	Type	Size	Key	Keterangan
Nomor	Text	12	*	Nomor Transaksi muncul secara Otomatis dan bersifat unik, misalnya 20170509-001 (4 digit pertama : tahun, 2 digit kedua : bulan, 2 digit ketiga : tanggal, dan 3 digit keempat : urutan nomor transaksi)
NamaBarang	Text	30

Setelah membuat database selanjutnya jalankan program visual basic 2010 / Vb.net kemudian tambahkan sebuah project baru, dan buat desain seperti form1 barikut ini.

Setelah membuat desain pada form1 tambahkanlah satu buah module untuk menghubungkan program dengan database yang sudah dibuat sebelumnya. Kemudian anda berikan listing kode berikut pada Module.

Listing Kode Module

Imports System.Data.OleDb
Module Module1
    Public CONN As OleDbConnection
    Public CMD As OleDbCommand
    Public DS As New DataSet
    Public DA As OleDbDataAdapter
    Public RD As OleDbDataReader
    Public str As String
    Public strSql As String

    Sub Koneksi()
        str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbNo_Otomatis.mdb"
        CONN = New OleDbConnection(str)
        If CONN.State = ConnectionState.Closed Then
            CONN.Open()
        End If
    End Sub

    Public Sub tutupDB()
        If CONN.State = ConnectionState.Open Then
            CONN.Close()
        End If
    End Sub
End Module

Selanjutnya kita tambahkan listing kode berikut pada form1 untuk menampilkan hasil nomor transaksi otomatis tersebut.

Listing Kode Form1

Imports System.Data.OleDb
Public Class Form1
    Private Sub CekData()
        Koneksi()
        Try
            DA = New OleDb.OleDbDataAdapter("Select * from tbnomor order by nomor desc", CONN)
            DS = New DataSet
            DS.Clear()
            DA.Fill(DS, "tbnomor")
            DataGridView1.DataSource = (DS.Tables("tbnomor"))
            DataGridView1.Columns(0).Width = 150
            DataGridView1.Columns(1).Width = 150       
            DataGridView1.ReadOnly = True
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            CONN.Close()
        End Try
    End Sub

    Private Sub Kodenomor()
        Dim NomOt As String = " "
        Koneksi()
        
        Try
            CMD = New OleDbCommand("SELECT TOP 1 right(nomor,3) + 1 as nomor FROM tbnomor order by nomor desc ", CONN)
            RD = CMD.ExecuteReader
            'panggil nomor tertinggi kemudian tambahkan 1
            
            If RD.Read Then  'jika data ada
                Dim nomor1 As String  'buat variabel nomor1 utk menampung no tertinggi
                nomor1 = RD!nomor   'tampung nomor tertinggi
                CMD = New OleDbCommand("SELECT max(nomor) as nomax FROM tbnomor", CONN)
                RD = CMD.ExecuteReader  'panggil nomor tr terakhir
                If RD.Read Then
                    Dim tanggal, nomor2 As String
                    nomor2 = RD!nomax  'tampung no tertinggi di variabel nomor2
                    tanggal = Format(Date.Now, "yyyyMMdd")   
'tampung tanggal sekarang di variabel tanggal
                    If Microsoft.VisualBasic.Left(nomor2, 8) <> tanggal Then
                       'jika tanggal yang diambil dari no tertinggi tidak sama dengan  
                        tanggal sekarang
                        NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "001"
                        'tentukan no faktur dimulai 001
                    Else
                        'jika sama lakukan pengecekan 3 nomor terakhir
                        Select Case nomor1
                            Case Is <= 9
                             NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "00" & nomor1

                            Case Is <= 99
                             NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "0" & nomor1
                        End Select
                    End If
                End If
            Else

                'tabel(kosong)
                NomOt = Format(Date.Now, "yyyyMMdd") & "-" & "001"
            End If
            TextBox1.Text = NomOt  'tampilkan di textbox
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CekData()
        Kodenomor()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            tutupDB()
            CONN.Open()

        Catch ex As OleDb.OleDbException
            MsgBox(ex.Message)
            MsgBox("Koneksi tidak berhasil dilakukan")
            Exit Sub
        End Try

        Try
            Koneksi()
            Dim cmd As New OleDbCommand("insert into tbnomor(nomor,Nama_barang) values('" & TextBox1.Text & "','" & TextBox2.Text & "')", CONN)
            cmd.ExecuteNonQuery()
            MsgBox("Data berhasil disimpan")
            CekData()
            Kodenomor()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try       

    End Sub

End Class

Langkah selanjunya adalah menyimpan database yang sudah dibuat sebelumnya ke direktori path berikut NamProgram\bin\Debug, simpanlah database tersebut pada direktori atau folder /bin/debug, setelah itu anda jalankan program tersebut dan lihat hasilnya.

Dengan cara membuat nomor transaksi otomatis di visual basic ini diharapkan dapat membantu proses pembuatan program. Anda dapat mengembangkan contoh program ini kedalam aplikasi yang lebih kompleks. Terima kasih, semoga bermanfaat.

Download

Share this post