Aplikasi Jadwal Ekskul, Menggunakan VB.NET & SQL SERVER 2012

          Jumpa lagi, semua pengunjung http://onlysharehere.blogspot.com/ , kali ini saya akan memberikan satu contoh untuk membuat aplikasi bertemakan jadwal. Nah untuk itu kalian harus mempersiapkan Database terlebih dahulu.

1.Pertama kalian harus membuat database seperti dibawah ini :

   Setelah itu tekan OK.

2.Selanjutnya kalian buat table seperti dibawah ini :

3.Setelah itu buat Diagram Grafik seperti dibawah ini :

4.Kemudian buat View untuk memunculkan data yg ingin dilihat contohnya seperti dibawah ini :

5.Setelah itu buka Visual Studio kalian dan buat koneksi seperti dibawah ini :

1. Imports System.Data.SqlClient
2. Module config
3.     Public cn As New SqlConnection
4.     Public cmd As New SqlCommand
5.     Public Sub opendb()
6.         cn.ConnectionString = "Data Source=RIZKI-PC\SQLEXPRESS;Initial Catalog=db_ekskul;Integrated Security=True"
7.         cn.Open()
8.         If cn.State = ConnectionState.Open Then
9.             MessageBox.Show("DB Open")
10.         Else
11.             MessageBox.Show("DB Open Failed")
12.         End If
13.     End Sub
14. End Module

ingat kalian harus menyesuaikan nama koneksi kalian untuk melihatnya dapat dilihat saat mau konek pada SQL Server :

6.Setelah itu buat design form utama untuk menampilkan View yg telah dibuat , untuk itu diperlukan   5 buah button dan 1 grid view , untuk label(tulisan) kalian design sesuka kalian :

Data Guru ubah name buttonnya menjadi(btnguru), Data Kelas (btnkelas), Data Ekskul (btnekskul), Jadwal(btnjadwal),Refres(btnrefresh).

7.Setelah itu klik doubel pada form yg tadi dan masukkan script dibawah ini :

1. Imports System.Data.SqlClient
2. Public Class home
3.     Sub opentable()
4.         cmd.Connection = cn
5.         cmd.CommandText = "select * from vwjadwal"
6.         Dim rd As SqlDataReader = cmd.ExecuteReader
7.         Dim dt As New DataTable
8.         dt.Load(rd)
9.         dgvall.DataSource = dt
10.     End Sub
11.     Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
12.         Me.Close()
13.     End Sub
14.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
15.         opendb()
16.         opentable()
17.     End Sub
18.     Private Sub btnguru_Click(sender As Object, e As EventArgs) Handles btnguru.Click
19.         frmguru.ShowDialog()
20.     End Sub
21.     Private Sub btnkelas_Click(sender As Object, e As EventArgs) Handles btnkelas.Click
22.         frmkelas.ShowDialog()
23.     End Sub
24.     Private Sub btnmaeks_Click(sender As Object, e As EventArgs) Handles btnmaeks.Click
25.         frmmaeks.ShowDialog()
26.     End Sub
27.     Private Sub btnjadwal_Click(sender As Object, e As EventArgs) Handles btnjadwal.Click
28.         frmjadwal.ShowDialog()
29.     End Sub
30.     Private Sub btnrefresh_Click(sender As Object, e As EventArgs) Handles btnrefresh.Click
31.         opentable()
32.     End Sub
33. End Class

8.Kemudian buat Form untuk Form Eksekusi seperti dibawah ini :

Form Guru

Form Kelas

Form Mata Ekskul

Form Jadwal

Nahh Untuk TextBox dan Buttonnya sesuaikan dengan yg digambar.

9.Setelah itu masukan script pada Form Guru seperti dibawah ini:

