Coding VB 2008
Aplikasi Penggajian
Form Login
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
'Button Ok
If UCase(UsernameTextBox.Text) = "MU" And UCase(PasswordTextBox.Text) = "88" Then
FormProgressBarLogin.Show()
FormProgressBarLogin.Timer1.Enabled = True
FormProgressBarLogin.Show()
Me.Hide()
Exit Sub
Else
counter = counter + 1
If counter = 3 Then
MessageBox.Show("anda sudah 3 kali salah")
End
End If
MessageBox.Show("login salah" + Chr(13) + "anda mempunyai " & 3 -
counter & " kali untuk mencoba" + Chr(13) + "login ulang",
"Perhatian", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
Me.Close()
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
'Button cancel
Me.Close()
End Sub
End Class
Form Progressbar
Public Class FormProgressBarLogin
Private
Sub btndetikProgress_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btndetikProgress.Click
Timer1.Enabled = True 'aktifkan timer
btndetikProgress.Text = "sedang proses"
Timer1.Interval = 100 'set interval menjadi 100
ProgressBar1.Value = 0 'kembalikan nilai progressbar menjadi 0
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static tiktok As Integer
tiktok = tiktok + 1
ProgressBar1.Value = tiktok
btndetikProgress.Text = tiktok & " % "
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Enabled = False 'non aktifkan timer1 saat nilai statis=nilai max progressbar1
tiktok = 0 'kembalikan nilai status menjadi 0
Me.Hide()
FormMenuUtama.Show()
End If
End Sub
End Class
__________________________________________________
Form Menu Awal
Public Class FormMenuUtama
Private
Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles ExitToolStripMenuItem.Click
If MsgBox("do you want to Exit?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "exit") = MsgBoxResult.Yes Then
MsgBox("thank you!!", MsgBoxStyle.Information, "end")
End
ElseIf MsgBoxResult.No Then
MsgBox("try again", MsgBoxStyle.Critical, "retry")
End If
End Sub
Private
Sub HitungGajiToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles HitungGajiToolStripMenuItem.Click
FormPenggajian.Show()
End Sub
Private
Sub LihatSlipGajiToolStripMenuItem_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles
LihatSlipGajiToolStripMenuItem.Click
FormLihatData.Show()
End Sub
End Class
_________________________________________________________________________________
From Penggajian
Public Class FormPenggajian
Dim jenis As String
Private Sub rdLaki_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdLaki.CheckedChanged
jenis = "Laki-Laki"
End Sub
Private
Sub rdPerempuan_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles rdPerempuan.CheckedChanged
jenis = "Perempuan"
End Sub
Private Sub FormDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmbJabatan.Items.Clear()
cmbJabatan.Items.Add("Manager")
cmbJabatan.Items.Add("Supervisor")
cmbJabatan.Items.Add("Staff Karyawan")
End Sub
Public Sub nol()
txtNik.Text = ""
txtNama.Text = ""
RDlaki.Checked = False
RDPerempuan.Checked = False
txtalamat.Text = ""
txttelepon.Text = ""
DTtanggal.Text = Today
txtjamkerja.Text = ""
txtJamLembur.Text = ""
txtgajiPokok.Text = ""
txtUmkn.Text = ""
txtUlembur.Text = ""
txtUtransport.Text = ""
lblTotalGaji.Text = "--"
lblHslGajiPokok.Text = "--"
Label5.Text = "--"
txtgajiPokok.Focus()
End Sub
Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
GajiKaryawan.BukaDatabase()
'insert into tblKaryawan values
('NIP','Nama','JenisKelamin','alamat','telepon','tempatlahir','statuskaryawan','jabatan','tanggalmasuk')
GajiKaryawan.perintahSQL.CommandText = "insert into tblGajikaryawan
values ('" & txtNik.Text & "','" & txtNama.Text & "','"
& jenis & "','" & txtAlamat.Text & "','" &
txtTelepon.Text & "','" & cmbJabatan.Text & "','" &
Format(DTtanggal.Value, "MM/dd/yyyy") & "','" &
lblTotalGaji.Text & "')"
GajiKaryawan.perintahSQL.ExecuteNonQuery()
GajiKaryawan.tutupdatabase()
MsgBox("Data Telah Disimpan!!!", MsgBoxStyle.Information, "INFO")
nol()
End Sub
Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
Dim f = MsgBox("Apakah anda yakin ingin keluar?", vbYesNo, "KONFIRMASI")
If f = vbYes Then
MsgBox("Terimakasih telah menggunakan program ini.", MsgBoxStyle.DefaultButton1, "KONFIRMASI")
Me.Close()
ElseIf f = vbNo Then
Exit Sub
End If
End Sub
Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
txtUtransport.Text = txtgajiPokok.Text * 0.075
lblTotalGaji.Text = (Val(txtgajiPokok.Text) + Val(txtUmkn.Text) + Val(txtUlembur.Text) + Val(txtUtransport.Text))
End Sub
Private
Sub txtjamkerja_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles txtjamkerja.TextChanged
If txtjamkerja.Text <> "" Then
Select Case txtjamkerja.Text
Case Is >= 192
txtJamLembur.Text = txtjamkerja.Text - 192
txtUlembur.Text = txtJamLembur.Text * 10000
Case Else
txtJamLembur.Text = txtjamkerja.Text * 0
txtUlembur.Text = txtJamLembur.Text * 0
End Select
End If
End Sub
Private Sub rdGol1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdGol1.CheckedChanged
lblHslGajiPokok.Text = 950000
txtgajiPokok.Text = 950000
txtUtransport.Text = 120000
End Sub
Private Sub rdGol2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdGol2.CheckedChanged
lblHslGajiPokok.Text = 1300000
txtgajiPokok.Text = 1300000
txtUtransport.Text = 160000
End Sub
Private Sub rdGol3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdGol3.CheckedChanged
lblHslGajiPokok.Text = 1600000
txtgajiPokok.Text = 1600000
txtUtransport.Text = 200000
End Sub
Private
Sub rdManager_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles rdManager.CheckedChanged
lblHslGajiPokok.Text = 0.1 * Val(txtgajiPokok.Text)
txtUmkn.Text = 0.3 * Val(txtgajiPokok.Text)
End Sub
Private
Sub rdSpvisor_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles rdSpvisor.CheckedChanged
lblHslGajiPokok.Text = 0.05 * Val(txtgajiPokok.Text)
txtUmkn.Text = 0.2 * Val(txtgajiPokok.Text)
End Sub
Private
Sub rdStaff_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles rdStaff.CheckedChanged
lblHslGajiPokok.Text = 0.025 * Val(txtgajiPokok.Text)
txtUmkn.Text = 0.1 * Val(txtgajiPokok.Text)
End Sub
Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
txtNik.Text = ""
txtNama.Text = ""
rdLaki.Checked = False
rdPerempuan.Checked = False
txtAlamat.Text = ""
txtTelepon.Text = ""
DTtanggal.Text = Today
txtjamkerja.Text = ""
txtJamLembur.Text = ""
txtgajiPokok.Text = ""
txtUmkn.Text = ""
txtUlembur.Text = ""
txtUtransport.Text = ""
lblTotalGaji.Text = "--"
lblHslGajiPokok.Text = "--"
Label5.Text = "--"
txtgajiPokok.Focus()
End Sub
End Class
Form Lihat Data
Public Class FormLihatData
Public Sub tampildata()
GajiKaryawan.ds.Clear()
GajiKaryawan.BukaDatabase()
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan"
GajiKaryawan.da.SelectCommand = GajiKaryawan.perintahSQL
GajiKaryawan.da.Fill(GajiKaryawan.ds, "TblGajiKaryawan")
DGVdatagaji.DataSource = GajiKaryawan.ds
DGVdatagaji.DataMember = "TblGajiKaryawan"
DGVdatagaji.ReadOnly = True
GajiKaryawan.tutupdatabase()
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("harus dipilih", MsgBoxStyle.Information, "INFO")
Else
GajiKaryawan.ds.Clear()
GajiKaryawan.BukaDatabase()
GajiKaryawan.perintahSQL.CommandType = CommandType.Text
'combo box yang ke -0:NIP
If cmbparameter.SelectedIndex = 0 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan
where NIK like'%" & txtnilaiparameter.Text & "%'"
'combo box yang ke -1:nama
ElseIf cmbparameter.SelectedIndex = 1 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan
where nama like'%" & txtnilaiparameter.Text & "%'"
'combo box yang ke - 2:alamat
ElseIf cmbparameter.SelectedIndex = 2 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan
where alamat like'%" & txtnilaiparameter.Text & "%'"
'combo box yang ke -3:telepon
ElseIf cmbparameter.SelectedIndex = 3 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan
where telepon like'%" & txtnilaiparameter.Text & "%'"
'combo box yang ke -4:jabatan
ElseIf cmbparameter.SelectedIndex = 4 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan
where jabatan like'%" & txtnilaiparameter.Text & "%'"
ElseIf cmbparameter.SelectedIndex = 5 Then
GajiKaryawan.perintahSQL.CommandText = "select * from TblGajiKaryawan
where TotalGaji like'%" & txtnilaiparameter.Text & "%'"
End If
GajiKaryawan.da.SelectCommand = GajiKaryawan.perintahSQL
GajiKaryawan.da.Fill(GajiKaryawan.ds, "TblGajiKaryawan")
DGVdatagaji.DataSource = GajiKaryawan.ds
DGVdatagaji.DataMember = "TblGajiKaryawan"
DGVdatagaji.ReadOnly = True
GajiKaryawan.tutupdatabase()
End If
End Sub
Private Sub FormLihatData_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tampildata()
End Sub
End Class
Class Gaji Karyawan.vb
Public Class GajiKaryawan
'membuat file koneksi
Public Shared koneksi As New SqlClient.SqlConnection
Public Shared perintahSQL As New SqlClient.SqlCommand
'data adapter : untunk mengambil data dari database dan menampungnya pada dataset
Public Shared da As New SqlClient.SqlDataAdapter
'data set : untuk menampilkan tabel yang pada database
Public Shared ds As New DataSet
'data reader : untuk membaca dan menampilkan data lebih cepat dan efisien
Public Shared ketemu As SqlClient.SqlDataReader
Public Shared Sub BukaDatabase()
Try
koneksi.ConnectionString = "Data Source=DOSEN\SQLEXPRESS;Initial Catalog=dbGaji;Integrated Security=True"
koneksi.Open()
perintahSQL.Connection = koneksi
Catch ex As Exception
MsgBox("koneksi database gagal!!!", MsgBoxStyle.Information, "error")
End Try
End Sub
Public Shared Sub tutupdatabase()
koneksi.Close()
koneksi.ConnectionString = Nothing
End Sub
End Class
