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

Juni 30, 2013 by itapurnamas

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

Juni 30, 2013 by itapurnamas

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

Juni 30, 2013 by itapurnamas

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

Juni 30, 2013 by itapurnamas

SEMUA LAPORAN

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

Juni 2, 2013 by itapurnamas

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 Sub

End Class

Form cetak

HASIL CETAKNYA

Databasenya:

Microsoft Windows [Version 6.1.7600]

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;

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

—–+

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

Cara Membuat Blog di Blogger Dengan Mudah dan Cepat

Mei 25, 2013 by itapurnamas

Cara Membuat Blog. Bagi anda yang ingin sekali membuat blog, kali ini saya akan mencoba berbagi tips kepada anda bagaimana Cara Membuat Blog dengan mudah dan cepat. Sebenarnya banyak sekali situs yang menyediakan blog gratisan tersebut, namun saya disini menjelaskan membuat blog dengan menggunakan layanan dari blogger atau blogspot. Blogger ini salah satu layanan blog gratisan yang terbesar dan paling banyak penggunanya.

Sebenarnya membuat blog itu sangat mudah sekali seperti halnya membuat facebook maupunmembuat email. Dari pada banyak basa-basi langsung saja untuk melihat tutorialnya di bawah ini.

Pertama untuk memulai membuat blog silahkan untuk mengenjungi situs blogger.com. Setelah halamannya terbuka, silahkan anda cari tombol Sign Up di pojok kanan atas seperti contoh gambar dibawah ini

Kedua, kalau sudah di klik terus muncul form seperti gambar di bawah ini.

Name: Isi dengan nama anda.
Choose Your Username: Isikan username pilihan anda, ini nanti juga dibuat menjadi alamat email anda.
Birthday: Isi tanggal lahir, bulan dan tahun anda.
Gender: Kalau anda pria pilih yang male, kalau anda wanita pilih sebaliknya yakni yang female. Kalau anda masih belum yakin dengan gender anda, anda bisa memilih other hehehehe.
Mobile Phone: Isikan no handphone anda, nanti untuk dibuat verifikasi akun anda.
Your Current Email Address: Di kosongi juga tidak apa-apa
Lalu isi kode verifikasi seperti gambar diatas, kemudian centang untuk menyutujui pembuatan akun tersebut.
Kemudian tekan tombol next step.

Kemudian akan muncul gambar seperti dibawah ini, anda lewati saja dengan menekan tombol next step. Untuk mengunggah foto di akhir tahap juga bisa.

Kemudian muncul seperti gambar dibawah ini, langsung saja anda klik Back to Blogger.

NB: akhirrudinblog@gmail.com itu untuk masuk kedalam akun kita, jadi jangan sampai lupa dengan alamat email anda sendiri.

Jika anda melihat gambar seperti dibawah ini abaikan saja, untuk mempercepat proses pembuatan blog tersebut. Langsung saja untuk klik tombol Lanjutkan ke blogger.

Jika sudah menekan tombol lanjutkan ke blogger, anda akan masuk kedalam tampilan utama pada blogger. Di situ anda bisa melakukan apa saja untuk blog anda. Langsung saja membuat blog klik new blog atau blog baru seperti gambar di bawah ini.

Setelah memilih tombol new blog atau blog baru tadi, akan dibawa menuju halaman blog. Kemudian isi title atau judul blog dengan keinginan anda. Pada bagian address atau alamat, anda bisa mengisi alamat tersebut dengan keinginan anda, kalau sudah pilih template atau tema kesukaan anda. Contoh seperti gambar dibawah ini, jika sudah klik tombol create blog atau buat blog.

Selamat blog anda sudah berhasil di buat. Untuk mengisi artikel di blog anda, anda bisa mengeklik tombol gambar pensil seperti gambar dibawah ini.

Ok sampai disini dulu tutorial dari berita terkini mengenai Cara Membuat Blog, semoga artikel diatas bisa bermanfaat dan dapat membantu anda untuk membuat blog baru. Ikuti terus tutorial menarik lainnya seperti
Cara Membuat Blog di Blogger Dengan Mudah dan Cepat ini.

