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
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