PERTEMUAN 21

RUMUS :

Public Class FormInputDataKaryawan
Dim jk As String
Dim status As String



Private Sub FormInputDataKaryawan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
TxtNIP.Enabled = False
Dim kodeKaryawan As String
Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "SELECT top 1 right(NIP,3)+1 as NIP from tbKaryawan order by NIP desc"
Kelasku.ketemu = Kelasku.perintahSQL.ExecuteReader
If Kelasku.ketemu.Read Then
Select Case Kelasku.ketemu("NIP")
Case Is <= 9 : kodeKaryawan = "K00" & Kelasku.ketemu("NIP")
Case Is <= 99 : kodeKaryawan = "K0" & Kelasku.ketemu("NIP")
Case Else : kodeKaryawan = "K" & Kelasku.ketemu("NIP")
End Select
Else
kodeKaryawan = "K001"
End If
Kelasku.tutupDATABASE()
TxtNIP.Text = kodeKaryawan
End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
If RBBelumMenikah.Checked Then
status = "Belum Menikah"
Else
status = "Sudah Menikah"
End If

Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "insert into tbkaryawan values ('" & TxtNIP.Text & "','" & TxtNama.Text & "','" & jk & "','" & TxtAlamat.Text & "','" & TxtTelepon.Text & "','" & TxtTempatLahir.Text & "','" & Format(DtpTanggalLahir.Value, "MM/dd/yyyy") & "','" & status & "','" & CmbJabatan.Text & "','" & Format(DtpTanggalBergabung.Value, "MM/dd/yyyy") & "')"
Kelasku.perintahSQL.ExecuteNonQuery()
Kelasku.tutupDATABASE()

MsgBox("Data Karyawan baru sudah tersimpan!", MsgBoxStyle.Information, "SUKSES")
tampilkanDataKaryawan()
kosong()
End Sub
Public Sub kosong()
TxtNama.Text = ""
RBPria.Checked = False
RBWanita.Checked = False
TxtAlamat.Text = ""
TxtTelepon.Text = ""
TxtTempatLahir.Text = ""
RBBelumMenikah.Checked = False
RBSudahMenikah.Checked = False
End Sub

Private Sub RBPria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBPria.CheckedChanged
jk = "Pria"
End Sub

Private Sub RBWanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RBWanita.CheckedChanged
jk = "Wanita"
End Sub

Private Sub FormInputDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CmbJabatan.Items.Clear()
CmbJabatan.Items.Add("Direktur")
CmbJabatan.Items.Add("Manager")
CmbJabatan.Items.Add("Supervaisor")
CmbJabatan.Items.Add("Accounting")
CmbJabatan.Items.Add("Administrasi")
CmbJabatan.Items.Add("Sales")
CmbJabatan.Items.Add("Staff")
End Sub
Public Sub tampilkanDataKaryawan()
Kelasku.ds.Clear()
Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "select * from tbKaryawan"
Kelasku.da.SelectCommand = Kelasku.perintahSQL
Kelasku.da.Fill(Kelasku.ds, "tbKaryawan")
FormlihatDataKaryawan.DGVdataKaryawan.DataSource = Kelasku.ds
FormLihatDataKaryawan.DGVdataKaryawan.DataMember = "tbKaryawan"
FormLihatDataKaryawan.DGVdataKaryawan.ReadOnly = True
Kelasku.tutupDATABASE()
End Sub

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