Kupas Tuntas VB: May 2013

Wednesday, 1 May 2013

Membuat Program Pembelian Dengan VB 6

Cara membuat Program Pembelian dengan VB 6 bisa anda ikuti pada postingan kami sebelumnya, kami sudah jelaskan secara detail. dan disini kami hanya ingin memberikan pedoman apasaja yang dibutuhkan dalam membuat Program Pembelian :

1. Database

Tabel Admin / Kasir
Tabel Barang
Tabel Pemasok
Tabel Pembelian
Tabel DetailPembelian

2. Form

a. Form Menu Utama

b. Form Login

c. Form Transaksi Pembelian

Dan Anda bisa Download secara Gratis dengan KLIK LINK INI

Membuat Laporan Program Pembelian VB 6

Setelah anda mengkuti Tutorial dari kami tentang Step by Step membuat Project VB 6 yaitu Program Pembelian. Kini saatnya anda harus membuat Laporan Pembelian. Laporan yang buat dari kami adalah dengan Aplikasi Crystal Report

Standard Laporan yang harus anda buat adalah :

Laporan Per transaksi atau Invoice
Laporan Harian
Laporan Mingguan
Laporan Bulanan
Maupun Laporan Tahunan

Contoh laporan Adalah seperti contoh dibawah ini :

Laporan Per Invoice / Transaksi

Membuat Form Transaksi Pembelian Pada Project VB 6

Setelah anda mengikuti Tutorial dari kami pada Postingan sebelumnya yaitu membuat Tabel Pembelian dan DetailBeli kini saatnya kita membuat Transaksi Pembelian

Design Form Transaksi Pembelian adalah sebagai Berikut :

Catatan :
Seperti biasa, pada Form Menu Utama tambahkan Transaksi Pembelian

Membuat Database Tabel Detail Pembelian Pada Project VB 6

Setelah anda membuat Tabel Pembelian dan sudah mengetahui apa itu Transaksi One to One dan One to Many, dan karena kita akan membuat Program Pembelian dengan konsep One To Many kini saatnya kita harus membuat tabel Detail Pembelia.

Buatlah Tabel DetailPembelian pada database DBTunasMedia.mdb denganField ( NoBeli, KodeBarang, Harga, JmlBeli, SubTotal)

Setelah anda membuat Tabel DetailBeli diatas, mari kita lanjutkan dengan membuat Form Pembelian pada postingan kami selanjutnya

Pengertian Transaksi One to Many

Jika sebelumnya anda telah mengetahui Apa itu Transaksi One to One, kini saatnya anda juga harus mengetahui apa itu Transaksi One to Many.

Transaksi One To Many adalah Transaksi yang melibatkan banyak Barang.

Dengan Transaksi One to Many, Jika anda akan membuat Program pembelian, anda harus membuat Tabel Detail Pembelian yang akan kita pelajari pembuatannya pada Postingan kami selanjutnya

Pengertian Transaksi One To One

Jika anda seorang pegrammer pasti tau apa itu Pengertian transaksi One to one, dan jika anda ingin belajar Pemograman anda harus mengetahui Apa itu Transaksi One to One.

Transaksi One to One adalah Transaksi dari satu Entitas ke Satu Entitas. Sebagai Contoh 1 pemasok ingin Transaksi yaitu memasok hanya 1 barang saja

Nah Itulah seputar transaksi One to One. dan Jika anda membuat Program One to One pada Database Hanya perlu Tabel pembelian saja, namun jika One to Many anda harus membuat DetailPembelian.

Pada Postingan kami selanjutnya kita akan mengetahui apa itu Transaksi One to many

Membuat Tabel Pembelian Pada Project VB 6

Setelah anda sukses mengikuti Tutorial kami yaitu membuat tabel Transaksi, Kini saatnya anda membuat Tabel Pembelian. tabel ini berfungsi untuk merecord atau menyimpan data Pembelian yang akan kita buat Pada transaksi Pembelian.

Buatlah tabel pembelian dengan Field ( NoBeli, TglBeli, JamBeli, JmlTotalBeli, Dibayar, Kembali, KodeAdmin, KodePemasok)

Setelah anda sukses membuat Tabel Pembelian seperti diatas, kita akan membuat Tabel DetailPembelian. Namun sebelum itu anda harus tau Apa itu Transaksi One to One dan One to Many yang akan dijelaskan pada postingan kami selanjutnya

Membuat Tabel Transaksi Pada Project VB 6

Setelah anda bisa membuat Form Admin / Kasir, Form Barang atau Pemasok sebenarnya kita akan langsung membuat Transaksi Pembelian. Namun Sebelum ketahap tersebut anda wajib membuat Tabel transakis pada Database DBTunasmedia.mdb

