DATABASE PENGGAJIAN

DATABASE PENGGAJIAN

Imports System.Data.OleDb

Public Class Formjabatan

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim sql As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VB2\Penjualan1.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub Tampiljabatan()

        ADP = New OleDbDataAdapter("SELECT * FROM JABATAN", DB)

        DS = New DataSet

        ADP.Fill(DS, "JABATAN")

        DataGridView1.DataSource = DS.Tables("jabatan")

    End Sub

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

        Call OpenDB()

        Call Tampiljabatan()

    End Sub

    Sub BersihText()

        kdj.Text = ""

        nmj.Text = ""

       

    End Sub

    Private Sub BARU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BARU.Click

        Call BersihText()

        kdj.Focus()

    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click

        sql = "INSERT INTO jabatan VALUES('" & kdj.Text & "','" & _

                                               nmj.Text & "')"

        CMD = New OleDbCommand(sql, DB)

        CMD.ExecuteNonQuery()

        Call BARU_Click(sender, e)

        Call Tampiljabatan()

    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='" & kdj.Text & "'"

        CMD = New OleDbCommand(sql, DB)

        CMD.ExecuteNonQuery()

        Call BARU_Click(sender, e)

        Call Tampiljabatan()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            sql = "select * from jabatan where kdjabatan='" & kdj.Text & "'"

            CMD = New OleDbCommand(sql, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                nmj.Text = DR.Item(1)

                MsgBox("data ditemukan !")

            Else

                MsgBox("data tidak ditemukan !")

            End If

        End If

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

        Call BersihText()

        kdj.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='" & nmj.Text & _

                "' where kdjabatan='" & kdj.Text & "'"

        CMD = New OleDbCommand(sql, DB)

        CMD.ExecuteNonQuery()

        Call BARU_Click(sender, e)

        Call Tampiljabatan()

       

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

End Class

kalau sudah siap,akan seperti ini