Kamis, 07 Oktober 2010

PROGRAM PENGGAJIAN

Bentuk Normalisasi
        Berikut ini merupakan tahap dalam merancang basis data dengan aturan-aturan dan teknik-teknik normalisasi.
1. Bentuk belum dinormalisasi
       Semua atribut dan semua data direkam :
npk karyawan, nama, seksi, pegawai, gol, tgl_lahir, alamat, kota, jk, kewarganegaraan, agama, telpon, golda, pendidikan, luluspend, tapend, training, tatrai, temtra, pengalaman, pkj, mulai, berhenti, alasan, status, ayah, ibu, istri, jumlah anak, gol, gapok, tunmak, tunjab, tunhad, tunpang, tunsis, tunank, tunpres, jpk, jht, no_slip, bulan, tahun, npk, pinjam, pothad, potkop, potpens, potjam, potmkn, pajak, potlain, npk, tanggal, jam masuk, jam keluar, lembur, ket.
       2. Bentuk normalisasi I
Pada tahap ini semua atribut dan data ditulis serta bagian yang sama dihindarkan dan tidak perlu ditulis :npk karyawan, nama, seksi, pegawai, gol, tgl_lahir, alamat, kota, jk, kewarganegaraan, agama, telpon, golda, pendidikan, luluspend, tapend, training, tatrai, temtra, pengalaman, pkj, mulai, berhenti, alasan, status, ayah, ibu, istri, jumlah anak, gol, gapok, tunmak, tunjab, tunhad, tunpang, tunsis, tunank, tunpres, jpk, jht, no_slip, bulan, tahun, pinjam, pothad, potkop, 
potpens, potjam, potmkn, pajak, potlain, tanggal, jam masuk, jam keluar, lembur, ket.
       3. Bentuk normalisasi II
Pada tahap ini dibentuk table-tabel yang berisi data yang ada dan dikelompokan berdasarkan suatu karakter tertentu :
a. Tabel data karyawan : npk karyawan, nama, seksi, pegawai, gol, tgl_lahir, alamat, kota, jk, kewarganegaraan, agama, telpon, golda, pendidikan, luluspend, tapend, training, tatrai, temtra, pengalaman, pkj, mulai, berhenti, alasan, status, ayah, ibu, istri, jumlah anak.
b. Tabel data golongan : gol, gapok, tunmak, tunjab, tunhad, tunpang, tunsis, tunank, tunpres, jpk, jht.
c. Tabel data gaji : no_slip, bulan, tahun, npk, pinjam, pothad, potkop, potpens, potjam, potmkn, pajak, potlain.
d. Tabel data absensi : npk, tanggal, jam masuk, jam keluar, lembur, ket.
Relasi Antar Tabel
  Struktur File Basis Data
a. File Karyawan
 b. File Golongan
 C. File Gaji





d. File Absensi
 Desain Tampilan Menu Utama
 Desain Tampilan Form Input Data Karyawan
 Form Data Golongan Karyawan

          Form Data Gaji Karyawan
Source Kode Program
Menu Utama
Option Explicit

Private Sub AK_Click()
formabsensi.Show
End Sub

Private Sub CD_Click()
FORMCARIKARYAWAN.Show
End Sub

Private Sub DTPicker1_Click()
Me.DTPicker1.Visible = False
End Sub

Private Sub ED_Click()
FORMEDITKAR.Show
End Sub

Private Sub FG_Click()
FORM_GOLONGAN.Show
End Sub
Private Sub Form_Load()
    Me.Caption = "APLIKASI DATA KARYAWAN & PENGGAJIAN " & "  " & "(" & Format(Date, "dddd,dd mmmm yyyy") & ")"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Me.Label1(1).BorderStyle = 0
End Sub

Private Sub FSG_Click()
FORMSLIP.Show
End Sub

Private Sub HD_Click()
FORMDELETEKAR.Show
End Sub

Private Sub K_Click()
If MsgBox("BENER NIH MAU KELUAR...?", vbYesNo, "MENU UTAMA APLIKASI") = vbYes Then
  End
End If
End Sub
Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label1(1).BorderStyle = 1
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub RA_Click()
ReportAbsensi.Show
End Sub

Private Sub RG_Click()
REPORTGOLONGAN.Show
End Sub


Private Sub RK_Click()
FPRK.Show
End Sub

Private Sub RSG_Click()
Form2.Show
End Sub

Private Sub RSGPNPK_Click()
FPREKGAP.Show
End Sub

Private Sub SET_Click()
FSETTING.Show
End Sub

Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)
FSETTING.Show
End Sub

Private Sub TD_Click()
FKARYAWAN.Show
End Sub

Private Sub Timer1_Timer()
Me.Height = Me.Height + 100
Me.Width = Me.Width + 100
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
 If Me.Width >= 12450 Then
    Me.Timer1.Enabled = False
 End If
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
    MsgBox "ANDA SALAH PROSEDUR", vbCritical, "SALAH PROSEDUR"
    MsgBox "PILIH DI BUTTON MENU", vbExclamation, "SORRY"
Case 2
    FORMCARIKARYAWAN.Show
Case 3
    FORM_GOLONGAN.Show
Case 4
    FORMSLIP.Show
End Select

End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Index
Case 1
    FKARYAWAN.Show
Case 2
    FORMEDITKAR.Show
Case 3
    FORMDELETEKAR.Show
End Select
End Sub

Private Sub Timer2_Timer()
If Me.lblteks2.ForeColor = &HFF8080 Then
    Me.lblteks2.ForeColor = &HFFFFFF
ElseIf Me.lblteks2.ForeColor = &HFFFFFF Then
    Me.lblteks2.ForeColor = &HFF8080
End If
End Sub

Entry Data Karyawan

Private Sub ADD_Click()
If MsgBox("YAKIN MAU NAMBAH DATA..?", vbOKCancel, "SEKILAS INFO") = vbOK Then
rs.AddNew
hidup
Me.TXTNPM.SetFocus
'rs.MoveNext
'Me.DTPicker1.Value = " "
kos
Me.COMJK.Enabled = True
Me.MAJU.Enabled = False
Me.MUNDUR.Enabled = False
Me.Label2.Enabled = False
Me.Label3.Enabled = False
Me.COMJK.Text = ""
Me.KAWIN1.Value = False
Me.BUJANG1.Value = False
Me.BEBEK.Value = False
Me.yabek.Value = False
Me.Text3.Visible = False
Me.Combo5.Enabled = True
Me.Combo6.Enabled = True
Me.Combo7.Enabled = True
Me.KAWIN1.Visible = False
Me.BUJANG1.Visible = False
Else
  rs.MoveFirst
  DATA
  Me.KAWIN1.Visible = True
  Me.BUJANG1.Visible = True
  
End If
End Sub

Private Sub ADD_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.ADD.ForeColor = &HFF&
Me.ADD.BorderStyle = 1

End Sub

Private Sub Command5_Click()
If MsgBox("MAU KELUAR YA..?", vbYesNo, "QUESTION") = vbYes Then
Unload Me
End If

End Sub

Private Sub Command6_Click()
End Sub

Private Sub Command7_Click()
      If MsgBox("Data ini akan disimpan. Setuju ?", vbYesNo, "Simpan") = vbYes Then
        pglsql "insert into tbarang (kd_barang,nama_barang,harga,satuan,stok) " & "values ('" & txtkdbar.Text & "','" & TXTNAMA.Text & "','" & Val(txtharga.Text) & "','" & txtsatuan.Text & " ','" & Val(txtstock.Text) & "')"
      
    End If

End Sub

Private Sub CMDCAN_Click()
rs.CancelUpdate
Me.MAJU.Enabled = True
Me.MUNDUR.Enabled = True
Me.Label2.Enabled = True
Me.Label3.Enabled = True
Me.SAVE.Enabled = True
rs.MoveFirst
DATA
WAWAN
Me.CMDCAN.Visible = False
End Sub

Private Sub Combo1_Change()
bukatb "select * from tkaryawan "
DataCombo1
End Sub

Private Sub BEBEK_Click()
Me.TXTPKJ.Enabled = False
Me.COMMU.Enabled = False
Me.COMBER.Enabled = False
Me.COMALAS.Enabled = False
End Sub

Private Sub COMALAS_Click()
Me.COMALAS.Enabled = False
End Sub

Private Sub COMBER_Click()
Me.COMBER.Enabled = False
End Sub

Private Sub Command1_Click()
Me.KAWIN1.Visible = True
Me.BUJANG1.Visible = True

End Sub


Private Sub COMANAK_Click()
Me.COMANAK.Enabled = False
End Sub

Private Sub Combo5_Click()
Me.Combo5.Enabled = False

End Sub

Private Sub Combo6_Click()
Me.Combo6.Enabled = False
End Sub

Private Sub Combo7_Click()
Me.Combo7.Enabled = False
End Sub

Private Sub COMJK_Click()
Me.COMJK.Enabled = False
End Sub

Private Sub COMLUPEND_Click()
Me.COMLUPEND.Enabled = False
If Me.COMLUPEND.Text = "YA" Then
   Me.COMTAPEN.Enabled = True
   Else
   Me.COMLUPEND.Text = "TIDAK"
   Me.COMTAPEN.Enabled = False
   End If
