Cara Membuat No Faktur Otomatis VB 6.0

Pada Belajar VB 6.0 kali ini akan dibahas mengenai Cara Membuat No Faktur Otomatis VB 6.0

Berikut langkah-langkahnya
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Penjualan dengan Design Tabel seperti gambar dibawah ini :

 2. Membuat Project VB 6.0 dan Design Form

Buka Aplikasi VB 6.0 anda
Simpan di Folder contoh nama Folder : Belajar VB
Masukan Database DBBelajarvb.mdb kedalam Folder tersebut
Kemudian buatlah Design Form seperti gambar dibawah ini :

Kemudian masukan Koding dibawah ini pada form diatas :

Dim Koneksi As New ADODB.Connection
Dim RSPenjualan As ADODB.Recordset
Sub BukaDB()
    Set Koneksi = New ADODB.Connection
    Set RSPenjualan = New ADODB.Recordset
    Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBBelajarvb.mdb"
End Sub
Sub KodeOtomatis()
Call BukaDB
RSPenjualan.Open ("select * from Penjualan Where NoFaktur In(Select Max(NoFaktur)From Penjualan)Order By NoFaktur Desc"), Koneksi
RSPenjualan.Requery
    Dim Urutan As String * 10
    Dim Hitung As Long
    With RSPenjualan
        If .EOF Then
            Urutan = "FAKTUR" + "0001"
            Text1 = Urutan
        Else
            Hitung = Right(!NoFaktur, 4) + 1
            Urutan = "FAKTUR" + Right("0000" & Hitung, 4)
        End If
        Text1 = Urutan
    End With
End Sub
Private Sub Command1_Click()
    Call KodeOtomatis
    Text1.Enabled = False
    Text2.SetFocus
    Command1.Enabled = False
    Command2.Enabled = True
End Sub
Private Sub Command2_Click()
    Call BukaDB
    If Text1 = "" Or Text2 = "" Or Text3 = "" Then
    MsgBox "Data Belum Lengkap"
    Else
    Dim TambahPenjualan As String
        TambahPenjualan = "Insert Into Penjualan values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"
        Koneksi.Execute TambahPenjualan
        MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
        Call KondisiAwal
        Form_Activate
    End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Activate()
    Call BukaDB
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBBelajarvb.mdb; "
    Adodc1.RecordSource = "Penjualan"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub
Private Sub Form_Load()
    Text1.MaxLength = 10
    Text2.MaxLength = 6
    Call KondisiAwal
End Sub
Sub KondisiAwal()
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Text4 = ""
    Command1.Enabled = True
    Command2.Enabled = False
End Sub

Silahkan Jalankan Project VB6.0 anda

Jika Pembelajaran diatas bermanfaat untuk anda, kami senang jika anda berkomentar dibawah :)

Silahkan KLIK DISINI untuk download project diatas,