Langsung ke konten utama

Membuat aplikasi JADWAL EKSKUL di VB 2012 dengan database SQL SERVER 2008


Halo gan, dipertemuan kali ini saya akan membuat aplikasi "Jadwal Ekskul" menggunakan aplikasi Visual Studio 2012 dengan database SQL Server 2008.

1. MEMBUAT DATABASE
bukalah aplikasi SQL Server anda lalu buatlah database "db_jadwalekskul" setelah itu tambahakanlah  table 'tb_guru', 'tb_kelas','tb_mataekskul','tb_jawalekskul' seperti di bawah ini:
'tb_guru'

'tb_kelas'

'tb_mataekskul'

'tb_jadwalekskul'

setelah itu buatlah viewnya dengan nama 'v_jadwalekskul', caranya klik Views di menu deretan table klik kanan New Views, setelah itu tambahkan pilih dan masukkan semua table, jika sudah tarik dari Primary Key ke Foreign Key, lalu centang sesua no urut di bawah design tersebut seperti di bawah ini :

2. MEMBUAT APLIKASI
buatlah aplikasi pada Visual Basic anda dengan nama "jadwalekskul", lalu buatlah koneksi pada VB anda dengan cara tambahkan item module lalu beri nama 'config' dan ketikkan kode di bawah ini :
Imports System.Data.SqlClient

Module cofig
    Public cn As New SqlConnection
    Public cmd As New SqlCommand

    Sub opendb()
        cn.ConnectionString = "Data Source=Guntur-PC\SQLEXPRESS;initial catalog=db_jawalekskul;Integrated Security=True;"
        cn.Open()
        If cn.State = ConnectionState.Open Then
            MessageBox.Show("Succes Connect to Database")
        Else
            MessageBox.Show("Failed Connect to Database")
        End If
    End Sub
End Module
Di bagian "Data Source= Guntur-PC\SQLEXPRESS" ganti tulisan yang saya beri tanda sesuai dengan Server Name yang terdapat pada SQL Server anda.

3. MEMBUAT FORM
tambahkanlah item WindowsForm dengan nama 'main', kali ini saya akan membuat form tersebut di masukkan/menggabungkan ke satu form saja yaitu form 'main', berikut design untuk form 'main':


*pada warna yang berwarna orange dan putih saya menggunakan panel, jadi saya menggunakan 3 panel

klik 2X pada form 'main' lalu ketikkan kode di bawah ini:
Private Sub main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        opendb()
    End Sub
cara membuat form tersebut masuk kedalam form main, klik label 'GURU' lalu ke properties klik menu yang bergambar petir di atas lalu pilih 'MouseClick' setelah itu ketikkan kode di bawah ini:
        guru.TopLevel = False
        Panel2.Controls.Add(guru)
        guru.Show()
        guru.BringToFront()

*panel2 ialah panel yang berwarna putih sesuaikan pada panel kalian

lakukan hal tersebut pada label yang lainnya yang di ubah hanyalah 'guru' dengan form yang kalian inginkan

setelah itu tambahkan 5 form lagi seperti di bawah ini:

FORM 'guru'

FORM 'kelas'

FORM 'mataekskul'

FORM 'jadwalekskul'

FORM 'CUDjadwalekskul'

4. MENAMBAHKAN SCRIPT
saya akan memberi contoh script - script yang di butuhkan pada form 'GURU'

4.1. MENAMPILKAN DATA
klik 2X FORM 'GURU'
paling atas script di atas 'Public Class' ketik :
Imports System.Data.SqlClient
lalu ketik kode seperti di bawah ini :
 Sub tampildata()
        cmd.Connection = cn
        cmd.CommandText = "SELECT * FROM guru"
        Dim rd As SqlDataReader = cmd.ExecuteReader
        Dim dt As New DataTable
        dt.Load(rd)
        DataGridView1.DataSource = dt
    End Sub
4.2. MEMBUAT CRUD ( Create Read Update Delete ) di FORM 'GURU'

4.2.1. CREATE
klik 2X button 'Simpan' lalu ketikkan kode sepert di bawah ini :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
        cmd.Connection = cn
        cmd.CommandText = "INSERT INTO tb_guru VALUES ('" & txtkodeguru.Text & "','" & txtnamaguru.Text & "','" & txtalamat.Text & "','" & txtnohp.Text & "')"
        cmd.ExecuteNonQuery()
        showdatatable()
    End Sub

4.2.2. UPDATE
klik 2X button 'Ubah' lalu ketikkan kode sepert di bawah ini :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnubah.Click
        cmd.Connection = cn
        cmd.CommandText = "UPDATE tb_guru SET nama_guru = '" & txtnamaguru.Text & "',alamat = '" & txtalamat.Text & "',no_hp = '" & txtnohp.Text & "'WHERE kode_guru = '" & txtkodeguru.Text & "'"
        cmd.ExecuteNonQuery()
        showdatatable()
    End Sub

4.2.3. DELETE
klik 2X button 'Hapus' lalu ketikkan kode sepert di bawah ini :
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
        cmd.Connection = cn
        cmd.CommandText = "DELETE FROM tb_guru WHERE kode_guru = '" & txtkodeguru.Text & "'"
        cmd.ExecuteNonQuery()
        showdatatable()
    End Sub