End Sub

Private Sub Command2_Click()
FORMDELETEKAR.Show
End Sub

Private Sub Command8_Click()
'Me.Adodc1.Recordset.Delete
'Me.Adodc1.Recordset.MoveFirst
    If MsgBox("Data ini akan dihapus. Setuju ?", vbYesNo, "Hapus") = vbYes Then
        pglsql "delete from tbarang " & "where kd_barang = '" & txtkdbar.Text & "'"
        kos
    End If

End Sub


Private Sub COMMU_Click()
Me.COMMU.Enabled = False
End Sub

Private Sub COMPEND_Click()
Me.COMPEND.Enabled = False
End Sub

Private Sub COMTAPEN_Click()
Me.COMTAPEN.Enabled = False
End Sub

Private Sub COMTATRAI_Click()
Me.COMTATRAI.Enabled = False
End Sub

Private Sub COMTRA_Click()
Me.COMTRA.Enabled = False
If Me.COMTRA.Text = "tidak" Then
   Me.COMTATRAI.Visible = False
   End If
End Sub


Private Sub DataCombo1_Click(Area As Integer)

End Sub

Private Sub CTRA_Click()
Me.CTRA.Enabled = False
If Me.CTRA.Text = "YA" Then
   Me.TXTTEM.Enabled = True
   Me.COMTATRAI.Enabled = True
   Else
   Me.TXTTEM.Enabled = False
   Me.COMTATRAI.Enabled = False
   End If
End Sub

Private Sub EXIT_Click()
If MsgBox("MAU KELUAR YA..?", vbYesNo, "QUESTION") = vbYes Then
tutupdb
Unload Me
End If
End Sub

Private Sub EXIT_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.EXIT.ForeColor = &HFF&
Me.EXIT.BorderStyle = 1
End Sub
Private Sub Form_Load()
bukadb
mati
bukatb "select * from tkaryawan"
'& "where kd_barang = '" & txtkdbar.Text & "'"
Set Me.DataGrid1.DataSource = rs
'Me.WN1.Visible = False
'Me.LK1.Visible = True
'Set Me.Combo5.DataSource = rs
'Set Me.Combo6.DataSource = rs
'Set Me.Combo7.DataSource = rs
'Set Me.COMANAK.DataSource = rs
Me.COMMU.Enabled = False
Me.COMBER.Enabled = False
Me.COMALAS.Enabled = False
'Me.TXTTELEPON.Enabled = False
'Me.COMJK.Enabled = False
Me.Text1.TabStop = False
DATA
'If rs("TRAINING") = "YA" Then Me.YT.Value = True
'If rs.Fields("STATUS") = "BELUM" Then Me.BUJANG1.Value = True
'If rs.Fields("PENGALAMAN") = "PERNAH BEKERJA" Then Me.yabek.Value = True
Me.SSTab1.Visible = True
'Me.WN1.Visible = False
'Me.BUJANG1.Visible = False
Me.Combo5.Visible = True
Me.Combo6.Visible = True
Me.Combo7.Visible = True
'MsgBox rs.Fields(7)
Me.Frame2.Visible = True
End Sub
Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MUNDUR.ForeColor = &HFF0000
Me.MUNDUR.BorderStyle = 0
Me.MAJU.ForeColor = &HFFFFFF
Me.Label2.ForeColor = &HFF80FF
Me.Label2.BorderStyle = 0
Me.Label3.ForeColor = &HC0E0FF
Me.Label3.BorderStyle = 0
Me.ADD.ForeColor = &HFFC0C0
Me.ADD.BorderStyle = 0
Me.SAVE.ForeColor = &HFFFF&
Me.SAVE.BorderStyle = 0
Me.MAJU.BorderStyle = 0
End Sub

Private Sub Frame4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.EXIT.BorderStyle = 0
Me.EXIT.ForeColor = &HFF8080
End Sub
Private Sub Label2_Click()
rs.MoveFirst
DATA
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label2.ForeColor = &HFF&
Me.Label2.BorderStyle = 1
End Sub
Private Sub Label3_Click()
rs.MoveLast
DATA
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label3.ForeColor = &HFF&
Me.Label3.BorderStyle = 1
End Sub
Private Sub LKON_Click()
Me.Frame2.Visible = True
Me.Frame7.Visible = True
End Sub
Private Sub LTI_Click()
If Me.LTI.Value = True Then
   Me.COMTATRAI.Enabled = False
   Me.TXTTEM.Enabled = False
   End If
End Sub
Private Sub LYA_Click()
If Me.LYA.Value = True Then
   Me.COMTATRAI.Enabled = True
   End If
End Sub

Private Sub MAJU_Click()
rs.MoveNext
If rs.EOF Then
   rs.MoveLast
   MsgBox "INI PALING AKHIR PAK", , "STOP PRESS"
   End If
DATA
Me.Combo5.Enabled = False
Me.Combo6.Enabled = False
Me.Combo7.Enabled = False
 Me.Text3.Visible = True
End Sub
Private Sub MAJU_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MAJU.ForeColor = &HFF&
Me.MAJU.BorderStyle = 1
End Sub
Private Sub MUNDUR_Click()
rs.MovePrevious
If rs.BOF Then
   rs.MoveFirst
   MsgBox "INI PALING AWAL PAK", , "STOP PRESS"
   End If
DATA
Me.Combo5.Visible = True
Me.Text3.Visible = True
End Sub
Private Sub MUNDUR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.MUNDUR.ForeColor = &HFF&
Me.MUNDUR.BorderStyle = 1
End Sub
Private Sub SAVE_Click()
 If MsgBox("Data ini akan disimpan. Setuju ?", vbYesNo, "Simpan") = vbYes Then
       rs.Fields(0) = Me.TXTNPM.Text
       rs.Fields(1) = Me.TXTNAMA.Text
       rs.Fields("TGL_LAHIR") = Me.DTPicker1.Value
       rs.Fields("ALAMAT") = Me.TXTALAMAT.Text
       rs.Fields("KOTA") = Me.TXTKOTA.Text
       'If Me.LK1.Value = True Then rs.Fields(5) = "LAKI LAKI"
       'If Me.WN1.Value = True Then rs.Fields(5) = "WANITA"
       rs.Fields("JK") = Me.COMJK.Text
       'rs.Fields(2) = Me.DTPicker1.Value
       rs.Fields("AGAMA") = Me.Combo6.Text
       rs.Fields("GOLDA") = Me.Combo7.Text
       rs.Fields("TELEPON") = Me.TXTTELEPON.Text
       rs.Fields("KEWARGANEGARAAN") = Me.Combo5.Text
       rs.Fields("pendidikan") = Me.COMPEND.Text
       rs.Fields("luluspend") = Me.COMLUPEND.Text
       rs.Fields("tapend") = Me.COMTAPEN.Text
       rs.Fields("AYAH") = Me.TXTAYAH.Text
       rs.Fields("IBU") = Me.TXTIBU.Text
       rs.Fields("ISTERI") = Me.TXTIS.Text
       rs.Fields("ANAK") = Me.COMANAK.Text
       rs.Fields("temtrai") = Me.TXTTEM.Text
       rs.Fields("tatrai") = Me.COMTATRAI.Text
       rs.Fields("pkj") = Me.TXTPKJ.Text
       rs.Fields("MULAI") = Me.COMMU.Text
       rs.Fields("BERHENTI") = Me.COMBER.Text
       rs.Fields("ALASAN") = Me.COMALAS.Text
       rs.Fields("TRAINING") = Me.CTRA.Text
       rs.Fields("GOL") = Me.COMGOL.Text
       rs.Fields("SEKSI") = Me.COMSEK.Text
       Me.MUNDUR.Enabled = True
       Me.Label2.Enabled = True
       Me.Label3.Enabled = True
       Me.TXTTELEPON.Visible = True
       mati
       Me.MAJU.Enabled = True
       Me.KAWIN1.Visible = True
       Me.BUJANG1.Visible = True
       'If TT.Value = True Then
        '  rs.Fields("TRAINING") = "TIDAK"
         ' Else
         ' rs.Fields("TRAINING") = "YA"
       ' End If
       If KAWIN1.Value = True Then
          rs.Fields("STATUS") = "KAWIN"
          Else
          rs.Fields("STATUS") = "BELUM"
        End If
       If Me.yabek.Value = True Then
          rs.Fields("PENGALAMAN") = "PERNAH BEKERJA"
          Else
          rs.Fields("PENGALAMAN") = "BELUM PERNAH"
        End If
       rs.Update
       rs.MoveFirst
       rs.Requery
       ' pglsql "insert into tkaryawan (npm,nama,tgl_LAHIR,alamat,kota,jk,pendidikan,grade) " & "values ('" & TXTNPM & "','" & TNAMA.Text & "','" & (TXTTGL.Text) & "','" & (TXTALAMAT.Text) & " ','" & TXTKOTA & "','" & (TXTJK.Text) & "')"
Else
        rs.Fields(0) = " "
        'rs.Fields("TRAINING") = " "
        'rs.Fields("mulai") = " "
        'rs.Fields(" berhenti") = " "
        rs.Delete
        rs.MoveFirst
        DATA
       ' kos

        DATA
