FORM TAMBAH ADMIN KARYAWAN

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

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

FORM EDIT KARYAWAN

RUMUS :

Public Class FormEditDataKaryawan
    'Procedure untuk menonaktifkan seluruh toolbox saat loading pertama kali
    Public Sub nonAktif()
        TxtNIP.Enabled = False
        TxtNama.Enabled = False
        TxtJenisKelamin.Enabled = False
        TxtAlamat.Enabled = False
        TxtTelepon.Enabled = False
        TxtTempatLahir.Enabled = False
        TxtTanggalLahir.Enabled = False
        TxtStatus.Enabled = False
        TxtJabatan.Enabled = False
        TxtTanggalBergabung.Enabled = False
    End Sub

    'Procedure untuk merefresh form ke posisi nill/ awal
    Public Sub kosong()
        TxtNIP.Text = ""
        TxtNama.Text = ""
        TxtJenisKelamin.Text = ""
        TxtAlamat.Text = ""
        TxtTelepon.Text = ""
        TxtTempatLahir.Text = ""
        TxtTanggalLahir.Text = ""
        TxtStatus.Text = ""
        TxtJabatan.Text = ""
        TxtTanggalBergabung.Text = ""
    End Sub

    Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
        'pilih tombol CARI
        'Masukan dahulu NIP karyawan pada input box
        Dim cari As String
        cari = InputBox("Masukan NIP Karyawan = ", "CARI DATA KARYAWAN")

        'Cek apakah yang diinput kosong
        If Len(Trim(cari)) = 0 Then Exit Sub

        'Ada input
        'Tampilkan data sesuai dengan input NIP karyawan nya (status masi disabled)
        Kelasku.bukaDATABASE()
        Kelasku.perintahSQL.CommandType = CommandType.Text
        Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where NIP = '" & cari & "'"
        Kelasku.ketemu = Kelasku.perintahSQL.ExecuteReader

        If Kelasku.ketemu.Read Then
            TxtNIP.Text = Kelasku.ketemu("NIP")
            TxtNama.Text = Kelasku.ketemu("nama")
            TxtJenisKelamin.Text = Kelasku.ketemu("jenisKelamin")
            TxtAlamat.Text = Kelasku.ketemu("alamat")
            TxtTelepon.Text = Kelasku.ketemu("telepon")
            TxtTempatLahir.Text = Kelasku.ketemu("tempatLahir")
            TxtTanggalLahir.Text = Kelasku.ketemu("tanggalLahir")
            TxtStatus.Text = Kelasku.ketemu("StatusKaryawan")
            TxtJabatan.Text = Kelasku.ketemu("jabatan")
            TxtTanggalBergabung.Text = Kelasku.ketemu("tanggalBergabung")
        Else
            MsgBox("Data TIDAK ditemukan, silahkan ulangi input NIP karyawan", MsgBoxStyle.Exclamation, "GAGAL")
            BtnCari.Focus()
        End If

        Kelasku.tutupDATABASE()
    End Sub

    Private Sub BtnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUbah.Click
        TxtNIP.Enabled = False
        TxtNama.Enabled = True
        TxtJenisKelamin.Enabled = True
        TxtAlamat.Enabled = True
        TxtTelepon.Enabled = True
        TxtTempatLahir.Enabled = True
        TxtTanggalLahir.Enabled = True
        TxtStatus.Enabled = True
        TxtJabatan.Enabled = True
        TxtTanggalBergabung.Enabled = True
    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

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        If Trim(TxtNama.Text.Length) = 0 Or Trim(TxtJenisKelamin.Text.Length) = 0 Or Trim(TxtAlamat.Text.Length) = 0 Or Trim(TxtTelepon.Text.Length) = 0 Or Trim(TxtTempatLahir.Text.Length) = 0 Or Trim(TxtTanggalLahir.Text.Length) = 0 Or Trim(TxtStatus.Text.Length) = 0 Or Trim(TxtJabatan.Text.Length) = 0 Or Trim(TxtTanggalBergabung.Text.Length) = 0 Then
            MsgBox("Data Belum Lengkap, ada data yang kosong!" & Chr(13) & "Silahkan dicek kembali.", MsgBoxStyle.Information, "GAGAL")
        Else
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            Kelasku.perintahSQL.CommandText = "UPDATE tbKaryawan set nama = '" & TxtNama.Text & "', jenisKelamin = '" & TxtJenisKelamin.Text & "', alamat = '" & TxtAlamat.Text & "', telepon = '" & TxtTelepon.Text & "', tempatLahir = '" & TxtTempatLahir.Text & "', tanggalLahir = '" & TxtTanggalLahir.Text & "', jabatan = '" & TxtJabatan.Text & "', tanggalBergabung = '" & TxtTanggalBergabung.Text & "' where NIP = '" & TxtNIP.Text & "'"
            Kelasku.perintahSQL.ExecuteNonQuery()
            Kelasku.tutupDATABASE()

            MsgBox("Data Telah SUKSES Diperbaiki!", MsgBoxStyle.Information, "INFORMASI")
            FormInputDataKaryawan.tampilkanDataKaryawan()

            kosong()

        End If
    End Sub

    Private Sub FormEditDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nonAktif()
        kosong()
    End Sub

    Private Sub BtnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
        If MsgBox("Apakah anda yakin ingin menhapus data karyawan ini ?", MsgBoxStyle.YesNo, "Konfirmasi") = MsgBoxResult.Yes Then
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            Kelasku.perintahSQL.CommandText = "DELETE tbKaryawan where NIP = '" & TxtNIP.Text & "'"
            Kelasku.perintahSQL.ExecuteNonQuery()
            Kelasku.tutupDATABASE()

            MsgBox("Data Telah SUKSES dihapus!!!", MsgBoxStyle.Information, "INFORMASI")
            FormInputDataKaryawan.tampilkanDataKaryawan()

            kosong()
            nonAktif()
        End If
    End Sub