Cara Membuat Blog WordPress.Com

Mei 25, 2013 by itapurnamas

Jalankan browser Anda kemudian buka http://www.wordpress.com. Tunggu hingga muncul tampilan awal WordPress.com.
Klik Get Started
Isi formulir yang telah tersedia. Jangan lupa untuk mengganti email address-nya ya!!

kemudian klik Create Blog.
Selanjutnya Anda diminta untuk melakukan aktivasi blog dengan cara mengeklik link yang dikirimkan ke email Anda.
Klik link yang ada di pesan email Anda.
Setelah Anda klik link tersebut maka Anda akan langsung menuju suatu halaman. Klik Next Step.
Klik Next Step lagi.
Tahap selanjutnya kamu diminta untuk memberi Judul Blog, Tagline, dan Bahasa pada blog yang baru saja sobat buat. Klik Next Step.
Pilih satu tema yang menurut kamu cocok.
Klik Next Step lagi.
Tekan Finish. Sobat akan dialihkan ke halaman dashboard
Selesai.

Nah, itu tadi cara membuat blog wordpress.com. Cepat, mudah, instan, dan gratis. Selamat mencoba!

* klik gambar untuk memperbesar

Untukmu Ayah Untukmu Ibu

Mei 25, 2013 by itapurnamas

Kasihmu…sayangmu… selalu kau berikan padaku…

Kau banting tulangmu… kau peras keringatmu…
Namun kau selalu berusaha tersenyum didepanku…
Walau ku sering mendurhakaimu…
kau tak pernah berhenti memberi semua itu…
Kau pun tak pernah sedikitpun meminta balasan dariku…
Karena ku tau… kau lakukan semua itu…
Hanya untuk membuatku bahagia…
Kau cahaya hidupku…
kau pelita dalam setiap langkahku…
Maafkan…bila aku belum bisa membalas semua kebaikan yang telah kau berikan untukku…
Tetapi Aku berjanji… aku akan selalu berusaha dan berdo’a semampuku… untuk kebahagiaanmu di masa tua mu nanti…
Agar kau selalu tersenyum…….walaupun apa yang ku beri…tidak sebesar apa yang ku terima selama ini…

SISTEM INFO PENGGAJIAN (FORM BAGIAN DAN JABATAN)

Mei 8, 2013 by itapurnamas

PROGRAM SISTEM INFORMASI PENGGAJIAN KARYAWAN

Belajar Bahasa Pemrograman

Design Form Bagian

Listing Program

Imports System.Data.OleDb

Public Class Form3

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:\VB111\penjualan.mdb”

DB = New OleDbConnection(LOKASI)

If DB.State = ConnectionState.Closed Then

DB.Open()

End If

End Sub

Sub TampilRecordbagian()

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

DS = New DataSet

ADP.Fill(DS, “bagian”)

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

End Sub

Sub buttonbaru()

Btnbaru.Enabled = True

Btnsimpan.Enabled = False

Btnedit.Enabled = False

Btnhapus.Enabled = False

Btnbatal.Enabled = False

Btnkeluar.Enabled = True

End Sub

Sub buttonedit()

Btnbaru.Enabled = False

Btnsimpan.Enabled = False

Btnedit.Enabled = True

Btnhapus.Enabled = True

Btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub buttonsimpan()

Btnbaru.Enabled = False

Btnsimpan.Enabled = True

Btnedit.Enabled = False

Btnhapus.Enabled = False

Btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub HapusText()

kdbagian.Text = “”

nmbagian.Text = “”

Call buttonbaru()

End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

SQL = “DELETE *FROM bagian Where kdbagian='” & kdbagian.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Btnbaru_Click(sender, e)

Call TampilRecordbagian()

End Sub

Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbaru.Click

Call HapusText()

kdbagian.Focus()

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

Me.Close()

End Sub

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

Call Opendb()

Call HapusText()

Call TampilRecordbagian()

End Sub

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

Dim Tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

If Tombol = 13 Then

SQL = “SELECT *FROM bagian where kdbagian='” & kdbagian.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

DR = CMD.ExecuteReader

DR.Read()

