Contoh Program VB yang menggunakan DataBase dan yang tidak menggunakan DataBase

Assalamualaikum guys..

Kali ini saya akan memposting tentang program VB yang biasa atau yang tidak terhubung dengan apapun seperti database dan yang terhubung dengan DataBase

lansung saja di simak

1. Program yang tidak terhubung dengan database kita contohkan saja program pertamina

Program Pertamina
Pada program ini biasa digunakan sebagai penjualan agar lebih cepat dalam proses perhitungan pembeli, contohnya ketika pelanggan ingin membeli bahan bakar minyak dalam bentuk literan maka sudah dijelaskan dalam program ini berapa jumlah uang yang akan di bayar, untuk itu tidak perlu menggunakan alat bantu hitung lainnya karena pada program ini sudah dihitung didalam program tersebut, atau sebaliknya jika ada pelanggan ingin membeli bahan bakar minyak dalam hitungan uang maka tidak perlu lagi penjual menghitung berapa liter yang akan dikeluarkan karena pada program ini sudah menghitung sendiri. Untuk itu program visual basic ini jelas sangat membantu bagi penggunanya.
Didalam program ini kita bisa memilih bensin apa yang kita mau, didalam program ini ada 3 jenis bensin ada pertalite, premium dan pertamax, setelah kita klik bensin apa yang kita mau maka akan muncul harganya dibawah checkbox tempat memilih bensin, setelah kita memilih bensin apa yang diinginkan, kita bisa memilih jenis kendaraan apa yang kita pakai, ada 2 pilihan didalam jenis kendaraan yaitu motor dan mobil, setelah memilih jenis kendaraan kita lanjut memilih beli berdasarkan apa yang kita mau, disini ada dua pilihan radio button yaitu uang dan liter jika kita memilih uang maka kita masukan jumlah uang yang kita inginkan pada textbox, jika kita memilih liter maka kita masukan jumlah liter yang kita inginkan pada textbox. Setelah selesai kita menginput, maka kita bisa klik command button proses yang nantinya akan memberitahukan 3 hal yaitu kendaraan roda berapa yang kita pilih, jumlah uang, dan jumlah liter. Jika kita ingin memulai menginput lagi, kita bisa klik hapus.

Objek Program
1. Program Pertamina
Dalam program Pertamina, objek yang dipakai sebagai berikut:

a.    Groupbox
Pada program ini, groupbox berfungsi untuk mengelompokan item dalam 1 tempat, diprogram ini kita menggunakan 2 groupbox dengan item yang berbeda didalamnya.
b.    ComboBox
ComboBox berfungsi untuk tombol drop-down sebuah daftar kotak pilihan, diprogram ini kita menggunakan 2 ComboBox.
c.    TextBox
TextBox berfungsi untuk menginput atau mengubah teks, diprogram ini kita menggunakan 2 TextBox.
d.    Radio Button
Radio Button berfungsi sebagai tombol pilihan, dimana kita hanya bisa memilih 1 pilihan saja. Diprogram ini, kita menggunakan 2 Radio Button
e.    Label
Label berfungsi menampilkan teks tetapi kita tidak bisa mengubah isi teksnya ketika program dijalankan. Pada program ini, kita menggunakan 9 Label.
f.    Command Button
Command Button berfungsi sebagai tombol perintah. Diprogram ini, kita menggunakan 3 Command Button dengan fungsi yang berbeda.
g.    Picture Box
Berfungsi untuk menampilkan gambar. Diprogram ini, kita menggunakan 2 picture box untuk membuat program kita terlihat menarik.

   Coding dan Screenshot Program

Berikut coding yang dipakai dalam program pertamina :
Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "Premium"
                TextBox1.Text = 6550
            Case "Pertamax"
                TextBox1.Text = 7450
            Case "Pertalite"
                TextBox1.Text = 6900
        End Select
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Select Case ComboBox2.Text
            Case "Motor"
                Label7.Text = "Roda 2"
            Case "Mobil"
                Label7.Text = "Roda 4"
        End Select
        If RadioButton1.Checked = True Then
            Label9.Text = Val(TextBox2.Text) / Val(TextBox1.Text)
            Label9.Text = FormatNumber(Label9.Text, 2)
            Label8.Text = TextBox2.Text
        ElseIf RadioButton2.Checked = True Then
            Label8.Text = Val(TextBox2.Text) * Val(TextBox1.Text)
            Label9.Text = TextBox2.Text
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        End
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ComboBox1.Text = "Pilih"
        ComboBox2.Text = "Pilih"
        TextBox1.Text = ""
        TextBox2.Text = ""
        Label7.Text = "-"
        Label8.Text = "-"
        Label9.Text = "-"
        RadioButton1.Checked = False
        RadioButton2.Checked = False
    End Sub

