Aplikasi Data Pegawai Menggunakan Visual Basic

Aplikasi data ini menggunakan koneksi penyimpanan data di mircosoft acces



Tampilan Pada Menu Utama



Menu Pada Gaji Karyawan



Source kodenya
1. Menghapus Data Pegawai

Private Sub cmdhapus_Click()
Data1.Recordset.Index = "idxnip"
Data1.Recordset.Seek "=", Text1
With Data1.Recordset
If .NoMatch Then
MsgBox "data tidak ada ", 64 + 0, "informasi"
Text1.SetFocus
Exit Sub
Else
.Edit
Text1 = !nip
Text2 = !nama
Text3 = !jabatan
Text4 = !gapok
Text5 = !tunjang
Text6 = !total
pesan = MsgBox("data mau dihapus?", 32 + 4, "pertanyaan")
If pesan = 6 Then
.Delete
End If
End If
End With

End Sub

2. Menyimpan Data Pegawai

Private Sub Cmdsimpan_Click()
If (Text1 = "") Or (Text2 = "") Then
MsgBox "data tidak boleh kosong...!", 16 + 0, "peringatan"
Text1.SetFocus
Exit Sub
End If
Data1.Recordset.Index = "idxnip"
Data1.Recordset.Seek "=", Text1
With Data1.Recordset
If .NoMatch Then
.AddNew
!nip = Text1
!nama = Text2
!jabatan = Text3
!gapok = Val(Text4)
!tunjang = Val(Text5)
!total = Val(Text6)
pesan = MsgBox("isi data sudah benar...!", 32 + 4, "pertanyaan")
If pesan = 6 Then
.Update
End If
Else
pesan = MsgBox("data sudah ada...!", 64 + 0, "informasi")
Exit Sub
End If
End With


End Sub

3. Menambah Data Pegawai

Private Sub Cmdtambah_Click()
If Cmdtambah.Caption = "tambah" Then
Cmdtambah.Caption = "batal"
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = False
Text1.SetFocus
Else
Cmdtambah.Caption = "tambah"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
End If
End Sub

4. Mengubah Data Pegawai

Private Sub cmdubah_Click()
Data1.Recordset.Index = "idxnip"
Data1.Recordset.Seek "=", Text1
With Data1.Recordset
If .NoMatch Then
MsgBox "data tidak ada ", 64 + 0, "informasi"
Text1.SetFocus
Exit Sub
Else
.Edit
!nip = Text1
!nama = Text2
!jabatan = Text3
!gapok = Val(Text4)
!tunjang = Val(Text5)
!total = Val(Text6)
pesan = MsgBox("isi data mau diubah?...!", 32 + 4, "pertanyaan")
If pesan = 6 Then
.Update
End If
End If
End With



End Sub

untuk mendapatkan Aplikasinya Silahkan download diSini