SISTEM INFORMASI PENGGAJIAN KEPEGAWAIAN

SISTEM INFORMASI PENGGAJIAN KEPEGAWAIAN


 Disain File

Database Name : PEGAWAI.Mdb
Table Name : GOLONGAN
Field Key : ID

Field Name Type Size Description
ID Text 10 ID Golongan Pegawai
GOLONGAN Text 9 Golongan Pegawai
GAJIPOKOK Currency 8 Gaji pokok Pegawai

 Desain Input
1. Desain Menu Utama
Listing Module
Option Explicit
Global conn As ADODB.Connection

Public Sub koneksi()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\visual basic\latihan\PEGAWAI.mdb;Persist Security Info=False"
conn.Open
End Sub

2. Desain Form Golongan

Listing Program Form Golongan
Option Explicit
Dim recPegawai As ADODB.Recordset
Dim sql As String

Private Sub Command1_Click() ‘perintah untuk SAVE
sql = "insert into golongan values ('" & ID & "','" & GOLONGAN & "'," & GAJIPOKOK & ")"
conn.Execute sql, , 1
MsgBox " OK! Data telah disimpan"
GOLONGAN = ""
GAJIPOKOK = ""
ID = ""
End Sub




Private Sub Command2_Click() ‘perintah untuk preview
List1.Clear
sql = "select * from golongan"
Set repegawai = conn.Execute(sql, , 1)
repegawai.MoveFirst
Do While Not repegawai.EOF
List1.AddItem repegawai!ID & "--" & repegawai!GOLONGAN & "--" & repegawai!GAJIPOKOK & " "
repegawai.MoveNext
Loop
End Sub

Private Sub Command3_Click() ‘perintah untuk hapus
sql = "DELETE FROM golongan WHERE ID='" & ID & "' "
conn.Execute sql, , 1
GOLONGAN = ""
GAJIPOKOK = ""
End Sub

Private Sub Command4_Click() ‘perintah untuk EXIT
Unload Me
End Sub

Private Sub Command5_Click() ‘Perintah untuk Koreksi
sql = "UPDATE golongan SET GOLONGAN='" & GOLONGAN & "',GAJIPOKOK=" & GAJIPOKOK & " WHERE ID='" & ID & "'"
conn.Execute sql, , 1
GOLONGAN = ""
GAJIPOKOK = ""
End Sub

Private Sub Form_Load()
ID = ""
GOLONGAN = ""
GAJIPOKOK = ""
Call koneksi
End Sub

Private Sub ID_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
sql = "select * from golongan WHERE ID='" & ID & "'"
Set repegawai = conn.Execute(sql, , 1)
If Not repegawai.EOF Then
MsgBox "KETEMU DATA PEGAWAI"
GOLONGAN = repegawai!GOLONGAN
GAJIPOKOK = repegawai!GAJIPOKOK
Else
MsgBox "DATA PEGAWAI TIDAK KETEMU "
GOLONGAN = ""
GAJIPOKOK = 0
GOLONGAN.SetFocus
End If
End If
End Sub