Pertama kita buat databasenya menggunakan SQL SERVER Management , buat nama dbnya kasih aja "ekskul"
sebagai catatan , ingat yah , di post ini ane beri judul "belajar" , jadi kalian harus experiment sendiri , karena ane hanya memberi 1 contoh form lengkap dengan kode , sisanya biar kalian yang mencari.
trus bikin deh desain tablenya seperti dibawah ini
tb_guru
tb_mata_ekskul
tb_kelas
tb_jadwal
Setelah itu , kita buka Visual Studio 2012 , buat project lalu kasih nama "Jadwal Ekskul"
di Form 1 , kalian desainkan seperti dibawah ini . Untuk yg ditengah , kalian pasang panel saja , dan yang di sisi sebelah kiri , itu semua button. sisanya adalah lable.
setelah itu , buat folder di project kalian , terus beri nama "tampil". Hanya untuk memudahkan kita membuat program , tapi seterah kalian saja.
untuk membuatnya , klik kanan di JadwalEkskul lalu pilih add -> new folder
jika sudah , lalu kalian buat formnya seperti gambar diatas didalam folder tampil . selanjutnya , kita ambil 1 contoh form yaitu form guru. desain form gurunya seperti dibawah
Jika Sudah , lalu tambahkan script seperti dibawah
Imports System.Data.SqlClient
Public Class guru_tampil
Private Sub guru_tampil_Load(sender As Object, e As EventArgs) Handles MyBase.Load
opentable()
End Sub
Private Sub txtcari_TextChanged(sender As Object, e As EventArgs) Handles txtcari.TextChanged
Call opentable()
End Sub
Sub opentable()
If txtcari.Text = "" Then
cmd.Connection = cn
cmd.CommandText = "SELECT * FROM tb_guru"
Else
cmd.Connection = cn
cmd.CommandText = "SELECT * FROM tb_guru WHERE nama LIKE '%" & txtcari.Text & "%' "
End If
Dim temp_read As SqlDataReader = cmd.ExecuteReader
Dim tampil_guru As New DataTable
tampil_guru.Load(temp_read)
dgv_guru.DataSource = tampil_guru
dgv_guru.Columns(0).HeaderText = "Kode Guru"
dgv_guru.Columns(1).HeaderText = "Nama Guru"
dgv_guru.Columns(2).HeaderText = "Alamat"
dgv_guru.Columns(3).HeaderText = "No Telp"
End Sub
Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
guru_input.Show()
guru_input.autonumber()
End Sub
Private Sub dgv_guru_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_guru.CellContentDoubleClick
guru_input.txtkode.Text = dgv_guru.SelectedCells(0).Value
guru_input.txtnama.Text = dgv_guru.SelectedCells(1).Value
guru_input.txtalamat.Text = dgv_guru.SelectedCells(2).Value
guru_input.txtno.Text = dgv_guru.SelectedCells(3).Value
guru_input.btntambah.Text = "Ubah"
guru_input.Show()
End Sub
End Class
Lalu , kalian buat folder input , dan isi dalam folder seperti gambar dibawah
Lalu buka guru_input , dan desainkan seperti dibawah ini
setelah itu beri script
Public Class guru_input
Dim auto As New DataTable
Sub autonumber()
cmd.Connection = cn
cmd.CommandText = "SELECT kode_guru FROM tb_guru ORDER BY kode_guru DESC"
auto.Load(cmd.ExecuteReader)
If auto.Rows.Count = 0 Then
txtkode.Text = 1
Else
With auto.Rows(0)
txtkode.Text = .Item("kode_guru")
txtkode.Focus()
End With
txtkode.Text = txtkode.Text + 1
End If
End Sub
Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
If btntambah.Text = "Tambah" Then
Try
cmd.Connection = cn
cmd.CommandText = "INSERT INTO tb_guru VALUES ('" & txtkode.Text &
"','" & txtnama.Text &
"','" & txtalamat.Text &
"','" & txtno.Text & "')"
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Ditambah")
Call guru_tampil.opentable()
Catch ex As Exception
MsgBox("Data Gagal Ditambah")
End Try
Else
Try
cmd.Connection = cn
cmd.CommandText = "UPDATE tb_guru SET kode_guru = '" & txtkode.Text &
"' , nama = '" & txtnama.Text &
"' , alamat = '" & txtalamat.Text &
"' , no_telp = '" & txtno.Text &
"' WHERE kode_guru = '" & txtkode.Text & "' "
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Diedit")
Call guru_tampil.opentable()
Catch ex As Exception
MsgBox("Data Gagal Diedit")
End Try
End If
End Sub
Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
Try
cmd.Connection = cn
cmd.CommandText = "DELETE FROM tb_guru WHERE kode_guru = '" & txtkode.Text & "' "
cmd.ExecuteNonQuery()
MsgBox("Data Berhasil Dihapus")
Call guru_tampil.opentable()
Catch ex As Exception
MsgBox("Data Gagal Dihapus")
End Try
End Sub
Private Sub btnkembali_Click(sender As Object, e As EventArgs) Handles btnkembali.Click
Me.Close()
End Sub
End Class
Jika , sudah , maka coba
Sekian dari post saya , mohon maaf apabila kurang jelas . Nanti akan saya perjelas di post selanjutnya , setelah saya melengkapi program saya agar menjadi "jadwal ekskul" yang benar (menururt saya sih) , dan nanti akan saya upload kan juga source codenya .
Sampai ketemu lagi sobat :)