End Class

Berikut adalah Screenshot Program Pertamina :

Tampilan Awal Program

Tampilan Pembelian Bensin Pertalite

Tampilan Pembelian Bensin Pertamax

Tampilan Pembelian Bensin Premium

2. Program VB yang menggunakan databse kita contohkan saja program data pegawai

Program Data Pegawai dengan Menggunakan Database
Pada program yang kedua yaitu program data pegawai dengan meggunakan database, Database sendiri bisa diartikan yaitu ruang penyimpanan dari data-data berbentuk file/berkas yang saling berhubungan atau kita kenal dengan relasitional sehingga menjadi sebuah kumpulan data yang terkumpul secara rapi dan tertata, pada program ini bisa digunakan di berbagai instalasi baik dipemerintah, pendidikan maupun perusahaan untuk menyimpan data yang telah dibuat di visual basic disimpan di Microsoft Office Access agar tidak memiliki tempat pemborosan penyimpanan dan juga agar penyimpanannya tertata rapi dan mudah dicari dan dijalankan bagi pengguna.
Dalam membuat program ini cukup mudah hanya saja dalam pembuatan programnya procedural. Yang namanya database sekarang sudah sangat diperlukan, hampir disemua instalasi baik dipemerintah, pendidikan maupun perusahaan. Mengapa diperlukan database alasannya bisa dibilang karena ini adalah komponen penting dalam system informasi, karena ini adalah dasar dalam menyediakan informasi, alasan lain karena dapat mengurangi duplikasi data, hubungan data dapat di tingkatkan dan dapat mengurangi pemborosan tempat simpanan luar.
Jadi kesimpulannya adalah program yang dibuat di visual basic akan dihubungkan atau dikoneksikan ke Microsoft Office Access guna untuk menyimpan data yang telah di buat dari visual basic dan akan di simpan di Microsoft office Access.

Program Data Pegawai dengan Menggunakan Database
Didalam program data pegawai, kita menggunakan 3 form.
a. Form 1

Pada Form 1 kita objek yang kita gunakan adalah :
1.    Label
Label yang digunakan pada form ini 7 Label
2.    Textbox
Textbox yang digunakan pada form ini ada 3 textbox
3.    Combobox
Combobox yang digunakan pada form ini ada 2 combobox
4.    DateTimePicker
DateTimePicker berfungsi menampilkan tanggal. Diform ini kita menggunakan 1 DateTimePicker.
5.    Radio Button
Diform ini kita menggunakan 2 radio button.
6.    Groupbox
Diform ini kita menggunakan 1 groupbox
7.    Command Button
Diform ini kita menggunakan 6 command button

b. Form 2

Pada Form 1 kita objek yang kita gunakan adalah :
1.    Label
Label yang digunakan pada form ini 1 label.
2.    Textbox
Textbox yang digunakan pada form ini ada 2 textbox.
3.    Command Button
Command Button yang digunakan pada form ini ada 1 command button.
4.    List View
List View berfungsi untuk menampilkan data yang ada di database. Disini kita menggunakan 1 list view.

c. Form 3

Pada Form 1 kita objek yang kita gunakan adalah :
1.    Label
Label yang digunakan pada form ini 2 label.
2.    Textbox
Textbox yang digunakan pada form ini ada 2 textbox.
3.    Command Button
Command Button yang digunakan pada form ini ada 2 Command Button.