Buatlah tabel Transaksi dengan Field (Nomor, Kode, Nama, Harga, Jumlah, Total)

Fungsi tabel ini adalah untuk Datagrid pada Form transaksi Pembelian. dan setelah ini anda harus membuat tabel Pembelian. Ikuti langkah - langkahnya setelah pada postingan kami berikutnya

Membuat Form Pemasok Pada Project VB 6

Setelah anda sukses membuat Tabel Pemasok pada postingan kami sebelumnya, kini saatnya anda membuat Form Pemasok dengan Design Form Seperti dibawah ini :

Berikut Listing Kodingnya :

Dim mvBookMark As Variant

Private Sub CmdEdit_Click()
    If CmdEdit.Caption = "&Edit" Then
        CmdInput.Enabled = False
        CmdEdit.Caption = "&Simpan"
        CmdHapus.Enabled = False
        CmdTutup.Caption = "&Batal"
        SiapIsi
        Text1.SetFocus
    Else
        If Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Then
            MsgBox "Masih Ada Data Yang Kosong", vbInformation, "Pemberitahuan"
        Else
            Dim SQLEdit As String
            SQLEdit = "Update Pemasok Set NamaPemasok= '" & Text2 & "', ALamatPemasok='" & Text3 & "', TelpPemasok='" & Text4 & "',Person='" & Text5 & "' where KodePemasok='" & Text1 & "'"
            koneksi.Execute SQLEdit

            MsgBox "Data Berhasil Diedit", vbInformation, "Pemberitahuan"

            Form_Activate
        End If
    End If
End Sub

Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBTunasMedia.mdb"
Adodc1.RecordSource = "Pemasok"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Call kondisiawal
CmdInput.SetFocus
End Sub

Private Sub AutoNomor()
Call BukaDB
RSPemasok.Open ("select * from Pemasok Where KodePemasok In(Select Max(KodePemasok)From Pemasok)Order By kodePemasok Desc"), koneksi
RSPemasok.Requery
    Dim Urutan As String * 6
    Dim Hitung As Long
    With RSPemasok
        If .EOF Then
            Urutan = "PMK" + "001"
            Text1 = Urutan
        Else
            Hitung = Right(!KodePemasok, 3) + 1
            Urutan = "PMK" + Right("000" & Hitung, 3)
        End If
        Text1 = Urutan
    End With
End Sub

Sub Form_Load()
Text1.MaxLength = 6
Text2.MaxLength = 50
Text3.MaxLength = 50
Text4.MaxLength = 20
Text5.MaxLength = 30
kondisiawal
End Sub
Private Sub kosongkantext()
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Text4 = ""
    Text5 = ""
End Sub

Private Sub SiapIsi()
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Text4.Enabled = True
    Text5.Enabled = True
End Sub

Private Sub TidakSiapIsi()
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
End Sub

Private Sub kondisiawal()
    kosongkantext
    TidakSiapIsi
    CmdInput.Caption = "&Input"
    CmdEdit.Caption = "&Edit"
    CmdHapus.Caption = "&Hapus"
    CmdTutup.Caption = "&Tutup"
    CmdInput.Enabled = True
    CmdEdit.Enabled = True
    CmdHapus.Enabled = True
End Sub

Private Sub TampilkanData()
    With RSPemasok
        If Not RSPemasok.EOF Then
            Text2 = RSPemasok!NamaPemasok
            Text3 = RSPemasok!AlamatPemasok
            Text4 = RSPemasok!TelpPemasok
            Text5 = RSPemasok!TelpPemasok
        End If
    End With
End Sub

Private Sub CmdInput_Click()
    If CmdInput.Caption = "&Input" Then
        CmdInput.Caption = "&Simpan"
        CmdEdit.Enabled = False
        CmdHapus.Enabled = False
        CmdTutup.Caption = "&Batal"
        SiapIsi
        kosongkantext
        Call AutoNomor
        Text1.Enabled = False
        Text2.SetFocus
    Else
        If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text5 = "" Then
            MsgBox "Data Belum Lengkap...!", vbInformation, "Pemberitahuan"

        Else
                Dim SQLTambah As String
                SQLTambah = "Insert Into Pemasok (KodePemasok,NamaPemasok,AlamatPemasok,TelpPemasok,Person) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "','" & Text5 & "')"
                koneksi.Execute SQLTambah

                MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"

                Form_Activate
                Call kondisiawal
        End If
    End If
End Sub

