FORM LIHAT DATA KARYAWAN

Rumus :::::>>>><<<<<<


Public Class FormLihatDataKaryawan

    Private Sub BtnBackMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackMenu.Click
        FormMenuUtama.Enabled = True
        Me.Close()
    End Sub

    Private Sub CmbParameter_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbParameter.SelectedIndexChanged

    End Sub

    Private Sub FormLihatDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CmbParameter.Items.Clear()
        CmbParameter.Items.Add("NIP")
        CmbParameter.Items.Add("Nama")
        CmbParameter.Items.Add("Alamat")
        CmbParameter.Items.Add("Telepon")
        CmbParameter.Items.Add("jabatan")

        FormInputDataKaryawan.tampilkanDataKaryawan()
    End Sub

    Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
        If CmbParameter.SelectedIndex = -1 Or TxtNilaiParameter.Text = "" Then

            MsgBox("Maaf untuk parameter pencarian harus dipilih dan nilai parameter harus diisi!", MsgBoxStyle.Exclamation, "ERROR")
            Exit Sub
        Else
            Kelasku.ds.Clear()
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            If CmbParameter.SelectedIndex = 0 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where NIP like '%" & TxtNilaiParameter.Text & "%'"
            ElseIf CmbParameter.SelectedIndex = 1 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where nama like '%" & TxtNilaiParameter.Text & "%'"
            ElseIf CmbParameter.SelectedIndex = 2 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where alamat like '%" & TxtNilaiParameter.Text & "%'"
            ElseIf CmbParameter.SelectedIndex = 3 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where telepon like '%" & TxtNilaiParameter.Text & "%'"
            Else
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where jabatan like '%" & TxtNilaiParameter.Text & "%'"
            End If
            Kelasku.da.SelectCommand = Kelasku.perintahSQL
            Kelasku.da.Fill(Kelasku.ds, "tbKaryawan")

            DGVdataKaryawan.DataSource = Kelasku.ds
            DGVdataKaryawan.DataMember = "tbKaryawan"
            DGVdataKaryawan.ReadOnly = True
            Kelasku.tutupDATABASE()
        End If
    End Sub
End Class