Membuat Project Baru dan Koneksi Mysql Ke Vb.Net 2013

Malam Sahabat coder disini saya akan membagikan tutorial bagaimana cara membuat project baru di vb.net dan koneksi dari database ke vb.net..

Membuat Project Baru Dan Koneksi Mysql To Vb.Net 2013

Silahkan Download Modul Part 1 : Membuat Project baru dan Koneksi Mysql Ke Vb.Net

HAPPY CODING

1.       

POINT OF SALES SYSTEM

Berikut adalah rancangan

1. login
2. Dashboard
3. Penjualan
4. Pembelian/Barang Masuk
5. Laporan

1. Login 

Berikut adalah tampilan login yang dimana semua panel masih tidak aktif sebelum user melakukan login. jika user telah melakukan login maka textboxt login akan otomatis hilang.

2. Dashboard

Disini user telah melakukan login dimana user aktif bernama Rio Rinaldi Asmanto dan textboxt login otomatis hilan dan semua panel sudah aktif berdasarkan hak akses..

To be Continue

No Faktur Otomatis Di Vb.Net 2013

Selamat Malam rekan-rekan kali ini saya akan menshare cara membuat no faktur.. no faktur ini akan otomatis angkanya bertambah jika transaksi dengan kode sebelumnya di simpan..
Berikut Adalah Design Tabel yg Saya Pakai dan anda hanya berpatokan pada field bayarid saja.


Langkah 1 : Drag Textbox ke dalam sebuah form
Langkah 2 : Ketik Coding Berikut Dibawah Public Class

Sub no_bayar()
        Dim kode, kodebaru, tgl As String
        Dim no As Integer
        tgl = Format(Now, "-dd-MM-yy")
        kon.Close()
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "SELECT bayarid FROM bayar ORDER BY bayarid DESC LIMIT 1"
        cek = perintah.ExecuteReader
        cek.Read()
        If cek.HasRows Then
            kode = cek.Item("bayarid")
            no = Val(Microsoft.VisualBasic.Mid(kode, 3, 4))
            no = no + 1
            kodebaru = "B-" + Format(no, "0000") + tgl
            TextBox1.Text = kodebaru
        Else
            TextBox1.Text = "B-0001" + tgl
        End If
        cek.Close()
        kon.Close()
    End Sub
Langkah 3 : klik 2 x di form yang mana hasilnya form1_load lalu ketikan koding berikut
call no_bayar()
Langkah 4 : Selesai Deh

Tutorial Membuat Function Terbilang

Selamat malam sahabat blogger kali ini saya ingin memberi contoh sebuah function terbilang.. hal ini biasanya sangat diperlukan dalam applikasi penjualan atau minimarket.. nah langsung saja kita ke kasusnya.

Berikut function nya :

Function terbilang(ByVal n As Double) As String
        Dim satuan As String() = {"", " Satu", " Dua", " Tiga", " Empat", " Lima", " Enam", " Tujuh", " Delapan", " Sembilan", "Sepuluh", "Sebelas"}

        Select Case n
            Case 0 To 11
                terbilang = "" + satuan(Fix(n))
            Case 11 To 19
                terbilang = terbilang(n Mod 10) + " Belas"
            Case 20 To 99
                terbilang = terbilang(Fix(n / 10)) + " Puluh" + terbilang(n Mod 10)
            Case 100 To 199
                terbilang = " Seratus" + terbilang(n - 100)
            Case 200 To 999
                terbilang = terbilang(Fix(n / 100)) + " Ratus" + terbilang(n Mod 100)
            Case 1000 To 1999
                terbilang = " Seribu" + terbilang(n - 1000)
            Case 2000 To 999999
                terbilang = terbilang(Fix(n / 1000)) + " Ribu" + terbilang(n Mod 1000)
            Case 1000000 To 999999999
                terbilang = terbilang(Fix(n / 1000000)) + " Juta" + terbilang(n Mod 1000000)
            Case 1000000000 To 999999999999
                terbilang = terbilang(Fix(n / 1000000000)) + " Milyar" + terbilang(n Mod 1000000000)
            Case Else
                terbilang = terbilang(Fix(n / 1000000000000)) + " Triliyun" + terbilang(n Mod 1000000000000)
        End Select
    End Function

Cara Penggunaan :

