Membuat Autonumber Menggunakan Kombinasi Bulan & Tahun di VB.Net

Di copy dari : http://herosetyanofario.wordpress.com/2011/06/17/membuat-autonumber-menggunakan-kombinasi-bulan-tahun-di-vb-net/

with one comment

Pada postingan terdahulu gw sudah pernah buat sharing ide cara membuat penomoran otomatis. Baca sebelumnya. Nah kali ini gw mau sedikit improve cara membuat autonumber dengan kombinasi bulan (MM) dan tahun (yy). Seringkali klien banyak request untuk dibuatkan penomoran otomatis yang mengambil kombinasi bulan & tahun. Sebenarnya nga banyak berubah koding yang dipergunakan seperti pada postingan gw terdahulu. Hanya beberapa modifikasi sedikit. O iya sekedar informasi, banyak juga teman-teman yang request ke e-mail gw mengenai aplikasi yang ini. Sehingga membuat gw terpacu untuk memodifikasi penggunaan autonumber yang telah ada. ^-^



Ok seperti biasa aplikasi yang dibuat ini merujuk kepada penggunaan bahasa program Visual Basic (VB.Net 2008) dan SQL Server 2005
*FORMAT NO. INVOICE YANG GW BUAT : INV/CMI/06/11/00001
*keterangan :
INV : adalah kode untuk Invoice
CMI : adalah nama perusahaan
06 : adalah bulan (MM)
11 : adalah tahun (yy)
00001 : adalah autonumber – yang akan bertambah setiap transaksi masuk
Adapun langkah-langkah kerja dalam pembuatan autonumber ini adalah :
1. Persiapkan database-nya. Disini gw membuat database dengan nama “concept_db”
Berikut query untuk pembuatannya :

view sourceprint?

1	create table purchasing_order(

2	no_invoice varchar(50),

3	nama_cust varchar(50),

4	alamat_cust varchar(50));

2. Setelah selesai dengan database langkah selanjutnya adalah koding untuk form yang telah dibuat :
Sebelumnya gw akan kasih liat tampilan program-nya :

Tampilan setelah ada data masuk :

2.1 Pertama-tama buat dulu Class untuk koneksi ke database. Dalam program gw, nama class-nya adalah : ClsKoneksi
Coding :

view sourceprint?

01	Imports Microsoft.VisualBasic

02	Imports System.Data.Sql

03	Imports System.Data

04	Imports System.Data.SqlClient

05	Public Class ClsKoneksi

06	Protected tblPengguna = New DataTable

07	Protected SQL As String

08	Protected Cn As SqlClient.SqlConnection

09	Protected Cmd As SqlClient.SqlCommand

10	Protected Da As SqlClient.SqlDataAdapter

11	Protected Ds As DataSet

12	Protected Dt As DataTable

13	Public Function OpenConn() As Boolean

14	Cn = New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=concept_db;Integrated Security=True")

15

Cn.Open()

16	If Cn.State <> ConnectionState.Open Then

17	Return False

18

Else

19	Return True

20

End If

21	End Function

22	Public Sub CloseConn()

23	If Not IsNothing(Cn) Then

24	Cn.Close()

25	Cn = Nothing

26

End If

27

End Sub

28	Public Function ExecuteQuery(ByVal Query As String) As DataTable

29	If Not OpenConn() Then

30	MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")

31	Return Nothing

32	Exit Function

33

End If

34

35	Cmd = New SqlClient.SqlCommand(Query, Cn)

36	Da = New SqlClient.SqlDataAdapter

37	Da.SelectCommand = Cmd

38

39	Ds = New Data.DataSet

40	Da.Fill(Ds)

41

42	Dt = Ds.Tables(0)

43

44

Return Dt

45

46	Dt = Nothing

47	Ds = Nothing

48	Da = Nothing

49	Cmd = Nothing

50

51	CloseConn()

52

53	End Function

54	Public Sub ExecuteNonQuery(ByVal Query As String)

55	If Not OpenConn() Then

56	MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")

57

Exit Sub

58

End If

59

60	Cmd = New SqlClient.SqlCommand

61	Cmd.Connection = Cn

62	Cmd.CommandType = CommandType.Text

63	Cmd.CommandText = Query

64	Cmd.ExecuteNonQuery()

65	Cmd = Nothing

66	CloseConn()

67

End Sub

68

End Class

2.2 Setelah Class Koneksi dibuat, maka sekarang masuk ke inti dari program ini. Yaitu koding untuk Form1-nya :
Coding :

