Membuat Nomor Otomatis Dengan VB.NET Menggunakan Database MySQL (Tutorial 5)

Setelah sekian lama vakum tidak menulis di blog ini, pada kesempatan kali ini saya akan memberikan sebuah tutorial cara membuat nomor otomatis berbagai format dengan menggunakan VB.NET memakai database MySQL ini adalah kelanjutan dari Tutorial 4  yang membahas CRUD dengan menggunakan database MySQL. Pada tutorial sebelumnya saya juga sudah pernah membahas cara membuat nomor otomatis dengan menggunakan VB6.

Sebenarnya koding untuk membuat nomor otomatis ini tidak terlalu sulit seperti yang anda bayangkan dan pola kodingnya pun hampir sama dengan VB6. Langsung saja ke pokok pembahsan.

Langkah pertama silahkan buat sebuah class terlebih dulu jika belum ada (karena kita melanjutkan tutorial 4 maka tidak perlu membuat sebuah class lagi karena sudah ada). Jika anda belum membuatnya silahkan buka tutorial 4 disana di bahas cara membuat class yang digunakan untuk koneksi ke database.

Langkah selanjutnya silahkan buat sebuah form dengan desain seperti pada gambar berikut ini :


Langkah selanjutnya adalah buatlah sebuah tabel dengan nama Tbl_Nomor dalam database DB_Akademik yang telah kita buat pada tutorial sebelumnya. Untuk struktur tabelnya seperti yang nampak pada gambar berikut ini :


Dalam pembuatan tabelnya saya memakai bantuan software navicat, jika anda belum bisa menghubungkan database MySQL dengan navicat silahkan buka tutorial berikut ini.  Jika sudah semuanya, mari kita lanjutkan ke koding.


Ketikan koding berikut ini di dalam prosedur Public Class

    Dim Proses As New clsKoneksi
    Dim TblNomor As DataTable

    Private Sub NomerFormat1()
        TblNomor = Nothing
        TblNomor = Proses.ExecuteQuery("SELECT Format1 FROM Tbl_Nomor ORDER By Format1 DESC")
        If TblNomor.Rows.Count = 0 Then
            txtFormat1.Text = "0001"
        Else
            With TblNomor.Rows(0)
                txtFormat1.Text = .Item("Format1")
            End With

            txtFormat1.Text = Val(Microsoft.VisualBasic.Right(txtFormat1.Text, 4)) + 1
            txtFormat1.Text = Microsoft.VisualBasic.Right("0000" & txtFormat1.Text, 4)
        End If
    End Sub

    Private Sub NomerFormat2()
        TblNomor = Nothing
        TblNomor = Proses.ExecuteQuery("SELECT Format2 FROM Tbl_Nomor ORDER By Format2 DESC")
        If TblNomor.Rows.Count = 0 Then
            txtFormat2.Text = Format(Now, "yyMMdd") & "001"
        Else
            With TblNomor.Rows(0)
                If Microsoft.VisualBasic.Left(.Item("Format2"), 6) <> Format(Now, "yyMMdd") Then
                    txtFormat2.Text = Format(Now, "yyMMdd") & "001"
                Else

                    txtFormat2.Text = Val(Microsoft.VisualBasic.Right(.Item("Format2"), 3)) + 1
                    txtFormat2.Text = Format(Now, "yyMMdd") & Microsoft.VisualBasic.Right("000" & txtFormat2.Text, 3)
                End If
            End With
        End If
    End Sub

    Private Sub NomerFormat3()
        TblNomor = Nothing
        TblNomor = Proses.ExecuteQuery("SELECT Format3 FROM Tbl_Nomor ORDER By Format3 DESC")
        If TblNomor.Rows.Count = 0 Then
            txtFormat3.Text = "JL-001"
        Else
            With TblNomor.Rows(0)
                txtFormat3.Text = .Item("Format3")
            End With

            txtFormat3.Text = Val(Mid(txtFormat3.Text, 4, 3)) + 1
            txtFormat3.Text = "JL-" + Microsoft.VisualBasic.Right("000" & txtFormat3.Text, 3)
        End If
    End Sub

Kemudian ke 3 (tiga) prosedur tersebut di atas kita panggil dalam Form Load

Private Sub FormNomorOtomatis_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     Call NomerFormat1()
     Call NomerFormat2()
     Call NomerFormat3()
End Sub

Setelah itu kita buat koding untuk penyimpanan data ke dalam tabel yang telah kita buat tadi. Silahkan double klik tombol simpannya kemudian ketikan koding berikut ini:

Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        Dim SSQL As String

        Try
            SSQL = ""
            SSQL = "INSERT INTO Tbl_Nomor(FORMAT1,FORMAT2,FORMAT3)VALUES('" & txtFormat1.Text & "','" & txtFormat2.Text & "','" & txtFormat3.Text & "')"
            Proses.ExecuteNonQuery(SSQL)

            txtFormat1.Text = ""
            txtFormat2.Text = ""
            txtFormat3.Text = ""
            Call NomerFormat1()
            Call NomerFormat2()
            Call NomerFormat3()

        Catch ex As Exception
            MessageBox.Show("Terjadi Kesalahan Dalam Penyimpanan", "Perhatian", MessageBoxButtons.OK)
        End Try
    End Sub
End Class

Jika sudah silahkan disimpan supaya jika terjadi apa-apa yang tidak diharapakan tidak hilang. selanjutkan silahkan untuk dirun/ dijalankan. Selesai.

Demikian tutorial cara Membuat Nomor Otomatis Dengan VB.NET Menggunakan Database MySQL (Tutorial 5). Untuk lebih jelasnya silahkan lihat video dibawah ini, semoga mudah dipahami.





Keywords:
Membuat Nomor Otomatis Dengan VB.NET Menggunakan Database MySQL (Tutorial 5), Nomor Otomatis di VB.Net, Tutorial Membuat nomor otomatis dengan VB.NET, Tutorial Cara Membuat Nomor Otomatis VB.Net Dengan Database MySQL

No comments:

Post a Comment