1. Imports System.Data.SqlClient
2. Public Class frmguru
3.    
4.     Private Sub frmguru_Load(sender As Object, e As EventArgs) Handles MyBase.Load
5.         opentable()
6.     End Sub
7.     Sub opentable()
8.         cmd.Connection = cn
9.         cmd.CommandText = "SELECT * FROM tb_guru"
10.         Dim rd As SqlDataReader = cmd.ExecuteReader
11.         Dim dt As New DataTable
12.         dt.Load(rd)
13.         dgguru.DataSource = dt
14.     End Sub
15.     Sub bersih()
16.         txtalamat.Text = ""
17.         txtkode.Text = ""
18.         txtnama.Text = ""
19.         txtnotelp.Text = ""
20.     End Sub
21.     Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
22.         Me.Close()
23.     End Sub
24.  
25.     Private Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
26.         cmd.Connection = cn
27.         cmd.CommandText = "insert into tb_guru values('" & txtkode.Text & "','" & txtnama.Text & "','" & txtalamat.Text & "','" &txtnotelp.Text & "')"
28.         cmd.ExecuteNonQuery()
29.         MessageBox.Show("Data Tersimpan")
30.         opentable()
31.         bersih()
32.     End Sub
33.  
34.     Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
35.         Try
36.             cmd.CommandText = "DELETE FROM tb_guru WHERE kode_guru = '" & txtkode.Text & "'"
37.             cmd.ExecuteNonQuery()
38.             MsgBox("Data telah terhapus")
39.         Catch ex As Exception
40.             MsgBox(ex.ToString())
41.         End Try
42.         opentable()
43.     End Sub
44.  
45.     Private Sub btnubah_Click(sender As Object, e As EventArgs) Handles btnubah.Click
46.         Try
47.             cmd.CommandText = "UPDATE tb_guru SET kode_guru ='" & txtkode.Text & "', nama ='" & txtnama.Text & "', alamat = '" &txtalamat.Text & "', notelp = '" & txtnotelp.Text & "' WHERE kode_guru ='" & txtkode.Text & "'"
48.             cmd.ExecuteNonQuery()
49.  
50.             MsgBox("Data berhasil Diubah")
51.  
52.         Catch ex As Exception
53.             MsgBox(ex.ToString())
54.         End Try
55.         opentable()
56.     End Sub
57.     Private Sub dgguru_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgguru.CellContentDoubleClick
58.         txtkode.Text = dgguru.SelectedCells(0).Value.ToString
59.         txtnama.Text = dgguru.SelectedCells(1).Value.ToString
60.         txtalamat.Text = dgguru.SelectedCells(2).Value.ToString
61.         txtnotelp.Text = dgguru.SelectedCells(3).Value.ToString
62.     End Sub
63.     Private Sub dgguru_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgguru.CellMouseDoubleClick
64.         txtkode.Text = dgguru.SelectedCells(0).Value.ToString
65.         txtnama.Text = dgguru.SelectedCells(1).Value.ToString
66.         txtalamat.Text = dgguru.SelectedCells(2).Value.ToString
67.         txtnotelp.Text = dgguru.SelectedCells(3).Value.ToString
68.     End Sub
69. End Class

10.Masukan Script ini pada Form Kelas :