Private Sub CmdHapus_Click()
    If CmdHapus.Caption = "&Hapus" Then
        CmdInput.Enabled = False
        CmdEdit.Enabled = False
        CmdTutup.Caption = "&Batal"
        kosongkantext
        SiapIsi
        Text1.SetFocus
    End If
End Sub

Private Sub CmdTutup_Click()
    Select Case CmdTutup.Caption
        Case "&Tutup"
            Unload Me
        Case "&Batal"
            TidakSiapIsi
            kondisiawal
    End Select
End Sub

Function CariData()
    Call BukaDB
    RSPemasok.Open "Select * From Pemasok where KodePemasok='" & Text1 & "'", koneksi
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
    If Len(Text1) < 6 Then
        MsgBox "Kode Harus 6 Digit", vbInformation, "Pemberitahuan"
        Text1.SetFocus
        Exit Sub
    Else
        Text2.SetFocus
    End If

    If CmdInput.Caption = "&Simpan" Then
        Call CariData
        If Not RSPemasok.EOF Then
            TampilkanData
            MsgBox "Kode Pemasok Sudah Ada", vbInformation, "Pemberitahuan"
            kosongkantext
            Text1.SetFocus
        Else
            Text2.SetFocus
        End If
    End If

    If CmdEdit.Caption = "&Simpan" Then
        Call CariData
        If Not RSPemasok.EOF Then
            TampilkanData
            Text1.Enabled = False
            Text2.SetFocus
        Else
            MsgBox "Kode Pemasok Tidak Ada", vbInformation, "Pemberitahuan"
            Text1 = ""
            Text1.SetFocus
        End If
    End If

    If CmdHapus.Enabled = True Then
        Call CariData
        If Not RSPemasok.EOF Then
            TampilkanData
            Pesan = MsgBox("Yakin akan dihapus", vbYesNo)
            If Pesan = vbYes Then
                Dim SQLHapus As String
                SQLHapus = "Delete From Pemasok where kodePemasok= '" & Text1 & "'"
                koneksi.Execute SQLHapus

                MsgBox "Data Berhasil Dihapus", vbInformation, "Pemberitahuan"

                kondisiawal
                Form_Activate
            Else
                kondisiawal
                CmdHapus.SetFocus
            End If
        Else
            MsgBox "Data Tidak Ditemukan", vbInformation, "Pemberitahuan"
            Text1.SetFocus
        End If
    End If
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then Text3.SetFocus
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then Text4.SetFocus
End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then Text5.SetFocus
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
            If CmdInput.Enabled = True Then
                CmdInput.SetFocus
            ElseIf CmdEdit.Enabled = True Then
                CmdEdit.SetFocus
            End If
        End If
End Sub

Catatan :
Seperti biasa, pada Form Menu utama tambahkan Menu Editor yaitu Master Pemasok

Membuat Database Pemasok Pada Project VB 6

Jika sebelumnya anda telah mengikuti Tutorial dari kami yaitu membuat Form Barang, Jika anda amati Form Barang Tersebut tidak di masukan Jumlah Barang yang berarti Jumlah Barang menjadi : 0. Hal ini dikarenakan kita akan membuat Program Pembelian yang mana Jumlah akan terisi jika anda melakukan Pembelian.

Nah sebelum sampai tahap Transaksi pembelian, maka anda harus membuat Tabel Pemasok pada Database DBTunasmedia.mdb yang telah anda buat pada sesi sebelumnya

Buatlah tabel Pemasok dengan Field (KodePemasok, NamaPemasok, AlamatPemasok, TelpPemasok, Person)

Setelah anda membuat Tabel Pemasok diatas, mari kita lanjutkan dengan mmebuat Form Pemasok pada Postingan kami berikutnya

Membuat Form Barang Pada Project VB 6

Setelah anda membuat Database DBTunasMedia.com dan telah membuat Tabel Barang, Mari kita buat Form Barang. Design Form seperti gambar dibawah ini :

Dan berikut Listing Koding nya :

Dim mvBookMark As Variant

Private Sub CmdEdit_Click()
    If CmdEdit.Caption = "&Edit" Then
        CmdInput.Enabled = False
        CmdEdit.Caption = "&Simpan"
        CmdHapus.Enabled = False
        CmdTutup.Caption = "&Batal"
        SiapIsi
        Text1.SetFocus
    Else
        If Text2 = "" Or Text3 = "" Or Text4 = "" Then
            MsgBox "Masih Ada Data Yang Kosong", vbInformation, "Pemberitahuan"
        Else
        If Val(Text4) <= Val(Text3) Then
            MsgBox "Harga Jual Tidak Boleh Lebih Kecil Atau Sama Dengan Harga Beli !"
            Text4 = ""
            Text4.SetFocus
        Else
            Dim SQLEdit As String
            SQLEdit = "Update Barang Set NamaBarang= '" & Text2 & "', HargaBeli='" & Text3 & "', HargaJual='" & Text4 & "' where KodeBarang='" & Text1 & "'"
            koneksi.Execute SQLEdit

            MsgBox "Data Berhasil Diedit", vbInformation, "Pemberitahuan"

            Form_Activate
        End If
        End If
    End If
