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

LISTING PROGRAM MENU

Public Class Menu

    Private Sub SiswaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SiswaToolStripMenuItem.Click

        siswa.Show()

    End Sub

    Private Sub GuruToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuruToolStripMenuItem.Click

        Guru.Show()

    End Sub

    Private Sub PelajaranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PelajaranToolStripMenuItem.Click

        Pelajaran.Show()

    End Sub

    Private Sub NilaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NilaiToolStripMenuItem.Click

        Nilai.Show()

    End Sub

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click

        Me.Close()

    End Sub

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click

        Dim laporan As New rptguru

        Form2.CrystalReportViewer1.ReportSource = laporan

        Form2.Show()

    End Sub

    Private Sub LPELAJARANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LPELAJARANToolStripMenuItem.Click

        Dim laporan As New rptpelajaran

        Form4.CrystalReportViewer1.ReportSource = laporan

        Form4.Show()

    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click

        Dim laporan As New rptsiswa

        Form1.CrystalReportViewer1.ReportSource = laporan

        Form1.Show()

    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click

        Dim laporan As New rptrelasi

        Form5.CrystalReportViewer1.ReportSource = laporan

        Form5.Show()

    End Sub

    Private Sub LNILAIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LNILAIToolStripMenuItem.Click

        Dim laporan As New rptnilai

        Form3.CrystalReportViewer1.ReportSource = laporan

        Form3.Show()

    End Sub

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

    End Sub

End Class

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

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

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

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

SEMUA LAPORAN

Yuk…!! Belajar Pemrograman Visual Basik Dot Net Di Mesran.net

Sistem informasi data siswa dan penilaian siswa pada sekolah SMA AL-WASHLIYA 3 MEDAN

 Private Sub GURUToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GURUToolStripMenuItem.Click

        form3.Show()

    End Sub

    Private Sub KELUARPROGRAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARPROGRAMToolStripMenuItem.Click

        End

    End Sub

    Private Sub LAPORANGURUToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPORANGURUToolStripMenuItem.Click

        Dim laporan As New Rptguru

        cetak.CrystalReportViewer1.ReportSource = laporan

        cetak.Show()

    End Sub

End Class

Public Class Form2

Imports MySql.Data.MySqlClient

Public Class form3

    Public DB As New MySql.Data.MySqlClient.MySqlConnection

    Public SQL As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Public Sub Opendb()

        SQL = “server=localhost;uid=root;pwd;database=dbguru”

        Try

            DB.ConnectionString = SQL

            DB.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        Kode.Text = “”

        Nama.Text = “”

        Nip.Text = “”

        Tempat_lahir.Text = “”

        Tanggal_lahir.Text = “”

        Jenis_kelamin.Text = “”

        pendidikan.Text = “”

    End Sub

    Sub RUBAHBUTTON(ByVal Btn1 As Boolean, ByVal Btn2 As Boolean, ByVal Btn3 As Boolean, ByVal Btn4 As Boolean, ByVal Btn5 As Boolean, ByVal Btn6 As Boolean)

        Btn_baru.Enabled = Btn1

        Btn_simpan.Enabled = Btn2

        Btn_edit.Enabled = Btn3

        Btn_hapus.Enabled = Btn4

        Btn_Batal.Enabled = Btn5

        Btn_keluar.Enabled = Btn6

    End Sub

    Sub buattabel()

        Lv.Columns.Add(“kode”, 80, HorizontalAlignment.Center)

        lv.Columns.Add(“nama”, 180, HorizontalAlignment.Left)

        LV.Columns.Add(“Nip”, 80, HorizontalAlignment.Left)

        LV.Columns.Add(“Tempat_lahir”, 80, HorizontalAlignment.Left)

        LV.Columns.Add(“Tanggal_lahir”, 180, HorizontalAlignment.Left)

        LV.Columns.Add(“Jenis_kelamin”, 80, HorizontalAlignment.Left)

        LV.Columns.Add(“Pendidikan”, 180, HorizontalAlignment.Left)

        lv.GridLines = True

        lv.FullRowSelect = True

        lv.View = View.Details

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        SQL = “select * from guru”

        cmd = New MySqlCommand(SQL, DB)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim ist As New ListViewItem

                ist.Text = rs(“Kode”)

                ist.SubItems.Add(rs(“Nama”))

                ist.SubItems.Add(rs(“Nip”))

                ist.SubItems.Add(rs(“Tempat lahir”))

                ist.SubItems.Add(rs(“Tanggal lahir”))

                ist.SubItems.Add(rs(“Jenis kelamin”))

                ist.SubItems.Add(rs(“Pendidikan”))

                LV.Items.Add(ist)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = “”

        Select Case log

            Case 0

                SQL = “insert into pesanan(kode, nama, harga)” & _

                      “values (‘” & Kode.Text & _

                      “‘,'” & Nama.Text & _

                      “‘,'” & Nip.Text & _

                      “‘,'” & Tempat_lahir.Text & _

                      “‘,'” & Tanggal_lahir.Text & _

                      “‘,'” & Jenis_kelamin.Text & _

                      “‘,'” & pendidikan.Text & _

                pesan = “data telah disimpan”

            Case 1

                SQL = “update pesanan 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 & “‘”

                pesan = “telah di update”

            Case 2

                SQL = “delete from pesanan where kode='” & Kode.Text & “‘”

                pesan = “data telah dihapus”

        End Select

        Try

            cmd = New MySqlCommand(SQL, DB)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, “konfirmasi”)

            Call bersih()

            Call ISITABEL()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        Kode.Text = rs(“Kode”)

        Nama.Text = rs(“Nama”)

        Nip.Text = rs(“Nip”)

        Tempat_lahir.Text = rs(“Tempat_lahir”)

        Tanggal_lahir.Text = rs(“Tanggal_lahir”)

        Jenis_kelamin.Text = rs(“Jenis_kelamin”)

        pendidikan.Text = rs(“pendidikan”)

        RUBAHBUTTON(False, False, True, True, True, False)

        Btn_edit.Text = “”

        Kode.Enabled = False

    End Sub

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

        Call Opendb()

        Call bersih()

        Call ISITABEL()

        Call buattabel()

    End Sub

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

        Call bersih()

        Kode.Focus()

    End Sub

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

        If Btn_edit.Text = “edit” Then prosesdb(0) Else prosesdb(1)

    End Sub

    Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click

        Dim x As String

        x = MsgBox(“anda yakin ingin menghapus”, MsgBoxStyle.Information + MsgBoxStyle.YesNo, “hapus”)

        If x = vbYes Then

            Call prosesdb(2)

        End If

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

        Kode.Focus()

    End Sub

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

        If Btn_simpan.Text = “simpan” Then prosesdb(0) Else prosesdb(1)

    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)

        If tombol = 13 Then

            Dim x As String

            If Kode.Text = “” Then

                MsgBox(“isi kode terlebih dahulu”)

            Else

                SQL = “select* from guru where kode='” & Kode.Text & “‘”

                cmd = New MySqlCommand(SQL, DB)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = Kode.Text

                    bersih()

                    Kode.Text = x

                    RUBAHBUTTON(False, True, False, False, True, False)

                    Btn_simpan.Text = “”

                End Try

                Nama.Focus()

                rs.Close()

            End If

        End If

    End Sub