If DR.HasRows = True Then

nmbagian.Text = DR(“nmbagian”)

Call buttonedit()

MsgBox(“Data ditemukan…! “)

Else

xkode = kdbagian.Text

Call HapusText()

kdbagian.Text = xkode

Call buttonsimpan()

End If

nmbagian.Focus()

End If

End Sub

Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click

Call HapusText()

kdbagian.Focus()

End Sub

Private Sub Btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnedit.Click

SQL = “UPDATE bagian SET nmbagian='” & nmbagian.Text & “‘ ” & _

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

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Btnbaru_Click(sender, e)

Call TampilRecordbagian()

End Sub

Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

SQL = “INSERT INTO bagian(kdbagian, nmbagian) ” & _

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

nmbagian.Text & “‘)”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Btnbaru_Click(sender, e)

Call TampilRecordbagian()

End Sub

End Class

Form Saat Program Di Jalankan

Design Form Jabatan

Listing Program

Imports System.Data.OleDb

Public Class Form2

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:\VB111\penjualan.mdb”

DB = New OleDbConnection(LOKASI)

If DB.State = ConnectionState.Closed Then

DB.Open()

End If

End Sub

Sub TampilRecordjabatan()

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

DS = New DataSet

ADP.Fill(DS, “jabatan”)

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

End Sub

Sub buttonbaru()

Btnbaru.Enabled = True

Btnsimpan.Enabled = False

Btnedit.Enabled = False

Btnhapus.Enabled = False

Btnbatal.Enabled = False

Btnkeluar.Enabled = True

End Sub

Sub buttonedit()

Btnbaru.Enabled = False

Btnsimpan.Enabled = False

Btnedit.Enabled = True

Btnhapus.Enabled = True

Btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub buttonsimpan()

Btnbaru.Enabled = False

Btnsimpan.Enabled = True

Btnedit.Enabled = False

Btnhapus.Enabled = False

Btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub HapusText()

kdjabatan.Text = “”

nmjabatan.Text = “”

Call buttonbaru()

End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

SQL = “DELETE *FROM jabatan Where kdjabatan='” & kdjabatan.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Btnbaru_Click(sender, e)

Call TampilRecordjabatan()

End Sub

Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbaru.Click

Call HapusText()

kdjabatan.Focus()

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

Me.Close()

End Sub

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

Call Opendb()

Call HapusText()

Call TampilRecordjabatan()

End Sub

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

Dim Tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

If Tombol = 13 Then

SQL = “SELECT *FROM jabatan where kdjabatan='” & kdjabatan.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

DR = CMD.ExecuteReader

DR.Read()

If DR.HasRows = True Then

nmjabatan.Text = DR(“nmjabatan”)

Call buttonedit()

MsgBox(“Data ditemukan…! “)

Else

xkode = kdjabatan.Text

Call HapusText()

kdjabatan.Text = xkode

Call buttonsimpan()

End If

nmjabatan.Focus()

End If

End Sub

Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click

Call HapusText()

kdjabatan.Focus()

End Sub

Private Sub Btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnedit.Click

SQL = “UPDATE jabatan SET nmjabatan='” & nmjabatan.Text & “‘ ” & _

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

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Btnbaru_Click(sender, e)

Call TampilRecordjabatan()

End Sub

Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

SQL = “INSERT INTO jabatan(kdjabatan, nmjabatan) ” & _

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

nmjabatan.Text & “‘)”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Btnbaru_Click(sender, e)

Call TampilRecordjabatan()

End Sub

End Class

Form Saat Program Di Jalankan

Sistem Informasi Pengajian karyawan

Mei 8, 2013 by itapurnamas

Program Sistem Informasi Form MENU Penggajian Karyawan

Belajar Bahasa Pemrograman

Design Form MENU

Listing Program

Public Class menu

Private Sub KaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaryawanToolStripMenuItem.Click

Form1.MdiParent = Me

Form1.Show()

End Sub

Private Sub JabatanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JabatanToolStripMenuItem.Click

Form2.MdiParent = Me

Form2.Show()

End Sub

Private Sub BagianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BagianToolStripMenuItem.Click