End Sub
Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBTunasMedia.mdb"
Adodc1.RecordSource = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Call kondisiawal
CmdInput.SetFocus
End Sub

Private Sub AutoNomor()
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

Sub Form_Load()
Text1.MaxLength = 6
Text2.MaxLength = 50
Text3.MaxLength = 12
Text4.MaxLength = 12
kondisiawal
End Sub
Private Sub kosongkantext()
    Text1 = ""
    Text2 = ""
    Text3 = ""
    Text4 = ""
End Sub

Private Sub SiapIsi()
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Text4.Enabled = True
End Sub

Private Sub TidakSiapIsi()
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
   Text4.Enabled = False
End Sub

Private Sub kondisiawal()
    kosongkantext
    TidakSiapIsi
    CmdInput.Caption = "&Input"
    CmdEdit.Caption = "&Edit"
    CmdHapus.Caption = "&Hapus"
    CmdTutup.Caption = "&Tutup"
    CmdInput.Enabled = True
    CmdEdit.Enabled = True
    CmdHapus.Enabled = True
End Sub

Private Sub TampilkanData()
    With RSBarang
        If Not RSBarang.EOF Then
            Text2 = RSBarang!NamaBarang
            Text3 = RSBarang!HargaBeli
            Text4 = RSBarang!HargaJual
        End If
    End With
End Sub

Private Sub CmdInput_Click()
    If CmdInput.Caption = "&Input" Then
        CmdInput.Caption = "&Simpan"
        CmdEdit.Enabled = False
        CmdHapus.Enabled = False
        CmdTutup.Caption = "&Batal"
        SiapIsi
        kosongkantext
        Call AutoNomor
        Text1.Enabled = False
        Text2.SetFocus
    Else
        If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then
            MsgBox "Data Belum Lengkap...!", vbInformation, "Pemberitahuan"

        Else
            If Val(Text4) <= Val(Text3) Then
            MsgBox "Harga Jual Tidak Boleh Lebih Kecil Atau Sama Dengan Harga Beli !"
            Text4 = ""
            Text4.SetFocus
            Else
                Dim SQLTambah As String
                SQLTambah = "Insert Into Barang (KodeBarang,NamaBarang,HargaBeli,HargaJual) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"
                koneksi.Execute SQLTambah

                MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"

                Form_Activate
                Call kondisiawal
            End If
        End If
    End If
End Sub

Private Sub CmdHapus_Click()
    If CmdHapus.Caption = "&Hapus" Then
        CmdInput.Enabled = False
        CmdEdit.Enabled = False
        CmdTutup.Caption = "&Batal"
        kosongkantext
        SiapIsi
        Text1.SetFocus
    End If
End Sub

Private Sub CmdTutup_Click()
    Select Case CmdTutup.Caption
        Case "&Tutup"
            Unload Me
        Case "&Batal"
            TidakSiapIsi
            kondisiawal
    End Select
End Sub

Function CariData()
    Call BukaDB
    RSBarang.Open "Select * From Barang where KodeBarang='" & Text1 & "'", koneksi
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
    If Len(Text1) < 6 Then
        MsgBox "Kode Harus 6 Digit", vbInformation, "Pemberitahuan"
        Text1.SetFocus
        Exit Sub
    Else
        Text2.SetFocus
    End If

    If CmdInput.Caption = "&Simpan" Then
        Call CariData
        If Not RSBarang.EOF Then
            TampilkanData
            MsgBox "Kode Barang Sudah Ada", vbInformation, "Pemberitahuan"
            kosongkantext
            Text1.SetFocus
        Else
            Text2.SetFocus
        End If
    End If

    If CmdEdit.Caption = "&Simpan" Then
        Call CariData
        If Not RSBarang.EOF Then
            TampilkanData
            Text1.Enabled = False
            Text2.SetFocus
        Else
            MsgBox "Kode Barang Tidak Ada", vbInformation, "Pemberitahuan"
            Text1 = ""
            Text1.SetFocus
        End If
    End If

    If CmdHapus.Enabled = True Then
        Call CariData
        If Not RSBarang.EOF Then
            TampilkanData
            Pesan = MsgBox("Yakin akan dihapus", vbYesNo)
            If Pesan = vbYes Then
                Dim SQLHapus As String
                SQLHapus = "Delete From Barang where kodeBarang= '" & Text1 & "'"
                koneksi.Execute SQLHapus

                MsgBox "Data Berhasil Dihapus", vbInformation, "Pemberitahuan"

                kondisiawal
                Form_Activate
            Else
                kondisiawal
                CmdHapus.SetFocus
            End If
        Else
            MsgBox "Data Tidak Ditemukan", vbInformation, "Pemberitahuan"
            Text1.SetFocus
        End If
    End If
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then Text3.SetFocus
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then Text4.SetFocus
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Val(Text4) <= Val(Text3) Then
    MsgBox "Harga Jual Tidak Boleh Lebih Kecil Atau Sama Dengan Harga Beli !"
    Text4 = ""
    Else
            If CmdInput.Enabled = True Then
                CmdInput.SetFocus
            ElseIf CmdEdit.Enabled = True Then
                CmdEdit.SetFocus
            End If
        End If
    End If
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0
End Sub

