Aplikasi Jadwal Eskul SMK TI Airlangga Dengan Visual Studio 2012

Menu Utama

Menu Utama Jika diklik Button Menu

        Kali ini saya akan membahas tantang pembuatan aplikasi “APLIKASI JADWAL ESKUL SMK TI Airlangga”, yang dibuat menggunakan Aplikasi Visual Studio 2012 Ultimate dan dibuat dengan database SQL Server 2012.

Langkah pertama:
        Membuat database di SQL Server 2012, dengan membuka SQL Server 2012 -> klik kanan di database -> new database -> beri nama “DbJadwalEskul” lalu OK.
buat tabel dengan nama dan field seperti gambar dibawah ini:

1. Tabel Guru

Tabel Guru

Tabel Jadwal

3. Tabel Kelas

Tabel Kelas

Tabel Mata Eskul

View Untuk Informasi Jadwal

Buat Project Baru

Contoh Desain Form Guru sesuai dengan field yang ada di database

Jika sudah membuat desain fromnya ubah name dari setiap toolbox yang digunakan dengan cara Klik salah satu toolbox->properties->name. ubah namenya seperti dibawah ini:

1. Imports System.Data.SqlClient
2. Public Class FrmGuru
3.     Dim cn As New SqlConnection
4.     Dim cmd As New SqlCommand
6.     Sub koneksi()
7.         cn.ConnectionString = “Data Source=RISTIOKTAVIANIRISTI;Initial Catalog=DbJadwalEskul;Integrated Security=True”
8.         If cn.State = ConnectionState.Closed Then
9.             cn.Open()
10.         End If
11.     End Sub
13.     Sub tampil_data()
14.         cmd.Connection = cn
15.         cmd.CommandText = “SELECT * FROM tb_guru”
16.         Dim rd As SqlDataReader = cmd.ExecuteReader
17.         Dim dt As New DataTable
18.         dt.Load(rd)
19.         DataGridView1.DataSource = dt
20.     End Sub
22.     Sub kodeotomatis()
23.         Dim kodeauto As Single
24.         cmd.Connection = cn
25.         cmd.CommandText = “SELECT COUNT(*) AS kode_guru FROM tb_guru”
26.         Dim rd As SqlDataReader = cmd.ExecuteReader
27.         While rd.Read
28.             kodeauto = Val(rd.Item(“kode_guru”).ToString) + 1
29.         End While
31.         Select Case Len(Trim(kodeauto))
32.             Case 1 : txtkode.Text = “G00” + Trim(Str(kodeauto))
33.             Case 2 : txtkode.Text = “G0” + Trim(Str(kodeauto))
34.             Case 2 : txtkode.Text = “G” + Trim(Str(kodeauto))
35.         End Select
36.         rd.Close()
37.         cn.Close()
38.     End Sub
40.     Sub bersih()
41.         txtkode.Text = “”
42.         txtnip.Text = “”
43.         txtnama.Text = “”
44.         rbl.Checked = False
45.         rbp.Checked = False
46.         txthp.Text = “”
47.         txtalamat.Text = “”
48.     End Sub
50.     Sub hiden()
51.         txtkode.Enabled = False
52.         txtnip.Enabled = False
53.         txtnama.Enabled = False
54.         rbl.Enabled = False
55.         rbp.Enabled = False
56.         txthp.Enabled = False
57.         txtalamat.Enabled = False
58.         btnsimpan.Enabled = False
59.         btnedit.Enabled = False
60.         btnbatal.Enabled = False
61.     End Sub
63.     Sub tampil()
64.         txtkode.Enabled = True
65.         txtnip.Enabled = True
66.         txtnama.Enabled = True
67.         rbl.Enabled = True
68.         rbp.Enabled = True
69.         txthp.Enabled = True
70.         txtalamat.Enabled = True
71.         btnsimpan.Enabled = True
72.         btnedit.Enabled = True
73.         btnbatal.Enabled = True
74.     End Sub
75. End Class

     – Klik Double di formnya langsung masukkan code dibawah ini:

1. Private Sub FrmGuru_Load(sender As Object, e As EventArgs) Handles MyBase.Load
2.         koneksi()
3.         tampil_data()
4.         hiden()
5. End Sub

    – Klik Tambah di formnya langsung masukkan code dibawah ini:

1.     Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
2.         kodeotomatis()
3.         tampil()
4.     End Sub

   – Klik Simpan di formnya langsung masukkan code dibawah ini:

1. Private Sub btnsimpan_Click(sender As Object, e As EventArgs) Handles btnsimpan.Click
2.         Dim jenkel As String
3.         If rbp.Checked Then
4.             jenkel = “Perempuan”
5.         ElseIf rbl.Checked Then
6.             jenkel = “Laki-Laki”
7.         End If
9.         cn.Open()
10.         cmd.Connection = cn
11.         cmd.CommandText = “INSERT INTO tb_guru VALUES(‘” & txtkode.Text & “‘,'” & txtnip.Text & “‘,'” & txtnama.Text & “‘,'” & jenkel & “‘,'”& txthp.Text & “‘,'” & txtalamat.Text & “‘)”
12.         cmd.ExecuteNonQuery()
13.         MessageBox.Show(“Data Guru Berhasil Tersimpan”)
14.         tampil_data()
15.         bersih()
16.         hiden()
17.     End Sub

    – Klik Edit di formnya langsung masukkan code dibawah ini:

1. Private Sub btnedit_Click(sender As Object, e As EventArgs) Handles btnedit.Click
2.         Dim jenkel As String
3.         If rbp.Checked Then
4.             jenkel = “Perempuan”
5.         ElseIf rbl.Checked Then
6.             jenkel = “Laki-Laki”
7.         End If
9.         cmd.Connection = cn
10.         cmd.CommandText = “UPDATE tb_guru SET NIP='” & txtnip.Text & “‘, nama ='” & txtnama.Text & “‘, jenkel ='” & jenkel & “‘, no_hp ='” &txthp.Text & “‘, alamat ='” & txtalamat.Text & “‘ WHERE kode_guru='” & txtkode.Text & “‘”
11.         cmd.ExecuteNonQuery()
12.         MessageBox.Show(“Data Guru Berhasil Diubah”)
13.         tampil_data()
14.         bersih()
15.         hiden()
16.     End Sub

    – Klik Hapus di formnya langsung masukkan code dibawah ini:

1.   Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
2.         Dim baris As Integer
3.         Dim id As String
5.         baris = DataGridView1.CurrentCell.RowIndex
6.         id = DataGridView1(0, baris).Value.ToString
8.         cmd.Connection = cn
9.         cmd.CommandText = “DELETE FROM tb_guru WHERE kode_guru='” + id + “‘”
10.         cmd.ExecuteNonQuery()
11.         MessageBox.Show(“Data Guru Berhasil dihapus”)
12.         tampil_data()
14.     End Sub

    – Klik Batal di formnya langsung masukkan code dibawah ini:

1. Private Sub btnbatal_Click(sender As Object, e As EventArgs) Handles btnbatal.Click
2.         bersih()
3.     End Sub

    – Klik Datagridview di formnya langsung masukkan code dibawah ini:

1. Private Sub DataGridView1_DoubleClick(sender As Object, e As EventArgs) Handles DataGridView1.DoubleClick
2.         tampil()
4.         txtkode.Text = DataGridView1.SelectedCells(0).Value
5.         txtnip.Text = DataGridView1.SelectedCells(1).Value
6.         txtnama.Text = DataGridView1.SelectedCells(2).Value
8.         If DataGridView1.SelectedCells(3).Value = “Perempuan” Then
9.             rbp.Checked = True
10.         ElseIf DataGridView1.SelectedCells(3).Value = “Laki-Laki” Then
11.             rbl.Checked = True
12.         Else
13.             rbp.Checked = False
14.             rbl.Checked = False
15.         End If
17.         txthp.Text = DataGridView1.SelectedCells(4).Value
18.         txtalamat.Text = DataGridView1.SelectedCells(5).Value
19.     End Sub

Jika sudah, coba tes untuk menjalankan form guru.

Untuk contoh desain form yang lain seperti dibawah ini:

Desain Form Informasi

Desain Form Jadwal Eskul

Desain Form Kelas

Desain Form Mata Eskul

Untuk kodenya sama saja seperti diatas hanya saja menyesuaikan field yang ada di database yang sesuai dengan tabelnya, dan harus memperhatikan penggunaan toolbox.

code untuk relasi combobox, seperti yang ada pada form jadwal eskul

1. Sub mataeskul()
2.         cmd = New SqlCommand(“select kode_me from tb_mataeskul”, cn)
3.         Dim rd As SqlDataReader = cmd.ExecuteReader
4.         While rd.Read()
5.             cbmata.Items.Add(rd(“kode_me”))
6.         End While
7.         cbmata.SelectedIndex = 0
8.         rd.Close()
9. End Sub

Lalu mataeskul tersbut panggil di Form Loadnya.

Code untuk script cari:

1. Sub kategori()
2.         cbkategori.Items.Add(“Kode Guru”)
3.         cbkategori.Items.Add(“Kode Kelas”)
4.     End Sub
6.     Sub cari()
7.         If cbkategori.Text = “Kode Guru” Then
8.             cmd.Connection = cn
9.             cmd.CommandText = “SELECT * FROM Vw_Eskul WHERE kode_guru Like ‘%” & txtcari.Text & “%'”
10.             Dim rd As SqlDataReader = cmd.ExecuteReader
11.             Dim dt As New DataTable
12.             dt.Load(rd)
13.             DataGridView1.DataSource = dt
14.         ElseIf cbkategori.Text = “Kode Kelas” Then
15.             cmd.Connection = cn
16.             cmd.CommandText = “SELECT * FROM Vw_Eskul WHERE kode_kelas Like ‘%” & txtcari.Text & “%'”
17.             Dim rd As SqlDataReader = cmd.ExecuteReader
18.             Dim dt As New DataTable
19.             dt.Load(rd)
20.             DataGridView1.DataSource = dt
21.         End If
22.     End Sub
24.  Private Sub txtcari_TextChanged(sender As Object, e As EventArgs) Handles txtcari.TextChanged
25.         cari()
26.     End Sub

Jika sudah semuanya selesai jalankan aplikasi dengan tekan tombol F5.

#PESAN:
   ” Disaat pembuatan aplikasi kita harus konsisten untuk pemilihan bahasa, jangan menggunakan bahasa yang campur-campun karena itu akan mengurangi fungsi dari aplikasi tersebut “.