LISTING PROGRAM NILAI
Imports System.Data.OleDb
Public Class Nilai
Public DB As OleDbConnection
Public cmd As OleDbCommand
Public adp As OleDbDataAdapter
Public ds As New DataSet
Public DR As OleDbDataReader
Public sql As String
Public Sub Opendb()
Dim LOKASI = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\TAA\TAA.mdb”
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub
Sub TampilNilai()
adp = New OleDbDataAdapter(“SELECT * FROM Nilai”, DB)
ds = New DataSet
adp.Fill(ds, “Nilai”)
DataGridView1.DataSource = ds.Tables(“Nilai”)
End Sub
Sub btnbaru()
btn_baru.Enabled = True
btn_simpan.Enabled = False
btn_edit.Enabled = False
btn_hapus.Enabled = False
btn_batal.Enabled = False
btn_keluar.Enabled = True
End Sub
Sub btnedit()
btn_baru.Enabled = False
btn_simpan.Enabled = False
btn_edit.Enabled = True
btn_hapus.Enabled = True
btn_batal.Enabled = True
btn_keluar.Enabled = False
End Sub
Sub btnsimpan()
btn_baru.Enabled = False
btn_simpan.Enabled = True
btn_edit.Enabled = False
btn_hapus.Enabled = False
btn_batal.Enabled = True
btn_keluar.Enabled = False
End Sub
Sub HapusText()
Tahun_pelajaran.Text = “”
Semester.Text = “”
Nis.Text = “”
Nama.Text = “”
Kelas.Text = “”
Pelajaran.Text = “”
Guru.Text = “”
Nilaii.Text = “”
Call btnbaru()
End Sub
Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click
sql = “DELETE FROM Nilai Where Tahun_Pelajaran='” & Tahun_pelajaran.Text & “‘”
cmd = New OleDbCommand(sql, DB)
cmd.ExecuteNonQuery()
Call Btn_baru_Click(sender, e)
Call TampilNilai()
End Sub
Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_keluar.Click
Me.Close()
End Sub
Private Sub Nilai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Opendb()
Call TampilNilai()
End Sub
Private Sub Tahun_pelajaran_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Dim Tombol As Integer = Asc(e.KeyChar)
Dim xkode As String
If Tombol = 13 Then
sql = “SELECT *FROM Nilai where Tahun_pelajaran='” & Tahun_pelajaran.Text & “‘”
cmd = New OleDbCommand(sql, DB)
DR = cmd.ExecuteReader
DR.Read()
If DR.HasRows = True Then
semester.Text = DR(“Semester”)
Nis.Text = DR(“Nis”)
Nama.Text = DR(“Nama”)
Kelas.Text = DR(“Kelas”)
Pelajaran.Text = DR(“Pelajaran”)
Guru.Text = DR(“Guru”)
Nilaii.Text = DR.Item(“Nilai”)
Call btnedit()
MsgBox(“Data ditemukan!! “)
Else
xkode = Tahun_pelajaran.Text
Call HapusText()
Tahun_pelajaran.Text = xkode
Call btnsimpan()
End If
semester.Focus()
End If
End Sub
Private Sub Btn_batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_batal.Click
Call HapusText()
Tahun_pelajaran.Focus()
End Sub
Private Sub Btn_baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_baru.Click
Call HapusText()
Tahun_pelajaran.Focus()
End Sub
Private Sub Btn_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_edit.Click
sql = “UPDATE Nilai SET Semester='” & semester.Text & “‘,” & _
” Nis='” & Nis.Text & “‘,” & _
” Nama='” & Nama.Text & “‘,” & _
” Kelas='” & Kelas.Text & “‘,” & _
“Pelajaran='” & Pelajaran.Text & “‘,” & _
” Guru='” & Guru.Text & “‘,” & _
” Nilai='” & Nilaii.Text & “‘ ” & _
” Where Tahun_Pelajaran='” & Tahun_pelajaran.Text & “‘”
cmd = New OleDbCommand(sql, DB)
cmd.ExecuteNonQuery()
Call Btn_baru_Click(sender, e)
Call TampilNilai()
End Sub
Private Sub Btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_simpan.Click
sql = “INSERT INTO Nilai(Tahun_Pelajaran, Semester, Nis,Nama,Kelas,Pelajaran,Guru,Nilai) ” & _
” values(‘” & Tahun_pelajaran.Text & “‘,'” & _
semester.Text & “‘,'” & _
Nis.Text & “‘,'” & _
Nama.Text & “‘,'” & _
Kelas.Text & “‘,'” & _
Pelajaran.Text & “‘,'” & _
Guru.Text & “‘,'” & _
Nilaii.Text & “‘)”
cmd = New OleDbCommand(sql, DB)
cmd.ExecuteNonQuery()
Call Btn_baru_Click(sender, e)
Call TampilNilai()
End Sub
End Class
LISTING PROGRAM PELAJARAN
Imports System.Data.OleDb
Public Class Pelajaran
Public DB As OleDbConnection
Public cmd As OleDbCommand
Public adp As OleDbDataAdapter
Public ds As New DataSet
Public DR As OleDbDataReader
Public sql As String
Public Sub Opendb()
Dim LOKASI = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source =C:\TAA\TAA.mdb”
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub
Sub TampilPelajaran()
adp = New OleDbDataAdapter(“SELECT * FROM Pelajaran”, DB)
ds = New DataSet
adp.Fill(ds, “Pelajaran”)
DataGridView1.DataSource = ds.Tables(“Pelajaran”)
End Sub
Sub btnbaru()
btn_baru.Enabled = True
btn_simpan.Enabled = False
btn_edit.Enabled = False
btn_hapus.Enabled = False
btn_batal.Enabled = False
btn_keluar.Enabled = True
End Sub
Sub btnedit()
btn_baru.Enabled = False
btn_simpan.Enabled = False
btn_edit.Enabled = True
btn_hapus.Enabled = True
btn_batal.Enabled = True
btn_keluar.Enabled = False
End Sub
Sub btnsimpan()
btn_baru.Enabled = False
btn_simpan.Enabled = True
btn_edit.Enabled = False
btn_hapus.Enabled = False
btn_batal.Enabled = True
btn_keluar.Enabled = False
End Sub
Sub HapusText()
Nis.Text = “”
nama.Text = “”
Kelas.Text = “”
Tahun_pelajaran.Text = “”
Semster.Text = “”
Call btnbaru()
End Sub
Private Sub Pelajaran_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Opendb()
Call HapusText()
Call TampilPelajaran()
End Sub
Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click
sql = “DELETE FROM Pelajaran Where Nis='” & Nis.Text & “‘”
cmd = New OleDbCommand(sql, DB)
cmd.ExecuteNonQuery()
Call Btn_baru_Click(sender, e)
Call TampilPelajaran()
End Sub
Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click
Me.Close()
End Sub
Private Sub Btn_batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_batal.Click
Call HapusText()
Nis.Focus()
End Sub
Private Sub Btn_baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_baru.Click
Call HapusText()
Nis.Focus()
End Sub
Private Sub Btn_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_edit.Click
sql = “UPDATE Pelajaran SET Nama='” & Nama.Text & “‘,” & _
“Kelas ='” & Kelas.Text & “‘,” & _
” Tahun_pelajaran='” & Tahun_pelajaran.Text & “‘ ” & _
“Semester ='” & Semster.Text & “‘,” & _
” Where Nis='” & Nis.Text & “‘”
cmd = New OleDbCommand(sql, DB)
cmd.ExecuteNonQuery()
Call Btn_baru_Click(sender, e)
Call TampilPelajaran()
End Sub
Private Sub Tahun_pelajaran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
sql = “SELECT *FROM Pelajaran where Tahun_Pelajaran='” & Tahun_pelajaran.Text & “‘”
cmd = New OleDbCommand(sql, DB)
DR = cmd.ExecuteReader
If DR.HasRows Then
DR.Read()
Tahun_pelajaran.Text = DR(“Tahun_Pelajaran”)
End If
End Sub
Private Sub kode_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Nis.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
Dim xkode As String
If tombol = 13 Then
sql = “SELECT *FROM Pelajaran Where Nis='” & Nis.Text & “‘”
cmd = New OleDbCommand(sql, DB)
DR = cmd.ExecuteReader
DR.Read()
If DR.HasRows = True Then
Nama.Text = DR(“Nama”)
Kelas.Text = DR(“Kelas”)
Tahun_pelajaran.Text = DR(“Tahun_Pelajaran”)
Semster.Text = DR(“Semester”)
Call btnedit()
MsgBox(“DATA DITEMUKAN !”)
Else
xkode = Nis.Text
Call HapusText()
Nis.Text = xkode
Call btnsimpan()
End If
Nama.Focus()
End If
End Sub
End Class
Ita Purnama Sari 