Autonumber adalah field yang isinya akan secara otomatis terisi menurut
Urutan tertentu.
Field Autonumber dapat dibuat dengan 2 cara :
1. Menggunakan field Identity (Autonumber). Field ini harus bertipe Int atau Numeric, kemudian tentukan Seed (Nilai dimulai dari berapa), Increment (Pertambahan Nilai)
2. Menggunakan StoreProcedure / Trigger / Function. Field ini akan dibuat oleh program dengan algoritma.
Nah kali ini saya akan memberikan contoh untuk menerapkan Autonumber pada tabel TransaksiPenjualan anda Autonumber akan berada pada kolom nomer transaksi.
Kita mulai dengan membuat Generate Auto Number sederhana sampai dengan Generate Auto Number Menggunakan campuran Karakter, Hari, Bulan dan Tahun dengan menggunakan aplikasi VB.Net dan Database SQL Server.
Ketikkan kode program ini pada VB.Net anda untuk membuat Generate Auto Number sederhana:
Imports System.Data.SqlClientPublic Class Form1 Dim conn As SqlConnection Function AutoNumberTransaksi() As String conn = New SqlConnection("Data Source=REZA-PC\SQLEXPRESS;Initial Catalog=GenerateAutoNumber;Integrated Security=True") Dim query = "SELECT No_Transaksi FROM TransaksiPenjualan ORDER BY No_Transaksi DESC" Dim pesan As String = "" Try conn.Open() Dim cmd As New SqlClient.SqlCommand(query, conn) Dim reader As SqlClient.SqlDataReader reader = cmd.ExecuteReader If reader.HasRows Then reader.Read() Return Mid("000", 1, 3 - (Val(Trim(reader.Item(0).ToString)) + 1).ToString.Length) + (Val(Trim(reader.Item(0).ToString)) + 1).ToString Else Return "001" End If Catch ex As Exception pesan = ex.Message.ToString Finally conn.Close() End Try Return pesan End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(AutoNumberTransaksi()) End SubEnd Class
Bagaimana? Mudah bukan?
Jika ingin mengetahui lebih lanjut tentang Generate Auto number, bagaimana membuat Aplikasi yang memiliki Autonumber dengan campuran karakter, hari, bulan, tahun? dan bagaimana cara mereset Autonumber menjadi nomer 1 (satu) kembali setelah hari berganti atau bulan berganti atau tahun berganti?
Silahkan Download contoh aplikasi yang akan saya lampirkan dibawah, Jagan lupa download databasenya juga.
Selamat Belajar Semoga Sukses
Tidak ada komentar:
Posting Komentar