Cara Membuat No Faktur Otomatis VB 6.0

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 :
Cara Membuat No Faktur Otomatis VB 6.0


 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

Cara Membuat No Faktur Otomatis VB 6.0

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

Salam,
BelajarVB.com

Subscribe to receive free email updates:

2 Responses to "Cara Membuat No Faktur Otomatis VB 6.0"

  1. Sangat Membantu sekali
    #Trimakasih bnyak post ny

    ReplyDelete
  2. Post ny sangat membantu sekali
    #Blog yg membntu para progremer pemula

    ReplyDelete