LAMPIRAN A : LISTING PROGRAM

1. Form Login

Private Sub Siap()

txtNama.Enabled = True
txtPswd.Enabled = True
End Sub

Private Sub BlmSiap()

txtNama.Enabled = False
txtPswd.Enabled = False
End Sub

Private Sub Kosong()

txtNama = ""
txtPswd = ""
End Sub

Private Sub Masuk()

frmDatabase.Show vbModal
End Sub

Private Sub cmdOk_Click()

With Data1.Recordset
.Index = "idxID"
.Seek "=", txtPswd
If Not .NoMatch Then
BlmSiap
Masuk
Kosong
Siap
txtNama.SetFocus
Else
x = MsgBox("Password Salah", 0, "Informasi")
Kosong
txtNama.SetFocus
End If
End With
frmLogin1.Hide
End Sub

Private Sub cmdCancel_Click()

Select Case cmdCancel.Caption
Case "&Cancel"
Unload Me
Case "&Batal"
Kosong
BlmSiap
End Select
End Sub

Universitas Sumatera Utara

 

Private Sub Command1_Click()

frmLogin2.Show vbModal
End Sub

Private Sub Form_Activate()

txtNama.MaxLength = 10
txtPswd.MaxLength = 6
End Sub

2. Form Ganti Password

Private Sub Siap()

txtNama.Enabled = True
txtPswd.Enabled = True
End Sub

Private Sub BlmSiap()

txtNama.Enabled = False
txtPswd.Enabled = False
End Sub

Private Sub Kosong()

txtNama = ""
txtPswd = ""
End Sub

Private Sub Awal()

cmdSimpan.Caption = "&Simpan"
cmdEdit.Caption = "&Edit"
cmdHapus.Caption = "&Hapus"
cmdKeluar.Caption = "&Keluar"
cmdSimpan.Enabled = True
cmdEdit.Enabled = True
cmdHapus.Enabled = True
cmdKeluar.Enabled = True
End Sub

Private Sub cmdSimpan_Click()

If cmdSimpan.Caption = "&Simpan" Then
cmdSimpan.Caption = "&Input"
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
txtNama.SetFocus
Else
If txtNama = "" Or txtPswd = "" Then
x = MsgBox("Data Belum Lengkap..!!", 0, "Informasi")
Siap
Else
With Data1.Recordset
.AddNew

Universitas Sumatera Utara

 

!NamaUser = txtNama
!Password = txtPswd
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
End Sub

Private Sub cmdEdit_Click()

If cmdEdit.Caption = "&Edit" Then
cmdSimpan.Enabled = False
cmdEdit.Caption = "&Simpan"
cmdHapus.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
txtNama.SetFocus
Else
If txtNama = "" Then
pesan = MsgBox("Tidak boleh kosong", 0,
"Informasi..!!")
txtNama.SetFocus
Else
With Data1.Recordset
.Edit
!NamaUser = txtNama
!Password = txtPswd
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
End Sub

Private Sub cmdHapus_Click()

With Data1.Recordset
x = MsgBox("Anda Yakin Ingin Menghapus Data Ini...???",
vbYesNo, "Konfirmasi!")
If x = vbYes Then
.Delete
Data1.Refresh
End If
End With
End Sub

Private Sub cmdKeluar_Click()

Unload Me
End Sub

Universitas Sumatera Utara

 

Private Sub Form_Activate()

txtNama.MaxLength = 10
txtPswd.MaxLength = 6
txtNama.SetFocus
End Sub

3. Form Menu Utama

Private Sub cmdAbsensi_Click()

frmAbsensi.Show vbModal
End Sub

Private Sub cmdBP_Click()

frmBiaya.Show vbModal
End Sub

Private Sub cmdCari_Click()

frmCari.Show vbModal
End Sub

Private Sub cmdCariAnggota_Click()

frmCariAnggota.Show vbModal
End Sub

Private Sub cmdCbg_Click()

frmCabang.Show vbModal
End Sub

Private Sub cmdDatabase_Click()

frmLogin1.Show vbModal
End Sub

Private Sub cmdExit_Click()

End
End Sub

Private Sub cmdprofil_Click()

frmProfil.Show vbModal
End Sub

Private Sub CMDgBR_Click()

frmGambar.Show vbModal
End Sub

Private Sub cmdkalender_Click()

frmKalendar.Show vbModal
End Sub

Private Sub cmdMulmed_Click()

frmMultimedia.Show vbModal
End Sub

Universitas Sumatera Utara

 

Private Sub cmdSO_Click()

frmSO.Show vbModal
End Sub

Private Sub cmdTentang_Click()

frmTentang.Show vbModal
End Sub

Private Sub cmdVM_Click()

frmVimi.Show vbModal
End Sub

Private Sub Command1_Click()

End
End Sub

Private Sub Command2_Click()

End
End Sub

Private Sub tmrAnimasi_Timer()

Static Ganti As Integer
If (img1.Left < 1000) And (img1.Top > 1000) Then
img1.Left = img1.Left + 100
img1.Top = img1.Top - 50
Else
img1.Left = 100
img1.Top = 100
End If
If Ganti = True Then

