Membuat Faktur Format Tanggal Otomatis Menggunakan VB 6.0

Artikel Terkait Tutorial VB6
Pada Belajar VB 6.0 kali ini akan dibahas mengenai Cara Membuat Faktur Format Tanggal Otomatis VB 6.0
Membuat Database & dan Project VB 6.0 untuk Membuat Faktur Format Tanggal Otomatis Menggunakan 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 = "F" + Format(Date, "yymm") + "00001"
            Text1 = Urutan
        Else
            If Left(RSPenjualan!NoFaktur, 5) <> "F" + Format(Date, "yymm") Then
                Urutan = "F" + Format(Date, "yymm") + "00001"
            Else
                Hitung = Right(RSPenjualan!NoFaktur, 5) + 1
                Urutan = "F" + Format(Date, "yymm") + Right("00000" & Hitung, 5)
            End If
        Text1 = Urutan
       
    End If
    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 = "" Or Text4 = "" 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
Kemudian Jalankan Project VB 6.0 anda
Cara Cara Membuat Faktur Format Tanggal Otomatis VB 6.0

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


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).