Membuat Aplikasi Jadwal Ekskul Menggunakan VS.net & SQL Server

Assalamualaikum...!!!

Kali ini saya akan berbagi gimana caranya membuat sebuah aplikasi Jadwal Ekskul menggunakan VS.net dan SQL Server.

1. Langkah pertama buatlah sebuah database dengan nama sesuai keinginan anda contohnya "db_ekskul" setelah itu buatlah beberapa table diantaranya (tb_guru, tb_jadwal, tb_kelas, tb_mataekskul) dengan field seperti gambar di bawah ini.

              Untuk table tb_guru field nya seperti ini

              Untuk table tb_jadwal field nya seperti ini

              Untuk table tb_kelas field nya seperti ini

Untuk table tb_mataekskul fieldnya seperti ini

2. Langkah Ke Dua buat lah sebuah View di SQL Server anda dan jangan lupa centang Nama di table tb_guru, centang Hari di table tb_jadwal, centang Kelas dan Jurusan di table tb_kelas, centang maeks di table tb_maeks, seperti gambar di bawah ini

3. Langkah selanjutnya buka Visual Studio anda dan buat sebuah project dengan nama sesuai dengan keinginan contoh saja JadwalEskskulApps. Kemudian buatlah sebuah tampilan awal seperti gambar di bawah ini 

Adapun komponen Toolbox yang di pakai yaitu terdiri dari : 2 Buah label, 5 Buah Botton

4. Langkah Selanjutnya buatlah sebuah koneksi agar VS.net & SQL server terhubung 

Untuk Script Koneksi Silahkan liat di bawah 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=STN-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
15. 
    

5. Langkah Selanjutnya buatlah beberapa Form yaitu form guru, form kelas, form jadwal, form maeks. Untuk lebih jelasnya silahkan lihat gambar di bawah ini

Untuk tampilan Form guru  

             

   Untuk tampilan Form kelas

Untuk tampilan Form ekskul

Untuk tampilan Form Jadwal

6. Langkah selanjutnya ketik kan Script di bawah ini di tampilan awal yang anda buat

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.         dgvwjadwal.DataSource = dt
10.     End Sub
12.     Sub header()
13.         dgvwjadwal.Columns(0).HeaderText = "NAMA"
14.         dgvwjadwal.Columns(1).HeaderText = "HARI"
15.         dgvwjadwal.Columns(2).HeaderText = "KELAS"
16.         dgvwjadwal.Columns(3).HeaderText = "JURUSAN"
17.         dgvwjadwal.Columns(4).HeaderText = "MATA EKSKUL"
18.     End Sub
20.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
21.         Me.Close()
22.     End Sub
24.     Private Sub Home_Load(sender As Object, e As EventArgs) Handles MyBase.Load
25.         Call opendb()
26.         Call opentable()
27.         header()
29.     End Sub
31.     Private Sub dgvwjadwal_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvwjadwal.CellContentClick
33.     End Sub
35.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
36.         frmguru.Show()
37.     End Sub
39.     Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
40.         frmkelas.Show()
41.     End Sub
43.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
44.         frmmaeks.Show()
45.     End Sub
47.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
48.         frmjadwal.Show()
49.     End Sub
50. End Class

7. Langkah Selanjutnya Ketik kan script dibawah ini di Form Guru yang anda buat

1. Imports System.Data.SqlClient
2. Public Class frmguru
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
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
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
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()
50.             MsgBox("Data berhasil Diubah")
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
70.     Private Sub dgguru_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgguru.CellContentClick
72.     End Sub
73. End Class

8. Langkah selanjutnya ketik kan Script di bawah ini di 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
21.     Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click
22.         Me.Close()
23.     End Sub
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
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()
39.             MsgBox("Data berhasil Diubah")
41.         Catch ex As Exception
42.             MsgBox(ex.ToString())
43.         End Try
44.         opentable()
45.     End Sub
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)
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.         'bersih()
63.     End Sub
65.     Private Sub dgkelas_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs)
66.         txtkode.Text = dgkelas.SelectedCells(0).Value.ToString
67.         txtkelas.Text = dgkelas.SelectedCells(1).Value.ToString
68.         txtjurusan.Text = dgkelas.SelectedCells(2).Value.ToString
69.         opentable()
70.         'bersih()
71.     End Sub
72. End Class

9. Langkah selanjutnya Ketik kan Script di bawah ini di Form Ekskul

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
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
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()
37.             MsgBox("Data berhasil Diubah")
39.         Catch ex As Exception
40.             MsgBox(ex.ToString())
41.         End Try
42.         opentable()
43.         bersih()
44.     End Sub
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)
58.         txtkode.Text = dgmaeks.SelectedCells(0).Value.ToString
59.         txtmaeks.Text = dgmaeks.SelectedCells(1).Value.ToString
60.         opentable()
61.     End Sub
63.     Private Sub dgmaeks_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs)
64.         txtkode.Text = dgmaeks.SelectedCells(0).Value.ToString
65.         txtmaeks.Text = dgmaeks.SelectedCells(1).Value.ToString
66.         opentable()
67.     End Sub
68. End Class

10. Langkah Selanjutnya Ketik kan script di bawah ini di 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
22.     Private Sub frmjadwal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
23.         opentable()
24.         bersih()
25.     End Sub
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
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()
41.             MsgBox("Data berhasil Diubah")
43.         Catch ex As Exception
44.             MsgBox(ex.ToString())
45.         End Try
46.         opentable()
47.         bersih()
48.     End Sub
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)
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
70.     Private Sub dgjadwal_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs)
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

Jika Sudah selesai Silahkan Jalankan Aplikasi anda. Selamat Mengerjakan^^