Public Class menuutama
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
login.Show()
End Sub
Private Sub EditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click
Datakaryawan.Show()
End Sub
Private Sub DataAbsensiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataAbsensiToolStripMenuItem.Click
DataAbsensi.Show()
End Sub
Private Sub DataPotonganToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPotonganToolStripMenuItem.Click
datapotongan.Show()
End Sub
Private Sub DataGajiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGajiToolStripMenuItem.Click
DataGaji.Show()
End Sub
Private Sub GajiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiToolStripMenuItem.Click
LaporanGaji.Show()
End Sub
End Class
Source code nya belum dibuat
Public Class Datakaryawan
Dim isitext(12) As String
Dim listampil As ListViewItem
Private Sub Datakaryawan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call isicmbo()
Call tampil()
End Sub
Sub bersih()
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
TextBox5.Text = " "
TextBox6.Text = " "
TextBox7.Text = " "
ComboBox1.Text = "1. Pria "
ComboBox2.Text = "1. Belum Menikah "
ComboBox3.Text = "1. Tata Usaha "
End Sub
Sub isicmbo()
ComboBox1.Items.Add("1. laki-laki")
ComboBox1.Items.Add("2. Perempuan")
ComboBox2.Items.Add("1. Belum Menikah")
ComboBox2.Items.Add("2. Menikah")
ComboBox3.Items.Add("1. Kepala Sekolah")
ComboBox3.Items.Add("2. Guru")
ComboBox3.Items.Add("3. Tata usaha")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Tambah" Then
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
Button5.Enabled = False
Button6.Text = "Keluar"
TextBox2.Focus()
Else
isitext(0) = TextBox1.Text
isitext(1) = TextBox2.Text
isitext(2) = TextBox3.Text
isitext(3) = TextBox4.Text
isitext(4) = TextBox5.Text
isitext(5) = ComboBox1.Text
isitext(6) = TextBox6.Text
isitext(7) = ComboBox2.Text
isitext(8) = ComboBox3.Text
isitext(9) = TextBox7.Text
isitext(10) = DateTimePicker1.Text
isitext(11) = DateTimePicker2.Text
Button2.Text = "Tambah"
Button1.Enabled = True
Button3.Enabled = True
Button5.Enabled = True
TextBox2.Focus()
listampil = New ListViewItem(isitext)
ListView1.Items.Add(listampil)
Call bersih()
TextBox1.Focus()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "Edit" Then
Button3.Text = "Simpan"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "Batal"
Button5.Enabled = False
Button6.Text = "Keluar"
TextBox3.Focus()
Else
End If
End Sub
Sub normal()
Button1.Text = "Cari"
Button1.Enabled = True
Button2.Text = "Tambah"
Button2.Enabled = True
Button3.Text = "Edit"
Button3.Enabled = True
Button4.Text = "Batal"
Button4.Enabled = True
Button5.Text = "Hapus"
Button5.Enabled = True
Button6.Text = "Keluar"
Button6.Enabled = True
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button1.Enabled = True
Button3.Enabled = True
Button5.Enabled = True
Button2.Text = "Tambah"
bersih()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ListView1.FocusedItem.Remove()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button6.Text = "Keluar" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub tampil()
ListView1.View = View.Details
ListView1.Columns.Add("NIK", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("NM KARY", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Absensi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tmpt Lhr", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Lhr", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Jenis Kelamin", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("ALAMAT", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Status", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("JABATAN", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Msa Kerja", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Msk", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tgl Skrg", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
Public Class DataAbsensi
Dim isitext(8) As String
Dim listampil As ListViewItem
Private Sub DataAbsensi_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call tampil()
End Sub
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Tambah" Then
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
Button5.Enabled = False
Button6.Text = "Keluar"
TextBox2.Focus()
Else
isitext(0) = ComboBox1.Text
isitext(1) = TextBox1.Text
isitext(2) = DateTimePicker1.Text
isitext(3) = TextBox2.Text
isitext(4) = TextBox3.Text
isitext(5) = TextBox4.Text
isitext(6) = TextBox5.Text
isitext(7) = TextBox6.Text
Button2.Text = "Tambah"
Button1.Enabled = True
Button3.Enabled = True
Button5.Enabled = True
TextBox2.Focus()
listampil = New ListViewItem(isitext)
ListView1.Items.Add(listampil)
Call bersih()
TextBox1.Focus()
End If
End Sub
Sub normal()
Button1.Text = "Cari"
Button1.Enabled = True
Button2.Text = "Tambah"
Button2.Enabled = True
Button3.Text = "Edit"
Button3.Enabled = True
Button4.Text = "Batal"
Button4.Enabled = True
Button5.Text = "Hapus"
Button5.Enabled = True
Button6.Text = "Keluar"
Button6.Enabled = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button1.Enabled = True
Button3.Enabled = True
Button5.Enabled = True
Button2.Text = "Tambah"
bersih()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ListView1.FocusedItem.Remove()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button6.Text = "Keluar" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub tampil()
ListView1.View = View.Details
ListView1.Columns.Add("NO ABS", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("NIK", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("TANGGAL", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Jum Msk", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("ALPA", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("SAKIT", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("IJIN", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("JUM ABS", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
Public Class datapotongan
Dim isitext(5) As String
Dim listampil As ListViewItem
Private Sub datapotongan_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call normal()
Call tampil()
End Sub
Private Sub datapotongan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Sub bersih()
ComboBox1.Text = " "
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
End Sub
Sub normal()
Button1.Text = "Cari"
Button1.Enabled = True
Button2.Text = "Tambah"
Button2.Enabled = True
Button3.Text = "Edit"
Button3.Enabled = True
Button4.Text = "Batal"
Button4.Enabled = True
Button5.Text = "Hapus"
Button5.Enabled = True
Button6.Text = "Keluar"
Button6.Enabled = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Tambah" Then
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "Batal"
Button5.Enabled = False
Button6.Text = "Keluar"
TextBox2.Focus()
Else
isitext(0) = DateTimePicker1.Text
isitext(1) = ComboBox1.Text
isitext(2) = TextBox1.Text
isitext(3) = TextBox2.Text
isitext(4) = TextBox3.Text
Button2.Text = "Tambah"
Button1.Enabled = True
Button3.Enabled = True
Button5.Enabled = True
TextBox2.Focus()
listampil = New ListViewItem(isitext)
ListView1.Items.Add(listampil)
Call bersih()
TextBox1.Focus()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button1.Enabled = True
Button3.Enabled = True
Button5.Enabled = True
Button2.Text = "Tambah"
bersih()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ListView1.FocusedItem.Remove()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button6.Text = "Keluar" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Sub tampil()
ListView1.View = View.Details
ListView1.Columns.Add("Tanggal", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("NIK", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Pot Kop", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Pot Kes", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
Public Class DataGaji
Dim isitext(16) As String
Dim listampil As ListViewItem
Private Sub DataGaji_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call tampil()
End Sub
Sub bersih()
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox15.Text = ""
End Sub
Sub normal()
Button1.Text = "Cari"
Button1.Enabled = True
Button2.Text = "Tambah"
Button2.Enabled = True
Button3.Text = "Batal"
Button3.Enabled = True
Button4.Text = "Hapus"
Button4.Enabled = True
Button5.Text = "Keluar"
Button5.Enabled = True
Button6.Text = "Cetak"
Button6.Enabled = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "Tambah" Then
Button2.Text = "Simpan"
Button1.Enabled = False
Button3.Text = "Batal"
Button4.Enabled = False
Button5.Text = "Keluar"
Button6.Enabled = False
TextBox1.Focus()
Else
isitext(0) = ComboBox1.Text
isitext(1) = TextBox1.Text
isitext(2) = TextBox2.Text
isitext(3) = TextBox3.Text
isitext(4) = TextBox4.Text
isitext(5) = TextBox5.Text
isitext(6) = TextBox6.Text
isitext(7) = TextBox7.Text
isitext(8) = TextBox8.Text
isitext(9) = TextBox9.Text
isitext(10) = TextBox10.Text
isitext(11) = TextBox11.Text
isitext(12) = TextBox12.Text
isitext(13) = TextBox13.Text
isitext(14) = TextBox14.Text
isitext(15) = TextBox15.Text
Button2.Text = "Tambah"
Button1.Enabled = True
Button3.Enabled = True
Button5.Enabled = True
TextBox2.Focus()
listampil = New ListViewItem(isitext)
ListView1.Items.Add(listampil)
Call bersih()
Call normal()
TextBox1.Focus()
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button1.Enabled = True
Button4.Enabled = True
Button6.Enabled = True
Button2.Text = "Tambah"
Call bersih()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ListView1.FocusedItem.Remove()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button5.Text = "Keluar" Then
Me.Close()
Else
Call bersih()
Call normal()
End If
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
End Sub
Sub tampil()
ListView1.View = View.Details
ListView1.Columns.Add("NIK", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Masa Kerja", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tunj Jabatan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tunj Keluarga", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tunj Kesehatan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Tunj Transport", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Total Tunj", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Pot Transport", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Pot Kesehatan", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Pot Koperasi", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Total Pot", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Gaji Kotor", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Gaji Bersih", 100, HorizontalAlignment.Center)
End Sub
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class
Laporan gaji belum dibuat source code nya.
(selamat mencoba)
0 komentar:
Posting Komentar