1. Imports System.Data.SqlClient
2. Public Class frmkelas
3.     Sub opentable()
4.         cmd.Connection = cn
5.         cmd.CommandText = "SELECT * FROM tb_kelas"
6.         Dim rd As SqlDataReader = cmd.ExecuteReader
7.         Dim dt As New DataTable
8.         dt.Load(rd)
9.         dgkelas.DataSource = dt
10.     End Sub
11.     Sub bersih()
12.         txtjurusan.Text = ""
13.         txtkelas.Text = ""
14.         txtkode.Text = ""
15.     End Sub
16.     Private Sub frmkelas_Load(sender As Object, e As EventArgs) Handles MyBase.Load
17.         opentable()
18.         bersih()
19.     End Sub
20.  
21.     Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
22.         Me.Close()
23.     End Sub
24.  
25.     Private Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
26.         cmd.Connection = cn
27.         cmd.CommandText = "insert into tb_kelas values('" & txtkode.Text & "','" & txtkelas.Text & "','" & txtjurusan.Text & "')"
28.         cmd.ExecuteNonQuery()
29.         MessageBox.Show("Data Tersimpan")
30.         opentable()
31.         bersih()
32.     End Sub
33.  
34.     Private Sub btnubah_Click(sender As Object, e As EventArgs) Handles btnubah.Click
35.         Try
36.             cmd.CommandText = "UPDATE tb_kelas SET kode_kelas ='" & txtkode.Text & "', kelas ='" & txtkelas.Text & "', jurusan = '" &txtjurusan.Text & "' WHERE kode_kelas ='" & txtkode.Text & "'"
37.             cmd.ExecuteNonQuery()
38.  
39.             MsgBox("Data berhasil Diubah")
40.  
41.         Catch ex As Exception
42.             MsgBox(ex.ToString())
43.         End Try
44.         opentable()
45.     End Sub
46.  
47.     Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
48.         Try
49.             cmd.CommandText = "DELETE FROM tb_kelas WHERE kode_kelas = '" & txtkode.Text & "'"
50.             cmd.ExecuteNonQuery()
51.             MsgBox("Data telah terhapus")
52.         Catch ex As Exception
53.             MsgBox(ex.ToString())
54.         End Try
55.         opentable()
56.     End Sub
57.     Private Sub dgkelas_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgkelas.CellContentDoubleClick
58.         txtkode.Text = dgkelas.SelectedCells(0).Value.ToString
59.         txtkelas.Text = dgkelas.SelectedCells(1).Value.ToString
60.         txtjurusan.Text = dgkelas.SelectedCells(2).Value.ToString
61.         opentable()
62.     End Sub
63.  
64.     Private Sub dgkelas_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgkelas.CellMouseDoubleClick
65.         txtkode.Text = dgkelas.SelectedCells(0).Value.ToString
66.         txtkelas.Text = dgkelas.SelectedCells(1).Value.ToString
67.         txtjurusan.Text = dgkelas.SelectedCells(2).Value.ToString
68.         opentable()
69.     End Sub
70. End Class

11.Masukan Script ini pada Form Mata Ekskul (maeks) :

1. Imports System.Data.SqlClient
2. Public Class frmmaeks
3.     Sub opentable()
4.         cmd.Connection = cn
5.         cmd.CommandText = "SELECT * FROM tb_maeks"
6.         Dim rd As SqlDataReader = cmd.ExecuteReader
7.         Dim dt As New DataTable
8.         dt.Load(rd)
9.         dgmaeks.DataSource = dt
10.     End Sub
11.     Sub bersih()
12.         txtkode.Text = ""
13.         txtmaeks.Text = ""
14.     End Sub
15.     Private Sub frmmaeks_Load(sender As Object, e As EventArgs) Handles MyBase.Load
16.         opentable()
17.         bersih()
18.     End Sub
19.     Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
20.         Me.Close()
21.     End Sub
22.  
23.     Private Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
24.         cmd.Connection = cn
25.         cmd.CommandText = "insert into tb_maeks values('" & txtkode.Text & "','" & txtmaeks.Text & "')"
26.         cmd.ExecuteNonQuery()
27.         MessageBox.Show("Data Tersimpan")
28.         opentable()
29.         bersih()
30.     End Sub
31.  
32.     Private Sub btnubah_Click(sender As Object, e As EventArgs) Handles btnubah.Click
33.         Try
34.             cmd.CommandText = "UPDATE tb_maeks SET kode_maeks ='" & txtkode.Text & "', maeks ='" & txtmaeks.Text & "' WHERE kode_maeks ='" &txtkode.Text & "'"
35.             cmd.ExecuteNonQuery()
36.  
37.             MsgBox("Data berhasil Diubah")
38.  
39.         Catch ex As Exception
40.             MsgBox(ex.ToString())
41.         End Try
42.         opentable()
43.         bersih()
44.     End Sub
45.  
46.     Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
47.         Try
48.             cmd.CommandText = "DELETE FROM tb_maeks WHERE kode_maeks = '" & txtkode.Text & "'"
49.             cmd.ExecuteNonQuery()
50.             MsgBox("Data telah terhapus")
51.         Catch ex As Exception
52.             MsgBox(ex.ToString())
53.         End Try
54.         opentable()
55.         bersih()
56.     End Sub
57.     Private Sub dgmaeks_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgmaeks.CellContentDoubleClick
58.         txtkode.Text = dgmaeks.SelectedCells(0).Value.ToString
59.         txtmaeks.Text = dgmaeks.SelectedCells(1).Value.ToString
60.         opentable()
61.     End Sub
62.  
63.     Private Sub dgmaeks_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgmaeks.CellMouseDoubleClick
64.         txtkode.Text = dgmaeks.SelectedCells(0).Value.ToString
65.         txtmaeks.Text = dgmaeks.SelectedCells(1).Value.ToString
66.         opentable()
67.     End Sub
68. End Class