'        rs.MoveFirst

       ' hidup
   '  kos

     Me.Combo5.Visible = True
     Me.Combo6.Visible = True
     Me.Combo7.Visible = True
     Me.COMPEND.Enabled = True
     Me.COMLUPEND.Enabled = True
     Me.COMTAPEN.Enabled = True
     Me.COMTATRAI.Enabled = True
    ' Me.BUJANG.Visible = False
     Me.TXTTELEPON.Visible = True
     Me.MAJU.Enabled = True
     Me.MUNDUR.Enabled = True
     Me.Label2.Enabled = True
     Me.Label3.Enabled = True
     Me.Text3.Visible = True
     mati
     Me.KAWIN1.Visible = True
     Me.BUJANG1.Visible = True

    End If
rs.Requery
End Sub

Private Sub SAVE_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.SAVE.ForeColor = &HFF&
Me.SAVE.BorderStyle = 1

End Sub

Private Sub SSTab2_Click(PreviousTab As Integer)
Me.SSTab1.Visible = True
Me.SSTab2.Visible = False
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
If Me.SSTab1.Caption = "keluarga" Then
   Me.Text8.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
'Dim HARI As Variant
'HARI_INI = Now

'LABELJAM.Caption = Format(HARI_INI, "HH:MM:SS")
'LABELH.Caption = Format(HARI_INI, "DDDD")
'TGL.Caption = Format(HARI_INI, "DD")
'T.Caption = Format(HARI_INI, "YYYY")
'Label1.Caption = Format(HARI_INI, "MMMM")
End Sub
Private Sub kos()
TXTNPM.Text = ""
TXTNAMA.Text = ""
TXTALAMAT.Text = ""
TXTKOTA.Text = ""
Text3.Text = ""
Me.TXTTELEPON = ""
Me.Combo5.Text = ""
Me.Combo6.Text = ""
Me.Combo7.Text = ""
Me.KAWIN1.Value = False
Me.BUJANG1.Value = False
Me.COMPEND.Text = ""
Me.COMTAPEN.Text = ""
Me.COMLUPEND.Text = ""
Me.COMTATRAI.Text = ""
Me.TXTTEM.Text = ""
Me.yabek.Value = False
Me.BEBEK.Value = False
Me.TXTPKJ.Text = ""
Me.COMMU.Text = ""
Me.COMBER.Text = ""
Me.TXTAYAH.Text = ""
Me.TXTIBU.Text = ""
Me.TXTIS.Text = ""
Me.COMALAS.Text = ""
Me.COMJK.Text = ""
Me.COMANAK.Text = ""
Me.COMGOL.Text = ""
Me.COMSEK.Text = ""
End Sub

Private Sub Timer2_Timer()
Me.Height = Me.Height + 100
Me.Width = Me.Width + 100
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
 If Me.Width >= 12450 Then
    Me.Timer2.Enabled = False
    End If
End Sub

Sub DATA()
If rs.RecordCount > 0 Then
        TXTNPM = rs.Fields("NPM")
        TXTNAMA.Text = rs.Fields("nama")
        Me.DTPicker1.Value = rs.Fields("TGL_LAHIR")
        TXTALAMAT.Text = rs.Fields("ALAMAT")
        TXTKOTA.Text = rs.Fields("KOTA")
        Me.COMJK.Text = rs.Fields("JK")
        Me.TXTTELEPON.Text = rs.Fields("TELEPON")
        Me.Combo6.Text = rs.Fields("AGAMA")
        Me.Combo7.Text = rs.Fields("GOLDA")
        Me.Combo5.Text = rs.Fields("KEWARGANEGARAAN")
        Me.COMANAK.Text = rs.Fields("ANAK")
        Me.TXTAYAH.Text = rs.Fields("AYAH")
        Me.TXTIBU.Text = rs.Fields("IBU")
        Me.TXTIS.Text = rs.Fields("ISTERI")
        Me.COMPEND.Text = rs.Fields("pendidikan")
        Me.COMLUPEND.Text = rs.Fields("luluspend")
        Me.COMTAPEN.Text = rs.Fields("tapend")
        Me.COMALAS.Text = rs.Fields("alasan")
        Me.COMMU.Text = rs.Fields("MULAI")
        Me.COMBER.Text = rs.Fields("BERHENTI")
        Me.TXTPKJ.Text = rs.Fields("TEMTRAI")
        Me.COMTATRAI.Text = rs.Fields("TATRAI")
        Me.CTRA.Text = rs.Fields("TRAINING")
        Me.TXTTEM.Text = rs.Fields("temtrai")
        Me.COMGOL.Text = rs.Fields("GOL")
        Me.COMSEK.Text = rs.Fields("SEKSI")
        ST$ = rs("status")
        If ST$ = "KAWIN" Then
          Me.KAWIN1.Value = True
          Me.BUJANG1.Value = False
        Else
          Me.KAWIN1.Value = False
          Me.BUJANG1.Value = True
        End If
        'PILHAN PENGALAMAN
        PK$ = rs("PENGALAMAN")
        If PK$ = "PERNAH BEKERJA" Then
          Me.yabek.Value = True
          Me.BEBEK.Value = False
        Else
          Me.yabek.Value = False
          Me.BEBEK.Value = True
        End If

    End If
End Sub

Private Sub DataCombo1()
If rs.RecordCount > 0 Then
   Me.Combo1 = rs.Fields("PENDIDIKAN")
   End If
  
End Sub

Private Sub Timer3_Timer()
Me.Height = Me.Height - 100
Me.Width = Me.Width - 100
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
 If Me.Width <= 2070 Then
    Me.Timer3.Enabled = True
    End If

End Sub

Private Sub TXTALAMAT_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
    If Me.TXTALAMAT.Text = "" Then
        MsgBox "ALAMAT TIDAK BOLEH KOSONG"
        Me.TXTALAMAT.SetFocus
    Else
       Me.TXTKOTA.SetFocus
       UCase (TXTALAMAT.Text)
    End If
 End If
End Sub

Private Sub TXTAYAH_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
    If Me.TXTAYAH.Text = "" Then
       MsgBox "NAMA AYAH TIDAK BOLEH KOSONG"
        Me.TXTAYAH.SetFocus
    Else
       Me.TXTIBU.SetFocus
    End If
 End If

End Sub

Private Sub TXTIBU_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
    If Me.TXTIBU.Text = "" Then
       MsgBox "NAMA IBU TIDAK BOLEH KOSONG"
        Me.TXTIBU.SetFocus
    Else
       Me.TXTIS.Enabled = True
       Me.TXTIS.SetFocus
    End If
 End If

End Sub

Private Sub TXTIS_GotFocus()
Me.TXTIS.Enabled = True
Me.TXTIS.SetFocus
End Sub

Private Sub TXTIS_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
    If Me.TXTIS.Text = "" Then
       MsgBox "NAMA ISTERI TIDAK BOLEH KOSONG"
        Me.TXTIS.SetFocus
    Else
       Me.COMANAK.SetFocus
    End If
 End If

End Sub

Private Sub TXTNAMA_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
   If Me.TXTNAMA.Text = "" Then
       MsgBox "NAMA TIDAK BOLEH KOSONG", vbCritical, "perhatian"
        Me.TXTNAMA.SetFocus
    Else
      Me.COMSEK.SetFocus
      
    End If
 End If
End Sub

Private Sub TXTNPM_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
    If Me.TXTNPM.Text = "" Then
       MsgBox "NPM TIDAK BOLEH KOSONG", vbCritical, "perhatian"
        Me.TXTNPM.SetFocus
    Else
       Me.COMGOL.SetFocus
    End If
 End If
End Sub

Private Sub TXTNPM_LostFocus()
 If KeyAscii = 13 Then
    If Me.TXTNPM.Text = "" Then
        MsgBox "NPM TIDAK BOLEH KOSONG"
        Me.TXTNPM.SetFocus
    Else
       Me.TXTNAMA.SetFocus
    End If
 End If

End Sub

Private Sub TXTTGL_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Me.TXTTGL.Text = "" Then
        MsgBox "TANGGAL LAHIR TIDAK BOLEH KOSONG"
        Me.TXTTGL.SetFocus
    Else
       Me.TXTALAMAT.SetFocus
    End If
 End If

End Sub

Private Sub WAWAN()
Me.TXTAGAMA.Visible = True
'Me.Combo6.Visible = False
Me.TXTGD.Visible = True
Me.Combo7.Visible = False
'Me.Combo5.Visible = False
Me.TWNG.Visible = True
End Sub