img1.Picture=LoadPicture("d:\Program_Kepegawaian\image\pattern0
6 copy.jpg")
Ganti = False
Else

img1.Picture=LoadPicture("d:\Program_Kepegawaian\image\pattern0
4 copy.jpg")
Ganti = True
End If
End Sub

4. Form Database

Private Sub mn_Lap6_Click()

frmCR_CariPgw.Show vbModal
End Sub

Private Sub mn_Pndftrn_Click()

frmPendaftaran.Show vbModal
End Sub

Universitas Sumatera Utara

 

Private Sub mnGaji_Click()

frmGaji.Show vbModal
End Sub

Private Sub mnAbsensi_Click()

frmAbsensi.Show vbModal
End Sub

Private Sub mnClose_Click()

Unload Me
End Sub

Private Sub mnCuti_Click()

frmCuti.Show vbModal
End Sub

Private Sub mnLogin_Click()

frmLogin.Show vbModal
End Sub

Private Sub mnHelp_Click()

frmHelp.Show vbModal
End Sub

Private Sub mnJbtn_Click()

frmJabatan.Show vbModal
End Sub

Private Sub mnMultimedia_Click()

frmMultimedia.Show vbModal
End Sub

Private Sub mnPegawai_Click()

frmPegawai.Show vbModal
End Sub

Private Sub mnProfil_Click()

frmProfil.Show vbModal
End Sub

Private Sub mnLaporan1_Click()

frmCR_Pegawai.Show vbModal
End Sub

Private Sub mnLaporan2_Click()

frmCR_Cuti.Show vbModal
End Sub

Private Sub mnLaporan3_Click()

frmCR_Gaji.Show vbModal
End Sub

Private Sub mnLaporan4_Click()

frmCR_Absensi.Show vbModal
End Sub

Universitas Sumatera Utara

 

Private Sub mnLaporan5_Click()

frmCR_Anggota.Show vbModal
End Sub

Private Sub mn_PrintAbsensi_Click()

DataReport_Absensi.PrintReport True
End Sub

Private Sub mn_PrintCP_Click()

DataReport_Cuti.PrintReport True
End Sub

Private Sub mn_PrintDP_Click()

DataReport_Pegawai.PrintReport True
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As

MSComctlLib.Button)
Select Case Button.Key
Case "f1"
frmPegawai.Show vbModal
Case "f2"
frmAbsensi.Show vbModal
Case "f3"
frmCuti.Show vbModal
Case "f4"
frmGaji.Show vbModal
Case "f5"
Unload Me
End Select
End Sub

5. Form Pegawai

Function JumlahData()
'Fungsi Untuk mencari Jumlah Data
txtJlh = Data1.Recordset.RecordCount
JumlahData = txtJlh
End Function

Private Sub cmdCetak_Click()

frmCR_Pegawai.Show vbModal
End Sub

Private Sub cmdCetak1_Click()

frmCR_CariPgw.Show vbModal
End Sub

Private Sub Form_Activate()

txtNip.MaxLength = 6
BlmSiap
cmdSimpan.SetFocus

Universitas Sumatera Utara

 

JumlahData
End Sub

Private Sub Siap()

txtNip.Enabled = True
txtNama.Enabled = True
cboJK.Enabled = True
cboAgama.Enabled = True
DTPicker1.Enabled = True
txtTL.Enabled = True
cboDidik.Enabled = True
cboStts.Enabled = True
txtAlmt.Enabled = True
txtTlp.Enabled = True
End Sub

Private Sub BlmSiap()

txtNip.Enabled = False
txtNama.Enabled = False
cboJK.Enabled = False
cboAgama.Enabled = False
DTPicker1.Enabled = False
txtTL.Enabled = False
cboDidik.Enabled = False
cboStts.Enabled = False
txtAlmt.Enabled = False
txtTlp.Enabled = False
End Sub

Private Sub Kosong()

txtNip = ""
txtNama = ""
cboJK = ""
cboAgama = ""
txtTL = ""
cboDidik = ""
cboStts = ""
txtAlmt = ""
txtTlp = ""
End Sub

Private Sub Awal()

cmdSimpan.Caption = "&Simpan"
cmdEdit.Caption = "&Edit"
cmdHapus.Caption = "&Hapus"
cmdKeluar.Caption = "&Keluar"
cmdCetak.Caption = "&Cetak"
cmdSimpan.Enabled = True
cmdEdit.Enabled = True
cmdHapus.Enabled = True
cmdKeluar.Enabled = True
cmdCetak.Enabled = True
End Sub

Private Sub Form_Load()

Universitas Sumatera Utara

 

cboJK.AddItem "Pria"
cboJK.AddItem "Wanita"
cboAgama.AddItem "Islam"
cboAgama.AddItem "Kristen"
cboAgama.AddItem "Hindu"
cboAgama.AddItem "Budha"
cboStts.AddItem "Belum Menikah"
cboStts.AddItem "Menikah"
cboDidik.AddItem "S2"
cboDidik.AddItem "S1"
cboDidik.AddItem "D3"
cboDidik.AddItem "SMA"
End Sub

Private Sub cmdSimpan_Click()

JumlahData
If cmdSimpan.Caption = "&Simpan" Then
cmdSimpan.Caption = "&Input"
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdCetak.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
txtNip.SetFocus
Else
If txtNip = "" Or txtNama = "" Or cboJK = "" Or cboAgama
= "" Or DTPicker1 = "" Or txtTL = "" Or cboStts = "" Or txtAlmt
= "" Or txtTlp = "" Or cboDidik = "" Then
x = MsgBox("Data Belum Lengkap..!!", 0, "Informasi")
Siap
Else
With Data1.Recordset
.AddNew
!KD_Pegawai = txtNip
!Nama = txtNama
!JenKel = cboJK
!Agama = cboAgama
!Tgl_Lhr = DTPicker1
!Kota_Lhr = txtTL
!Status = cboStts
!Alamat = txtAlmt
!NoTelp = txtTlp
!Pendidikan = cboDidik
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
JumlahData
End Sub

Private Sub cmdEdit_Click()

Universitas Sumatera Utara

 

If cmdEdit.Caption = "&Edit" Then

cmdSimpan.Enabled = False
cmdEdit.Caption = "&Simpan"
cmdHapus.Enabled = False
cmdCetak.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
txtNip.SetFocus
Else
If txtNip = "" Then
pesan = MsgBox("NIP Kosong", 0, "Informasi..!!")
txtNip.SetFocus
Else
With Data1.Recordset
.Edit
!KD_Pegawai = txtNip
!Nama = txtNama
!JenKel = cboJK
!Agama = cboAgama
!Tgl_Lhr = DTPicker1
!Kota_Lhr = txtTL
!Status = cboStts
!Alamat = txtAlmt
!NoTelp = txtTlp
!Pendidikan = cboDidik
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
End Sub

Private Sub cmdHapus_Click()

With Data1.Recordset
x = MsgBox("Anda Yakin Ingin Menghapus Data Ini...???",
vbYesNo, "Konfirmasi!")
If x = vbYes Then
.Delete
Data1.Refresh
End If
End With
End Sub

Private Sub cmdKeluar_Click()

Unload Me
End Sub

6. Form Detail Pegawai

Function JumlahData1()

Universitas Sumatera Utara

 

'Fungsi Untuk mencari Jumlah Data

txtData = Data2.Recordset.RecordCount
JumlahData1 = txtData
End Function

Private Sub Siap1()

DBCombo1.Enabled = True
txtNP.Enabled = True
txtDidik.Enabled = True
DBCombo2.Enabled = True
txtJbtn.Enabled = True
txtGaji.Enabled = True
txtAlamat.Enabled = True
txtHp.Enabled = True
End Sub

Private Sub BlmSiap1()

DBCombo1.Enabled = False
txtNP.Enabled = False
txtDidik.Enabled = False
DBCombo2.Enabled = False
txtJbtn.Enabled = False
txtGaji.Enabled = False
txtAlamat.Enabled = False
txtHp.Enabled = False
End Sub

Private Sub Kosong1()

DBCombo1 = ""
txtNP = ""
txtDidik = ""
DBCombo2 = ""
txtJbtn = ""
txtGaji = ""
txtAlamat = ""
txtHp = ""
End Sub

Private Sub Awal1()

cmdSimpan1.Caption = "&Simpan"
cmdEdit1.Caption = "&Edit"
cmdHapus1.Caption = "&Hapus"
cmdKeluar1.Caption = "&Keluar"
cmdCetak1.Caption = "&Cetak"
cmdSimpan1.Enabled = True
cmdEdit1.Enabled = True
cmdHapus1.Enabled = True
cmdKeluar1.Enabled = True
cmdCetak1.Enabled = True
End Sub

Private Sub DBCombo1_change()

With Data1.Recordset
.Index = "indexNIP"
.Seek "=", DBCombo1

Universitas Sumatera Utara

 

If Not .NoMatch Then

txtNP.Enabled = False
txtNP = Data1.Recordset!Nama
txtDidik.Enabled = False
txtDidik = Data1.Recordset!Pendidikan
txtAlamat.Enabled = False
txtAlamat = Data1.Recordset!Alamat
txtHp.Enabled = False
txtHp = Data1.Recordset!NoTelp
DBCombo1.Enabled = True
DBCombo1.SetFocus
End If
End With
End Sub

Private Sub DBCombo2_Change()

With Data3.Recordset
.Index = "idxJbtn"
.Seek "=", DBCombo2
If Not .NoMatch Then
txtJbtn.Enabled = False
txtJbtn = Data3.Recordset!Jabatan
txtGaji.Enabled = False
txtGaji = Data3.Recordset!Total_Gaji
DBCombo1.Enabled = True
DBCombo1.SetFocus
End If
End With
End Sub

Private Sub cmdSimpan1_Click()

JumlahData1
If cmdSimpan1.Caption = "&Simpan" Then
cmdSimpan1.Caption = "&Input"
cmdEdit1.Enabled = False
cmdHapus1.Enabled = False
cmdCetak1.Enabled = False
cmdKeluar1.Caption = "&Batal"
Siap1
DBCombo1.SetFocus
Else
If DBCombo1 = "" Or txtNP = "" Or txtDidik = "" Or
DBCombo2 = "" Or txtJbtn = "" Or txtGaji = "" Or txtAlamat = ""
Or txtHp = "" Then
x = MsgBox("Data Tidak Boleh Kosong..!!", 0,
"Informasi")
Siap1
Else
With Data2.Recordset
.AddNew
!KD_Pegawai = DBCombo1
!Nama = txtNP
!Alamat = txtAlamat
!KD_Jabatan = DBCombo2
!Jabatan = txtJbtn

Universitas Sumatera Utara

 

!NoTelp = txtHp
!Gaji_Bersih = txtGaji
.Update
End With
With Data1.Recordset
.Index = "indexNip"
.Seek "=", txtNip
If NoMatch Then
.AddNew
!KD_Pegawai = txtNip
!Nama = txtNama
!JenKel = cboJK
!Agama = cboAgama
!Tgl_Lhr = DTPicker1
!Kota_Lhr = txtTL
!Pendidikan = txtDidik
!Status = cboStts
!Alamat = txtAlmt
!NoTelp = txtTlp
.Update
End If
End With
With Data3.Recordset
.Index = "idxJbtn"
.Seek "=", cboJbtn
If NoMatch Then
.AddNew
!KD_Jabatan = cboJbtn
!Jabatan = lblJbtn
!Tjgn_Transport = lblTransport
!Tjgn_Kshtn = lblKshtn
!Gaji_Pokok = lblGaji
!Total_Gaji = lblTotal
.Update
End If
End With
Data1.Refresh
Data2.Refresh
Data3.Refresh
Kosong1
BlmSiap1
Awal1
End If
End If
JumlahData1
End Sub

Private Sub cmdEdit1_Click()

If cmdEdit1.Caption = "&Edit" Then
cmdSimpan1.Enabled = False
cmdEdit1.Caption = "&Simpan"
cmdHapus1.Enabled = False
cmdCetak1.Enabled = False
cmdKeluar1.Caption = "&Batal"
Siap1

Universitas Sumatera Utara

 

DBCombo1.SetFocus
Else
If DBCombo1 = "" Then
pesan = MsgBox("Data belum lengkap", 0,
"Informasi..!!")
DBCombo1.SetFocus
Else
With Data2.Recordset
.Edit
!KD_Pegawai = DBCombo1
!Nama = txtNP
!Alamat = txtAlamat
!KD_Jabatan = DBCombo2
!Jabatan = txtJbtn
!NoTelp = txtHp
!Gaji_Bersih = txtGaji
.Update
End With
Data2.Refresh
Kosong1
BlmSiap1
Awal1
End If
End If
End Sub

Private Sub cmdHapus1_Click()

With Data2.Recordset
x = MsgBox("Anda Yakin Ingin Menghapus Data Ini...???",
vbYesNo, "Konfirmasi!")
If x = vbYes Then
.Delete
Data2.Refresh
End If
End With
End Sub

Private Sub cmdKeluar1_Click()

Unload Me
End Sub

7. Form Absen

Function JumlahData()
'Fungsi Untuk mencari Jumlah Data
txtJlh = Data1.Recordset.RecordCount
JumlahData = txtJlh
End Function

Private Sub Siap()

cboAbsen.Enabled = True
lblKet.Enabled = True
End Sub

Universitas Sumatera Utara

 

Private Sub BlmSiap()

cboAbsen.Enabled = False
lblKet.Enabled = False
End Sub

Private Sub Kosong()

cboAbsen = ""
lblKet = ""
End Sub

Private Sub Awal()

cmdSimpan.Caption = "&Simpan"
cmdEdit.Caption = "&Edit"
cmdHapus.Caption = "&Hapus"
cmdKeluar.Caption = "&Keluar"
cmdSimpan.Enabled = True
cmdEdit.Enabled = True
cmdHapus.Enabled = True
cmdKeluar.Enabled = True
End Sub

Private Sub cmdCetak_Click()

frmCR_Absensi.Show vbModal
End Sub

Private Sub Form_Load()

cboAbsen.AddItem "01"
cboAbsen.AddItem "02"
cboAbsen.AddItem "03"
cboAbsen.AddItem "04"
cboAbsen.AddItem "05"
End Sub

Private Sub cboAbsen_Click()

'Membuat Keterangan untuk Kode Absen
If cboAbsen.Text = "01" Then
lblKet.Caption = "Hadir"
ElseIf cboAbsen.Text = "02" Then
lblKet.Caption = "Sakit"
ElseIf cboAbsen.Text = "03" Then
lblKet.Caption = "Izin"
ElseIf cboAbsen.Text = "04" Then
lblKet.Caption = "Absen"
ElseIf cboAbsen.Text = "05" Then
lblKet.Caption = "Keluar"
Else
lblKet.Caption = ""
End If
End Sub

Private Sub cmdSimpan_Click()

JumlahData
If cmdSimpan.Caption = "&Simpan" Then
cmdSimpan.Caption = "&Input"

Universitas Sumatera Utara

 

cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
cboAbsen.SetFocus
Else
If cboAbsen = "" Or lblKet = "" Then
x = MsgBox("Data Belum Lengkap..!!", 0, "Informasi")
Siap
Else
With Data1.Recordset
.AddNew
!KD_Absen = cboAbsen
!Keterangan = lblKet
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
JumlahData
End Sub

Private Sub cmdEdit_Click()

If cmdEdit.Caption = "&Edit" Then
cmdSimpan.Enabled = False
cmdEdit.Caption = "&Simpan"
cmdHapus.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
cboAbsen.SetFocus
Else
If cboAbsen = "" Then
pesan = MsgBox("Kode Absen Kosong", 0,
"Informasi..!!")
cboAbsen.SetFocus
Else
With Data1.Recordset
.Edit
!KD_Absen = cboAbsen
!Keterangan = lblKet
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
End Sub

Private Sub cmdHapus_Click()

With Data1.Recordset

Universitas Sumatera Utara

 

x = MsgBox("Anda Yakin Ingin Menghapus Data Ini...???",

vbYesNo, "Konfirmasi!")
If x = vbYes Then
.Delete
Data1.Refresh
End If
End With
End Sub

Private Sub cmdKeluar_Click()

Unload Me
End Sub

8. Form Absensi Harian

Function JumlahData1()
'Fungsi Untuk mencari Jumlah Data
txtData = Data3.Recordset.RecordCount
JumlahData1 = txtData
End Function

Private Sub Form_Activate()

txtNo.MaxLength = 6
BlmSiap1
cmdSimpan1.SetFocus
JumlahData1
End Sub

Private Sub Siap1()

txtNo.Enabled = True
DTPicker1.Enabled = True
DBNip.Enabled = True
txtNama.Enabled = True
DBAbsen.Enabled = True
txtKet.Enabled = True
End Sub

Private Sub BlmSiap1()

txtNo.Enabled = False
DTPicker1.Enabled = False
DBNip.Enabled = False
txtNama.Enabled = False
DBAbsen.Enabled = False
txtKet.Enabled = False
End Sub

Private Sub Kosong1()

txtNo = ""
DBNip = ""
txtNama = ""
DBAbsen = ""
txtKet = ""
End Sub

Universitas Sumatera Utara

 

Private Sub Awal1()

cmdSimpan1.Caption = "&Simpan"
cmdEdit1.Caption = "&Edit"
cmdHapus1.Caption = "&Hapus"
cmdKeluar1.Caption = "&Keluar"
cmdSimpan1.Enabled = True
cmdEdit1.Enabled = True
cmdHapus1.Enabled = True
cmdKeluar1.Enabled = True
End Sub

Private Sub DBNip_Change()

With Data2.Recordset
.Index = "indexNIP"
.Seek "=", DBNip
If Not .NoMatch Then
txtNama.Enabled = False
txtNama = Data2.Recordset!Nama
txtNo.Enabled = True
txtNo.SetFocus
End If
End With
End Sub

Private Sub DBAbsen_Change()

With Data1.Recordset
.Index = "indexKode"
.Seek "=", DBAbsen
If Not .NoMatch Then
txtKet.Enabled = False
txtKet = Data1.Recordset!Keterangan
txtNo.Enabled = True
txtNo.SetFocus
End If
End With
End Sub

Private Sub cmdSimpan1_Click()

JumlahData1
If cmdSimpan1.Caption = "&Simpan" Then
cmdSimpan1.Caption = "&Input"
cmdEdit1.Enabled = False
cmdHapus1.Enabled = False
cmdKeluar1.Caption = "&Batal"
Siap1
txtNo.SetFocus
Else
If txtNo = "" Or DTPicker1 = "" Or DBNip = "" Or txtNama
= "" Or DBAbsen = "" Or txtKet = "" Then
x = MsgBox("Data Tidak Boleh Kosong..!!", 0,
"Informasi")
Siap1
Else
With Data3.Recordset
.AddNew

Universitas Sumatera Utara

 

!NoAbsensi = txtNo
!Tanggal = DTPicker1
!KD_Pegawai = DBNip
!Nama = txtNama
!KD_Absen = DBAbsen
!Ket_Absen = txtKet
.Update
End With
With Data1.Recordset
.Index = "indexKode"
.Seek "=", cboAbsen

If NoMatch Then
.AddNew
!KD_Absen = cboAbsen
!Keterangan = lblKet
.Update
End If
End With
With Data2.Recordset
.Index = "indexNip"
.Seek "=", txtNip
If NoMatch Then
.AddNew
!KD_Pegawai = txtNip
!Nama = txtNama
!JenKel = cboJK
!Agama = cboAgama
!Tgl_Lhr = DTPicker1
!Kota_Lhr = txtTL
!Status = txtStatus
!Alamat = txtAlmt
!NoTelp = txtTlp
.Update
End If
End With
Data1.Refresh
Data2.Refresh
Data3.Refresh
Kosong1
BlmSiap1
Awal1
End If
End If
JumlahData1
End Sub

Private Sub cmdEdit1_Click()

If cmdEdit1.Caption = "&Edit" Then
cmdSimpan1.Enabled = False
cmdEdit1.Caption = "&Simpan"
cmdHapus1.Enabled = False
cmdKeluar1.Caption = "&Batal"
Siap1
txtNo.SetFocus

Universitas Sumatera Utara

 

Else
If txtNo = "" Then
pesan = MsgBox("Nomor Absensi Kosong", 0,
"Informasi..!!")
txtNo.SetFocus
Else
With Data3.Recordset
.Edit
!NoAbsensi = txtNo
!Tanggal = DTPicker1
!KD_Pegawai = DBNip
!Nama = txtNama
!KD_Absen = DBAbsen
!Ket_Absen = txtKet
.Update
End With
Data3.Refresh
Kosong1
BlmSiap1
Awal1
End If
End If
End Sub

Private Sub cmdHapus1_Click()

With Data3.Recordset
x = MsgBox("Anda Yakin Ingin Menghapus Data Ini...???",
vbYesNo, "Konfirmasi!")
If x = vbYes Then
.Delete
Data3.Refresh
End If
End With
End Sub

Private Sub cmdKeluar1_Click()

Unload Me
End Sub

9. Form Jabatan

Function JumlahData()
'Fungsi Untuk mencari Jumlah Data
txtJlh = Data1.Recordset.RecordCount
JumlahData = txtJlh
End Function

Private Sub cboJbtn_Click()

If cboJbtn.Text = "1" Then
lblJbtn.Caption = "Ketua KADIN Medan": txtGaji.Text =
"1500000": txtTransport.Text = "200000": txtKshtn.Text =
"1400000"
ElseIf cboJbtn.Text = "2" Then

Universitas Sumatera Utara

 

lblJbtn.Caption = "Wakil Ketua KADIN Medan": txtGaji.Text

= "1300000": txtTransport.Text = "180000": txtKshtn.Text =
"1200000"
ElseIf cboJbtn.Text = "3" Then
lblJbtn.Caption = "Ketua Komite Tetap": txtGaji.Text =
"1100000": txtTransport.Text = "160000": txtKshtn.Text =
"1000000"
ElseIf cboJbtn.Text = "4" Then
lblJbtn.Caption = "Anggota Komite Tetap": txtGaji.Text =
"900000": txtTransport.Text = "140000": txtKshtn.Text =
"800000"
ElseIf cboJbtn.Text = "5" Then
lblJbtn.Caption = "Sekretariat": txtGaji.Text = "700000":
txtTransport.Text = "120000": txtKshtn.Text = "600000"
ElseIf cboJbtn.Text = "6" Then
lblJbtn.Caption = "Staf Pegawai":: txtGaji.Text =
"500000": txtTransport.Text = "100000": txtKshtn.Text =
"400000"
Else
lblJbtn.Caption = ""
End If
End Sub

Private Sub Siap()

cboJbtn.Enabled = True
lblJbtn.Enabled = True
txtGaji.Enabled = True
txtTransport.Enabled = True
txtKshtn.Enabled = True
lblTotal.Enabled = True
End Sub

Private Sub BlmSiap()

cboJbtn.Enabled = False
lblJbtn.Enabled = False
txtGaji.Enabled = False
txtTransport.Enabled = False
txtKshtn.Enabled = False
lblTotal.Enabled = False
End Sub

Private Sub Kosong()

cboJbtn = ""
lblJbtn = ""
txtGaji = ""
txtTransport = ""
txtKshtn = ""
lblTotal = ""
End Sub

Private Sub Awal()

cmdSimpan.Caption = "&Simpan"
cmdEdit.Caption = "&Edit"
cmdHapus.Caption = "&Hapus"
cmdKeluar.Caption = "&Keluar"

Universitas Sumatera Utara

 

cmdSimpan.Enabled = True
cmdEdit.Enabled = True
cmdHapus.Enabled = True
cmdKeluar.Enabled = True
End Sub

Private Sub cmdTotal_Click()

lblTotal.Caption = "Rp " & (Val(txtTransport.Text) +
Val(txtKshtn.Text) + Val(txtGaji.Text))
End Sub

Private Sub Form_Load()

'Mengisi List Pada cboJbtn dan cboDidik
cboJbtn.AddItem "1"
cboJbtn.AddItem "2"
cboJbtn.AddItem "3"
cboJbtn.AddItem "4"
cboJbtn.AddItem "5"
cboJbtn.AddItem "6"
End Sub

Private Sub cmdSimpan_Click()

JumlahData
If cmdSimpan.Caption = "&Simpan" Then
cmdSimpan.Caption = "&Input"
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
cboJbtn.SetFocus
Else
If cboJbtn = "" Or lblJbtn = "" Or txtGaji = "" Or
txtTransport = "" Or txtKshtn = "" Or lblTotal = "" Then
x = MsgBox("Data Belum Lengkap..!!", 0, "Informasi")
Siap
Else
With Data1.Recordset
.AddNew
!KD_Jabatan = cboJbtn
!Jabatan = lblJbtn
!Tjgn_Transport = txtTransport
!Tjgn_Kshtn = txtKshtn
!Gaji_Pokok = txtGaji
!Total_Gaji = lblTotal
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
JumlahData
End Sub

Universitas Sumatera Utara

 

Private Sub cmdEdit_Click()

If cmdEdit.Caption = "&Edit" Then
cmdSimpan.Enabled = False
cmdEdit.Caption = "&Simpan"
cmdHapus.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
cboJbtn.SetFocus
Else
If cboJbtn = "" Then
pesan = MsgBox("Kode Jabatan Kosong", 0,
"Informasi..!!")
cboJbtn.SetFocus
Else
With Data1.Recordset
.Edit
!KD_Jabatan = cboJbtn
!Jabatan = lblJbtn
!Tjgn_Transport = txtTransport
!Tjgn_Kshtn = txtKshtn
!Gaji_Pokok = txtGaji
!Total_Gaji = lblTotal
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
End Sub

Private Sub cmdHapus_Click()

With Data1.Recordset
x = MsgBox("Anda Yakin Ingin Menghapus Data Ini...???",
vbYesNo, "Konfirmasi!")
If x = vbYes Then
.Delete
Data1.Refresh
End If
End With
End Sub

Private Sub cmdKeluar_Click()

Unload Me
End Sub

10. Form Jenis Cuti

Function JumlahData()
'Fungsi Untuk mencari Jumlah Data
txtJlh = Data1.Recordset.RecordCount
JumlahData = txtJlh

Universitas Sumatera Utara

 

End Function

Private Sub Siap()

cboCuti.Enabled = True
lblCuti.Enabled = True
End Sub

Private Sub BlmSiap()

cboCuti.Enabled = False
lblCuti.Enabled = False
End Sub

Private Sub Kosong()

cboCuti = ""
lblCuti = ""
End Sub

Private Sub Awal()

cmdSimpan.Caption = "&Simpan"
cmdEdit.Caption = "&Edit"
cmdHapus.Caption = "&Hapus"
cmdKeluar.Caption = "&Keluar"
cmdSimpan.Enabled = True
cmdEdit.Enabled = True
cmdHapus.Enabled = True
cmdKeluar.Enabled = True
End Sub

Private Sub cboCuti_Click()

'Membuat Keterangan untuk Kode Jabatan
If cboCuti.Text = "01" Then
lblCuti.Caption = "Bersama"
ElseIf cboCuti.Text = "02" Then
lblCuti.Caption = "Tahunan"
ElseIf cboCuti.Text = "03" Then
lblCuti.Caption = "Bulanan"
Else
lblCuti.Caption = ""
End If
End Sub

Private Sub cmdCetak_Click()

frmCR_Cuti.Show vbModal
End Sub

Private Sub Form_Load()

'Mengisi List Pada cboJbtn dan cboDidik
cboCuti.AddItem "01"
cboCuti.AddItem "02"
cboCuti.AddItem "03"
End Sub

Private Sub cmdSimpan_Click()

JumlahData
If cmdSimpan.Caption = "&Simpan" Then

Universitas Sumatera Utara

 

cmdSimpan.Caption = "&Input"
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
cboCuti.SetFocus
Else
If cboCuti = "" Or lblCuti = "" Then
x = MsgBox("Data Belum Lengkap..!!", 0, "Informasi")
If cboCuti = "" Then
Siap
ElseIf lblCuti = "" Then
cboCuti.SetFocus
End If
Else
With Data1.Recordset
.AddNew
!KD_Cuti = cboCuti
!Jns_Cuti = lblCuti
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
JumlahData
End Sub

Private Sub cmdEdit_Click()

If cmdEdit.Caption = "&Edit" Then
cmdSimpan.Enabled = False
cmdEdit.Caption = "&Simpan"
cmdHapus.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
cboCuti.SetFocus
Else
If cboCuti = "" Then
pesan = MsgBox("Kode Cuti Kosong", 0, "Informasi..!!")
cboCuti.SetFocus
Else
With Data1.Recordset
.Edit
!KD_Cuti = cboCuti
!Jns_Cuti = lblCuti
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If

Universitas Sumatera Utara

 

End Sub

Private Sub cmdHapus_Click()

With Data1.Recordset
x = MsgBox("Anda Yakin Ingin Menghapus Data Ini...???",
vbYesNo, "Konfirmasi!")
If x = vbYes Then
.Delete
Data1.Refresh
End If
End With
End Sub

Private Sub cmdKeluar_Click()

Unload Me
End Sub

11. Form Cuti Pegawai

Function JumlahData1()
'Fungsi Untuk mencari Jumlah Data
txtData = Data4.Recordset.RecordCount
JumlahData1 = txtData
End Function

Private Sub Siap1()

DBNip.Enabled = True
txtNama.Enabled = True
DBCuti.Enabled = True
txtJC.Enabled = True
DTPicker1.Enabled = True
DTPicker2.Enabled = True
End Sub

Private Sub BlmSiap1()

DBNip.Enabled = False
txtNama.Enabled = False
DBCuti.Enabled = False
txtJC.Enabled = False
DTPicker1.Enabled = False
DTPicker2.Enabled = False
End Sub

Private Sub Kosong1()

DBNip = ""
txtNama = ""
DBCuti = ""
txtJC = ""
End Sub

Private Sub Awal1()

cmdSimpan1.Caption = "&Simpan"
cmdEdit1.Caption = "&Edit"

Universitas Sumatera Utara

 

cmdHapus1.Caption = "&Hapus"
cmdKeluar1.Caption = "&Keluar"
cmdCetak.Caption = "&Cetak"
cmdSimpan1.Enabled = True
cmdEdit1.Enabled = True
cmdHapus1.Enabled = True
cmdKeluar1.Enabled = True
cmdCetak.Enabled = True
End Sub

Private Sub DBNip_Change()

With Data2.Recordset
.Index = "indexNIP"
.Seek "=", DBNip
If Not .NoMatch Then
txtNama.Enabled = False
txtNama = Data2.Recordset!Nama
DBNip.Enabled = True
DBNip.SetFocus
End If
End With
End Sub

Private Sub DBCuti_Change()

With Data1.Recordset
.Index = "indexKdCuti"
.Seek "=", DBCuti
If Not .NoMatch Then
txtJC.Enabled = False
txtJC = Data1.Recordset!Jns_Cuti
DBNip.Enabled = True
DBNip.SetFocus
End If
End With
End Sub

Private Sub cmdSimpan1_Click()

JumlahData1
If cmdSimpan1.Caption = "&Simpan" Then
cmdSimpan1.Caption = "&Input"
cmdEdit1.Enabled = False
cmdHapus1.Enabled = False
cmdCetak.Enabled = False
cmdKeluar1.Caption = "&Batal"
Siap1
DBNip.SetFocus
Else
If DBNip = "" Or txtNama = "" Or DBCuti = "" Or txtJC =
"" Or DTPicker1 = "" Or DTPicker2 = "" Then
x = MsgBox("Data Tidak Boleh Kosong..!!", 0,
"Informasi")
Siap1
Else
With Data4.Recordset
.AddNew

Universitas Sumatera Utara

 

!KD_Pegawai = DBNip
!Nama = txtNama
!KD_Cuti = DBCuti
!Jns_Cuti = txtJC
!Tgl_Cuti = DTPicker1
!Tgl_Masuk = DTPicker2
.Update
End With
With Data1.Recordset
.Index = "indexKdCuti"
.Seek "=", cboCuti
If NoMatch Then
.AddNew
!KD_Cuti = cboCuti
!Jns_Cuti = lblCuti
.Update
End If
End With
With Data2.Recordset
.Index = "indexNip"
.Seek "=", txtNip
If NoMatch Then
.AddNew
!KD_Pegawai = txtNip
!Nama = txtNama
!JenKel = cboJK
!Agama = cboAgama
!Tgl_Lhr = DTPicker1
!Kota_Lhr = txtTL
!Status = txtStatus
!Alamat = txtAlmt
!NoTelp = txtTlp
.Update
End If
End With
Data1.Refresh
Data2.Refresh
Data4.Refresh
Kosong1
BlmSiap1
Awal1
End If
End If
JumlahData1
End Sub

Private Sub cmdEdit1_Click()

If cmdEdit1.Caption = "&Edit" Then
cmdSimpan1.Enabled = False
cmdEdit1.Caption = "&Simpan"
cmdHapus1.Enabled = False
cmdCetak.Enabled = False
cmdKeluar1.Caption = "&Batal"
Siap1
DBNip.SetFocus

Universitas Sumatera Utara

 

Else
If DBNip = "" Then
pesan = MsgBox("Data belum lengkap", 0,
"Informasi..!!")
DBNip.SetFocus
Else
With Data4.Recordset
.Edit
!KD_Pegawai = DBNip
!Nama = txtNama
!KD_Cuti = DBCuti
!Jns_Cuti = txtJC
!Tgl_Cuti = DTPicker1
!Tgl_Masuk = DTPicker2
.Update
End With
Data4.Refresh
Kosong1
BlmSiap1
Awal1
End If
End If
End Sub

Private Sub cmdHapus1_Click()

With Data4.Recordset
x = MsgBox("Anda Yakin Ingin Menghapus Data Ini...???",
vbYesNo, "Konfirmasi!")
If x = vbYes Then
.Delete
Data4.Refresh
End If
End With
End Sub

Private Sub cmdKeluar1_Click()

Unload Me
End Sub

12. Form Penggajian

Function JumlahData()
'Fungsi Untuk mencari Jumlah Data
txtData = Data1.Recordset.RecordCount
JumlahData = txtData
End Function

Private Sub cmdCetak_Click()

frmCR_Gaji.Show vbModal
End Sub

Private Sub Form_Activate()

txtNo.MaxLength = 6

Universitas Sumatera Utara

 

BlmSiap
cmdSimpan.SetFocus
JumlahData
End Sub
Private Sub Siap()
txtNo.Enabled = True
txtTanggal.Enabled = True
DBCombo1.Enabled = True
txtNP.Enabled = True
txtJK.Enabled = True
txtAgama.Enabled = True
txtDidik.Enabled = True
txtTglLhr.Enabled = True
txtKotaLhr.Enabled = True
txtStatus.Enabled = True
txtAlmt.Enabled = True
txtTlp.Enabled = True
DBCombo2.Enabled = True
txtJbtn.Enabled = True
txtTransport.Enabled = True
txtKshtn.Enabled = True
txtGaji.Enabled = True
lblTotal.Enabled = True
End Sub

Private Sub BlmSiap()

txtNo.Enabled = False
txtTanggal.Enabled = False
DBCombo1.Enabled = False
txtNP.Enabled = False
txtJK.Enabled = False
txtAgama.Enabled = False
txtDidik.Enabled = False
txtTglLhr.Enabled = False
txtKotaLhr.Enabled = False
txtStatus.Enabled = False
txtAlmt.Enabled = False
txtTlp.Enabled = False
DBCombo2.Enabled = False
txtJbtn.Enabled = False
txtTransport.Enabled = False
txtKshtn.Enabled = False
txtGaji.Enabled = False
lblTotal.Enabled = False
End Sub

Private Sub Kosong()

txtNo = ""
txtTanggal.Enabled = False
DBCombo1 = ""
txtNP = ""
txtJK = ""
txtAgama = ""
txtDidik = ""
txtTglLhr = ""

Universitas Sumatera Utara

 

txtKotaLhr = ""
txtStatus = ""
txtAlmt = ""
txtTlp = ""
DBCombo2 = ""
txtJbtn = ""
txtTransport = ""
txtKshtn = ""
txtGaji = ""
lblTotal = ""
End Sub

Private Sub Awal()

cmdSimpan.Caption = "&Simpan"
cmdEdit.Caption = "&Edit"
cmdHapus.Caption = "&Hapus"
cmdKeluar.Caption = "&Keluar"
cmdCetak.Caption = "&Cetak"
cmdSimpan.Enabled = True
cmdEdit.Enabled = True
cmdHapus.Enabled = True
cmdCetak.Enabled = True
cmdKeluar.Enabled = True
End Sub

Private Sub DBCombo1_change()

With Data2.Recordset
.Index = "indexNIP"
.Seek "=", DBCombo1
If Not .NoMatch Then
txtNP.Enabled = False
txtNP = Data2.Recordset!Nama
txtJK.Enabled = False
txtJK = Data2.Recordset!JenKel
txtAgama.Enabled = False
txtAgama = Data2.Recordset!Agama
txtTglLhr.Enabled = False
txtTglLhr = Data2.Recordset!Tgl_Lhr
txtKotaLhr.Enabled = False
txtKotaLhr = Data2.Recordset!Kota_Lhr
txtDidik.Enabled = False
txtDidik = Data2.Recordset!Pendidikan
txtStatus.Enabled = False
txtStatus = Data2.Recordset!Status
txtAlmt.Enabled = False
txtAlmt = Data2.Recordset!Alamat
txtTlp.Enabled = False
txtTlp = Data2.Recordset!NoTelp
txtNo.Enabled = True
txtNo.SetFocus
End If
End With
End Sub

Private Sub DBCombo2_Change()

Universitas Sumatera Utara

 

With Data3.Recordset
.Index = "idxJbtn"
.Seek "=", DBCombo2
If Not .NoMatch Then
txtJbtn.Enabled = False
txtJbtn = Data3.Recordset!Jabatan
txtGaji.Enabled = False
txtGaji = Data3.Recordset!Gaji_Pokok
txtTransport.Enabled = False
txtTransport = Data3.Recordset!Tjgn_Transport
txtKshtn.Enabled = False
txtKshtn = Data3.Recordset!Tjgn_Kshtn
lblTotal.Enabled = True
lblTotal = Data3.Recordset!Total_Gaji
txtNo.Enabled = True
txtNo.SetFocus
End If
End With
End Sub

Private Sub cmdSimpan_Click()

JumlahData
If cmdSimpan.Caption = "&Simpan" Then
cmdSimpan.Caption = "&Input"
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdCetak.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
txtNo.SetFocus
Else
If txtNo = "" Or txtTanggal = "" Or DBCombo1 = "" Or
txtNP = "" Or txtJK = "" Or txtAgama = "" Or txtTglLhr = "" Or
txtKotaLhr = "" Or txtDidik = "" Or txtStatus = "" Or txtAlmt =
"" Or txtTlp = "" Or DBCombo2 = "" Or txtJbtn = "" Or txtGaji =
"" Or txtTransport = "" Or txtKshtn = "" Or lblTotal = "" Then
x = MsgBox("Data Tidak Boleh Kosong..!!", 0,
"Informasi")
Siap
Else
With Data1.Recordset
.AddNew
!NoSlip = txtNo
!Tanggal = txtTanggal
!KD_Pegawai = DBCombo1
!Nama = txtNP
!KD_Jabatan = DBCombo2
!Jabatan = txtJbtn
!Gaji_Pokok = txtGaji
!Tjgn_Transport = txtTransport
!Tjgn_Kshtn = txtKshtn
!Total_Gaji = lblTotal
.Update
End With
With Data2.Recordset

Universitas Sumatera Utara

 

.Index = "indexNip"
.Seek "=", DBCombo1
If NoMatch Then
.AddNew
!NIP = txtNip
!Nama = txtNama
!JenKel = cboJK
!Agama = cboAgama
!Tgl_Lhr = DTPicker1
!Kota_Lhr = txtTL
!Status = cboStts
!Alamat = txtAlmt
!NoTelp = txtTlp
.Update
End If
End With
With Data3.Recordset
.Index = "idxJbtn"
.Seek "=", DBCombo2
If NoMatch Then
.AddNew
!KD_Jabatan = cboJbtn
!Jabatan = lblJbtn
!Tjgn_Transport = lblTransport
!Tjgn_Kshtn = lblKshtn
!Gaji_Pokok = lblGaji
!Total_Gaji = lblTotal
.Update
End If
End With
Data1.Refresh
Data2.Refresh
Data3.Refresh
Kosong
BlmSiap
Awal
End If
End If
JumlahData
End Sub

Private Sub cmdEdit_Click()

If cmdEdit.Caption = "&Edit" Then
cmdSimpan.Enabled = False
cmdEdit.Caption = "&Simpan"
cmdHapus.Enabled = False
cmdCetak.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
txtNo.SetFocus
Else
If txtNo = "" Then
pesan = MsgBox("Data belum lengkap", 0,
"Informasi..!!")
DBCombo1.SetFocus

Universitas Sumatera Utara

 

Else
With Data1.Recordset
.Edit
!NoSlip = txtNo
!Tanggal = txtTanggal
!NIP = DBCombo1
!Nama = txtNP
!KD_Jabatan = DBCombo2
!Jabatan = txtJbtn
!Gaji_Pokok = txtGaji
!Tjgn_Transport = txtTransport
!Tjgn_Kshtn = txtKshtn
!Total_Gaji = lblTotal
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
End Sub

Private Sub cmdHapus_Click()

With Data1.Recordset
x = MsgBox("Anda Yakin Ingin Menghapus Data Ini...???",
vbYesNo, "Konfirmasi!")
If x = vbYes Then
.Delete
Data1.Refresh
End If
End With
End Sub

Private Sub cmdKeluar_Click()

Unload Me
End Sub

13. Form Anggota Baru

Function JumlahData()
'Fungsi Untuk mencari Jumlah Data
txtData = Data1.Recordset.RecordCount
JumlahData = txtData
End Function

Private Sub cmdCetak_Click()

frmCR_Anggota.Show vbModal
End Sub

Private Sub Form_Activate()

txtNo.MaxLength = 6
txtNama.MaxLength = 30

Universitas Sumatera Utara

 

txtAlmt.MaxLength = 30
txtPJ.MaxLength = 30
txtTlp.MaxLength = 12
txtEmail.MaxLength = 20
txtJbtn.MaxLength = 20
txtFax.MaxLength = 12
txtWeb.MaxLength = 20
txtNot1.MaxLength = 10
txtNot2.MaxLength = 10
txtNo1.MaxLength = 5
txtNo2.MaxLength = 5
txtSITU.MaxLength = 10
txtSIUP.MaxLength = 10
txtIUJK.MaxLength = 10
txtTDP.MaxLength = 10
txtNPWP.MaxLength = 10
txtKwlfksi.MaxLength = 5
BlmSiap
cmdSimpan.SetFocus
JumlahData
End Sub

Private Sub Siap()

txtTanggal.Enabled = True
txtNo.Enabled = True
txtNama.Enabled = True
txtAlmt.Enabled = True
txtPJ.Enabled = True
txtTlp.Enabled = True
txtEmail.Enabled = True
txtJbtn.Enabled = True
txtFax.Enabled = True
txtWeb.Enabled = True
txtNot1.Enabled = True
txtNot2.Enabled = True
txtNo1.Enabled = True
txtNo2.Enabled = True
txtSITU.Enabled = True
txtSIUP.Enabled = True
txtIUJK.Enabled = True
txtTDP.Enabled = True
txtNPWP.Enabled = True
txtKwlfksi.Enabled = True
DTPicker1.Enabled = True
DTPicker2.Enabled = True
DTPicker3.Enabled = True
DTPicker4.Enabled = True
DTPicker5.Enabled = True
DTPicker6.Enabled = True
End Sub

Private Sub BlmSiap()

txtTanggal.Enabled = False
txtNo.Enabled = False
txtNama.Enabled = False

Universitas Sumatera Utara

 

txtAlmt.Enabled = False
txtPJ.Enabled = False
txtTlp.Enabled = False
txtEmail.Enabled = False
txtJbtn.Enabled = False
txtFax.Enabled = False
txtWeb.Enabled = False
txtNot1.Enabled = False
txtNot2.Enabled = False
txtNo1.Enabled = False
txtNo2.Enabled = False
txtSITU.Enabled = False
txtSIUP.Enabled = False
txtIUJK.Enabled = False
txtTDP.Enabled = False
txtNPWP.Enabled = False
txtKwlfksi.Enabled = False
DTPicker1.Enabled = False
DTPicker2.Enabled = False
DTPicker3.Enabled = False
DTPicker4.Enabled = False
DTPicker5.Enabled = False
DTPicker6.Enabled = False
End Sub

Private Sub Kosong()

txtTanggal.Enabled = False
txtNo = ""
txtNama = ""
txtAlmt = ""
txtPJ = ""
txtTlp = ""
txtEmail = ""
txtJbtn = ""
txtFax = ""
txtWeb = ""
txtNot1 = ""
txtNot2 = ""
txtNo1 = ""
txtNo2 = ""
txtSITU = ""
txtSIUP = ""
txtIUJK = ""
txtTDP = ""
txtNPWP = ""
txtKwlfksi = ""
End Sub

Private Sub Awal()

cmdSimpan.Caption = "&Simpan"
cmdEdit.Caption = "&Edit"
cmdHapus.Caption = "&Hapus"
cmdKeluar.Caption = "&Keluar"
cmdCetak.Caption = "&Cetak"
cmdSimpan.Enabled = True

Universitas Sumatera Utara

 

cmdEdit.Enabled = True
cmdHapus.Enabled = True
cmdCetak.Enabled = True
cmdKeluar.Enabled = True
End Sub

Private Sub cmdSimpan_Click()

JumlahData
If cmdSimpan.Caption = "&Simpan" Then
cmdSimpan.Caption = "&Input"
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdCetak.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
txtTanggal.SetFocus
Else
If txtTanggal = "" Or txtNo = "" Or txtNama = "" Or
txtAlmt = "" Or txtPJ = "" Or txtTlp = "" Or txtEmail = "" Or
txtJbtn = "" Or txtFax = "" Or txtWeb = "" Or txtNot1 = "" Or
txtNot2 = "" Or txtNo1 = "" Or txtNo2 = "" Or txtSITU = "" Or
txtSIUP = "" Or txtIUJK = "" Or txtTDP = "" Or txtNPWP = "" Or
txtKwlfksi = "" Or DTPicker1 = "" Or DTPicker2 = "" Or
DTPicker3 = "" Or DTPicker4 = "" Or DTPicker5 = "" Or DTPicker6
= "" Then
x = MsgBox("Data Belum Lengkap..!!", 0, "Informasi")
Siap
Else
With Data1.Recordset
.AddNew
!Tgl_Daftar = txtTanggal
!NoAnggota = txtNo
!NamaPerusahaan = txtNama
!Alamat = txtAlmt
!Penanggung_Jwb = txtPJ
!Telp = txtTlp
!Email = txtEmail
!Jabatan = txtJbtn
!Fax = txtFax
!Website = txtWeb
!Akte_Pendirian = txtNot1
!Akte_Terakhir = txtNot2
!No_SITU = txtSITU
!No_SIUP = txtSIUP
!No_IUJK = txtIUJK
!No_TDP = txtTDP
!NPWP = txtNPWP
!Kualifikasi = txtKwlfksi
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If

Universitas Sumatera Utara

 

End If
JumlahData
End Sub

Private Sub cmdEdit_Click()

If cmdEdit.Caption = "&Edit" Then
cmdSimpan.Enabled = False
cmdEdit.Caption = "&Simpan"
cmdHapus.Enabled = False
cmdCetak.Enabled = False
cmdKeluar.Caption = "&Batal"
Siap
txtTanggal.SetFocus
Else
If txtTanggal = "" Then
pesan = MsgBox("Tanggal Kosong", 0, "Informasi..!!")
txtTanggal.SetFocus
Else
With Data1.Recordset
.Edit
!Tgl_Daftar = txtTanggal
!NoAnggota = txtNo
!NamaPerusahaan = txtNama
!Alamat = txtAlmt
!Penanggung_Jwb = txtPJ
!Telp = txtTlp
!Email = txtEmail
!Jabatan = txtJbtn
!Fax = txtFax
!Website = txtWeb
!Akte_Pendirian = txtNot1
!Akte_Terakhir = txtNot2
!No_SITU = txtSITU
!No_SIUP = txtSIUP
!No_IUJK = txtIUJK
!No_TDP = txtTDP
!NPWP = txtNPWP
!Kualifikasi = txtKwlfksi
.Update
End With
Data1.Refresh
Kosong
BlmSiap
Awal
End If
End If
End Sub

Private Sub cmdHapus_Click()

With Data1.Recordset
x = MsgBox("Anda Yakin Ingin Menghapus Data Ini...???",
vbYesNo, "Konfirmasi!")
If x = vbYes Then
.Delete
Data1.Refresh

Universitas Sumatera Utara

 

End If
End With
End Sub

Private Sub cmdKeluar_Click()

Unload Me
End Sub

14. Form Pencarian Pegawai

Private Sub Siap()

txtCari.Enabled = True
txtNip.Enabled = True
txtNP.Enabled = True
txtKdJbtn.Enabled = True
txtJbtn.Enabled = True
txtAlmt.Enabled = True
txtTelp.Enabled = True
txtGaji.Enabled = True
End Sub

Private Sub BlmSiap()

txtCari.Enabled = False
txtNip.Enabled = False
txtNP.Enabled = False
txtKdJbtn.Enabled = False
txtJbtn.Enabled = False
txtAlmt.Enabled = False
txtTelp.Enabled = False
txtGaji.Enabled = False
End Sub

Private Sub Kosong()

txtCari = ""
txtNip = ""
txtNP = ""
txtJbtn = ""
txtKdJbtn = ""
txtAlmt = ""
txtTelp = ""
txtGaji = ""
End Sub

Private Sub cmdCari_Click()

With Data1.Recordset
.Index = "idxNip2"
.Seek "=", txtCari
If Not .NoMatch Then
BlmSiap
txtNip = !KD_Pegawai
txtNP = !Nama
txtAlmt = !Alamat
txtKdJbtn = !KD_Jabatan

Universitas Sumatera Utara

 

txtJbtn = !Jabatan
txtTelp = !NoTelp
txtGaji = !Gaji_Bersih
x = MsgBox("Inilah Data Yang Dicari", 0, "Informasi")
Kosong
Siap
txtCari.SetFocus
Else
x = MsgBox("NIP <<" & txtCari & ">> Tidak Ada", 0,
"Informasi")
Kosong
txtCari.SetFocus
End If
End With
End Sub

Private Sub cmdKeluar_Click()

Select Case cmdKeluar.Caption
Case "&Keluar"
Unload Me
Case "&Batal"
Kosong
BlmSiap
End Select
End Sub

Private Sub Form_Activate()

txtCari.MaxLength = 6
txtCari.SetFocus
End Sub

15. Form Pencarian Anggota

Private Sub Siap()

txtCari.Enabled = True
txtNo.Enabled = True
txtNP.Enabled = True
txtPJ.Enabled = True
txtJbtn.Enabled = True
txtAlmt.Enabled = True
txtTelp.Enabled = True
txtTgl.Enabled = True
txtKualifikasi.Enabled = True
End Sub

Private Sub BlmSiap()

txtCari.Enabled = False
txtNo.Enabled = False
txtNP.Enabled = False
txtPJ.Enabled = False
txtJbtn.Enabled = False
txtAlmt.Enabled = False
txtTelp.Enabled = False

Universitas Sumatera Utara

 

txtTgl.Enabled = False
txtKualifikasi.Enabled = False
End Sub

Private Sub Kosong()

txtCari = ""
txtNo = ""
txtNP = ""
txtJbtn = ""
txtPJ = ""
txtAlmt = ""
txtTelp = ""
txtTgl = ""
txtKualifikasi = ""
End Sub

Private Sub cmdCari_Click()

With Data1.Recordset
.Index = "idxAnggota"
.Seek "=", txtCari
If Not .NoMatch Then
BlmSiap
txtNo = !NoAnggota
txtNP = !NamaPerusahaan
txtAlmt = !Alamat
txtPJ = !Penanggung_Jwb
txtJbtn = !Jabatan
txtTelp = !Telp
txtTgl = !Tgl_Daftar
txtKualifikasi = !Kualifikasi
x = MsgBox("Inilah Data Yang Dicari", 0, "Informasi")
Kosong
Siap
txtCari.SetFocus
Else
x = MsgBox("Nomor Anggota <<" & txtCari & ">> Tidak Ada",
0, "Informasi")
Kosong
txtCari.SetFocus
End If
End With
End Sub
Private Sub cmdKeluar_Click()
Select Case cmdKeluar.Caption
Case "&Keluar"
Unload Me
Case "&Batal"
Kosong
BlmSiap
End Select
End Sub
Private Sub Form_Activate()
txtCari.MaxLength = 6
txtCari.SetFocus
End Sub

Universitas Sumatera Utara

 

LAMPIRAN B : OUTPUT PROGRAM

1. Form Menu Utama

Gambar 1. Form Menu Utama

2. Form Login

Gambar 2. Form Login

Universitas Sumatera Utara

 

3. Form Database Kepegawaian

Gambar 3. Form Database Kepegawaian

4. Form Data/Biodata Pegawai

Gambar 4. Form Data/Biodata Pegawai

5. Form Detail Pegawai

Gambar 5. Form Detail Pegawai

Universitas Sumatera Utara

 

6. Form Absen

Gambar 6. Form Absen

7. Form Absensi Harian

Gambar 7. Form Absensi Harian

8. Form Jenis Cuti

Gambar 8. Form Jenis Cuti

Universitas Sumatera Utara

 

9. Form Cuti Pegawai

Gambar 9. Form Cuti Pegawai

10. Form Jabatan

Gambar 10. Form Jabatan

11. Form Penggajian

Gambar 11. Form Penggajian

Universitas Sumatera Utara

 

12. Form Pendaftaran Anggota Baru

Gambar 12. Form Pendaftaran Anggota Baru

13. Form Pencarian Detail Pegawai

Gambar 13. Form Pencarian Detail Pegawai

14. Form Profil Penulis (About Me)

Gambar 14. From Profil Penulis (About Me)

Universitas Sumatera Utara

 

15. Form Cetak Laporan Pegawai

Gambar 16. Form Cetak Laporan Data Pegawai

16. Form Cetak Laporan Anggota Baru

Gambar 16. Form Cetak Laporan Anggota Baru

Universitas Sumatera Utara

 

17. Form Cetak Laporan Penggajian Pegawai

Gambar 17. Form Cetak Laporan Penggajian Pegawai

Universitas Sumatera Utara

 

KEMENTERIAN PENDIDIKAN NASIONAL

UNIVERSITAS SUMATERA UTARA
FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM
Jln. Bioteknologi No. 1 Kampus USU Padang Bulan, Medan – 20155
Telp. (061) 8211050, 82144290 Fax. (061) 82144290

KARTU BIMBINGAN TUGAS AKHIR MAHASISWA

Nama Mahasiswa : Venessya Sheyla Maulida Portier

Nomor Stambuk : 082406160
Judul Tugas Akhir : Aplikasi Microsoft Visual Basic 6.0 Untuk Perancangan
Database Kepegawaian Pada Kamar Dagang dan Industri
(KADIN) Medan
Dosen Pembimbing : Drs. Suwarno Arriswoyo, M.Si
Tanggal Mulai Bimbingan :
Tanggal Selesai Bimbingan :

NO TANGGAL PEMBAHASAN PADA PARAF KETERANGAN

ASISTEN ASISTENSI MENGENAI, DOSEN
BIMBINGAN PADA BAB PEMBIMBING

 Kartu ini harap dikembalikan ke Departemen Matematika bila bimbingan telah selesai.

Diketahui : Disetujui :
Departemen Matematika FMIPA USU Pembimbing Utama/
Ketua, Penanggung Jawab

Prof. Drs. Tulus, Vordipl, M.Si, Ph.D Drs. Suwarno Arriswoyo, M.Si
NIP. 19620901 1988031 002 NIP. 19500321 1980031 001

Universitas Sumatera Utara