Berikut Coding yang dipakai pada program ini :
a.    Form 1
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Sub BERSIH()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        ComboBox1.Text = ""
        ComboBox2.Text = ""
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim kawin As String
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Isi Data dengan Benar", MsgBoxStyle.Exclamation, "Kesalahan")
        End If
        If RadioButton2.Checked = True Then
            kawin = "Belum Kawin"
        Else
            kawin = "Kawin"
        End If

        CNN = New OleDbConnection(KONEKSI)
        If CNN.State <> ConnectionState.Closed Then CNN.Close()
        CNN.Open()
        OLECMD = New OleDbCommand("Insert Into Pegawai (NIP, Nama, Bagian, TglLahir, Alamat, Pendidikan, Status) values ('" & _
                                  TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & DateTimePicker1.Value & _
                                  "','" & TextBox3.Text & "','" & ComboBox2.Text & "','" & kawin & "')", CNN)
        X = OLECMD.ExecuteNonQuery
        If X = 1 Then
            MsgBox("Data Berhasil Disimpan", MsgBoxStyle.Information, "Informasi")
            Call BERSIH()
            TextBox1.Focus()
        Else
            MsgBox("Gagal Menyimpan Data", MsgBoxStyle.Exclamation, "Kesalahan")
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Call BERSIH()
        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = False
        TextBox1.Enabled = True
        TextBox1.Focus()
    End Sub

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TextBox2.Focus()
        End If
    End Sub

    Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
        If Asc(e.KeyChar) = 13 Then
            ComboBox1.Focus()
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim kawin As String

        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Isi Data dengan Benar", MsgBoxStyle.Exclamation, "Kesalahan")
            Exit Sub
        End If
        If RadioButton2.Checked = True Then
            kawin = "Belum Kawin"
        Else
            kawin = "Kawin"
        End If

        CNN = New OleDbConnection(KONEKSI)
        If CNN.State <> ConnectionState.Closed Then CNN.Close()
        CNN.Open()
        OLECMD = New OleDbCommand("Update Pegawai Set Nama='" & TextBox2.Text & _
                                  "', Bagian='" & ComboBox1.Text & _
                                  "', TglLahir='" & DateTimePicker1.Value & _
                                  "', Alamat='" & TextBox3.Text & _
                                  "', Pendidikan='" & ComboBox2.Text & _
                                  "', Status='" & kawin & "' where NIP='" & TextBox1.Text & "'", CNN)
        X = OLECMD.ExecuteNonQuery
        If X = 1 Then
            MsgBox("Data Berhasil Diedit", MsgBoxStyle.Information, "Informasi")
            Call BERSIH()
            TextBox1.Focus()
        Else
            MsgBox("Gagal Mengedit Data", MsgBoxStyle.Exclamation, "Kesalahan")
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If MsgBox("Ingin Menghapus Data?", MsgBoxStyle.YesNo, "Konfirmasi") = MsgBoxResult.Yes Then
            CNN = New OleDbConnection(KONEKSI)
            If CNN.State <> ConnectionState.Closed Then CNN.Close()
            CNN.Open()
            OLECMD = New OleDbCommand("Delete from Pegawai where NIP='" & TextBox1.Text & "'", CNN)
            X = OLECMD.ExecuteNonQuery
            If X = 1 Then
                Call BERSIH()
                Button1.Enabled = True
                Button2.Enabled = False
                Button3.Enabled = False
                TextBox1.Focus()
            Else
                MsgBox("Gagal Menghapus Data", MsgBoxStyle.Exclamation, "Kesalahan")
            End If
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Me.Hide()
        Form3.Show()
        Form3.TextBox1.Text = ""
        Form3.TextBox2.Text = ""
        Form3.TextBox1.Focus()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim poppegawai As New poppeg
        poppegawai.ShowDialog()
        If poppegawai.colNama <> "" Then
            TextBox1.Text = poppegawai.colNIP
            TextBox2.Text = poppegawai.colNama
            ComboBox1.Text = poppegawai.colbgn
            DateTimePicker1.Value = poppegawai.coltgllahir
            TextBox3.Text = poppegawai.colalamat
            ComboBox2.Text = poppegawai.colpendidikan
            If poppegawai.colstatus = "Kawin" Then
                RadioButton1.Checked = True
            Else
                RadioButton1.Checked = False
            End If
            TextBox1.Enabled = False
            TextBox2.Focus()
        End If
        Button2.Enabled = True
        Button3.Enabled = True
    End Sub