Private Sub mati()
 Me.TXTNPM.Enabled = False
 Me.TXTNAMA.Enabled = False
 Me.DTPicker1.Enabled = False
 Me.TXTALAMAT.Enabled = False
 Me.TXTKOTA.Enabled = False
 Me.COMJK.Enabled = False
 Me.Combo5.Enabled = False
 Me.Combo6.Enabled = False
 Me.Combo7.Enabled = False
 Me.TXTTELEPON.Enabled = False
 Me.COMPEND.Enabled = False
 Me.COMLUPEND.Enabled = False
 Me.COMTAPEN.Enabled = False
 Me.CTRA.Enabled = False
 Me.TXTAYAH.Enabled = False
 Me.TXTIBU.Enabled = False
 Me.COMMU.Enabled = False
 Me.COMBER.Enabled = False
 Me.COMALAS.Enabled = False
 Me.TXTIS.Enabled = False
 Me.TXTTEM.Enabled = False
 Me.COMTATRAI.Enabled = False
 Me.TXTPKJ.Enabled = False
 Me.COMANAK.Enabled = False
End Sub
Private Sub hidup()
 Me.TXTNPM.Enabled = True
 Me.TXTNAMA.Enabled = True
 Me.DTPicker1.Enabled = True
 Me.TXTALAMAT.Enabled = True
 Me.TXTKOTA.Enabled = True
 Me.COMJK.Enabled = True
 Me.Combo5.Enabled = True
 Me.Combo6.Enabled = True
 Me.Combo7.Enabled = True
 Me.TXTTELEPON.Enabled = True
 Me.COMPEND.Enabled = True
 Me.COMLUPEND.Enabled = True
 Me.COMTAPEN.Enabled = True
 Me.TXTAYAH.Enabled = True
 Me.TXTIBU.Enabled = True
 Me.CTRA.Enabled = True
 Me.TXTTEM.Enabled = True
 Me.COMTATRAI.Enabled = True
 Me.TXTPKJ.Enabled = True
 Me.COMANAK.Enabled = True
 Me.BEBEK.Value = False
 Me.yabek.Value = False
 Me.COMMU.Text = ""
 Me.COMBER.Text = ""
 Me.COMALAS.Text = ""
 Me.CTRA.Text = ""
End Sub

Private Sub yabek_Click()
If Me.yabek.Value = True Then
   Me.TXTPKJ.Enabled = True
   Me.COMMU.Enabled = True
   Me.COMBER.Enabled = True
   Me.COMALAS.Enabled = True
   End If
End Sub

Data Golongan

Private Sub Command1_Click()
If Me.Command1.Caption = "LIHAT DATA" Then
    Me.Command1.Caption = "TUTUP DATA"
    Me.DataGrid2.Visible = True
Else
    Me.Command1.Caption = "LIHAT DATA"
    Me.DataGrid2.Visible = False
End If
End Sub
Private Sub Command2_Click()
G.MoveFirst
      G.Find "GOL='" + Trim(Me.Text17.Text) + "'"
    If G.EOF Then
       MsgBox "GOLONGAN  " + " " + Trim(Me.Text17.Text) + " " + "TIDAK ADA"
       Me.Text17.Text = ""
       Me.PEN.Visible = False
       Me.Label11.Enabled = True
       Me.Label5.Enabled = True
       Me.Label6.Enabled = True
       Me.Label7.Enabled = True
       Me.Label8.Enabled = True
       Me.Label10.Enabled = True
       Me.Label11.Enabled = True
       Me.Label16.Enabled = True
       Me.Label15.Enabled = False
       Me.Label9.Enabled = True
       G.MoveFirst
    Else
       tampil
        Me.PEN.Visible = False
        Me.Label11.Enabled = True
       Me.Label5.Enabled = True
       Me.Label6.Enabled = True
       Me.Label7.Enabled = True
       Me.Label8.Enabled = True
       Me.Label10.Enabled = True
       Me.Label11.Enabled = True
       Me.Label16.Enabled = True
       Me.Label15.Enabled = False
       Me.Label9.Enabled = True
    End If
End Sub

Private Sub Command3_Click()
Me.PEN.Visible = False
 Me.Label11.Enabled = True
    Me.Label5.Enabled = True
    Me.Label6.Enabled = True
    Me.Label7.Enabled = True
    Me.Label8.Enabled = True
    Me.Label10.Enabled = True
    Me.Label11.Enabled = True
    Me.Label16.Enabled = True
    Me.Label15.Enabled = False
    Me.Label9.Enabled = True

End Sub

'Option Explicit
Private Sub Form_Load()
bukadb
BUKAGOL "select * from tgol"
'Me.Text7.TabStop
'Me.DataCombo1.Visible = False
Set Me.DataGrid2.DataSource = G
'Set Me.DataCombo1.RowSource = G
'Me.DataCombo1.ListField = "gol"
tampil
Me.Text7.Enabled = False
Me.Text10.Enabled = False
Me.Text11.Enabled = False
Me.Text12.Enabled = False
Me.Text13.Enabled = False
Me.Text14.Enabled = False
Me.Text15.Enabled = False
Me.Text16.Enabled = False
''Me.Combo1.Enabled = False
''Me.DataCombo1.TabStop = False
'Me.Text7.TabStop
Me.Label15.Enabled = False
'Me.Label19.Enabled = False
''Me.Combo2.Enabled = False
Me.Width = 100
Me.Height = 100
End Sub
Private Sub tampil()
If G.RecordCount > 0 Then
    Me.Text7.Text = G.Fields("gol")
    Me.Text12.Text = G.Fields("gapok")
    Me.Text11.Text = G.Fields("tunmak")
    Me.Text10.Text = G.Fields("tuntrans")
    Me.Text14.Text = G.Fields("tunobat")
    Me.Text15.Text = G.Fields("tunshift")
    Me.Text16.Text = G.Fields("jamsostek")
    Me.Text13.Text = G.Fields("pensiun")
   'Set Me.DataGrid1.DataSource = rs
   'Set Me.DataCombo1.RowSource = rs
   'Me.DataCombo1.ListField = "kdgol"
   'rs.Requery
   Else
MsgBox "DATA KOSONG"
End If
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label5.ForeColor = &HC000C0
Me.Label5.BorderStyle = 0
Me.Label6.ForeColor = &H80FF80
Me.Label6.BorderStyle = 0
Me.Label7.ForeColor = &HFFFF80
Me.Label7.BorderStyle = 0
Me.Label17.FontItalic = True
Me.Label17.BorderStyle = 0
Me.Label8.ForeColor = &HFF0000
Me.Label8.BorderStyle = 0
Me.Label9.ForeColor = &HFF0000
Me.Label9.BorderStyle = 0
Me.Label10.ForeColor = &H800080
Me.Label10.BorderStyle = 0
Me.Label11.ForeColor = &HFFFF&
Me.Label11.BorderStyle = 0
Me.Label12.ForeColor = &HC00000
Me.Label12.BorderStyle = 0
Me.Label16.ForeColor = &H80C0FF
Me.Label16.BorderStyle = 0
Me.Label13.FontUnderline = FalSse
Me.Label15.BorderStyle = 0
Me.Label1.Move X, Y

End Sub
Private Sub Label10_Click()
Me.Text7.Enabled = True
Me.Text10.Enabled = True
Me.Text11.Enabled = True
Me.Text11.Enabled = True
Me.Text12.Enabled = True
Me.Text13.Enabled = True
Me.Text14.Enabled = True
Me.Text15.Enabled = True
Me.Text16.Enabled = True
Me.Label11.Enabled = False
Me.Text7.SetFocus
    Me.Label5.Enabled = False
    Me.Label6.Enabled = False
    Me.Label7.Enabled = False
    Me.Label8.Enabled = False
    Me.Label9.Enabled = False
    Me.Label10.Enabled = False
    Me.Label11.Enabled = False
    Me.Label16.Enabled = False
    Me.Label15.Enabled = True
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label10.ForeColor = &HFF&
Me.Label10.BorderStyle = 1

End Sub

Private Sub Label11_Click()
If MsgBox("RECORD INI YANG AKAN DI HAPUS...?", vbYesNo + vbQuestion, "Confirmation") = vbYes Then
  G.Delete adAffectCurrent
    kosong
    G.MoveFirst
    tampil
End If
'If MsgBox("RECORD INI YANG AKAN DI HAPUS.?", vbYesNo, "LIHAT DULU DATANYA") = vbYes Then
'        rs.Delete
'        Me.Text1.Text = ""
'        Me.Text2.Text = ""
'        Me.Text3.Text = ""
'End If
       
End Sub

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label11.ForeColor = &HFF&
Me.Label11.BorderStyle = 1

End Sub

Private Sub Label12_Click()
If MsgBox("BENER NIH MAU KELUAR..?", vbYesNo, "FORM GOLONGAN") = vbYes Then
   tutupdb
   Unload Me
End If
End Sub

Private Sub Label12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label12.ForeColor = &HFFFF&
Me.Label12.BorderStyle = 1
Me.Label12.FontUnderline = True
End Sub

Private Sub Label13_Click()
MsgBox "THIS IS ILLEGAL FUNCTION", vbCritical, "WARNING"
End Sub

Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label13.ForeColor = &HFF0000
Me.Label13.BorderStyle = 0
Me.Label13.FontUnderline = True
End Sub