End Class

Form cetak

HASIL CETAKNYA

           Databasenya:

Microsoft Windows [Version 6.1.7600]

Copyright (c) 2009 Microsoft Corporation.  All rights reserved.

C:\Users\Ita>CD

C:\Users\Ita

C:\Users\Ita>CD\

C:\>cd apache\mysql\bin

C:\apache\mysql\bin>mysql

Welcome to the MySQL monitor.  Commands end with ; or \g.

Your MySQL connection id is 1 to server version: 3.23.47-max-debug

Type ‘help;’ or ‘\h’ for help. Type ‘\c’ to clear the buffer.

mysql> create database dbguru;

Query OK, 1 row affected (0.00 sec)

mysql> use dbguru;

Database changed

mysql> show databases;

+————–+

| Database     |

+————–+       |

| dbguru       |

| test         |

+————–+

14 rows in set (0.00 sec)

mysql> create table guru(

    -> kode char(10),

    -> nama char(50),

    -> nip char(20),

    -> tempat_lahir char(30),

    -> tanggal_lahir date,

    -> jenis_kelamin char(10),

    -> pendidikan char(30));

Query OK, 0 rows affected (0.00 sec)

mysql> insert into guru values

    -> (‘101′,’Fitri’,’1102064′,’Rempah’,’1993-04-02′,’Perempuan’,’D3′),

    -> (‘102′,’Ita’,’1102092′,’Kisaran’,’1992-11-06′,’Perempuan’,’D3′),

    -> (‘103′,’Sari’,’1102091′,’Medan’,’1992-11-18′,’Perempuan’,’D3′);

Query OK, 3 rows affected (0.00 sec)

Records: 3  Duplicates: 0  Warnings: 0

mysql> select * from guru;

+——+——-+———+————–+—————+—————+——-

—–+

| kode | nama  | nip     | tempat_lahir | tanggal_lahir | jenis_kelamin | pendid

ikan |

+——+——-+———+————–+—————+—————+——-

—–+

| 101  | Fitri | 1102064 | Rempah       | 1993-04-02    | Perempuan     | D3

     |

| 102  | Ita   | 1102092 | Kisaran      | 1992-11-06    | Perempuan     | D3

     |

| 103  | Sari  | 1102091 | Medan        | 1992-11-18    | Perempuan     | D3

     |

+——+——-+———+————–+—————+—————+———–+

3 rows in set (0.00 sec)

mysql> 

Demikilahlah postingan saya Nama : Ita Purnama Sari NPM : 1102091

Selamat Belajar VB Net