Form3.MdiParent = Me

Form3.Show()

End Sub

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

End

End Sub

End Class

Form Saat Program Di Jalankan

Design Form Karyawan

Listing Program

Imports System.Data.OleDb

Public Class Form1

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:\VB111\penjualan.mdb”

DB = New OleDbConnection(LOKASI)

If DB.State = ConnectionState.Closed Then

DB.Open()

End If

End Sub

Sub TampilRecordkaryawan()

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

DS = New DataSet

ADP.Fill(DS, “karyawan”)

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

End Sub

Sub buttonbaru()

Btnbaru.Enabled = True

Btnsimpan.Enabled = False

Btnedit.Enabled = False

Btnhapus.Enabled = False

Btnbatal.Enabled = False

Btnkeluar.Enabled = True

End Sub

Sub buttonedit()

Btnbaru.Enabled = False

Btnsimpan.Enabled = False

Btnedit.Enabled = True

Btnhapus.Enabled = True

Btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub buttonsimpan()

Btnbaru.Enabled = False

Btnsimpan.Enabled = True

Btnedit.Enabled = False

Btnhapus.Enabled = False

Btnbatal.Enabled = True

Btnkeluar.Enabled = False

End Sub

Sub HapusText()

Nik.Text = “”

Nama.Text = “”

Jabatan.Text = “”

Jkelamin.Text = “”

Bagian.Text = “”

Call buttonbaru()

End Sub

Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

SQL = “DELETE *FROM karyawan Where Nik='” & Nik.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Btnbaru_Click(sender, e)

Call TampilRecordkaryawan()

End Sub

Private Sub Btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbaru.Click

Call HapusText()

Nik.Focus()

End Sub

Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

Me.Close()

End Sub

Sub tampilkodeJabatan()

Jabatan.items.add.clear()

SQL = “select * from Jabatan”

CMD = New OleDbCommand(SQL, DB)

DR = CMD.ExecuteReader

While DR.Read

Jabatan.Items.Add(DR(“Jabatan”))

End While

DR.Close()

End Sub

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

Call Opendb()

Call HapusText()

Call TampilRecordkaryawan()

Call tampilkodejabatan()

End Sub

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

Dim Tombol As Integer = Asc(e.KeyChar)

Dim xkode As String

Dim xkd As String

If Tombol = 13 Then

SQL = “SELECT *FROM karyawan where Nik='” & Nik.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

DR = CMD.ExecuteReader

DR.Read()

If DR.HasRows = True Then

Nama.Text = DR.Item(1)

xkd = DR.Item(2)

Jkelamin.Text = DR.Item(3)

Bagian.Text = DR.Item(4)

Call buttonedit()

MsgBox(“Data ditemukan…! “)

Else

xkode = Nik.Text

Call HapusText()

Nik.Text = xkode

Call buttonsimpan()

DR.Close()

End If

Nama.Focus()

Jabatan.Focus()

Jkelamin.Focus()

Bagian.Focus()

End If

End Sub

Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click

Call HapusText()

Nik.Focus()

End Sub

Private Sub Btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnedit.Click

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

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

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

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

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

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Btnbaru_Click(sender, e)

Call TampilRecordkaryawan()

End Sub

Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

SQL = “INSERT INTO karyawan(Nik, Nama, Jabatan, Jkelamin, Bagian) ” & _

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

Nama.Text & “‘,'” & _

Jabatan.Text & “‘,'” & _

Jkelamin.Text & “‘,'” & _

Bagian.Text & “‘)”

CMD = New OleDbCommand(SQL, DB)

CMD.ExecuteNonQuery()

Call Btnbaru_Click(sender, e)

Call TampilRecordkaryawan()

End Sub

Private Sub Jabatan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.TextChanged

SQL = “SELECT *FROM karyawan where Jabatan='” & Jabatan.Text & “‘”

CMD = New OleDbCommand(SQL, DB)

DR = CMD.ExecuteReader

If DR.HasRows Then

DR.Read()

Jabatan.Text = DR(“Jabatan”)

End If

End Sub

End Class

Form Saat Program Di Jalankan