Wednesday, 20 May 2015

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

2. Tabel Jadwal

Tabel Jadwal


3. Tabel Kelas

Tabel Kelas

4. Tabel Mata Eskul

Tabel Mata Eskul

5. Kita Membuat View 

View Untuk Informasi Jadwal


Langkah Kedua :
       Buka Visual Studio 2012, lalu buat project baru dengan klik New Project -> Beri nama "AppJadwalEskul" lalu OK.
di aplikasi ini kita membutuhkan 5 Form, buat form berikut seperti dibawah ini:

Buat Project Baru

Form 1 untuk Form Guru, desain form sesuai kebutuhan:

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:


setelah selesai memeberi nama langsung masukkan kode dibawah ini:

     -Klik kanan di form-> View code atau bisa langsung tekan F7, lalu masukkan kode dibawah ini

  1. Imports System.Data.SqlClient
  2. Public Class FrmGuru
  3.     Dim cn As New SqlConnection
  4.     Dim cmd As New SqlCommand
  5.     Sub koneksi()
  6.         cn.ConnectionString = "Data Source=RISTIOKTAVIANI\RISTI;Initial Catalog=DbJadwalEskul;Integrated Security=True"
  7.         If cn.State = ConnectionState.Closed Then
  8.             cn.Open()
  9.         End If
  10.     End Sub
  11.     Sub tampil_data()
  12.         cmd.Connection = cn
  13.         cmd.CommandText = "SELECT * FROM tb_guru"
  14.         Dim rd As SqlDataReader = cmd.ExecuteReader
  15.         Dim dt As New DataTable
  16.         dt.Load(rd)
  17.         DataGridView1.DataSource = dt
  18.     End Sub
  19.     Sub kodeotomatis()
  20.         Dim kodeauto As Single
  21.         cmd.Connection = cn
  22.         cmd.CommandText = "SELECT COUNT(*) AS kode_guru FROM tb_guru"
  23.         Dim rd As SqlDataReader = cmd.ExecuteReader
  24.         While rd.Read
  25.             kodeauto = Val(rd.Item("kode_guru").ToString) + 1
  26.         End While
  27.         Select Case Len(Trim(kodeauto))
  28.             Case 1 : txtkode.Text = "G00" + Trim(Str(kodeauto))
  29.             Case 2 : txtkode.Text = "G0" + Trim(Str(kodeauto))
  30.             Case 2 : txtkode.Text = "G" + Trim(Str(kodeauto))
  31.         End Select
  32.         rd.Close()
  33.         cn.Close()
  34.     End Sub
  35.     Sub bersih()
  36.         txtkode.Text = ""
  37.         txtnip.Text = ""
  38.         txtnama.Text = ""
  39.         rbl.Checked = False
  40.         rbp.Checked = False
  41.         txthp.Text = ""
  42.         txtalamat.Text = ""
  43.     End Sub
  44.     Sub hiden()
  45.         txtkode.Enabled = False
  46.         txtnip.Enabled = False
  47.         txtnama.Enabled = False
  48.         rbl.Enabled = False
  49.         rbp.Enabled = False
  50.         txthp.Enabled = False
  51.         txtalamat.Enabled = False
  52.         btnsimpan.Enabled = False
  53.         btnedit.Enabled = False
  54.         btnbatal.Enabled = False
  55.     End Sub
  56.     Sub tampil()
  57.         txtkode.Enabled = True
  58.         txtnip.Enabled = True
  59.         txtnama.Enabled = True
  60.         rbl.Enabled = True
  61.         rbp.Enabled = True
  62.         txthp.Enabled = True
  63.         txtalamat.Enabled = True
  64.         btnsimpan.Enabled = True
  65.         btnedit.Enabled = True
  66.         btnbatal.Enabled = True
  67.     End Sub
  68. 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
  8.         cn.Open()
  9.         cmd.Connection = cn
  10.         cmd.CommandText = "INSERT INTO tb_guru VALUES('" & txtkode.Text & "','" & txtnip.Text & "','" & txtnama.Text & "','" & jenkel & "','"& txthp.Text & "','" & txtalamat.Text & "')"
  11.         cmd.ExecuteNonQuery()
  12.         MessageBox.Show("Data Guru Berhasil Tersimpan")
  13.         tampil_data()
  14.         bersih()
  15.         hiden()
  16.     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
  8.         cmd.Connection = cn
  9.         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 & "'"
  10.         cmd.ExecuteNonQuery()
  11.         MessageBox.Show("Data Guru Berhasil Diubah")
  12.         tampil_data()
  13.         bersih()
  14.         hiden()
  15.     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
  4.         baris = DataGridView1.CurrentCell.RowIndex
  5.         id = DataGridView1(0, baris).Value.ToString
  6.         cmd.Connection = cn
  7.         cmd.CommandText = "DELETE FROM tb_guru WHERE kode_guru='" + id + "'"
  8.         cmd.ExecuteNonQuery()
  9.         MessageBox.Show("Data Guru Berhasil dihapus")
  10.         tampil_data()
  11.     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()
  3.         txtkode.Text = DataGridView1.SelectedCells(0).Value
  4.         txtnip.Text = DataGridView1.SelectedCells(1).Value
  5.         txtnama.Text = DataGridView1.SelectedCells(2).Value
  6.         If DataGridView1.SelectedCells(3).Value = "Perempuan" Then
  7.             rbp.Checked = True
  8.         ElseIf DataGridView1.SelectedCells(3).Value = "Laki-Laki" Then
  9.             rbl.Checked = True
  10.         Else
  11.             rbp.Checked = False
  12.             rbl.Checked = False
  13.         End If
  14.         txthp.Text = DataGridView1.SelectedCells(4).Value
  15.         txtalamat.Text = DataGridView1.SelectedCells(5).Value
  16.     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
  5.     Sub cari()
  6.         If cbkategori.Text = "Kode Guru" Then
  7.             cmd.Connection = cn
  8.             cmd.CommandText = "SELECT * FROM Vw_Eskul WHERE kode_guru Like '%" & txtcari.Text & "%'"
  9.             Dim rd As SqlDataReader = cmd.ExecuteReader
  10.             Dim dt As New DataTable
  11.             dt.Load(rd)
  12.             DataGridView1.DataSource = dt
  13.         ElseIf cbkategori.Text = "Kode Kelas" Then
  14.             cmd.Connection = cn
  15.             cmd.CommandText = "SELECT * FROM Vw_Eskul WHERE kode_kelas Like '%" & txtcari.Text & "%'"
  16.             Dim rd As SqlDataReader = cmd.ExecuteReader
  17.             Dim dt As New DataTable
  18.             dt.Load(rd)
  19.             DataGridView1.DataSource = dt
  20.         End If
  21.     End Sub
  22.  Private Sub txtcari_TextChanged(sender As Object, e As EventArgs) Handles txtcari.TextChanged
  23.         cari()
  24.     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 ".

No comments:

Post a Comment