Private Sub Label14_Click()
 If MsgBox("Data ini akan disimpan. Setuju ?", vbYesNo, "Simpan") = vbYes Then
      G.Fields(0) = Me.Text1.Text
       G.Fields(1) = Me.Text2.Text
       G.Fields(2) = Me.Text3.Text
    Me.Label10.Enabled = True
    Me.Label11.Enabled = True
    Me.Label16.Enabled = True
    Me.Label14.Enabled = True
    Me.Label5.Enabled = True
    Me.Label6.Enabled = True
    Me.Label7.Enabled = True
    Me.Label8.Enabled = True
    Me.Label9.Enabled = True
       Else
       G.Fields(0) = " "
       G.Delete
       G.MoveFirst
       tampil
       MsgBox "ANDA BARU SAJA MEMBATALKAN PENYIMPANAN !!", vbExclamation, "PERINGATAN"
    Me.Label10.Enabled = True
    Me.Label11.Enabled = True
    Me.Label16.Enabled = True
    Me.Label14.Enabled = True
    Me.Label5.Enabled = True
    Me.Label6.Enabled = True
    Me.Label7.Enabled = True
    Me.Label8.Enabled = True
    Me.Label9.Enabled = True
End If
End Sub

Private Sub Label14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label14.ForeColor = &HFF&
Me.Label14.BorderStyle = 1

End Sub

Dim gl As String

Private Sub Label15_Click()
If MsgBox("Apakah data akan disimpan...!", vbYesNo + vbQuestion, "CONFIRMATION") = vbYes Then
   G.Fields("gol") = Trim(Me.Text7.Text)
   G.Fields("gapok") = Val(Me.Text12.Text)
    G.Fields("tunmak") = Val(Me.Text11.Text)
    G.Fields("tuntrans") = Val(Me.Text10.Text)
   G.Fields("tunobat") = Val(Me.Text14.Text)
   G.Fields("tunshift") = Val(Me.Text15.Text)
   G.Fields("jamsostek") = Val(Me.Text16.Text)
    G.Fields("pensiun") = Val(Me.Text13.Text)
   G.Update
   Else
         G.Fields(0) = " "
        'rs.Fields("TRAINING") = " "
        'rs.Fields("mulai") = " "
        'rs.Fields(" berhenti") = " "
        G.Delete
        G.MoveFirst
        tampil
End If
tampil
Me.Label5.Enabled = True
Me.Label6.Enabled = True
Me.Label7.Enabled = True
Me.Label8.Enabled = True
Me.Label11.Enabled = True
Me.Label16.Enabled = True
Me.Label10.Enabled = True
Me.Label15.Enabled = False
Me.Text7.Enabled = False
Me.Text10.Enabled = False
Me.Text11.Enabled = False
Me.Text12.Enabled = False
Me.Text13.Enabled = False
Me.Text14.Enabled = False
Me.Text15.Enabled = False
Me.Text16.Enabled = False
Me.Label9.Enabled = True
End Sub

Private Sub Label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label15.BorderStyle = 1
Me.Label15.ForeColor = &H80C0FF
End Sub

Private Sub Label16_Click()
Me.PEN.Visible = True
Me.Text17.SetFocus
 Me.Label11.Enabled = False
    Me.Label5.Enabled = False
    Me.Label6.Enabled = False
    Me.Label7.Enabled = False
    Me.Label8.Enabled = False
    Me.Label10.Enabled = False
    Me.Label11.Enabled = False
    Me.Label16.Enabled = False
    Me.Label15.Enabled = False
    Me.Label9.Enabled = False

End Sub

Private Sub Label16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label16.ForeColor = &HFF&
Me.Label16.BorderStyle = 1

End Sub

Private Sub Label17_Click()
G.MoveFirst
tampil
End Sub

Private Sub Label17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Me.Label17.ForeColor = &HFF&
Me.Label17.BorderStyle = 1
Me.Label17.FontItalic = False
End Sub

Private Sub Label5_Click()
G.MovePrevious
If G.BOF Then
   G.MoveFirst
   MsgBox "INI PALING AWAL PAK", , "STOP PRESS"
   End If
tampil

End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label5.ForeColor = &HFFFF&
Me.Label5.BorderStyle = 1

End Sub

Private Sub Label6_Click()
G.MoveNext
If G.EOF Then
   G.MoveLast
   MsgBox "INI PALING AKHIR PAK", , "STOP PRESS"
   End If
tampil
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label6.ForeColor = &HFF&
Me.Label6.BorderStyle = 1
End Sub

Private Sub Label7_Click()
G.MoveFirst
tampil
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label7.ForeColor = &HC000C0
Me.Label7.BorderStyle = 1
End Sub

Private Sub Label8_Click()
G.MoveLast
tampil
End Sub

Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label8.ForeColor = &HFFFF80
Me.Label8.BorderStyle = 1

End Sub

Private Sub Label9_Click()
If MsgBox("YAKIN MAU NAMBAH DATA..?", vbOKCancel, "SEKILAS INFO") = vbOK Then
   G.AddNew
    Me.Text7.Enabled = True
    Me.Text7.SetFocus
    Me.Text10.Enabled = True
    Me.Text11.Enabled = True
    Me.Text12.Enabled = True
    Me.Text13.Enabled = True
    Me.Text14.Enabled = True
    Me.Text15.Enabled = True
    Me.Text16.Enabled = True
    Me.Label11.Enabled = False
    Me.Label5.Enabled = False
    Me.Label6.Enabled = False
    Me.Label7.Enabled = False
    Me.Label8.Enabled = False
    Me.Label10.Enabled = False
    Me.Label11.Enabled = False
    Me.Label16.Enabled = False
    Me.Label15.Enabled = True
    Me.Label9.Enabled = False
    Me.Text7.Text = ""
    Me.Text10.Text = ""
    Me.Text11.Text = ""
    Me.Text12.Text = ""
    Me.Text13.Text = ""
    Me.Text14.Text = ""
    Me.Text15.Text = ""
    Me.Text16.Text = ""
End If
End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label9.ForeColor = &HFF&
Me.Label9.BorderStyle = 1

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
    If Me.Text1.Text = "" Then
       MsgBox "KODE GOLONGAN TIDAK BOLEH KOSONG"
        Me.Text1.SetFocus
    Else
       Me.Text2.SetFocus
    End If
 End If

End Sub



Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   Me.Text10.SetFocus
End If
End Sub

Private Sub Text12_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  
     Text16.Text = Val(Me.Text12.Text) * (489 / 10000)
     Text13.Text = Val(Me.Text12.Text) * (27 / 1000)
     Text14.Text = Val(Me.Text12.Text) * (37 / 1000)
     Me.Text15.SetFocus
End If
End Sub

Private Sub Text15_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   Me.Text11.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
    If Me.Text2.Text = "" Then
       MsgBox "GOLONGAN TIDAK BOLEH KOSONG"
        Me.Text2.SetFocus
    Else
       Me.Text3.SetFocus
    End If
 End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   Me.Text12.SetFocus
End If
End Sub

Private Sub Timer1_Timer()
Me.Height = Me.Height + 100
Me.Width = Me.Width + 100
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
 If Me.Width >= 10455 Then Me.Width = 10455
 If Me.Height >= 8160 Then Me.Height = 8160
 If Me.Height = 8160 And Me.Width = 10400 Then Timer1.Enabled = False
End Sub

Private Sub kosong()
    Me.Text7.Text = ""
    Me.Text12.Text = ""
    Me.Text11.Text = ""
    Me.Text10.Text = ""
    Me.Text14.Text = ""
    Me.Text15.Text = ""
    Me.Text16.Text = ""
    Me.Text13.Text = ""
End Sub

Data Absensi


Private Sub Command1_Click()
Dim HARI As Variant
HARI_INI = Now
'a.Filter = ""
'If Me.DataCombo1.Text <> "" Then
 '   a.Filter = "TANGGAL= "
    '" + Me.dc1.Text + "'"
'End If

If rs.RecordCount > 0 Then

If Me.Label10.Caption = "Minggu" Then
    MsgBox "LIBUR"
    Me.Label10.ForeColor = &HC0&
    Me.Text5.Text = "Libur"
    Me.Command1.Enabled = False
    Me.Timer1.Enabled = False
    Else
    Me.Command1.Enabled = True
End If
End If
Dim f As String
f = "07:00:00"
If TimeValue(Me.Label9(0).Caption) > TimeValue(f) Then
    MsgBox "HAI SOBAT,ANDA TERLAMBAT YA..?,KENAPA .?", vbQuestion, "AWAS YA"
    Me.Text5.Text = "TERLAMBAT"
Else
    MsgBox "ANDA DATANG TEPAT WAKTU"
   ' Me.Text5.Text = ""
