Imports System.Data
Imports System.Data.OleDb
Public Class frmdata_jadwal_pelajaran
Dim Jadwal_Pelajaran As String
Dim SQL As String
Sub Data_Jadwal_pelajaran()
Try
Call Koneksi()
Tabel = New Data.OleDb.OleDbDataAdapter("select * from TblJadwalPelajaran", Database)
Data = New DataSet
Tabel.Fill(Data)
Record_Data_Jadwal_Pelajaran.DataSource = Data
Record_Data_Jadwal_Pelajaran.DataMember = Data.Tables(0).ToString
DataGridView1.DataSource = Record_Data_Jadwal_Pelajaran
DataGridView1.Columns(0).Width = 50
DataGridView1.Columns(1).Width = 50
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Sub Atur()
btntambah.Enabled = True
btnhapus.Enabled = False
btnubah.Enabled = False
cmbguru.Text = ""
cmbWaktu.Text = ""
CmbHari.Text = ""
cmbkelas.Text = ""
cmbmatapelajaran.Text = ""
Call Koneksi()
Call Data_Jadwal_pelajaran()
End Sub
Private Sub frmdata_jadwal_pelajaran_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Call Atur()
CmbHari.Items.Add("Senin")
CmbHari.Items.Add("Selasa")
CmbHari.Items.Add("Rabu")
CmbHari.Items.Add("Kamis")
CmbHari.Items.Add("Jum'at")
CmbHari.Items.Add("Sabtu")

Dim sql As String
sql = "select Pelajaran from TblMataPelajaran"
DML = New OleDbCommand(sql, Database)
Cari = DML.ExecuteReader
Do While Cari.Read
cmbmatapelajaran.Items.Add(Cari("Pelajaran"))
Loop

Dim ss As String
ss = "select Jam from TblBell"
DML = New OleDbCommand(ss, Database)
Cari = DML.ExecuteReader
Do While Cari.Read
cmbWaktu.Items.Add(Cari("Jam"))
Loop

Dim sq As String
sq = "select Nama_Kelas from TblDataKelas"
DML = New OleDbCommand(sq, Database)
Cari = DML.ExecuteReader
Do While Cari.Read
cmbkelas.Items.Add(Cari("Nama_Kelas"))
Loop

Dim sl As String
sl = "select Nama_Guru from TblGuru"
DML = New OleDbCommand(sl, Database)
Cari = DML.ExecuteReader
Do While Cari.Read
cmbguru.Items.Add(Cari("Nama_Guru"))
Loop
End Sub
Private Sub btntutup_Click(sender As Object, e As EventArgs) Handles btntutup.Click
Me.Close()
End Sub
Private Sub btntambah_Click(sender As Object, e As EventArgs) Handles btntambah.Click
Try
Call Koneksi()
DML.Connection = Database
DML.CommandType = CommandType.Text
DML.CommandText = "insert into TblJadwalPelajaran values ('" & CmbHari.Text & "', '" & cmbWaktu.Text & "', '" & cmbkelas.Text & "', '" & cmbmatapelajaran.Text & "', '" & cmbguru.Text & "')"
DML.ExecuteNonQuery()
MessageBox.Show("Data Telah Disimpan", "Penyimpanan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
Call Atur()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub

Private Sub btnhapus_Click(sender As Object, e As EventArgs) Handles btnhapus.Click
Try
Call Koneksi()
DML.Connection = Database
DML.CommandType = CommandType.Text
DML.CommandText = "Delete from TblJadwalPelajaran where Hari = '" & CmbHari.Text & "' and Waktu = '" & cmbWaktu.Text & "'"
DML.ExecuteNonQuery()
MessageBox.Show("Data Telah Dihapus", "Penghapusan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
Call Atur()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Private Sub btnubah_Click(sender As Object, e As EventArgs) Handles btnubah.Click
Try
Call Koneksi()
DML.Connection = Database
DML.CommandType = CommandType.Text
DML.CommandText = "Update TblJadwalPelajaran set Hari = '" & CmbHari.Text & "', Waktu = '" & cmbWaktu.Text & "', Kelas = '" & cmbkelas.Text & "', Mata_Pelajaran = '" & cmbmatapelajaran.Text & "', Guru = '" & cmbguru.Text & "' where Hari = '" & Jadwal_Pelajaran & "'"
DML.ExecuteNonQuery()
MessageBox.Show("Data Telah Diubah", "Pengubahan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
Call Atur()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Private Sub DataGridView1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
Try
CmbHari.Text = DataGridView1.SelectedCells(0).Value
cmbWaktu.Text = DataGridView1.SelectedCells(1).Value
cmbkelas.Text = DataGridView1.SelectedCells(2).Value
cmbguru.Text = DataGridView1.SelectedCells(3).Value
cmbmatapelajaran.Text = DataGridView1.SelectedCells(4).Value
Jadwal_Pelajaran = DataGridView1.SelectedCells(0).Value
btntambah.Enabled = False
btnhapus.Enabled = True
btnubah.Enabled = True
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub

End Class