Imports System.Data.OleDb
Public Class Dt_pegawai
Sub kosongkan()
TNip.Text = ""
TNama.Text = ""
TJabatan.Text = ""
Tgllahir.Text = ""
Alamat.Text = ""
Telepon.Text = ""
Umur.Text = ""
Kjabatan.Text = ""
JK.Text = ""
Spegawai.Text = ""
BtRadio.Text = ""
RadioButton1.Checked = Enabled
RadioButton2.Checked = Enabled
Pendidikan.Text = ""
Cabang.Text = ""
Ktunjangan.Text = ""
TNip.Focus()
End Sub
Sub DataBaru()
TNip.Text = ""
TNama.Text = ""
TJabatan.Text = ""
Tgllahir.Text = ""
Alamat.Text = ""
Telepon.Text = ""
Umur.Text = ""
Kjabatan.Text = ""
JK.Text = ""
Spegawai.Text = ""
BtRadio.Text = ""
Pendidikan.Text = ""
Cabang.Text = ""
Ktunjangan.Text = ""
TNip.Focus()
End Sub
Sub Tampilkan()
da = New OleDbDataAdapter("select*from Datapegawai", conn)
ds = New DataSet
ds.Clear()
da.Fill(ds, "Datapegawai")
DGV.DataSource = (ds.Tables("Datapegawai"))
End Sub
Private Sub Pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
Me.ControlBox = False
DT.Value = Format(DT.Value, "dd/MM/yy")
DT2.Value = Format(DT.Value, "dd/MM/yy")
Call koneksi()
Call Tampilkan()
End Sub
Private Sub TNip_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = Chr(13) Then
Try
cmd = New OleDbCommand("select*from Datapegawai where Nip='" & TNip.Text & "'", conn)
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows = True Then
TNama.Text = rd.GetString(1)
TJabatan.Text = rd.GetString(2)
Alamat.Text = rd.GetString(4)
Telepon.Text = rd.GetString(5)
Umur.Text = rd.GetString(6)
Kjabatan.Text = rd.GetString(7)
Ktunjangan.Text = rd.GetString(8)
JK.Text = rd.GetString(9)
Spegawai.Text = rd.GetString(10)
BtRadio.Text = rd.GetString(11)
DT2.Value = rd.GetString(12)
Else
Call DataBaru()
TNama.Focus()
End If
Catch ex As Exception
End Try
End If
End Sub
Private Sub TNama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TNama.KeyPress
If Not ((Char.IsLetter(e.KeyChar)) Or (e.KeyChar = ControlChars.Back) Or (Char.IsSeparator(e.KeyChar))) Then
e.Handled = True
End If
If e.KeyChar = Chr(13) Then TNip.Focus()
End Sub
Private Sub TNip_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If Not ((Char.IsNumber(e.KeyChar)) Or (e.KeyChar = ControlChars.Back)) Then
e.Handled = True
End If
If e.KeyChar = Chr(13) Then Alamat.Focus()
End Sub
Private Sub Alamat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Alamat.KeyPress
If Not ((Char.IsLetterOrDigit(e.KeyChar)) Or (Char.IsSeparator(e.KeyChar)) Or (e.KeyChar = ControlChars.Back)) Then
e.Handled = True
End If
If e.KeyChar = Chr(13) Then Tgllahir.Focus()
End Sub
Private Sub TJabatan_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If Not ((Char.IsLetter(e.KeyChar)) Or (e.KeyChar = ControlChars.Back)) Then
e.Handled = True
End If
If e.KeyChar = Chr(13) Then DT2.Focus()
End Sub
Private Sub Tgllahir_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tgllahir.KeyPress
If e.KeyChar = Chr(13) Then Umur.Focus()
End Sub
Private Sub Umur_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Umur.KeyPress
If Not ((Char.IsNumber(e.KeyChar)) Or (e.KeyChar = ControlChars.Back)) Then
e.Handled = True
End If
If e.KeyChar = Chr(13) Then JK.Focus()
End Sub
Private Sub JK_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JK.KeyPress
If e.KeyChar = Chr(13) Then Telepon.Focus()
End Sub
Private Sub Telepon_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If Not ((Char.IsNumber(e.KeyChar)) Or (e.KeyChar = ControlChars.Back)) Then
e.Handled = True
End If
If e.KeyChar = Chr(13) Then Spegawai.Focus()
End Sub
Private Sub Dep_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kjabatan.KeyPress
If Not ((Char.IsLetterOrDigit(e.KeyChar)) Or (Char.IsSeparator(e.KeyChar)) Or (e.KeyChar = ControlChars.Back)) Then
e.Handled = True
End If
If e.KeyChar = Chr(13) Then TNama.Focus()
End Sub
Private Sub diterima_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar = Chr(13) Then Kjabatan.Focus()
End Sub
Private Sub DT_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DT.ValueChanged
Dim tglVar As String
tglVar = Format(DT.Value, "dd-MM-yyyy")
End Sub
Private Sub Dep_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Spegawai.SelectedIndexChanged
Dim BRadio As String
If RadioButton1.Checked = True Then
BRadio = "Aktif"
Else
RadioButton2.Checked = True
BRadio = "NonAktif"
End If
BtRadio.Text = BRadio
End Sub
Private Sub TNama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TNama.TextChanged
Dim i As Integer = TNama.SelectionStart
TNama.Text = StrConv(TNama.Text, VbStrConv.ProperCase)
TNama.SelectionStart = i
End Sub
Private Sub Alamat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Alamat.TextChanged
Dim i As Integer = Alamat.SelectionStart
Alamat.Text = StrConv(Alamat.Text, VbStrConv.ProperCase)
Alamat.SelectionStart = i
End Sub
Private Sub CmbSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbSimpan.Click
If TNip.Text = "" Or TNama.Text = "" Or TJabatan.Text = "" Or Tgllahir.Text = "" Or Alamat.Text = "" Or Telepon.Text = "" Or Umur.Text = "" Or Kjabatan.Text = "" Or JK.Text = "" Then
MsgBox("data belum lengkap")
Exit Sub
Else
cmd = New OleDbCommand("select*from Datapegawai where Nip='" & TNip.Text & "'", conn)
rd = cmd.ExecuteReader
rd.Read()
If Not rd.HasRows Then
Dim sqltambah As String = "insert into Datapegawai(Nip, Nama, Jabatan, Tanggal_lahir, Alamat, Telepon, Umur, Kode_jabatan, Kode_tunjangan, Jenis_kelamin, Status_pegawai, Status_mengajar, Tanggal_aktif, Pendidikan_terakhir, Bimbel_cabang)values " & _
"('" & TNip.Text & "','" & TNama.Text & "','" & TJabatan.Text & "', '" & DT.Value & "', '" & Alamat.Text & "','" & Telepon.Text & "','" & Umur.Text & "','" & Kjabatan.Text & "','" & Ktunjangan.Text & "','" & JK.Text & "', '" & Spegawai.Text & "','" & BtRadio.Text & "','" & DT2.Value & "', '" & Pendidikan.Text & "', '" & Cabang.Text & "')"
cmd = New OleDbCommand(sqltambah, conn)
cmd.ExecuteNonQuery()
Call kosongkan()
Call Tampilkan()
Else
MsgBox("Data dengan NIP tersebut sudah ada")
Call kosongkan()
Call Tampilkan()
End If
End If
End Sub
Private Sub CmdBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdBatal.Click
Call kosongkan()
End Sub
Private Sub CmbHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbHapus.Click
If TNip.Text = "" Then
MsgBox("isi Nip untuk menghapus data pegawai")
TNip.Focus()
Exit Sub
Else
If MessageBox.Show("yakin akan dihapus", "",
MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
cmd = New OleDbCommand("delete*from Datapegawai where Nip='" & TNip.Text & "'", conn)
cmd.ExecuteNonQuery()
Call kosongkan()
Call Tampilkan()
Else
Call kosongkan()
End If
End If
End Sub
Private Sub CmbTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbTutup.Click
Me.Close()
End Sub
End Class