12.Masukan Script dibawah ini untuk Form Jadwal :

1. Imports System.Data.SqlClient
2. Public Class frmjadwal
3.     Sub opentable()
4.         cmd.Connection = cn
5.         cmd.CommandText = "SELECT * FROM tb_jadwal"
6.         Dim rd As SqlDataReader = cmd.ExecuteReader
7.         Dim dt As New DataTable
8.         dt.Load(rd)
9.         dgjadwal.DataSource = dt
10.     End Sub
11.     Sub bersih()
12.         txthari.Text = ""
13.         txtkdguru.Text = ""
14.         txtkdjadwal.Text = ""
15.         txtkdkelas.Text = ""
16.         txtkdmaeks.Text = ""
17.     End Sub
18.     Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
19.         Me.Close()
20.     End Sub
21.  
22.     Private Sub frmjadwal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
23.         opentable()
24.         bersih()
25.     End Sub
26.  
27.     Private Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
28.         cmd.Connection = cn
29.         cmd.CommandText = "insert into tb_jadwal values('" & txtkdjadwal.Text & "','" & txtkdguru.Text & "','" & txtkdkelas.Text & "','" &txtkdmaeks.Text & "','" & txthari.Text & "')"
30.         cmd.ExecuteNonQuery()
31.         MessageBox.Show("Data Tersimpan")
32.         opentable()
33.         bersih()
34.     End Sub
35.  
36.     Private Sub btnubah_Click(sender As Object, e As EventArgs) Handles btnubah.Click
37.         Try
38.             cmd.CommandText = "UPDATE tb_jadwal SET kode_jadwal ='" & txtkdjadwal.Text & "', kode_guru ='" & txtkdguru.Text & "', kode_kelas = '" & txtkdkelas.Text & "', kode_maeks = '" & txtkdmaeks.Text & "', hari = '" & txthari.Text & "' WHERE kode_jadwal ='" & txtkdjadwal.Text &"'"
39.             cmd.ExecuteNonQuery()
40.  
41.             MsgBox("Data berhasil Diubah")
42.  
43.         Catch ex As Exception
44.             MsgBox(ex.ToString())
45.         End Try
46.         opentable()
47.         bersih()
48.     End Sub
49.  
50.     Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
51.         Try
52.             cmd.CommandText = "DELETE FROM tb_jadwal WHERE kode_jadwal = '" & txtkdjadwal.Text & "'"
53.             cmd.ExecuteNonQuery()
54.             MsgBox("Data telah terhapus")
55.         Catch ex As Exception
56.             MsgBox(ex.ToString())
57.         End Try
58.         opentable()
59.         bersih()
60.     End Sub
61.     Private Sub dgjadwal_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgjadwal.CellContentDoubleClick
62.         txtkdjadwal.Text = dgjadwal.SelectedCells(0).Value.ToString
63.         txtkdguru.Text = dgjadwal.SelectedCells(1).Value.ToString
64.         txtkdkelas.Text = dgjadwal.SelectedCells(2).Value.ToString
65.         txtkdmaeks.Text = dgjadwal.SelectedCells(3).Value.ToString
66.         txthari.Text = dgjadwal.SelectedCells(4).Value.ToString
67.         opentable()
68.     End Sub
69.  
70.     Private Sub dgjadwal_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgjadwal.CellMouseDoubleClick
71.         txtkdjadwal.Text = dgjadwal.SelectedCells(0).Value.ToString
72.         txtkdguru.Text = dgjadwal.SelectedCells(1).Value.ToString
73.         txtkdkelas.Text = dgjadwal.SelectedCells(2).Value.ToString
74.         txtkdmaeks.Text = dgjadwal.SelectedCells(3).Value.ToString
75.         txthari.Text = dgjadwal.SelectedCells(4).Value.ToString
76.         opentable()
77.     End Sub
78. End Class

Setelah itu Jalankan Aplikasinya dan coba isi semua form dan lihat pada form utama maka akan Data Grid View nya akan terisi.

Mudah bukan membuatnya selamat mencoba dan sampai jumpa lagi.