1.  Siapkan sebuah label = label29.text
2. Siapkan sebuah textbox = textbox25.text
3. lalu panggil function tersebut dengan coding berikut
   Label29.Text = Format(TextBox25.Text, "Rp ###,###,###,##")      
   Label29.Text = UCase(terbilang(TextBox25.Text)) & " RUPIAH"
   
   Nah catatanya adalah sesuaikan di event mana pemanggil function ini anda letakan..
   Happy Coding.. klo raggu bisa chat admin

Download ikon-ikon cantik untuk vb.net 2013

Selamat Siang rekan-rekan programer. kali ini artikel saya membahas tentang pentingnya ikon-ikon cantik dalam pembuatan sebuah aplikasi. ikon ini adalah sebagai penjelas atau petunjuk si user dalam pemakaian aplikasi. adapun contoh ikon seperti berikut. 

Nah masih banyak lagi ikon-ikon cantik seperti ini lagi dalam versi banyak ukuran. berikut saya akan berikan link download untuk ikon tersebut.

Download : Di Sini

Binding Data to Datagridview in VB.NET

Good morning guys, berikut ini adalah cara load data ke datagridview. disini saya anggap sudah bisa membuat sebuah database dan satu table bernama "Barang" dan untuk koneksi database mysql ke vb.net bisa check Disini...

 Berikut tampilan form yang akan dibuat

Step 1 : Copikan coding berikut dibawah public class
Sub tampil(ByVal sql As String)

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sql

        mda.SelectCommand = perintah

        ds.Tables.Clear()

        mda.Fill(ds, "data")

        DataGridView1.DataSource = ds.Tables("data")

        kon.Close()

    End Sub
Step 2 : Copikan Coding berikut di form load dengan cara klik 2 kali form.
 Call tampil("select * from barang")
dan klik run project anda..

Form Master Produk Part 5

Selamat Siang coder berikut lanjutan dari tutorial sebelumnya dan masih di applikasi sederhana Minimarket dan bisa di cek >>>>> Disini ...

Step 1 :
Copikan coding berikut dibawah public class

Sub tampil(ByVal sql As String)

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sql

        mda.SelectCommand = perintah

        ds.Tables.Clear()

        mda.Fill(ds, "data")

        dg.DataSource = ds.Tables("data")

        kon.Close()

    End Sub

    Sub proses(ByVal sql As String)

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sql

        perintah.ExecuteNonQuery()

        kon.Close()

    End Sub

    Sub setdg()

        dg.Columns(0).HeaderText = "Kode Produk"

        dg.Columns(1).HeaderText = "Produk Group"

        dg.Columns(2).HeaderText = "Nama Produk"

        dg.Columns(0).Width = 220

        dg.Columns(1).Width = 200

        dg.Columns(2).Width = 250

    End Sub

    Sub tidakaktif()

        txtprodukid.Enabled = False

        txtproduknama.Enabled = False

        cmbprodukgrup.Enabled = False

        txtprodukid.BackColor = Color.Gray

        txtproduknama.BackColor = Color.Gray

        cmbprodukgrup.BackColor = Color.Gray

        cmdsave.Enabled = False

        cmddelete.Enabled = False

        cmdupdate.Enabled = False

    End Sub

    Sub aktif()

        txtprodukid.Enabled = True

        txtproduknama.Enabled = True

        cmbprodukgrup.Enabled = True

        txtprodukid.BackColor = Color.White

        txtproduknama.BackColor = Color.White

        cmbprodukgrup.BackColor = Color.White

        cmdsave.Enabled = True

        cmddelete.Enabled = True

        cmdupdate.Enabled = True

    End Sub

    Sub bersih()

        txtprodukid.Text = ""

        txtproduknama.Text = ""

        cmbprodukgrup.Text = ""

    End Sub

    Sub cekkode()

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = "SELECT * from produk where produkid='" & txtprodukid.Text & "'"

        cek = perintah.ExecuteReader

        cek.Read()

        If cek.HasRows Then

            txtprodukid.Enabled = False

            cmbprodukgrup.Text = cek.Item("produkgrup")

            txtproduknama.Text = cek.Item("produknama")

        End If

        cek.Close()

        Call aktif()

        txtprodukid.Focus()

        kon.Close()

    End Sub

    Sub getgrup()

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = "SELECT * FROM grup ORDER BY grupid"

        cek = perintah.ExecuteReader

        While cek.Read

            cmbprodukgrup.Items.Add(cek.Item("grupid") & " - " & cek.Item("grupnama"))

        End While

        kon.Close()

    End Sub
