Membuat Nomor Transaksi Otomatis VB 6.0

Artikel kali ini akan membahas tentang penomoran otomatis pada vb 6.0. Pada Artikel ini saya hanya memberikan intinya saja yang sesuai dengan judul artikel ini, yaitu penomoran otomatis. Untuk pengembangan program pada tahap selanjutnya…terserah anda…silahkan berkreasi sesuai dengan kebutuhan progman yang anda buat. :D

Oke, langsung saja ikuti langkah-langkah berikut

1.      Buat project vb baru

Gambar 1

2.      Klik menu Project >> References (centang yang diperlukan -gambar1-)

Gambar 2

3.      Klik menu Project >> Components / atau bisa tekan Ctrl+T (centang yang diperlukan –gambar2-)

Gambar 3

4.      Lalu tambahkan komponen-komponen yang diperlukan ke dalam form (gambar3)

5.      Buat database menggunakan MS.Access dengan nama “DBDemoFaktur.mdb” lalu tambahkan satu buah field dengan nama “NoFaktur” dengan tipe text (database disimpan pada lokasi project vb ini dibuat)

6.      Tahap persiapan selesai..kemudian siap untuk berkoding ria.. :p

Masukan koding berikut :

Dim Conn As New ADODB.Connection

Dim RS As ADODB.Recordset

'koneksi database

Sub Koneksi()

Set Conn = New ADODB.Connection

Set RS = New ADODB.Recordset

'penggunaan app.path adalah untuk mengakses database yang lokasinya sama

'dengan lokasi tempat projek program, jadi kita tidak usah membuat Path Drivenya

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\dbdemofaktur.mdb"

End Sub

'Penomoran Otomatis

Private Sub oto1()

'membuat sambungan

Call Koneksi

'menyeleksi data terbesar di Database

RS.Open "select * from Faktur Where noFaktur In(Select  max(noFaktur)From Faktur)Order By noFaktur asc", Conn

RS.Requery

    Dim Urutan As String * 11 'lebar data 11 karakter

    Dim Hitung As Long

    With RS

        If .EOF Then

            Urutan = "sp-" + Format(Date, "YYMMDD") + "01"

            Lblfaktur = Urutan

        Else

            If Mid(!noFaktur, 4, 6) <> Format(Date, "YYMMDD") Then

                Urutan = "sp-" + Format(Date, "YYMMDD") + "01"

            Else

                Hitung = Right(!noFaktur, 2) + 1

                Urutan = "sp-" + Format(Date, "YYMMDD") + Right("00" & Hitung, 2)

            End If

        End If

        'menampilkan penomoran pada label

        Lblfaktur = Urutan

    End With

End Sub

'melakukan penomoran otomatis (data terbesar dari database + 1

Private Sub Form_Activate()

'memanggil penomoran otomatis

Call oto1

'menampilkan data di grid

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbdemofaktur.mdb"

Adodc1.RecordSource = "faktur"

Set DataGrid1.DataSource = Adodc1

Adodc1.Refresh

End Sub

'TOmbol simpan dan langsung melakukan penomoran otomatis

Private Sub Command1_Click()

Dim simpan As String

simpan = "insert into faktur(nofaktur) values ('" & Lblfaktur & "')"

Conn.Execute simpan

Form_Activate

End Sub

Berikut hasilnya

Tips : Cermati kodingnya. Saya sengaja menambahkan komentar pada listing programnya agar bisa dipelajari dan dimengerti.

Untuk kekurangan atau kesalahan saya minta maaf. Silahkan kritik dan saran..^.^)b

Download :

Project Penomoran Otomatis

Tutorial PDF