SISTEM INFORMASI DATA SISWA DAN PENILAIAN SISWA PADA SEKOLAH SMA AL-WASHLIAYAH 3 MEDAN

LISTING PROGRAM GURU

Imports System.Data.OleDb

Public Class Guru

    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:\TA\TAA.mdb”

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub TampilGuru()

        adp = New OleDbDataAdapter(“SELECT * FROM Guru”, DB)

        ds = New DataSet

        adp.Fill(ds, “Guru”)

        DataGridView1.DataSource = ds.Tables(“Guru”)

    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()

        Kode.Text = “”

        Nama.Text = “”

        Nip.Text = “”

        Tempat_lahir.Text = “”

        Tanggal_lahir.Text = “”

        Jenis_kelamin.Text = “”

        Pendidikan.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 Guru Where Kode='” & Kode.Text & “‘”

        cmd = New OleDbCommand(sql, DB)

        cmd.ExecuteNonQuery()

        Call Btn_hapus_Click(sender, e)

        Call TampilGuru()

    End Sub

    Private Sub Btn_baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_baru.Click

        Call HapusText()

        Kode.Focus()

    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 Guru_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call Opendb()

        Call Tampilguru()

    End Sub

    Private Sub Btn_batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_batal.Click

        Call Opendb()

        Call Tampilguru()

    End Sub

    Private Sub Btn_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_edit.Click

        sql = “UPDATE V SET Nama='” & Nama.Text & “‘,” & _

                                     ” Nip='” & Nip.Text & “‘,” & _

                                      ” Tempat_Lahir='” & Tempat_lahir.Text & “‘,” & _

                                       ” Tanggal_Lahir='” & Tanggal_lahir.Text & “‘,” & _

                                        “Jenis_Kelamin='” & Jenis_kelamin.Text & “‘,” & _

                                     ” Pendidikan='” & Pendidikan.Text & “‘ ” & _

                                     ” Where Kode='” & Kode.Text & “‘”

        cmd = New OleDbCommand(sql, DB)

        cmd.ExecuteNonQuery()

        Call Btn_baru_Click(sender, e)

        Call TampilGuru()

    End Sub

    Private Sub Btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_simpan.Click

        sql = “INSERT INTO guru(Kode, Nama,Nip, Tempat_Lahir,Tanggal_Lahir,Jenis_Kelamin,Pendidikan,) ” & _

                     ” values(‘” & Kode.Text & “‘,'” & _

                                   Nama.Text & “‘,'” & _

                                   Nip.Text & “‘,'” & _

                                   Tempat_lahir.Text & “‘,'” & _

                                   Tanggal_lahir.Text & “‘,'” & _

                                   Jenis_kelamin.Text & “‘,'” & _

                                   Pendidikan.Text & “‘)”

        cmd = New OleDbCommand(sql, DB)

        cmd.ExecuteNonQuery()

        Call Btn_baru_Click(sender, e)

        Call TampilGuru()

    End Sub

    Private Sub Kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kode.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            sql = “SELECT *FROM Guru Where Kode='” & Kode.Text & “‘”

            cmd = New OleDbCommand(sql, DB)

            DR = cmd.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                Nama.Text = DR(“Nama”)

                Nip.Text = DR(“Nip”)

                Tempat_lahir.Text = DR(“Tempat_Lahir”)

                Tanggal_lahir.Text = (“Tanggal_Lahir”)

                Jenis_kelamin.Text = DR.Item(“Jenis_Kelamin”)

                Pendidikan.Text = DR(“Pendidikan”)

                Call btnedit()

                MsgBox(“DATA DITEMUKAN !”)

            Else

                xkode = Kode.Text

                Call HapusText()

                Kode.Text = xkode

                Call btnsimpan()

            End If

            Nama.Focus()

        End If

    End Sub

End Class

LISTING PROGRAM SISWA

Imports System.Data.OleDb

Public Class siswa

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DR As OleDbDataReader

    Public DS As New DataSet

    Dim 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 TampilSiswa()

        ADP = New OleDbDataAdapter(“SELECT * FROM Siswa”, DB)

        DS = New DataSet

        ADP.Fill(DS, “Siswa”)

        DataGridView1.DataSource = DS.Tables(“Siswa”)

    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 = “”

        Jenis_kelamin.Text = “”

        Kelas.Text = “”

        Tahun.Text = “”

        Tempat_l.Text = “”

        Tanggal_l.Text = “”

        Alamat.Text = “”

        Nama_ayah.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 Siswa Where Nis='” & Nis.Text & “‘”

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btn_baru_Click(sender, e)

        Call TampilSiswa()

    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_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click

        Me.Close()

    End Sub

    Private Sub siswa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call Opendb()

        Call TampilSiswa()

    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_edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_edit.Click

        SQL = “UPDATE Siswa SET Nama='” & Nama.Text & “‘,” & _

                                     ” Jenis_Kelamin='” & Jenis_kelamin.Text & “‘,” & _

                                      ” Kelas='” & Kelas.Text & “‘,” & _

                                       ” Tahun_Pelajaran='” & Tahun.Text & “‘,” & _

                                        “Tempat_Lahir='” & Tempat_l.Text & “‘,” & _

                                         ” Tanggal_Lahir='” & Tanggal_l.Text & “‘,” & _

                                          ” Alamat='” & Alamat.Text & “‘,” & _

                                     ” Nama_Ayah='” & Nama_ayah.Text & “‘ ” & _

                                     ” Where Nis='” & Nis.Text & “‘”

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Btn_baru_Click(sender, e)

        Call TampilSiswa()

    End Sub

    Private Sub Btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_simpan.Click

        SQL = “INSERT INTO Siswa(Nis, Nama, Jenis_Kelamin,Kelas,Tahun_Pelajaran,Tempat_Lahir,Tanggal_lahir,Alamat,Nama_Ayah) ” & _

                       ” values(‘” & Nis.Text & “‘,'” & _

                                     Nama.Text & “‘,'” & _

                                     Jenis_kelamin.Text & “‘,'” & _

                                     Kelas.Text & “‘,'” & _

                                     Tahun.Text & “‘,'” & _

                                     Tempat_l.Text & “‘,'” & _

                                     Tanggal_l.Text & “‘,'” & _

                                     Alamat.Text & “‘,'” & _

                                     Nama_ayah.Text & “‘)”

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call Btn_baru_Click(sender, e)

        Call TampilSiswa()

    End Sub

    Private Sub Nis_KeyPress(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 Siswa Where Nis='” & Nis.Text & “‘”

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                Nama.Text = DR(“Nama”)

                Jenis_kelamin.Text = DR(“Jenis_Kelamin”)

                Kelas.Text = DR(“Kelas”)

                Tahun.Text = DR(“Tahun_Pelajaran”)

                Tempat_l.Text = (“Tempat_Lahir”)

                Tanggal_l.Text = DR.Item(“Tanggal_Lahir”)

                Alamat.Text = DR(“Alamat”)

                Nama_ayah.Text = DR(“Nama_Ayah”)

                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