Step 2 :
klik 2 kali di form maka akan menghasilkan form load dan copikan coding berikut

Call tampil("SELECT produkid,grupid,produknama FROM produk JOIN grup ON produk.produkgrup=grup.grupid")

        Call setdg()
Step 3 :
Lanjutan dari form load tadi maka ganti event di sebelah kanan dan ganti event nya menjadi form activated dan copikan coding berikut :

cmbprodukgrup.Items.Clear()

        Call getgrup()

        Call tidakaktif()
Step 4 :
Klik 2 kali di tombol save dan copikan koding berikut :

Try

            Call proses("INSERT INTO produk VALUES('" & txtprodukid.Text & "','" & cmbprodukgrup.Text.Substring(0, 5) & "','" & txtproduknama.Text & "')")

            Call tampil("SELECT produkid,grupid,produknama FROM produk JOIN grup ON produk.produkgrup=grup.grupid")

            Call bersih()

            Call setdg()

        Catch ex As Exception

            MsgBox("Data Tidak Bisa Disimpan", MsgBoxStyle.Information, "Informasi")

        End Try
Step 5 :
klik 2 kali di tombol delete dan kopikan coding berikut :

Try

            Call proses("DELETE FROM produk where produkid='" & txtprodukid.Text & "'")

            Call tampil("SELECT produkid,grupid,produknama FROM produk JOIN grup ON produk.produkgrup=grup.grupid")

            Call bersih()

            Call setdg()

        Catch ex As Exception

            MsgBox("Data Tidak Bisa Dihapus", MsgBoxStyle.Information, "Informasi")

        End Try
Step 6 :
Klik 2 kali di tombol update dan copikan coding berikut : 

Try

            Call proses("update produk set produkgrup='" & cmbprodukgrup.Text.Substring(0, 5) & "',produknama='" & txtproduknama.Text & "' where produkid='" & txtprodukid.Text & "'")

            Call tampil("SELECT produkid,grupid,produknama FROM produk JOIN grup ON produk.produkgrup=grup.grupid")

            Call bersih()

            Call setdg()

        Catch ex As Exception

            MsgBox("Data Tidak Bisa Diupdate", MsgBoxStyle.Information, "Informasi")

        End Try
Step 7 :
Klik 2 kali di datagrid view dan ganti eventnya di sebelah kanan atas menjadi datagridview cellclick dan copikan coding berikut :

Dim i As Integer

        i = dg.CurrentRow.Index

        txtprodukid.Text = dg.Rows.Item(i).Cells(0).Value

        Call cekkode()
Step 8 :
copikan coding berikut pada tombol add untuk mengaktifkan form yang sedang tidak aktif..
Call aktif()
Sekian dan terima kasih >>> HappyCoding

Form Master Grup Part 4

Ini adalah tutorial lanjutan dari perancangan sistem informasi minimarket yang saya buat untuk lebih lanjut mari kita liat designya :

Untuk melihat Tutorial Sebelumnya bisa dilihat Disini

Step 1 : 

copi kan coding berikut dibawah public class

Sub tampil(ByVal sql As String)

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sql

        mda.SelectCommand = perintah

        ds.Tables.Clear()

        mda.Fill(ds, "data")

        dg.DataSource = ds.Tables("data")

        kon.Close()

    End Sub

    Sub proses(ByVal sql As String)

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = sql

        perintah.ExecuteNonQuery()

        kon.Close()

    End Sub

    Sub setdg()

        dg.Columns(0).HeaderText = "Kode Group"

        dg.Columns(1).HeaderText = "Nama Group"

        

        dg.Columns(0).Width = 220

        dg.Columns(1).Width = 440

        

    End Sub

    Sub tidakaktif()

        txtgrupid.Enabled = False

        txtgrupnama.Enabled = False

        txtgrupid.BackColor = Color.Gray

        txtgrupnama.BackColor = Color.Gray

        cmdsave.Enabled = False

        cmddelete.Enabled = False

        cmdupdate.Enabled = False

    End Sub

    Sub aktif()

        txtgrupid.Enabled = True

        txtgrupnama.Enabled = True

        txtgrupid.BackColor = Color.White

        txtgrupnama.BackColor = Color.White

        cmdsave.Enabled = True

        cmddelete.Enabled = True

        cmdupdate.Enabled = True

    End Sub

    Sub bersih()

        txtgrupid.Text = ""

        txtgrupnama.Text = ""

    End Sub

    Sub cekkode()

        kon.Open()

        perintah.Connection = kon

        perintah.CommandType = CommandType.Text

        perintah.CommandText = "SELECT * FROM grup where grupid='" & txtgrupid.Text & "'"

        cek = perintah.ExecuteReader

        cek.Read()

        If cek.HasRows Then

            txtgrupid.Enabled = False

            txtgrupnama.Text = cek.Item("grupnama")

        End If

        cek.Close()

        Call aktif()

        txtgrupid.Focus()

        kon.Close()

    End Sub