End If
''
'''''''''''''''''''''''
A.AddNew
'lihat "SELECT*FROM TABSENSI"
A.Fields("NPM") = Me.DataCombo1.Text
A.Fields("TANGGAL") = Date
A.Fields("JAM_MASUK") = Me.Label9(0).Caption
A.Fields("JAM_KELUAR") = "00:00"
A.Fields("LEMBUR") = Me.Text4.Text
A.Fields("KET") = Me.Text5.Text
A.Update
End Sub

Private Sub Command2_Click()
A.Filter = ""
If Me.DataCombo2.Text <> "" Then A.Filter = "npm='" + Me.DataCombo2.Text + "'"
If A.RecordCount > 0 Then
   A.Find "TANGGAL='" + Me.Label19.Caption + "'"
   Me.Command2.Enabled = True
   Set Me.DataGrid1.DataSource = A
   Else
   MsgBox "ANDA BELUM MASUK TADI"
   Me.Command2.Enabled = False
  Set Me.DataGrid1.DataSource = A
MsgBox "TERIMA KASIH ATAS KERJASAMANYA", vbExclamation, "HATI HATI"
End If
lihat "SELECT*FROM TABSENSI"
A.Fields("NPM") = Me.DataCombo2.Text
A.Fields("TANGGAL") = Date
A.Fields("JAM_KELUAR") = Me.Q.Caption
A.Fields("LEMBUR") = Me.Text4.Text
A.Fields("KET") = Me.Text5.Text
Dim D As Variant
Dim B As String
Dim C As String
Dim k As String
Dim H As String
Dim sab As String
B = "07:00:00"
C = "16:00:00"
'H = "16:00:00"
sab = "12:00:00"
If A.Fields("ket") = "" Then
   D = Hour(A.Fields("JAM_KELUAR")) - Hour(B)
   If Val(D) > 8 Then A.Fields("lembur") = Val(D) - 8
End If
If A.Fields("KET") = "TERLAMBAT" Then
    D = Hour(A.Fields("JAM_KELUAR")) - Hour(B)
   If Val(D) > 8 Then A.Fields("lembur") = Val(D) - 8
End If
'nyoba'hari sabtu
If Me.Label10.Caption = "Sabtu" Then
    D = Hour(A.Fields("JAM_KELUAR")) - Hour(B)
    If Val(D) > 4 Then A.Fields("lembur") = Val(D) - 4
   'A.Fields("lembur") = D
End If
  
    A.Update
    A.MoveNext
If A.RecordCount > 0 Then Set Me.DataGrid1.DataSource = A
End Sub

Private Sub Command3_Click()
If MsgBox("UDAH MAU PULANG YA..?", vbYesNo, "HRD SECTION") = vbYes Then
  tutupdb
  Unload Me
End If
End Sub

Private Sub DataCombo1_Change()
'a.Filter = ""
'If Me.DataCombo1.Text <> "" Then a.Find "npm='" + Me.DataCombo1.Text + "'"
'If a.RecordCount > 0 Then
'   MsgBox "data ketemu"
'   Me.Command2.Enabled = True
'   Else
'   MsgBox "ANDA BELUM MASUK TADI"
'   Me.Command2.Enabled = False
'  Set Me.DataGrid1.DataSource = a
'End If

End Sub

Private Sub Form_Activate()
MsgBox "SELAMAT DATANG DI PT.BPR KOTA PASURUAN", vbInformation, "PATROLL"
'Me.Text1.SetFocus
If Me.Label10.Caption = "Minggu" Then
   Me.Command1.Enabled = False
   Me.Label10.ForeColor = &HC0&
   Else
   Me.Command1.Enabled = True
   Me.Label10.ForeColor = &HC0FFFF
End If

End Sub

Private Sub Form_Load()
bukadb
bukatb " SELECT npm FROM TKARYAWAN"
lihat "SELECT*FROM TABSENSI"
Set Me.DataCombo1.RowSource = rs
Me.DataCombo1.ListField = "npm"
Set Me.DataCombo2.RowSource = rs
Me.DataCombo2.ListField = "npm"
Me.Timer1.Enabled = True
Me.Timer2.Enabled = False
Set Me.DataGrid1.DataSource = A
Dim Q As String
Q = A.RecordCount
MsgBox Q
End Sub

Private Sub Label11_Click()
rs.MoveNext
If A.EOF Then
   A.MoveLast
   MsgBox "INI PALING AKHIR PAK", , "STOP PRESS"
   End If

End Sub

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label11.ForeColor = &H8080&
Me.Label11.BorderStyle = 1

End Sub

Private Sub Label12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label12.ForeColor = &H8080&
Me.Label12.BorderStyle = 1

End Sub

Private Sub Label13_Click()
TANGGAL = InputBox("MASUKKAN TANGGAL TANG AKAN DI CARI", "ABSENSI")
A.Filter = ""
If TANGAGAL <> "" Then A.Filter = "TANGGAL='" + TANGGAL + "'"
A.MoveFirst
If Not A.EOF Then
   Set Me.DataGrid1.DataSource = A
End If
End Sub

Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label13.ForeColor = &H8080&
Me.Label13.BorderStyle = 1

End Sub

Private Sub Label15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label15.ForeColor = &H8080&
Me.Label15.BorderStyle = 1

End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
If Me.SSTab1.Caption = "KARYAWAN MASUK" Then
    Me.Text5.Text = ""
    Me.Timer1.Enabled = True
    Me.Timer2.Enabled = False
End If
If Me.SSTab1.Caption = "KARYAWAN KELUAR" Then
    Me.Timer1.Enabled = False
    Me.Timer2.Enabled = True
    Me.DataCombo2.ListField = "NPM"
End If
End Sub
Private Sub Timer1_Timer()
Dim HARI As Variant
HARI_INI = Now
Label9(0).Caption = Format(HARI_INI, "HH:MM:SS")
Me.Label10.Caption = Format(HARI_INI, "DDDD")
'Me.Label16.Caption = Format(HARI_INI, " MMMM")
Me.Label19.Caption = Format(HARI_INI, "dd mmmm YYYY")
End Sub

Private Sub Timer2_Timer()
Dim sekarang As Variant
sekarang = Now
Me.Q.Caption = Format(sekarang, "hh:mm:ss")
End Sub

Data Gaji

Option Explicit
Dim LOADING As Integer
Private Sub Command1_Click()
  Me.Text8.Text = Val(Me.TXTPOTKOP.Text) + Val(Me.TXTPOTPENS.Text) + Val(Me.Text3.Text)
  Me.TXTGAKOT.Text = Val(Me.TXTGABRUT.Text) - Val(Me.Text8.Text)
  If Val(Me.Text6.Text) > 3 Then
     Me.Text6.Text = "3"
     Me.Text7.Text = Me.Text6.Text
  End If
End Sub

Private Sub Command2_Click()
If MsgBox("MAU DISIMPAN..?", vbYesNo, "VISUAL BASIC APPLICATION") = vbYes Then
   GJ.AddNew
   GJ.Fields("NO_SLIP") = Me.TXTSLIP.Text
   GJ.Fields("BULAN") = Me.Label16.Caption
   GJ.Fields("TAHUN") = Me.Label17.Caption
   GJ.Fields("NPM") = Me.DataCombo1.Text
   GJ.Fields("GALEM") = Me.TXTL.Text
   GJ.Fields("GABRUT") = Me.TXTGABRUT.Text
   GJ.Fields("POTKOP") = Me.TXTPOTKOP.Text
   GJ.Fields("POTLAIN") = Me.TXTPOTLAIN.Text
   GJ.Fields("PAJAK") = Me.Text4.Text
   GJ.Fields("GABER") = Me.TXTGABER.Text
   GJ.Fields("POTPENS") = Me.TXTPOTPENS.Text
   GJ.Fields("POTJAM") = Me.Text3.Text
   GJ.Update
   Me.Command5.Enabled = True
   hidup
'   kosong
   Me.DataCombo1.Visible = False
   Me.DataCombo3.Visible = True
   Me.DataCombo3.Enabled = False
   Me.DataCombo2.Visible = False
   Me.DataCombo4.Visible = True
   Me.DataCombo4.Enabled = False
   Else
   Me.Command5.Enabled = True
   MsgBox "PENYIMPANAN DI BATALKAN"
   Me.DataCombo3.Visible = True
   Me.DataCombo3.Enabled = False
  Me.DataCombo4.Visible = True
 
  kosong
End If
End Sub

Private Sub Command3_Click()
If MsgBox("YAKIN NIH MAU KELUAR..?", vbOKCancel, "VISUAL BASIC FOR PAYROLL") = vbOK Then
   tutupdb
 Unload Me
End If
End Sub

Private Sub Command4_Click()
Dim A As String
Dim pnpt As String
Dim pkp As String
Dim pph21pthn As String
Dim pph21pbln As String
Dim B As String
Dim pnptbuj As String
Dim pkpbuj As String
Dim pph21pthnbuj As String
Dim pph21pblnbuj As String
  'perhitungan potongan
  Me.Text8.Text = Val(Me.TXTPOTKOP.Text) + Val(Me.TXTPOTPENS.Text) + Val(Me.Text3.Text) + Val(Me.TXTPOTLAIN.Text)
  'perhitungan gaji netto/thn sebelum pajak
  Me.TXTGAKOT.Text = Val(Me.TXTGABRUT.Text) - Val(Me.Text8.Text) ' * 12
  pnpt = Val(Me.TXTGAKOT.Text) * 12
    If Val(Me.TXTANAK.Text) > 3 Then Me.TXTANAK = "3"
    If Me.TXTSTAT.Text = "KAWIN" Then
       A = 2880000 + 1440000 * Val(Me.TXTANAK.Text) + 1440000
      pkp = Val(pnpt) - Val(A)
      pph21pthn = Val(pkp) * (5 / 100)
      pph21pbln = Val(pph21pthn) / 12
      Me.Text4.Text = pph21pbln
      Me.TXTGABER.Text = Val(Me.TXTGAKOT) - Val(Me.Text4.Text)
       Else
         'perhitungan potongan
          Me.Text8.Text = Val(Me.TXTPOTKOP.Text) + Val((Me.TXTPOTPENS.Text * 689 / 100)) + Val((Me.Text3.Text * 59 / 100)) + Val(Me.TXTPOTLAIN.Text)
         'perhitungan gaji netto/thn sebelum pajak
          Me.TXTGAKOT.Text = Val(Me.TXTGABRUT.Text) - Val(Me.Text8.Text)
          pnptbuj = Val(Me.TXTGAKOT.Text) * 12
          'Me.Text1.Text = pnptbuj
          pkpbuj = Val(pnptbuj) - 2880000
          'Me.Text2.Text = pkpbuj
          pph21pthnbuj = Val(pkpbuj) * (5 / 100)
          'Me.Text5.Text = pph21pthnbuj
          pph21pblnbuj = Val(pph21pthnbuj) / 12
          'Me.Text6.Text = pph21pblnbuj
          Me.Text4.Text = Val(pph21pblnbuj)
          Me.TXTGABER.Text = Val(Me.TXTGAKOT.Text) - Val(Me.Text4.Text)
 End If
 MsgBox "silahkan simpan", vbInformation, "konfirmsi"
 Me.Command2.SetFocus
End Sub

Private Sub Command5_Click()
If MsgBox("MAU NAMBAH DATA LAGI YA..?", vbYesNo, "TAMBAH DATA") = vbYes Then
   Me.Command5.Enabled = False
   hidup
   If GJ.RecordCount = 0 Then
      Me.TXTSLIP.Text = "001"
      MsgBox Me.TXTSLIP.Text
      Else
      Me.TXTSLIP.Text = Right("00" + Trim(Str(GJ.RecordCount + 1)), 6)
   End If
   Me.TXTPOTKOP.Text = ""
   Me.TXTPOTPENS.Text = ""
   Me.TXTPOTLAIN.Text = ""
   Me.Text3.Text = ""
   Me.TXTGAPOK.Text = ""
   Me.TXTTUNMAK.Text = ""
   Me.TXTTUNSHIFT.Text = ""
   Me.TXTPEN.Text = ""
   Me.TXTOBAT.Text = ""
   Me.TXTJAMS(0).Text = ""
   Me.TUNTRANS(0).Text = ""
   'Me.Text2.Text = ""
  ' Me.Text5.Text = ""
   Me.TXTSTAT.Text = ""
   Me.TXTANAK.Text = ""
   Me.TXTGABER.Text = ""
   Me.TXTTOTTUNJ.Text = ""
   Me.TXTGABRUT.Text = ""
   Me.TXTGAKOT.Text = ""
   Me.Text4.Text = ""
   Me.Text8.Text = ""
   Me.DataCombo1.Visible = True
   Me.DataCombo2.Visible = True
   Me.DataCombo4.Visible = False
   'Me.TXTSLIP.Text = ""
   Me.TXTNAMA.Text = ""
   Me.TXTSEKSI.Text = ""
   Me.TXTL.Text = ""
   Me.TXTLEMBUR.Text = ""
   'Me.Text2.Visible = False
   Me.DataCombo3.Visible = False
 '  Me.Text5.Visible = False
   'Me.TXTSLIP.SetFocus
   Else
  Me.DataCombo3.Visible = True
  Me.DataCombo3.Enabled = False
  Me.DataCombo4.Visible = True
  Me.DataCombo4.Enabled = False
End If
End Sub


Private Sub Command6_Click()

End Sub

Private Sub Command7_Click()
Dim I As Long
With DEGAJI.rsSLIPGAJI
If .State = adStateClosed Then .Open
.Filter = adFilterNone
If Me.TXTSLIP.Text <> "" Then
    .Filter = "NO_slip='" + Trim(Me.TXTSLIP.Text) + "'"
    .Requery
    REPORTSLIPGAJI.Refresh
    'MsgBox "DDDDDDD"
    Me.Timer3.Enabled = True
    Me.ProgressBar1.Value = 0
    LOADING = 0
    'REPORTSLIPGAJI.Show
End If
End With
End Sub
Private Sub Command8_Click()
If MsgBox("YAKIN MAU MENGHAPUS SLIP NO SLIP INI...?", vbYesNo, "KONFIRMASI") = vbYes Then
   GJ.Fields (0)
    GJ.Fields (1)
    GJ.Fields (2)
    GJ.Fields (3)
    GJ.Fields (4)
    GJ.Fields (5)
    GJ.Fields (6)
    GJ.Fields (7)
    GJ.Fields (8)
    GJ.Fields (9)
    GJ.Fields (10)
    GJ.Fields (11)
    GJ.Delete
End If
End Sub
Private Sub DataCombo1_Change()
'DataEnvironment1.rsABSENSI.Filter = ""
'DataEnvironment1.rsABSENSI.Filter = "NPM='" + Me.DataCombo1.Text + "'"
'DataEnvironment1.rsABSENSI.MoveFirst
'I = 0
'While DataEnvironment1.rsABSENSI.EOF = False
'I = I + Val(DataEnvironment1.rsABSENSI(4))
'DataEnvironment1.rsABSENSI.MoveNext
'Wend
'Me.Text1.Text = I

'NYOBA''
Dim I As Integer
A.Filter = ""
A.Filter = "NPM='" + Me.DataCombo1.Text + "'"
'A.MoveFirst
I = 0
While A.EOF = False
I = I + Val(A.Fields("LEMBUR"))
  A.MoveNext
Wend
Me.TXTLEMBUR.Text = I
'FINISH
Dim JAM As String
Dim P As String
rs.Filter = adFilterNone
rs.MoveFirst
If Trim(Me.DataCombo1.Text) <> "" Then
rs.Find "npm='" + Me.DataCombo1.Text + "'"
   If rs.EOF = False Then
    Me.DataCombo2.Text = rs.Fields("gol")
    Me.TXTANAK.Text = rs.Fields("anak")
    Me.TXTNAMA.Text = rs.Fields("NAMA")
    Me.TXTSEKSI.Text = rs.Fields("SEKSI")
   ' Me.TXTLEMBUR.Text = Val(a.Fields("LEMBUR")) + Val(Me.TXTLEMBUR)
    If Val(Me.TXTANAK.Text) > 3 Then Me.TXTANAK.Text = 3
    Me.TXTSTAT.Text = rs.Fields("status")
G.Filter = adFilterNone
G.MoveFirst
G.Find "[GOL]='" + Trim(rs.Fields("gol")) + "'"
   If G.EOF = False Then
    MsgBox "data ketemu"
    Me.TXTGAPOK.Text = G.Fields(1)
    Me.TXTTUNMAK.Text = G.Fields(2)
    Me.TXTTUNSHIFT.Text = G.Fields("tunshift")
    Me.TUNTRANS(0).Text = G.Fields(3)
    Me.TXTOBAT.Text = G.Fields(5)
    P = Val(Me.TXTGAPOK.Text) * 27 / 1000
    Me.TXTPEN.Text = Val(P)
    Me.Text3.Text = Val(Me.TXTGAPOK.Text) * 689 / 10000
    Me.TXTTOTTUNJ.Text = Val(Me.TXTTUNMAK.Text) + Val(Me.TXTOBAT.Text) + Val(Me.TXTJAMS(0).Text) + Val(Me.TUNTRANS(0).Text) + Val(Me.TXTPEN.Text)
    Me.TXTGABRUT.Text = Val(Me.TXTGAPOK.Text) + Val(Me.TXTTOTTUNJ)
    Me.TXTPOTPENS = Val(Me.TXTGAPOK.Text) * 59 / 1000
    'Me.Text3.Text = G.Fields("potjam")
    Me.TXTL.Text = Val(Me.TXTLEMBUR.Text) * Val(Me.TXTTUNSHIFT.Text)
   Else
   MsgBox "error"
'nyoba'
A.Filter = adFilterNone
A.MoveFirst
If Me.DataCombo1.Text <> "" Then
    A.Filter = "npm='" + Me.DataCombo1.Text + "'"
End If
If A.RecordCount > 0 Then
   MsgBox "data ketemu"
   Me.TXTLEMBUR.Text = A.Fields("lembur")
   Else
   MsgBox "error"
End If
End If
'sini
End If
End If
'End If
Me.TXTJAMS(0).SetFocus
End Sub

Private Sub DataCombo2_Change()
'End If
 
End Sub
Private Sub Form_Load()
bukadb
bukatb " SELECT npm,anak,status,gol,NAMA,SEKSI  FROM TKARYAWAN"
BUKAGAJI "SELECT*FROM TGAJI"
BUKAGOL "SELECT GOL,GAPOK,TUNMAK,TUNSHIFT,TUNTRANS,TUNOBAT FROM TGOL"
lihat "select NPM,LEMBUR FROM TABSENSI"
Set Me.DataCombo1.RowSource = rs
Me.DataCombo1.ListField = "NPM"
MsgBox Me.TXTSLIP.Text
'a.MoveFirst
'MsgBox a.Fields("LEMBUR")
''Set Me.DataCombo2.RowSource = rs
'Me.DataCombo2.ListField = "GOL"
'MATA
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Frame5.Move X, Y
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    If Val(Me.Text6.Text) > 3 Then
    Me.Text6.Text = "3"
    Else
    Me.Text7.Text = Me.Text6.Text
    End If
End If

End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Val (Me.Text1.Text) - Val(Me.Text2.Text) - Val(Me.Text3.Text)
End If
End Sub

Private Sub Timer1_Timer()
Dim op As Variant
op = Now
Me.Label16.Caption = Format(op, "mmmm")
Me.Label17.Caption = Format(op, "yyyy")
End Sub

Private Sub Timer2_Timer()
Me.Height = Me.Height + 100
Me.Width = Me.Width + 100
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
 If Me.Width >= 12450 Then
    Me.Timer2.Enabled = False
    End If

End Sub

Private Sub MATA()
If GJ.RecordCount = 0 Then
   MsgBox "DATA KOSONG", vbInformation, "KONFIRMASI"
   MsgBox GJ.RecordCount
Else
   Me.TXTSLIP.Text = GJ.Fields(0)
  ' Me.Text2.Text = GJ.Fields("NPM")
  ' Me.Text5.Text = rs.Fields("GOL")
   Me.DataCombo1.Text = rs.Fields("NPM")
   Me.TXTNAMA.Text = rs.Fields("NAMA")
   Me.TXTSEKSI.Text = rs.Fields("SEKSI")
   Me.TXTGABER.Text = GJ.Fields("GABER")
   Me.TXTPOTKOP.Text = GJ.Fields("POTKOP")
   Me.TXTPOTLAIN.Text = GJ.Fields("POTLAIN")
   Me.TXTGABRUT.Text = GJ.Fields("GABRUT")
   Me.Text4.Text = GJ.Fields("PAJAK")
   Me.Label16.Caption = GJ.Fields("bulan")
   Me.Label17.Caption = GJ.Fields("tahun")

End If
 End Sub


Private Sub Timer3_Timer()
    LOADING = LOADING + 1
    Me.ProgressBar1.Value = LOADING
    If LOADING = 100 Then
        Me.Timer3.Enabled = False
        MsgBox "SETUP SUCCEEDED"
        REPORTSLIPGAJI.Show
    End If
End Sub
Private Sub TXTJAMS_KeyPress(Index As Integer, KeyAscii As Integer)
Dim JAM As String

     If MsgBox("APAKAH KARYAWAN INI MENERIMA JAMSOSTEK...?", vbYesNo, "KONFIRMASI") = vbYes Then
        JAM = Val(Me.TXTGAPOK.Text) * 489 / 10000
        Me.TXTJAMS(0).Text = Val(JAM)
        Me.TXTPOTKOP.SetFocus
        Else
       KeyAscii = 0
        Me.TXTPOTKOP.SetFocus
        Me.TXTJAMS(0).Text = "0"
       ' Me.Text3.Text = G.Fields("potjam")
    End If
End Sub


Private Sub TXTPOTKOP_KeyPress(KeyAscii As Integer)
Dim L As String
L = Me.TXTNAMA.Text
If KeyAscii = 13 Then
   If Me.TXTPOTKOP.Text = "" Then
     If MsgBox(Trim(L) + " " + " NGGA' PUNYA POTONGAN KOPERASI...???", vbYesNo, "KONFIRMASI") = vbYes Then
        Me.TXTPOTKOP.Text = "0"
        Me.TXTPOTLAIN.SetFocus
        Else
        MsgBox "KALO' PUNYA ISI DONK", , "ISI"
        Me.TXTPOTKOP.SetFocus
     End If
 End If
End If
End Sub

Private Sub TXTPOTLAIN_KeyPress(KeyAscii As Integer)
Dim L As String
L = Me.TXTNAMA.Text
If KeyAscii = 13 Then
   If Me.TXTPOTLAIN.Text = "" Then
     If MsgBox(Trim(L) + " " + " NGGA' PUNYA POTONGAN LAIN ...???", vbYesNo, "KONFIRMASI") = vbYes Then
        Me.TXTPOTLAIN.Text = "0"
        MsgBox "TEKAN TOMBOL HITUNG", vbInformation, "OK''!!"
        Me.Command4.SetFocus
        Else
        MsgBox "KALO' PUNYA ISI DONK", , "ISI"
        Me.TXTPOTLAIN.SetFocus
     End If
 End If
End If
End Sub

Private Sub TXTSLIP_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
   If Me.TXTSLIP.Text = "" Then
   MsgBox "HARUS DI ISI"
   Else
    'GJ.Filter = ""
    'GJ.MoveFirst
    'If GJ.Filter = "NO_SLIP='" + Me.TXTSLIP.Text + "'" Then MsgBox "DATA ADA"
    End If
End If
End Sub
Public Sub hidup()
   Me.TXTSLIP.Enabled = True
   Me.TXTPOTKOP.Enabled = True
   Me.TXTPOTPENS.Enabled = True
   Me.TXTPOTLAIN.Enabled = True
   Me.Text3.Enabled = True
   Me.TXTGAPOK.Enabled = True
   Me.TXTTUNMAK.Enabled = True
   Me.TXTTUNSHIFT.Enabled = True
   Me.TXTPEN.Enabled = True
   Me.TXTOBAT.Enabled = True
   Me.TXTJAMS(0).Enabled = True
   Me.TUNTRANS(0).Enabled = True
  ' Me.Text2.Enabled = True
 '  Me.Text5.Enabled = True
   Me.TXTSTAT.Enabled = True
   Me.TXTANAK.Enabled = True
   Me.TXTGABER.Enabled = True
   Me.TXTTOTTUNJ.Enabled = True
   Me.TXTGABRUT.Enabled = True
   Me.TXTGAKOT.Enabled = True
   Me.Text4.Enabled = True
   Me.Text8.Enabled = True
   Me.DataCombo1.Enabled = True
   Me.DataCombo1.Visible = True
   Me.DataCombo2.Enabled = True
   Me.DataCombo2.Visible = True
   Me.TXTSLIP.Enabled = True
   'Me.Text2.Visible = False
   'Me.Text5.Visible = False
End Sub
Private Sub mati()
   Me.TXTSLIP.Enabled = False
   Me.TXTPOTKOP.Enabled = False
   Me.TXTPOTPENS.Enabled = False
   Me.TXTPOTLAIN.Enabled = False
   Me.Text3.Enabled = False
   Me.TXTGAPOK.Enabled = False
   Me.TXTTUNMAK.Enabled = False
   Me.TXTTUNSHIFT.Enabled = False
   Me.TXTPEN.Enabled = False
   Me.TXTOBAT.Enabled = False
   Me.TXTJAMS(0).Enabled = False
   Me.TUNTRANS(0).Enabled = False
   Me.Text2.Enabled = False
   Me.Text5.Enabled = False
   Me.TXTSTAT.Enabled = False
   Me.TXTANAK.Enabled = False
   Me.TXTGABER.Enabled = False
   Me.TXTTOTTUNJ.Enabled = False
   Me.TXTGABRUT.Enabled = False
   Me.TXTGAKOT.Enabled = False
   Me.Text4.Enabled = False
   Me.Text8.Enabled = False
   Me.DataCombo1.Enabled = False
   Me.DataCombo1.Visible = True
   Me.DataCombo2.Enabled = False
   Me.DataCombo2.Visible = False
   Me.TXTSLIP.Enabled = False
   Me.Text2.Visible = True
   Me.Text5.Visible = True
End Sub
Private Sub kosong()
   Me.TXTSLIP.Text = ""
   Me.TXTPOTKOP.Text = ""
   Me.TXTPOTPENS.Text = ""
   Me.TXTPOTLAIN.Text = ""
   Me.Text3.Text = ""
   Me.TXTGAPOK.Text = ""
   Me.TXTTUNMAK.Text = ""
   Me.TXTTUNSHIFT.Text = ""
   Me.TXTPEN.Text = ""
   Me.TXTOBAT.Text = ""
   Me.TXTJAMS(0).Text = ""
   Me.TUNTRANS(0).Text = ""
  ' Me.Text2.Text = ""
 '  Me.Text5.Text = ""
   Me.TXTSTAT.Text = ""
   Me.TXTANAK.Text = ""
   Me.TXTGABER.Text = ""
   Me.TXTTOTTUNJ.Text = ""
   Me.TXTGABRUT.Text = ""
   Me.TXTGAKOT.Text = ""
   Me.Text4.Text = ""
   Me.Text8.Text = ""
   Me.DataCombo1.Enabled = True
   Me.DataCombo1.Visible = False
   Me.DataCombo2.Enabled = True
   Me.DataCombo2.Visible = False
   Me.TXTSLIP.Enabled = True
  ' Me.Text2.Visible = False
  ' Me.Text5.Visible = False
   Me.TXTL.Text = ""
   Me.TXTLEMBUR.Text = ""
   Me.TXTNAMA.Text = ""
   Me.TXTSEKSI.Text = ""
End Sub