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':
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 Subcara 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 :
4.2.1. CREATE
klik 2X button 'Simpan' lalu ketikkan kode sepert di bawah ini :
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.SqlClientlalu 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 Sub4.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
Posting Komentar