Step 2 :
klik 2 kali di form maka akan menghasilkan form load dan copikan coding berikut :

Call tampil("SELECT * FROM grup ORDER BY grupid ASC")

        Call setdg()
Step 3 :
Klik 2 kali di tombol save dan copikan coding berikut :

Try

            Call proses("INSERT INTO grup VALUES('" & txtgrupid.Text & "','" & txtgrupnama.Text & "')")

            Call tampil("SELECT * FROM grup ORDER BY grupid ASC")

            Call bersih()

            Call setdg()

        Catch ex As Exception

            MsgBox("Data Tidak Bisa Disimpan", MsgBoxStyle.Information, "Informasi")

        End Try
Step 4 :
Klik 2 kali di tombol delete dan copikan koding berikut :

Try

            Call proses("DELETE FROM grup where grupid='" & txtgrupid.Text & "'")

            Call tampil("SELECT * FROM grup ORDER BY grupid ASC")

            Call bersih()

            Call setdg()

        Catch ex As Exception

            MsgBox("Data Tidak Bisa Dihapus", MsgBoxStyle.Information, "Informasi")

        End Try
Step 5:
klik 2 kali di tombol update dan copikan coding berikut :

Try

            Call proses("update grup set grupnama='" & txtgrupnama.Text & "' where grupid='" & txtgrupid.Text & "'")

            Call tampil("SELECT * FROM grup ORDER BY grupid ASC")

            Call bersih()

            Call setdg()

        Catch ex As Exception

            MsgBox("Data Tidak Bisa Diupdate", MsgBoxStyle.Information, "Informasi")

        End Try
Step 6 :
klik 2 kali di datagridview dan pilih event yang disebelah kanan atas dan ganti menjadi datagridview cellclik dan copikan coding berikut :

Dim i As Integer

        i = dg.CurrentRow.Index

        txtgrupid.Text = dg.Rows.Item(i).Cells(0).Value

        Call cekkode()
koding diatas ini berfungsi untuk cek data dan melakukan proses update dan delete..
Sekian dan Terima Kasih..

Modul Database Administrator ORACLE

Database Oracle adalah Database relasional yang terdiri dari kumpulan data dalam suatu sistem manajemen Database RDBMS. Perusahaan Software Oracle memasarkan jenis Database ini untuk bermacam-macam aplikasi yang bisa berjalan pada banyak jenis dan merk perangkat keras komputer (platform).

Database Oracle ini pertama kali dikembangkan oleh Larry Ellison, Bob Miner dan Ed Oates lewat perusahaan konsultasinya bernama Software Development Laboratories (SDL) pada tahun 1977. Pada tahun 1983, perusahaan ini berubah nama menjadi Oracle Corporation sampai sekarang. (wikipedia indonesia)

Database Oracle terdiri dari beberapa komponen berikut ini :

Software Oracle
Database, yang tersimpan dalam bentuk file pada satu disk atau lebih.
Instance Oracle, terdiri dari background process dan shared memory area
Server process, yang meng-handle user dan aplikasi yang telah terhubung dengan Database, dan juga mengatur memori dan temporary storage yang digunakan process tersebut.
Oracle Net, yang memungkinkan komunikasi antara client application dengan Database oracle pada sebuah jaringan.

Kerjaan DBA pada umumnya sebagai berikut :

Menginstal Software oracle
Meng-create database oracle
Upgrade database dan software oracle
Menyalakan dan mematikan Database oracle
Me-manage storage database
Me-manage user dan security database
Mengelola object Database seperti table, index, views, dll
Backup dan recovery
Monitoring dan tuning database

Untuk Download Buku atau modul nya Klik Link ini