4.2.4. READ/CARI
klik 2X button 'Cari' lalu ketikkan kode sepert di bawah ini :
 Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btncari.Click
        cmd.Connection = cn
        cmd.CommandText = "SELECT * FROM tb_guru WHERE kode_guru LIKE '" & txtcari.Text & "%'"
        Dim rd As SqlDataReader = cmd.ExecuteReader
        Dim dt As New DataTable
        dt.Load(rd)
        DataGridView1.DataSource = dt
    End Sub

silahkan anda mencoba pada form - form yang lainnya

4.3. FORM CUDjadwalekskul
di sini terdapat ComboBox dan ada 3 ComboBox yang datanya di ambil dari table lainnya, ketikkan kode seperti di bawah ini:
Sub guru()
        cmd = New SqlCommand("SELECT kode_guru FROM tb_guru", cn)
        Dim rd As SqlDataReader = cmd.ExecuteReader
        While rd.Read()
            ComboBox1.Items.Add(rd("kode_guru"))
        End While
        ComboBox1.SelectedIndex = 0
        rd.Close()
    End Sub

    Sub mataekskul()
        cmd = New SqlCommand("SELECT kode_mataekskul FROM tb_mataekskul", cn)
        Dim rd As SqlDataReader = cmd.ExecuteReader
        While rd.Read()
            ComboBox2.Items.Add(rd("kode_mataekskul"))
        End While
        ComboBox2.SelectedIndex = 0
        rd.Close()
    End Sub

    Sub kelas()
        cmd = New SqlCommand("SELECT kode_kelas FROM tb_kelas", cn)
        Dim rd As SqlDataReader = cmd.ExecuteReader
        While rd.Read()
            ComboBox3.Items.Add(rd("kode_kelas"))
        End While
        ComboBox3.SelectedIndex = 0
        rd.Close()
    End Sub

klik 2X pada form 'CUDjadwalekskul' lalu ketikkan kode di bawah ini:
Private Sub CUDjadwalekskul_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        guru()
        mataekskul()
        kelas()
    End Sub

4.4. MENAMPILKAN DATA DI FORM 'JADWAL EKSKUL'
caranya sama seperti di atas namun ada kode yang sedikit berbeda, ikuti kode seperti di bawah ini:
        cmd.Connection = cn
        cmd.CommandText = "SELECT * FROM v_jawalekskul"
        Dim rd As SqlDataReader = cmd.ExecuteReader
        Dim dt As New DataTable
        dt.Load(rd)
        DataGridView1.DataSource = dt

Jika semua form telah anda buat anda telah menyelesaikan program anda, maaf bila ada kesalah penulisan kata dan sulit untuk di pahami




TERIMAKASIH TELAH MEMBACA
SEMOGA DAPAT SANGAT BERMANFAAT
JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

Komentar

Postingan populer dari blog ini

CARA MEMBUAT 001 DI EXCEL

Kali ini saya akan memberitahu kalian bagaimana cara membuat angka 001 di excel. Kita dapat menggunakan 2 cara, yaitu mengubah angkanya menjadi huruf dan mengatur formatnya. Cara pertama (Mengubah angka menjadi huruf) Ketikkan ‘001 pada salah satu kolom yang anda inginkan Maka hasilnya seperti yang di bawah ini : Cara Kedua (Mengatur Formatnya) Klik kanan pada salah satu kolom>>Format Cells>>Number>>Custom Atur sebelah bagian type sebelah kanan menjadi 000 dan klik OK Hasilnya akan menjadi seperti di bawah ini : Download tutorial PDFnya di sini TERIMAKASIH TELAH MEMBACA SEMOGA DAPAT SANGAT BERMANFAAT JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

Download vidio di YOUTUBE tanpa software

hello gun apa kabar semua, kalian pasti pernahkan menonoton vidio di youtube dan saat kalian ingin mendownload vidionya tapi malas menginstal software lagi, tenang gan sekarang kita bisa mendownload vidio di youtube tanpa di bantu software lain langsung pake browser aja, langsung aja. pertama silahkan agan membuka vidio youtube yang anda ingin download. contohnya saya akan mendownload vidio Love Again dari Pentatonix copy link vidio yang agan buka tadi  kemudian buka  http://en.savefrom.net/  sebagai browser yang daoat mendownload vidio tersebut pastekan link yang agan copy tadi dan klik download, maka hasilnya akan seperti yang di bawah ini  kalo sudah seperti ini agan tinggal pilih kualitas vidio yang agan ingin download, gampang kan. TERIMAKASIH TELAH MEMBACA SEMOGA DAPAT SANGAT BERMANFAAT JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR

Contoh Database ERD Untuk Toko Apotik

Dibawah ini adalah Contor Database ERD Untuk Toko Apotik Untuk Lebih Lengkapnya Baca Link Sumber di Bawah Ini: SUMBER : http://arsyil.blogspot.com/2010/12/contoh-studi-kasus-basis-data-database.html http://arsyil.blogspot.com/2010/12/contoh-diagram-e-r-basis-data-apotek.html http://website-inspirasi.blogspot.com/2014/01/contoh-database-erd-untuk-toko-apotik.html