PENOMORAN OTOMATIS DENGAN MENGGUNAKAN VISUAL BASIC 6.0

Oleh peistar

Wednesday, 1 June 2016

Bagikan :

Tweet

Penomoran otomatis biasanya digunakan dengan tujuan memudahkan pengkodean dalam pemrosesan data, selain efisien dan praktis data yang dihasilkan nantinya akan lebih akurat tanpa terjadinya redudansi data. Redudansi data dimaksudkan agar data tidak terjadi tumpang tindih. Nah... pada kesempatan kali ini saya akan memberikan tutorial bagaimana cara membuat penomoran otomatis dengan menggunakan bahasa pemrograman visual besic 6.0 dengan lebih mudah. Pada posting sebelumnya saya telah memberikan cara mengenai Simpan, Ubah Data, dan Hapus Data.

Pastikan saudara ditemani secangkir kopi hitam hangat dan beberapa makanan kecil lainnya untuk memudahkan penglihatan saudara dalam pengerjaan aplikasi ini. Hehehehe...

Adapun cara pengerjaanya saudara dapat mengikuti langkah – langkah dibawah ini dengan benar :

- Langkah Pertama : Buatlah class penomoran otomatis pada area coding program beri nama sesuai dengan keinginan saudara, pastikan tabel yang akan diberi penomoran otomatis harus kosong terlebih dahulu.

Tampilan Class Otomatis

 Tampilan Tabel

Coding Penomoran Otomatis :

Private Sub otomatis()

Set Rs = New ADODB.Recordset

Rs.Open ("select * FROM Barang WHERE Kd_Barang in(select max(Kd_Barang) from Barang)order by Kd_Barang desc"), con

Rs.Requery

    Dim otomatis As Integer

    With Rs

    If .EOF Then

        Text1 = "B001"

    Else

        otomatis = (Right(!Kd_Barang, 3)) + 1

        Text1 = "B" & Format(otomatis, "000")

    End If

    End With

End Sub

Catatan : pastikan saudara telah menyesuaikan nama Tabel, Field, dan Nama Koneksi pada Module Program yang telah saudara buat.

- Langkah Kedua : Kemudian perkenalkan Class penomoran otomatis yang telah dibuat pada Form Load dengan tujuan pada saat aplikasi ini nantinya dijalankan maka  penomoran akan tampil dengan sedirinya.

- Langkah Ketiga : Selanjutnya kita juga dapat memperkenalkan class penomoran otomatis pada button simpan, ubah data, dan hapus data. Tujuannya adalah ketika pada saat kita simpan, ubah data, dan hapus data maka nomor selanjutnya akan berubah ke nomor berikutnya.

Selamat mencoba...!!  pada kesempatan selanjutnya saya akan memberikan tutorial yang lebih menarik lagi tentunya, terimakasih atas kunjungan saudara salam kompak selalu untuk kita semua mari berbagi ilmu bersama kami disini. Wasaalammmm...!!!

Tag : Pemrograman Visual Basic 6.0