Cara Membuat Auto Number Menggunakan Visual Studio 2010

Oleh peistar

Sunday, 19 February 2017

Bagikan :

Tweet

Bagaimana cara membuat Auto Number ?

Auto Number atau kepanjangan Automatic Number biasanya digunakan agar memudahkan para pengguna aplikasi pada saat mengurutkan ID secara berurutan tanpa melihat ID sebelumnya. Adapun cara pengerjaanya saudara dapat mengikuti langkah-langkah dibawah ini dengan benar sebagai berikut :

- Langkah Pertama : Pada Form yang akan saudara jadikan Auto Number saudara dapat membuat Class tersendiri pada Area Code dengan Nama “Auto_Number”. Untuk lebih jelasnya perhatikan gambar berikut ini :

Code Program Auto_Number :

Sub Auto_Number()

Call Koneksi()

cmd = New OleDbCommand("select * from Tamu where ID_Tamu in (select max(ID_Tamu) from Tamu)", Conn)

Dim urut As String

Dim number As Long

rd = cmd.ExecuteReader

rd.Read()

If Not rd.HasRows Then

urut = "T-" + "0001"

Else

number = Microsoft.VisualBasic.Right(rd.GetString(0), 4) + 1

urut = "T-" + Microsoft.VisualBasic.Right("0000" & number, 4)

End If

TextBox1.Text = urut

End Sub

- Langkah Kedua : Saudara dapat memperkenalkan Class Auto_Number pada Form_Load, Tombol Save, Edit, Delete, dan Cancel.

Catatan : Pastikan saudara telah membuat database dan mengkoneksikannya ke Visual Studio 2010. Bagi yang belum saudara dapat melihat link dibawah ini.

Baca Juga Link Berikut ini :

1. Cara Koneksi Visual Studio 2010 dengan Database Access 2007Membuat Tombol Simpan
2. Perintah Save Dengan Visual Studio 2010 Express
3. Coding Delete Dengan Menggunakan Visual Studio 2010 Express
4. Cara Membuat Tombol Edit Dengan Visual Studio 2010 Express
5. Tutorial Login Dengan Visual Studio 2010 Express
6. Cara Buat Menu Utama Dengan Visual Studio 2010 Express

Saudara juga dapat memodifikasi Auto Number ini seperti gambar dibawah ini dengan menambahkan Button New disamping TextBox1.

Selamat Mencoba. Mudah-mudahan tutorial ini bermanfaat bagi para pembaca, terimakasih banyak atas kunjungan saudara yang telah menyempantkan mengunjungai blog kami ini. Salam kompak selalu untuk kita semua. Wasalam...!!!

Tambahan Materi :

Coding Close :

Me.Close()

Coding Cancel :

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox1.Focus()

Tag : Visual Studio 2010