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

PERTEMUAN 20

rumus :

Public Class FormMenuUtama

Private Sub TambahUserAdminToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TambahUserAdminToolStripMenuItem.Click
Me.Enabled = False
FormTambahAdmin.Show()
End Sub

Private Sub InputDataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputDataKaryawanToolStripMenuItem.Click
Me.Enabled = False
FormInputDataKaryawan.Show()
End Sub

Private Sub LihatDataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LihatDataKaryawanToolStripMenuItem.Click
Me.Enabled = False
FormLihatDataKaryawan.Show()
End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
If MsgBox("Apakah Anda Yakin Ingin Keluar?", MsgBoxStyle.YesNo, "KELUAR") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub

Private Sub EditDataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditDataKaryawanToolStripMenuItem.Click
Me.Enabled = False
FormEditDataKaryawan.Show()
End Sub

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

End Sub
End Class

PERTEMUAN 18

RUMUS : CONECTION DATABASE KELASKU

Public Class Kelasku
Public Shared koneksi As New SqlClient.SqlConnection
Public Shared perintahSQL As New SqlClient.SqlCommand
Public Shared ds As New DataSet
Public Shared da As New SqlClient.SqlDataAdapter
Public Shared ketemu As SqlClient.SqlDataReader

Public Shared Sub bukaDATABASE()
Try
koneksi.ConnectionString = "Data Source=202-04;Initial Catalog=dbKaryawan;Integrated Security=True"
koneksi.Open()
perintahSQL.Connection = koneksi
Catch ex As Exception
MsgBox("GAGAL Koneksi Ke database" & Chr(13) & ex.Message, MsgBoxStyle.Exclamation, "ERROR")
End Try
End Sub
Public Shared Sub tutupDATABASE()
koneksi.Close()
koneksi.ConnectionString = Nothing
End Sub

End Class

rumus login :

Public Class FormLogin

Private Sub BtnMasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMasuk.Click
Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "select*from TbUser where username = '" & TxtUsername.Text & "' and pass = '" & TxtPassword.Text & "'"
Kelasku.ketemu = Kelasku.perintahSQL.ExecuteReader

If Kelasku.ketemu.Read Then
MsgBox("Ligin Anda BERHASIL", MsgBoxStyle.Information, "SUKSES")
FormMenuUtama.Show()
Me.Hide()
Else
MsgBox("Login Anda GAGAL, Username dan password tidak ditemukan", MsgBoxStyle.Exclamation, "GAGAL")
TxtUsername.Text = ""
TxtPassword.Text = ""
TxtUsername.Focus()
End If
Kelasku.tutupDATABASE()
End Sub

Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
If MsgBox("Apakah Anda Yakin Ingin Keluar?", MsgBoxStyle.YesNo, "KELUAR") = MsgBoxResult.Yes Then
Me.Close()
Else
Me.Show()
End If
End Sub
End Class

DATA ADMIN BARU

RUMUS :

Public Class FormTambahAdmin
Dim a, b, c As String

Private Sub BtnDaftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDaftar.Click
a = TxtUsernameBaru.Text
b = TxtPasswordBaru.Text
c = TxtUlangiPassword.Text

If b = c Then
Kelasku.bukaDATABASE()
Kelasku.perintahSQL.CommandType = CommandType.Text
Kelasku.perintahSQL.CommandText = "Insert into tbuser values ('" & a & "', '" & b & "')"
Kelasku.perintahSQL.ExecuteNonQuery()
Kelasku.tutupDATABASE()

MsgBox("Data Admin Baru sudah tersimpan!" & Chr(13) & "Silahkan mencoba Login dengan data yang dimasukan.", MsgBoxStyle.Information, "SUKSES")

TxtUsernameBaru.Text = ""
TxtPasswordBaru.Text = ""
TxtUlangiPassword.Text = ""
TxtUsernameBaru.Focus()

Else
MsgBox("Password dan Ulangi Password tidak cocok!" & Chr(13) & "Silahkan ulangi input data admin yang benar.", MsgBoxStyle.Information, "GAGAL")
End If
End Sub

Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
Refresh()
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