view sourceprint?

001	Imports System.Data.SqlClient

002	Imports System.Data

003	Public Class Form1

004	Dim SQL As String

005	Dim SQL2 As String

006	Dim Proses As New ClsKoneksi

007	Dim tblMerk As DataTable

008	'Dim Da As SqlClient.SqlDataAdapter

009	Sub Data_Record()

010	tblMerk = Proses.ExecuteQuery("Select * From purchasing_order")

011	DataGridView1.DataSource = tblMerk

012	DataGridView1.Columns(1).Width = 130

013

End Sub

014	'Kode otomatis untuk buat invoice

015	Sub Kode_Otomatis()

016	Dim date1 As String

017	date1 = Format(Now, "yy")

018	Dim date2 As String

019	date2 = Format(Now, "MM")

020	tblMerk = Proses.ExecuteQuery("Select * From purchasing_order order by no_invoice desc")

021	If tblMerk.Rows.Count = 0 Then

022

023	TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/00001"

024

Else

025	With tblMerk.Rows(0)

026	TextBox1.Text = .Item("no_invoice")

027

End With

028	TextBox1.Text = Val(Microsoft.VisualBasic.Mid(TextBox1.Text, 15, 5)) + 1

029	If Len(TextBox1.Text) = 1 Then

030	TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/0000" & TextBox1.Text & ""

031	ElseIf Len(TextBox1.Text) = 2 Then

032	TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/000" & TextBox1.Text & ""

033	ElseIf Len(TextBox1.Text) = 3 Then

034	TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/00" & TextBox1.Text & ""

035	ElseIf Len(TextBox1.Text) = 4 Then

036	TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/0" & TextBox1.Text & ""

037	ElseIf Len(TextBox1.Text) = 5 Then

038	TextBox1.Text = "INV/CMI/" & date2 & "/" & date1 & "/" & TextBox1.Text & ""

039

End If

040

041

End If

042

End Sub

043

044	Sub bersih()

045	Call Data_Record()

046	Call Kode_Otomatis()

047	BtnTambah.Enabled = True

048	TextBox1.Enabled = False

049	TextBox2.Text = ""

050	TextBox3.Text = ""

051	TextBox1.Focus()

052

End Sub

053

054	Private Sub DGJenisBrg_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick

055	TextBox1.Text = DataGridView1.SelectedCells(0).Value

056	TextBox2.Text = DataGridView1.SelectedCells(1).Value

057	TextBox3.Text = DataGridView1.SelectedCells(2).Value

058	BtnTambah.Enabled = False

059

End Sub

060	Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click

061

062

Try

063	If (Me.TextBox1.Text = "") Then

064	MsgBox("Data Wajib Diisi Lengkap!", MsgBoxStyle.Information, "Perhatian")

065	Me.TextBox2.Focus()

066

Exit Sub

067

Else

068	SQL = "Insert Into purchasing_order Values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"

069	Proses.ExecuteNonQuery(SQL)

070	MessageBox.Show("Proses Data Berhasil!", "Sukses saved", MessageBoxButtons.OK, MessageBoxIcon.Information)

071	Call bersih()

072

End If

073	Catch ex As SqlException

074	MsgBox(ex.Message, MsgBoxStyle.Information, "Perhatian")

075

076

End Try

077

078

End Sub

079	Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click

080	Call bersih()

081

End Sub

082

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

084	'Me.WindowState = FormWindowState.Maximized

085	Call bersih()

086	DataGridView1.Columns(0).HeaderText = "No. Invoice"

087	DataGridView1.Columns(1).HeaderText = "Nama Customer"

088	DataGridView1.Columns(2).HeaderText = "Alamat Customer"

089

090	Me.DataGridView1.DefaultCellStyle.ForeColor = Color.Coral

091	' Change back color of each row

092	Me.DataGridView1.RowsDefaultCellStyle.BackColor = Color.AliceBlue

093	' Change GridLine Color

094	Me.DataGridView1.GridColor = Color.Blue

095	' Change Grid Border Style

096	Me.DataGridView1.BorderStyle = BorderStyle.Fixed3D

097	DataGridView1.EnableHeadersVisualStyles = False

098	DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.LightGray

099

End Sub

100

End Class

Keterangan properties untuk Form1
Textbox1.Text = Untuk input no.invoice
Textbox2.Text = Untuk input nama customer
Textbox3.Text = Untuk input alamat customer
BtnTambah = Eksekusi data
DatagridView1 = Binding data
BtnBatal = Membersihkan textbox dan refresh data