Membuat Faktur Format Tanggal Otomatis VB 6.0

1:07:00 AM
VB 6.0 Faktur Tanggal Otomatis

Pada Belajar VB 6.0 kali ini akan dibahas mengenai Cara Membuat Faktur Format Tanggal 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 = "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 :)


Salam,
BelajarVB.com

Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan