Pembuatan
program penggajian pada PT. Bintang Toedjoe sangat berperan penting dikarenakan jumlah karyawan pada PT. Bintang Toedjoe sangatlah banyak. Dengan system penggajian yang terstruktur dan terorganisir memungkinkan data tidak tertukar antar karyawan setempat.
Recommend Spesifikasi PC :
Peralatan Pendukung Lainnya
- Internet Rp. 1.000.000/bln
- VB6 Rp. 1.000.000
Total Anggaran Biaya Pembuatan Software 11.833.000,-
B. Analys
Program penggajian karyawan harus menggunakan security agar tidak
sembarangan orang yang dapat
mengaksesnya. Selain itu program yang digunakan
harus
menggunakan system yang terorganisir agar data karyawan tidak tertukar antar karyawan. Pada program penggajian karyawan juga diperlukan databse agar data yang sudah
terecord dapat tersimpan dan dapat digunakan sewaktu-waktu jika diperlukan. Program ini terdiri dari 3 form, Form Login, Form Penggajian, dan Form Print Gaji.
C. Design
Terdiri dari :
- 3 Label
- 2 Text Box
- 2 Command Button
Terdiri dari :
- 34 Label
- 16 Text Box
- 4 Combo Box
- 13 Command Button
- 1 Timer
Terdiri dari :
- 35 Label
D. Source Code
Private Sub Command1_Click()
If Text1.Text = "" And Text2.Text = "" Then
MsgBox ("Silahkan Masukan Username dan Password anda")
Else
If Text1 = "admin" And Text2 = "admin" Then
Penggajian.Show 'Perintah Menampilkan Form 2
FormLogin.Visible = False 'Menyembunyikan Form 1
Unload Me 'Menutup Form 1
Else
If Text1 = "esya" And Text2 = "123456" Then
Penggajian.Show 'Perintah Menampilkan Form 2
FormLogin.Visible = False 'Menyembunyikan Form 1
Unload Me 'Menutup Form 1
Else
If Text1 = "ucon" And Text2 = "123456" Then
Penggajian.Show 'Perintah Menampilkan Form 2
FormLogin.Visible = False 'Menyembunyikan Form 1
Unload Me 'Menutup Form 1
Else
If Text1 = "bimo" And Text2 = "123456" Then
Penggajian.Show 'Perintah Menampilkan Form 2
FormLogin.Visible = False 'Menyembunyikan Form 1
Unload Me 'Menutup Form 1
Else
MsgBox "User Name atau Password yang Anda Masukkan salah" _
& vbNewLine & "Silahkan Coba lagi !!", vbCritical, "Warning!!"
Text1.SetFocus
End If
End If
End If
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Command1_Click()
If Combo1.Text = "" Then
MsgBox ("Harap Masukan Nomor Karyawan")
End If
If Combo1.Text = "00001" Then
Text8.Text = "Abdul Aziz"
Text9.Text = "Karyawan Kontrak"
End If
If Combo1.Text = "00002" Then
Text8.Text = "Budi Santoso"
Text9.Text = "Karyawan Tetap"
End If
If Combo1.Text = "00003" Then
Text8.Text = "Chika Jessica"
Text9.Text = "Karyawan Kontrak"
End If
If Combo1.Text = "00004" Then
Text8.Text = "Dudin Amanudin"
Text9.Text = "Karyawan Tetap"
End If
If Combo1.Text = "00005" Then
Text8.Text = "Elisabeth Simanjuntak"
Text9.Text = "Karyawan Kontrak"
End If
If Combo1.Text = "00006" Then
Text8.Text = "Felix Andreas"
Text9.Text = "Karyawan Tetap"
End If
If Combo1.Text = "00007" Then
Text8.Text = "Ginanjar Ali"
Text9.Text = "Karyawan Kontrak"
End If
If Combo1.Text = "00008" Then
Text8.Text = "Hario Sigit"
Text9.Text = "Karyawan Tetap"
End If
If Combo1.Text = "00009" Then
Text8.Text = "Ineke Koesarawati"
Text9.Text = "Karyawan Kontrak"
End If
If Combo1.Text = "00010" Then
Text8.Text = "Johan Yonathan"
Text9.Text = "Karyawan Tetap"
End If
End Sub
Private Sub Command10_Click()
Text4.Text = Val(Combo2.Text) * 5
Text5.Text = Val(Combo4.Text) * 4
Text6.Text = Val(Combo3.Text) * 14
Text10.Text = Val(Text6.Text) + Val(Text5.Text) + Val(Text4.Text)
End Sub
Private Sub Command11_Click()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
End Sub
Private Sub Command12_Click()
End
End Sub
Private Sub Command13_Click()
If Combo1.Text = "" Then
MsgBox ("Data Masih Kosong")
Else
PrintGaji.Show 'Perintah Menampilkan Form 2
Penggajian.Visible = False 'Menyembunyikan Form 1
Unload Me 'Menutup Form 1
End If
End Sub
Private Sub Command2_Click()
Text8.Text = ""
Text9.Text = ""
Combo1.Text = ""
End Sub
Private Sub Command3_Click()
Text15.Text = Penggajian.Text1
Text16.Text = Val(Text15.Text) * 30000
Text11.Text = Penggajian.Text1
Text12.Text = Val(Text11.Text) * 50000
If Text2.Text = "" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "0" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "1" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "2" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "3" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "4" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "5" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "6" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "7" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "8" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "9" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "10" Then
Text7.Text = 2300000 - (2300000 / Val(Text1.Text))
End If
If Text2.Text = "" Then
Text2.Text = "0"
End If
If Text2.Text > 10 Then
MsgBox ("Karyawan Sudah Keluar")
End If
End Sub
Private Sub Command4_Click()
Text13.Text = Val(Text10.Text) * 19650
End Sub
Private Sub Command5_Click()
Text14.Text = Val(Text7.Text) + Val(Text13.Text) + Val(Text12.Text) + Val(Text16.Text)
End Sub
Private Sub Command6_Click()
Text1.Text = ""
End Sub
Private Sub Command7_Click()
Text2.Text = ""
End Sub
Private Sub Command8_Click()
Text3.Text = ""
End Sub
Private Sub Command9_Click()
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Combo4.Text = ""
Text10.Text = ""
Text13.Text = ""
End Sub
Private Sub Form_Load()
'nomor_karyawan
Combo1.AddItem ("00001")
Combo1.AddItem ("00002")
Combo1.AddItem ("00003")
Combo1.AddItem ("00004")
Combo1.AddItem ("00005")
Combo1.AddItem ("00006")
Combo1.AddItem ("00007")
Combo1.AddItem ("00008")
Combo1.AddItem ("00009")
Combo1.AddItem ("00010")
'lembur awal
Combo2.AddItem ("1")
Combo2.AddItem ("2")
Combo2.AddItem ("3")
Combo2.AddItem ("4")
Combo2.AddItem ("5")
Combo2.AddItem ("7")
Combo2.AddItem ("8")
Combo2.AddItem ("9")
Combo2.AddItem ("10")
Combo2.AddItem ("11")
Combo2.AddItem ("12")
Combo2.AddItem ("13")
Combo2.AddItem ("14")
Combo2.AddItem ("15")
Combo2.AddItem ("16")
Combo2.AddItem ("17")
Combo2.AddItem ("18")
Combo2.AddItem ("19")
Combo2.AddItem ("20")
'lembur akhir
Combo4.AddItem ("1")
Combo4.AddItem ("2")
Combo4.AddItem ("3")
Combo4.AddItem ("4")
Combo4.AddItem ("5")
Combo4.AddItem ("7")
Combo4.AddItem ("8")
Combo4.AddItem ("9")
Combo4.AddItem ("10")
Combo4.AddItem ("11")
Combo4.AddItem ("12")
Combo4.AddItem ("13")
Combo4.AddItem ("14")
Combo4.AddItem ("15")
Combo4.AddItem ("16")
Combo4.AddItem ("17")
Combo4.AddItem ("18")
Combo4.AddItem ("19")
Combo4.AddItem ("20")
'lembur holiday
Combo3.AddItem ("1")
Combo3.AddItem ("2")
Combo3.AddItem ("3")
Combo3.AddItem ("4")
Combo3.AddItem ("5")
Combo3.AddItem ("7")
Combo3.AddItem ("8")
Label28 = FormLogin.Text1
End Sub
Private Sub Timer1_Timer()
ljam.Caption = Time
ltanggal.Caption = Format(Date, "mmmm,yyyy")
End Sub
Private Sub Form_Load()
Label1 = Penggajian.ltanggal
Label9 = Penggajian.Combo1
Label10 = Penggajian.Text8.Text
Label11 = Penggajian.Text9.Text
Label26 = Penggajian.Text7.Text
Label27 = Penggajian.Text13.Text
Label28 = Penggajian.Text16.Text
Label29 = Penggajian.Text12.Text
Label31 = Penggajian.Text14.Text
Label33 = Penggajian.Text8.Text
Label35 = Penggajian.Label28
End Sub
E. Maintenance
- Akan dilakukan sebuah pengembangan menggunakan database agar mempermudah admin mengopereasikan
- Akan dilakukan pendesainan UI / User Interface beberapa waktu kedepan
- Akan dikembangkan menggunakan system online untuk cetak slip gaji
- Fixing bug
Belum ada tanggapan untuk "Program Penggajian Karyawan menggunakan SDLC"
Post a Comment
Gunakan Bahasa yang sopan dan santun, jika tidak komentar akan dihapus