End Class

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

PERTEMUAN 16

RUMUS UNTUK CLASS PUBLIC :

rumus :

Public Class Buku

Private kodeBuku As String
Private judulBuku As String

Property m_kodeBuku()
Get
Return kodeBuku
End Get
Set(ByVal value)
kodeBuku = value
End Set
End Property

Property m_judulBuku()
Get
Return judulBuku
End Get
Set(ByVal value)
judulBuku = value
End Set
End Property

Public Function jenisBuku() As String
Dim hurufPertama As String
hurufPertama = kodeBuku.Substring(0, 1)

Select Case hurufPertama
Case "K" : Return "Komik"
Case "M" : Return "Majalah"
Case "F" : Return "Fiksi"
Case "N" : Return "Non Fiksi"
Case Else : Return "KODE BUKU SALAH"
End Select
End Function

Public Function sumberBuku() As String
Dim hurufKedua As String
hurufKedua = kodeBuku.Substring(1, 1)

Select Case hurufKedua
Case "S" : Return "Sumbangan"
Case "P" : Return "Pembelian"
Case Else : Return "KODE BUKU SALAH"
End Select
End Function
End Class

Rumus BTNPROSES :

Public Class Form1
Dim x As New Buku

Public Sub kosong()
TxtKodeBuku.Text = ""
TxtJudulBuku.Text = ""
TxtHargaSewa.Text = ""
TxtLamaSewa.Text = ""
LblJenis.Text = ""
LblSumber.Text = ""
LblBiayaSewa.Text = ""
End Sub

Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
kosong()
End Sub

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

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
x.m_kodeBuku = TxtKodeBuku.Text
x.m_judulBuku = TxtJudulBuku.Text


LblJenis.Text = x.jenisBuku()
LblSumber.Text = x.sumberBuku()
End Sub
End Class