Catatan :
Jangan Lupa di Menu Editor pada FormMenuUtama di tambahkan MasterBarang

Membuat Database Barang Project VB 6

Setelah anda mengetahui banyak hal tentang VB 6 pada Postingan kami sebelumnya, mari kita melanjutkan Project kita

Sebelumnya anda telah membuat
Form Menu Utama
Koneksi Database
Membuat Form login
Membuat Form Admin / Kasir

Kini saatnya kita akan membuat Form Barang, Namun sebelum anda membuat Form Barang jangan Lupa Kita harus membuat Tabel Barang terlebih dahulu. Jika pada postingan sebelumnya kita membuat DBTunasMedia.mdb dengan isi Tabel adalah Admin

Sekarang kita tambahkan Tabel Barang (KodeBarang, NamaBarang, HargaBeli, HargaJual, JumlahBarang)

Setelah Tabel Barang terbut mari kita lanjut Pembuatan project Kita dengan membuat Form Barang

Validasi Text Hanya Bisa di Isi Angka Pada VB 6

Pada sebuah Pemograman, Validasi adalah hal yang sangat Penting. Biasanya Validasai berfungsi agar Program tidak Bug. Ada banyak macam dari validasai di VB 6.

Berikut adalah Koding untuk Validasi Text Hanya Bisa Diisi Angka pada Vb 6

Private Sub Text3_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then KeyAscii = 0
End Sub

Biasanya Validasi diatas digunakan untuk Pada form yang textnya hanya untuk Harga, Jumlah dll yang intinya adalah Text tidak boleh diisi dengan huruf A - Z

Validasi Huruf Besar di text Pada VB 6

Pada sebuah Pemograman, Validasi adalah hal yang sangat Penting. Biasanya Validasai berfungsi agar Program tidak Bug. Ada banyak macam dari validasai di VB 6.

Berikut adalah Koding untuk membuat Validasi Huruf Besar Pada VB 6

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Dengan ini maka Text akan berubah menjadi besar, tanpa harus anda Klik CAPSLOCK pada Keyboard Komputer anda

Validasi Panjang Huruf di Text Pada VB 6

Pada sebuah Pemograman, Validasi adalah hal yang sangat Penting. Biasanya Validasai berfungsi agar Program tidak Bug. Ada banyak macam dari validasai di VB 6.

Berikut adalah Validasi untuk Panjang Huruf di Text, biasanya ini gunakan contoh anda mempunyai Field Tabel KodeBarang hanya 6. Jika anda memasukan Kodebarang pada Form lebih dari 6 maka Program bisa Bug, dan berikut untuk mengatasinya, anda bisa menggunakan Validasi Panjang Huruf seperti Coding dibawah :

Sub Form_Load()
Text1.MaxLength = 6
Text2.MaxLength = 20
Text3.MaxLength = 10
End Sub

Membuat ComboBox Pada VB 6

ComboBox Pada VB 6 anda bisa menemukannya di ToolBox di Klik dan dimasukan di dalam Form yang akan anda buat. Combobox biasanya berfungsi untuk memberikan Option atau pilihan dengan mengklik combobox tersebut.

Berikut yang Koding yang bisa anda gunakan dalam ComboBox tersebut :

Private Sub Form_Activate()

Combo1.Clear
Combo1.AddItem "USER"
Combo1.AddItem "ADMIN"

End Sub

Dengan Koding diatas jika anda run program maka di ComboBox akan muncul Pilihan USER dan ADMIN. Anda juga bisa gunakan ComboBox tersebut dengan Nama Bulan, Tahun, dll

Kupas Tuntas VB