Cara membuat fungsi autonumber dengan menggunakan kombinasi Tahun dan Bulan di VB.NET 2008

Pada kesempatan ini saya ingin membuat fungsi penomoran otomatis dengan menggunakan kombinasi bulan dan tahun , sebelumnya saya juga pernah menulis fungsi dengan penomoran otomatis tapi tidak menggunakan kombinasi bulan dan tahun.

Import system.data.sqlclien ‘digunakan supaya perintah sqlcommand dikenali

Public class pinjam ()

public function autonumber ()

                 Dim sql As String

        Dim xcmd As SqlCommand

        Dim xread As SqlDataReader

        Dim hasil As String

        Dim n As String

        n = "NPJ" & Date.Today.ToString("yyMM")

  sql = "select top 1 no_pjm from pinjamHdr 

where no_pjm like '%" & n & "%' order by no_pjm desc "

        xcmd = New SqlCommand(sql, con)

        xread = xcmd.ExecuteReader

        If xread.HasRows = True Then

            xread.Read()

            hasil = n & Format(Val(Right(xread.Item("no_pjm"),3)) + 1, "00#")

        Else

            nilaiauto = n + "001"

        End If

        xread.Close()

        Return nilaiauto               

end function

End class

Cara memanggil fungsi Autonumber

-Klik view kode

Ketik sintak seperti di bawah ini untuk menampilkan penomoran otomatis di text no. peminjaman ketikan form di jalankan.

Public class frmPeminjaman

Dim objpjmDtl As New Pinjam ‘supaya class pinjam dapat di kenali di form peminjaman

 Private Sub frmpeminjaman_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       

txtnopjm.Text = objPJM.Autonumber

       

End Sub

End class

Selamat mencoba semoga dapat bermanfat .