Artikel Terkait Tutorial VB6
Pada Belajar VB 6.0 kali ini akan dibahas mengenai Cara Membuat Faktur Format Tanggal Otomatis VB 6.0
Berikut langkah-langkahnya1. 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 andaSimpan 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
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
- 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
- 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
- 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).