Contact Us

Nama

Email *

Pesan *

Cara Membuat Kode Barang Otomatis VB 6.0

Cara Membuat Kode Barang Otomatis VB 6.0

Panduan lengkap mining bitcoin
Cara Membuat Kode Barang Otomatis VB 6.0

Pada Pembelajaran VB 6.0 kali ini akan dibahas Bagaimana Cara Membuat KodeBarang Otomatis VB 6.0.

Berikut langkah-langkahnya
1. Membuat Database dan Tabel
Buatlah sebuah database dengan nama DBBelajarvb.mdb dan Buatlah Tabel Barang 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 :
Cara Membuat KodeBarang Otomatis VB 6.0

Masukan Koding dibawah ini :
Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBBelajarvb.mdb"
End Sub
Sub KodeOtomatis()
Call BukaDB
RSBarang.Open ("select * from Barang Where KodeBarang In(Select Max(KodeBarang)From Barang)Order By kodeBarang Desc"), Koneksi
RSBarang.Requery
    Dim Urutan As String * 6
    Dim Hitung As Long
    With RSBarang
        If .EOF Then
            Urutan = "BRG" + "001"
            Text1 = Urutan
        Else
            Hitung = Right(!KodeBarang, 3) + 1
            Urutan = "BRG" + Right("000" & Hitung, 3)
        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 TambahBarang As String
    TambahBarang = "Insert Into Barang values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
    Koneksi.Execute TambahBarang
    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 = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
Text1.MaxLength = 6
Call KondisiAwal
End Sub
Sub KondisiAwal()
Text1 = ""
Text2 = ""
Text3 = ""
Command1.Enabled = True
Command2.Enabled = False
End Sub
 Silahkan Jalankan Project VB6.0 and
Jika Pembelajaran diatas bermanfaat untuk anda, kami senang jika anda berkomentar dibawah :)

Cara Menghasilkan Bitcoin



Tidak ada komentar:

Posting Komentar

Back To Top