FORM KONTAK PEGAWAI

Imports System.Data.OleDb
Public Class KONTAK_PEGAWAI
    Sub grid()
        ' Me.DataGridView1.Columns(0).HeaderText = "NIP"
        '  Me.DataGridView1.Columns(1).HeaderText = "NAMA"
        'Me.DataGridView1.Columns(2).HeaderText = "NOMOR HP"
        '  DataGridView1.Columns(3).HeaderText = "EMAIL"
        ' DataGridView1.Columns(4).HeaderText = "ALAMAT"
        DataGridView1.Columns(0).Width = 100
        DataGridView1.Columns(1).Width = 100
        DataGridView1.Columns(2).Width = 80
        DataGridView1.Columns(3).Width = 100
        DataGridView1.Columns(4).Width = 100
        '  DataGridView1.Columns(5).Width = 100
        '  DataGridView1.Columns(0).HeaderText = "NAMA"
        ' DataGridView1.Columns(1).HeaderText = "KENAIKAN PANGKAT"

    End Sub
    Sub tampilkan()
        Call KoneksiDb()
        DA = New OleDb.OleDbDataAdapter("select NIP ,Nama , No_hp, Email, Alamat from karyawan", CNN)
        DS = New DataSet
        DA.Fill(DS)
        DataGridView1.DataSource = DS.Tables(0)
        DataGridView1.ReadOnly = True
    End Sub
    Private Sub KONTAK_PEGAWAI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call tampilkan()
        Call KoneksiDb()
        Call grid()
    End Sub

    Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
        DataGridView1.Rows(e.RowIndex).HeaderCell.Value = CStr(e.RowIndex + 1)
    End Sub

    Private Sub DataGridView1_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
        Try
            EDITKONTAKPEGAWAI.Show()
            EDITKONTAKPEGAWAI.TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value
            EDITKONTAKPEGAWAI.TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value
            EDITKONTAKPEGAWAI.TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(3).Value
            EDITKONTAKPEGAWAI.TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells(4).Value
            EDITKONTAKPEGAWAI.TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
        Catch ex As Exception
            MsgBox("TIDAK ADA DATA")
        End Try
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub
End Class