End Class

b.    Form 2
Imports System.Data.OleDb
Imports System.Data
Public Class poppeg
    Public colNIP, colNama, colbgn, coltgllahir, colalamat, colpendidikan, colstatus As String
    Dim cnn As OleDbConnection
    Dim cmd As OleDbCommand
    Dim rdr As OleDbDataReader
    Private Sub clear_list()
        While Val(counter.Text) > 0
            ListView1.Items(0).Remove()
            counter.Text = Val(counter.Text) - 1
        End While
    End Sub
    Private Sub pilih()
        Try
            colNIP = ListView1.SelectedItems(0).SubItems(0).Text.ToString
            colNama = ListView1.SelectedItems(0).SubItems(1).Text.ToString
            colbgn = ListView1.SelectedItems(0).SubItems(2).Text.ToString
            coltgllahir = ListView1.SelectedItems(0).SubItems(3).Text.ToString
            colalamat = ListView1.SelectedItems(0).SubItems(4).Text.ToString
            colpendidikan = ListView1.SelectedItems(0).SubItems(5).Text.ToString
            colstatus = ListView1.SelectedItems(0).SubItems(6).Text.ToString
            Me.Close()
        Catch ex As Exception
            MsgBox("Pilih Salah Satu Data", MsgBoxStyle.Information)
        End Try
    End Sub
    Public Sub list_data()
        Call clear_list()

        Dim sqlx As String
        Dim x As Integer
        sqlx = "Select NIP, Nama, Bagian, TglLahir, Alamat, Pendidikan, Status from Pegawai where Nama like '%" & _
            Trim(TextBox1.Text) & "%' order by Nama asc"

        cnn = New OleDbConnection(KONEKSI)
        If cnn.State <> ConnectionState.Closed Then cnn.Close()
        cnn.Open()
        cmd = New OleDbCommand(sqlx, cnn)
        rdr = cmd.ExecuteReader
        Try
            While rdr.Read = True
                x = Val(counter.Text)
                counter.Text = Str(Val(counter.Text) + 1) & " Record"

                With ListView1
                    .Items.Add("")
                    .Items(ListView1.Items.Count - 1).SubItems.Add("")
                    .Items(ListView1.Items.Count - 1).SubItems.Add("")
                    .Items(ListView1.Items.Count - 1).SubItems.Add("")
                    .Items(ListView1.Items.Count - 1).SubItems.Add("")
                    .Items(ListView1.Items.Count - 1).SubItems.Add("")
                    .Items(ListView1.Items.Count - 1).SubItems.Add("")
                    .Items(ListView1.Items.Count - 1).SubItems.Add("")
                    .Items(x).SubItems(0).Text = rdr.GetString(0)
                    .Items(x).SubItems(1).Text = rdr.GetString(1)
                    .Items(x).SubItems(2).Text = rdr.GetString(2)
                    .Items(x).SubItems(3).Text = rdr.GetDateTime(3)
                    .Items(x).SubItems(4).Text = rdr.GetString(4)
                    .Items(x).SubItems(5).Text = rdr.GetString(5)
                    .Items(x).SubItems(6).Text = rdr.GetString(6)
                End With
            End While
        Finally
            rdr.Close()
        End Try
        cnn.Close()
    End Sub

    Private Sub poppeg_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call list_data()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call pilih()
    End Sub

    Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
        Call pilih()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Call list_data()
    End Sub
End Class

c.    Form 3
Imports System.Data.OleDb
Public Class Form3

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        CNN = New OleDbConnection(KONEKSI)
        If CNN.State <> ConnectionState.Closed Then CNN.Close()
        CNN.Open()
        OLECMD = New OleDbCommand("Select * FROM Login where Username = '" & TextBox1.Text & _
                                        "' and Password = '" & TextBox2.Text & "'", CNN)
        OLERDR = OLECMD.ExecuteReader
        If (OLERDR.Read()) Then
            Form1.Show()
            Me.Hide()
        Else
            MsgBox("Maaf, Username dan Password salah", MsgBoxStyle.OkOnly, _
                   "Login Gagal")
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox1.Focus()
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        End
    End Sub
End Class

Berikut adalah Screenshot Program Data Pegawai :