Belajar itu menyenangkan ^,..,^: April 2016

Sunday, April 3, 2016 |

APLIKASI PENGISIAN DATA KARYAWAN

Aplikasi ini memiliki 2 form utama , yaitu Form Login dan Form Utama dan fungsinya adalah memasukkan data karyawan baru dan lama mulai dari biodata diri sampai pendapatan.

1. Form Login

Penjelasan :

Form ini berfungsi sebagai akses login menuju menu Utama ,

Form ini memiliki 2 text box dan 2 button , dimana saat menekan “ogin” pengisian harus menggunakan username=”azka” dan password=”2014250031” (tanpa tanda petik).

Bila salah maka akan muncul peringatan bahwa username atau password yang kita masukkan salah.

Ketika tombol exit diklik maka aka nada pertanyaan apakah ingin keluar ? bila menjawab ‘iya’ maka aplikasi

Tampilan Ketika Dijalankan :

Source Code :
Public Class frmLogin

    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        If txtUsername.Text = "azka" And txtPassword.Text = "2014250031" Then
            frmUtama.Show()
        Else
            MsgBox("Maaf Username atau Password yang anda Masukkan Salah", MsgBoxStyle.Critical, "Login Gagal")
        End If

    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        If MessageBox.Show("Apakah Anda yakin ingin keluar?", "EXIT", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Me.Close()
        Else
            Me.Show()
        End If

    End Sub

    Private Sub txtUsername_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtUsername.KeyPress
        If e.KeyChar = Chr(13) Then
            txtPassword.Focus()
        End If
    End Sub

    Private Sub txtPassword_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPassword.KeyPress
        If e.KeyChar = Chr(13) Then
            btnLogin.Focus()
        End If
    End Sub




End Class

2. Form Utama

Penjelasan :

Aplikasi Utama adalah aplikasi penginputan data karyawan dimana fungsi masing-masing menu adalah sbb : NIK                               : mengisi nomor induk karyawan.
Nama                          : mengisi nama .
Jenis Kelamin              : mengisi jenis kelamin .
Tempat,Tgl Lahir        : mengisi tempat dan tanggal lahir .
Alamat                        : mengisi Alamat.
Kota/Kabupaten          : mengisi kota/kabupaten.
No. Hp/ Telp                : mengisi nomor kontak yang bias dihubungi.
Jabatan                        : terdiri dari Kepala, Wakil Kepala, Kepala Seksi, Penata, Office Boy dan Security.
Status Karyawan         : terbagi 2, yaitu : tetap dan kontrak.
Lama Bekerja              : lamanya karyawan tersebut bekerja.
Foto Karyawan            : foto karyawan.
Cari Foto                     : button mencari foto karyawan yang ingin dipilih.
Hapus Foto                  : button menghapus foto karyawan yang telah terisi.
Lokasi Foto                  : lokasi folder darimana foto itu diambil.
Tanggal Input              : tanggal penginputan data karyawan yang bersangkutan.
Button New                 : membuat data karyawan baru mulai dari awal.
Button Save                 : menyimpan data karyawan yang telah kita input.
Button Delete              : menghapus data karyawan yang telah disimpan.
Button Cancel             : membatalkan pengisian data dan menghapus data yang telah diisi.
Button Exit                  : keluar dari aplikasi Form Utama dan menuju Form Login.
List View                      : output data biodata dari karyawan yang telah dipilih.
List box                        : output penghasilan (gaji) dan total penerimaan karyawan tersebut per bulan.

Penghasilan Kepala : Gaji Pokok = Rp. 25.000.000,- + Tunjangan Jabatan = Rp. 10.000.000,-
Penghasilan Wakil Kepala : Gaji Pokok = Rp. 17.500.000,- + Tunjangan Jabatan = Rp. 7.500.000,-
Penghasilan Kepala Seksi : Gaji Pokok = Rp. 10.000.000,- + Tunjangan Jabatan = Rp. 5.000.000,-
Penghasilan Penata : Gaji Pokok = Rp. 5.000.000,- + Tunjangan Jabatan = Rp. 1.500.000,-
Penghasilan Office Boy : Gaji Pokok = Rp. 25.000.000,- + Tunjangan Jabatan = Rp. 250.000,-
Penghasilan Security : Gaji Pokok = Rp. 25.000.000,- + Tunjangan Jabatan = Rp. 500.000,-

Tampilan Ketika Dijalankan :

Source Code :

Public Class frmUtama

    Dim jenisKelamin As String
    Dim jabatan As String
    Dim status As String
    Private Sub frmUtama_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cbxJabatan.Items.Clear()
        cbxJabatan.Items.Add("Kepala")
        cbxJabatan.Items.Add("Wakil Kepala")
        cbxJabatan.Items.Add("Kepala Seksi")
        cbxJabatan.Items.Add("Penata")
        cbxJabatan.Items.Add("Office Boy")
        cbxJabatan.Items.Add("Security")
    End Sub
    Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click

            'source listview
        Dim x As ListViewItem
        x = lvDataKaryawan.Items.Add(dtpTgLInputData.Text)
        x.SubItems.Add(txtNIK.Text)
        x.SubItems.Add(txtNama.Text)
        If rbtnLakiLaki.Checked = True Then
            jenisKelamin = "Laki-Laki"
        End If
        If rbtnPerempuan.Checked = True Then
            jenisKelamin = "Perempuan"
        End If
        x.SubItems.Add(jenisKelamin)
        x.SubItems.Add(txtTempatLahir.Text & " " & mtbTglLahir.Text)
        x.SubItems.Add(txtAlamat.Text)
        x.SubItems.Add(txtKotaKabupaten.Text)
        x.SubItems.Add(txtKontak.Text)
        If cbxJabatan.SelectedItem = "Kepala" Then
            jabatan = "Kepala"
        ElseIf cbxJabatan.SelectedItem = "Wakil Kepala" Then
            jabatan = "Wakil Kepala"
        ElseIf cbxJabatan.SelectedItem = "Kepala Seksi" Then
            jabatan = "Kepala Seksi"
        ElseIf cbxJabatan.SelectedItem = "Penata" Then
            jabatan = "Penata"
        ElseIf cbxJabatan.SelectedItem = "Office Boy" Then
            jabatan = "Office Boy"
        Else
            jabatan = "Security"
        End If
        x.SubItems.Add(jabatan)
        If chkTetap.Checked = True Then
            status = "Tetap"
        Else
            status = "Kontrak"
        End If
        x.SubItems.Add(status)

        x.SubItems.Add(txtLamaBekerja.Text)

        'source code listbox
        Dim gapok As Integer
        Dim tunjanganJabatan As Integer
        If cbxJabatan.SelectedItem = "Kepala" Then
            lbInformasiPendapatan.Items.Clear()
            gapok = 25000000
            tunjanganJabatan = 10000000
        End If
        If cbxJabatan.SelectedItem = "Wakil Kepala" Then
            lbInformasiPendapatan.Items.Clear()
            gapok = 17500000
            tunjanganJabatan = 7500000
        End If
        If cbxJabatan.SelectedItem = "Kepala Seksi" Then
            lbInformasiPendapatan.Items.Clear()
            gapok = 10000000
            tunjanganJabatan = 5000000
        End If
        If cbxJabatan.SelectedItem = "Penata" Then
            lbInformasiPendapatan.Items.Clear()
            gapok = 5000000
            tunjanganJabatan = 1500000
        End If
        If cbxJabatan.SelectedItem = "Office Boy" Then
            lbInformasiPendapatan.Items.Clear()
            gapok = 2000000
            tunjanganJabatan = 250000
        End If
        If cbxJabatan.SelectedItem = "Security" Then
            lbInformasiPendapatan.Items.Clear()
            gapok = 2500000
            tunjanganJabatan = 500000
        End If

        lbInformasiPendapatan.Items.Add("Gaji pokok Rp. " & gapok & ",-")
        lbInformasiPendapatan.Items.Add("Tunjangan Jabatan Rp. " & tunjanganJabatan & ",-")

        Dim totalGaji As Integer
        totalGaji = gapok + tunjanganJabatan
        lbInformasiPendapatan.Items.Add("Total Gaji Rp. " & totalGaji & ",-")
    End Sub

    Private Sub btnCariFoto_Click(sender As Object, e As EventArgs) Handles btnCariFoto.Click
        ofdCariFoto.Title = "Pilih Foto"
        ofdCariFoto.InitialDirectory = "E:\Kuliah\foto"
        ofdCariFoto.Filter = "JPEG File | *.jpg"
        If ofdCariFoto.ShowDialog = Windows.Forms.DialogResult.OK Then
            txtLokasiFoto.Text = (ofdCariFoto.FileName)
            pbFoto.Image = System.Drawing.Image.FromFile(txtLokasiFoto.Text)
        End If
    End Sub

    Private Sub btnBatal_Click(sender As Object, e As EventArgs) Handles btnBatal.Click
        txtNIK.Text = ""
        txtNama.Text = ""
        rbtnLakiLaki.Checked = False
        rbtnPerempuan.Checked = False
        txtTempatLahir.Text = ""
        mtbTglLahir.Text = ""
        txtAlamat.Text = ""
        txtKotaKabupaten.Text = ""
        txtKontak.Text = ""
        cbxJabatan.Text = ""
        chkKontrak.Checked = False
        chkTetap.Checked = False
        txtLamaBekerja.Text = ""
        txtLokasiFoto.Text = ""
        lbInformasiPendapatan.Items.Clear()

    End Sub

    Private Sub btnKeluar_Click(sender As Object, e As EventArgs) Handles btnKeluar.Click
        If MsgBox("Apakah Anda yakin ingin keluar?", MsgBoxStyle.YesNo, "Logout") = Windows.Forms.DialogResult.Yes Then
            frmLogin.Show()
        Else
            Me.Show()
        End If
    End Sub

    Private Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.Click
        If lvDataKaryawan.Items.Count = 0 Then
            MsgBox("Data List View Kosong !!", MsgBoxStyle.Critical, "Warning!!!")
        ElseIf lvDataKaryawan.SelectedItems.Count = 0 Then
            MsgBox("Pilih Data yang ingin dihapus terlebih dahulu !", MsgBoxStyle.Exclamation, "Perhatian !!")
        Else
            lvDataKaryawan.FocusedItem.Remove()
        End If
    End Sub





    Private Sub btnBaru_MouseClick(sender As Object, e As MouseEventArgs) Handles btnBaru.MouseClick
        If e.Clicks Then
            txtNIK.Focus()
        End If
        txtNIK.Text = ""
        txtNama.Text = ""
        rbtnLakiLaki.Checked = False
        rbtnPerempuan.Checked = False
        txtTempatLahir.Text = ""
        mtbTglLahir.Text = ""
        txtAlamat.Text = ""
        txtKotaKabupaten.Text = ""
        txtKontak.Text = ""
        cbxJabatan.Text = ""
        chkKontrak.Checked = False
        chkTetap.Checked = False
        txtLamaBekerja.Text = ""
        txtLokasiFoto.Text = ""
    End Sub

    Private Sub btnHapusFoto_Click(sender As Object, e As EventArgs) Handles btnHapusFoto.Click
        txtLokasiFoto.Text = ""
        pbFoto.Image = Nothing
    End Sub

    Private Sub txtNIK_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtNIK.KeyPress
        If e.KeyChar = Chr(13) Then
            txtNama.Focus()
        End If
    End Sub

    Private Sub txtNama_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtNama.KeyPress

        If e.KeyChar = Chr(13) Then
            rbtnLakiLaki.Focus()
        End If
    End Sub
    Private Sub rbtnLakiLaki_KeyPress(sender As Object, e As KeyPressEventArgs) Handles rbtnLakiLaki.KeyPress
        If e.KeyChar = Chr(13) Then
            txtTempatLahir.Focus()
        End If
    End Sub

    Private Sub rbtnPerempuan_KeyPress(sender As Object, e As KeyPressEventArgs) Handles rbtnPerempuan.KeyPress
        If e.KeyChar = Chr(13) Then
            txtTempatLahir.Focus()
        End If
    End Sub
    Private Sub txtTempatLahir_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtTempatLahir.KeyPress

        If e.KeyChar = Chr(13) Then
            mtbTglLahir.Focus()
        End If
    End Sub
    Private Sub mtbTglLahir_KeyPress(sender As Object, e As KeyPressEventArgs) Handles mtbTglLahir.KeyPress
        If e.KeyChar = Chr(13) Then
            txtAlamat.Focus()
        End If
    End Sub

    Private Sub txtAlamat_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtAlamat.KeyPress
        If e.KeyChar = Chr(13) Then
            txtKotaKabupaten.Focus()
        End If
    End Sub
    Private Sub txtKotaKabupaten_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtKotaKabupaten.KeyPress
        If e.KeyChar = Chr(13) Then
            txtKontak.Focus()
        End If
    End Sub
    Private Sub txtKontak_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtKontak.KeyPress

        If e.KeyChar = Chr(13) Then
            txtLamaBekerja.Focus()
        End If
    End Sub

    Private Sub txtLamaBekerja_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtLamaBekerja.KeyPress
        If Not (e.KeyChar >= Chr(48) And e.KeyChar <= Chr(57)) Then
            e.Handled = True
        End If
    End Sub

    Private Sub txtKontak_TextChanged(sender As Object, e As EventArgs) Handles txtKontak.TextChanged

    End Sub
End Class

Belajar itu menyenangkan ^,..,^

Link Website

Blog Archive

Labels

Friends