120
DAFTAR PUSTAKA
[Jogiyanto H.M,1997] Jogiyanto H.M, Sistem Informasi Bebasis Komputer Edisi 2, Penerbit Graha Ilmu, Yogyakarta, 1997 [Witarto, 1999] Witarto, Pendekatan Praktis Rekayasa Sistem Informasi di sekitar kita, Penerbit Informatika, Bandung, 1999 [Linda Marlinda, 2006] Linda Marlinda, Konsep Basis Data, Penerbit Andi Publisher, Yogyakarta, 2006 [Martin Fowler, 2005] Martin Fowler, UML Distilled Edisi 3 Panduan Singkat Bahasa Pemodelan Objek Standar, Penerbit Andi, Yogyakart, 2005 [Ema Utami, 2008] Ema Utami, RDBMS Menggunakan MS SQL Server 2000, Penerbit Graha Ilmu, Yogyakarta, 2008 [Munawar, 2005] Munawar, Pemodelan Visual dengan UML, Penerbit Graha Ilmu, Edisi Pertama Yogyakarta, 2005 [Adi Nugroho, 2004]Adi Nugroho, Konsep Pengembangan Sistem Basis Data, Penerbit Informatika, Bandung, 2004 [Budi Susanto & Andreas Hartono, 2003] Budi Susanto & Andreas Hartono Aplikasi Akuntansi dengan Microsoft Access, Penerbit PT. Elex Media Komputindo, Jakarta, 2003
LAMPIRAN I LISTING PROGRAM
LISTING PROGRAM
*Kode Program login : *Proses dilakukan ketika nama operator di input Private Sub Nama_AfterUpdate() Password1.Visible = True Password1Lbl.Visible = True Password1.SetFocus End Sub
Exit_Command6_Click: Exit Sub Err_Command6_Click: MsgBox Err.Description Resume Exit_Command6_Click
*Proses dilakukan ketika password telah diinput End Sub Private Sub Password1_AfterUpdate() If Password1 = Password2 Then Command5.Visible = True Command5.SetFocus End If End Sub
*KodeProgram menu utama Option Compare Database Private Sub Ctl1_Click() On Error GoTo Err_Ctl1_Click
*Proses dilakukan ketika continue button di click Private Sub Command5_Click() On Error GoTo Err_Command5_Click Dim stDocName As String Dim stLinkCriteria As String If (IsNull(Nama)) Then Nama.Visible = True NamaLbl.Visible = True Nama.SetFocus Else stDocName = "menu2" DoCmd.OpenForm stDocName, , , stLinkCriteria End If Exit_Command5_Click: Exit Sub Err_Command5_Click: MsgBox Err.Description Resume Exit_Command5_Click End Sub
*Proses untuk Exit button Private Sub Command6_Click() On Error GoTo Err_Command6_Click DoCmd.Quit
Dim stDocName As String Dim stLinkCriteria As String stDocName = "SetHonorFrm" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Ctl1_Click: Exit Sub Err_Ctl1_Click: MsgBox Err.Description Resume Exit_Ctl1_Click End Sub Private Sub Command2_Click() On Error GoTo Err_Command2_Click Screen.PreviousControl.SetFocus DoCmd.FindNext Exit_Command2_Click: Exit Sub Err_Command2_Click: MsgBox Err.Description Resume Exit_Command2_Click End Sub Private Sub Ctl2_Click() On Error GoTo Err_Ctl2_Click Dim stDocName As String Dim stLinkCriteria As String
stDocName = "DataDosenFrm**" DoCmd.OpenForm stDocName, , , stLinkCriteria
L1 Exit_Ctl2_Click: Exit Sub
On Error GoTo Err_Command13_Click
DoCmd.Close Exit_Command13_Click: Exit Sub
Err_Ctl2_Click: MsgBox Err.Description Resume Exit_Ctl2_Click End Sub Private Sub Ctl3_Click() On Error GoTo Err_Ctl3_Click
Err_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End Sub
Dim stDocName As String Dim stLinkCriteria As String
*Kode Program form setting honor untuk keluar dari table seting honor Option Compare Database Option Explicit
stDocName = "MataKuliahFrm**" DoCmd.OpenForm stDocName, , , stLinkCriteria
Private Sub Command3_Click() On Error GoTo Err_Command3_Click
Exit_Ctl3_Click: Exit Sub Err_Ctl3_Click: MsgBox Err.Description Resume Exit_Ctl3_Click End Sub Private Sub Ctl4_Click() On Error GoTo Err_Ctl4_Click
DoCmd.Close Exit_Command3_Click: Exit Sub Err_Command3_Click: MsgBox Err.Description Resume Exit_Command3_Click End Sub
Dim stDocName As String Dim stLinkCriteria As String
*Kode program form data dosen
stDocName = "UjianFrm**" DoCmd.OpenForm stDocName, , , stLinkCriteria
*Kode Program Nama Bank. Option Compare Database Option Explicit
Exit_Ctl4_Click: Exit Sub Err_Ctl4_Click: MsgBox Err.Description Resume Exit_Ctl4_Click End Sub Private Sub Ctl5_Click() On Error GoTo Err_Ctl5_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "CetakFrm" DoCmd.OpenForm stDocName, , , stLinkCriteria
Private Sub Command40_Click() On Error GoTo Err_Command40_Click DoCmd.Close Exit_Command40_Click: Exit Sub Err_Command40_Click: MsgBox Err.Description Resume Exit_Command40_Click End Sub Private Sub Command50_Click() On Error GoTo Err_Command50_Click
Exit_Ctl5_Click: Exit Sub
Dim stDocName As String Dim stLinkCriteria As String
Err_Ctl5_Click: MsgBox Err.Description Resume Exit_Ctl5_Click
stDocName = "frmNamaBank" DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub Private Sub Command13_Click()
Exit_Command50_Click: Exit Sub
Err_Command50_Click: MsgBox Err.Description Resume Exit_Command50_Click
Exit_Command50_Click: Exit Sub
L2 End Sub Private Sub Command51_Click() On Error GoTo Err_Command51_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmCabBank" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command51_Click: Exit Sub Err_Command51_Click: MsgBox Err.Description Resume Exit_Command51_Click End Sub Private Sub Command52_Click() On Error GoTo Err_Command52_Click
Err_Command50_Click: MsgBox Err.Description Resume Exit_Command50_Click End Sub Private Sub Command51_Click() On Error GoTo Err_Command51_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmCabBank" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command51_Click: Exit Sub Err_Command51_Click: MsgBox Err.Description Resume Exit_Command51_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub Private Sub Command52_Click() On Error GoTo Err_Command52_Click
Exit_Command52_Click: Exit Sub
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Err_Command52_Click: MsgBox Err.Description Resume Exit_Command52_Click
Exit_Command52_Click: Exit Sub
End Sub
*Kode Program Cabang Bank: Option Compare Database Option Explicit
Err_Command52_Click: MsgBox Err.Description Resume Exit_Command52_Click End Sub
*Kode Program untuk mengklick tombol Close Private Sub Command40_Click() On Error GoTo Err_Command40_Click
Private Sub Command3_Click() On Error GoTo Err_Command3_Click
DoCmd.Close DoCmd.Close Exit_Command40_Click: Exit Sub Err_Command40_Click: MsgBox Err.Description Resume Exit_Command40_Click End Sub Private Sub Command50_Click() On Error GoTo Err_Command50_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmNamaBank" DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command3_Click: Exit Sub Err_Command3_Click: MsgBox Err.Description Resume Exit_Command3_Click End Sub
*Kode program form Mata Kuliah untuk keluar dari tabel Mata Kuliah Option Compare Database Option Explicit
stDocName = "HonorDosenFrm**" DoCmd.OpenForm stDocName, , , stLinkCriteria
L3 Private Sub Command6_Click() On Error GoTo Err_Command6_Click DoCmd.Close Exit_Command6_Click: Exit Sub Err_Command6_Click: MsgBox Err.Description Resume Exit_Command6_Click End Sub
*Kode program Perkuliahan Option Compare Database Option Explicit Private Sub Command36_Click() On Error GoTo Err_Command36_Click Dim stDocName As String Dim stLinkCriteria As String
Exit_Command38_Click: Exit Sub Err_Command38_Click: MsgBox Err.Description Resume Exit_Command38_Click End Sub Private Sub Command39_Click() On Error GoTo Err_Command39_Click DoCmd.Close Exit_Command39_Click: Exit Sub Err_Command39_Click: MsgBox Err.Description Resume Exit_Command39_Click End Sub Private Sub Command49_Click() On Error GoTo Err_Command49_Click Dim stDocName As String Dim stLinkCriteria As String
stDocName = "TahunDosenSubfrm6HonorDosen" stLinkCriteria = "[IdBulan]=" & Me![IdBulan] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command36_Click: Exit Sub Err_Command36_Click: MsgBox Err.Description Resume Exit_Command36_Click End Sub Private Sub Command37_Click() On Error GoTo Err_Command37_Click
stDocName = "HonorDosenFrm**" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command49_Click: Exit Sub Err_Command49_Click: MsgBox Err.Description Resume Exit_Command49_Click End Sub Private Sub Command58_Click() On Error GoTo Err_Command58_Click
Dim stDocName As String Dim stLinkCriteria As String
Dim stDocName As String Dim stLinkCriteria As String
stDocName = "HonorDosenFrm**"
stDocName = "HonorDosenSubfrm4"
DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command37_Click: Exit Sub Err_Command37_Click: MsgBox Err.Description Resume Exit_Command37_Click End Sub Private Sub Command38_Click() On Error GoTo Err_Command38_Click Dim stDocName As String Dim stLinkCriteria As String
stLinkCriteria = "[IdTahunDosen]=" & Me![IdTahunDosen] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command58_Click: Exit Sub Err_Command58_Click: MsgBox Err.Description Resume Exit_Command58_Click End Sub Private Sub Command59_Click() On Error GoTo Err_Command59_Click Dim stDocName As String
Dim stLinkCriteria As String
stLinkCriteria = "[IdTahunDosen]=" & Me![IdTahunDosen] DoCmd.OpenForm stDocName, , , stLinkCriteria
L4 stDocName = "zz1" Exit_Command69_Click: stLinkCriteria = "[IdTahunDosen]=" & Me![IdTahunDosen] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command59_Click: Exit Sub Err_Command59_Click: MsgBox Err.Description Resume Exit_Command59_Click End Sub Private Sub Command60_Click() On Error GoTo Err_Command60_Click Dim stDocName As String Dim stLinkCriteria As String
Exit Sub Err_Command69_Click: MsgBox Err.Description Resume Exit_Command69_Click End Sub Private Sub Command105_Click() On Error GoTo Err_Command105_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "UjianQry+" stLinkCriteria = "[IdTahunDosen]=" & Me![IdTahunDosen] DoCmd.OpenForm stDocName, , , stLinkCriteria
stDocName = "TahunDosenSubfrm8" stLinkCriteria = "[IdTahunDosen]=" & Me![IdTahunDosen] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command60_Click: Exit Sub Err_Command60_Click: MsgBox Err.Description Resume Exit_Command60_Click End Sub Private Sub Command68_Click() On Error GoTo Err_Command68_Click Dim stDocName As String Dim stLinkCriteria As String
Exit_Command105_Click: Exit Sub Err_Command105_Click: MsgBox Err.Description Resume Exit_Command105_Click End Sub Private Sub Command106_Click() On Error GoTo Err_Command106_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "UjianUASQry" stLinkCriteria = "[IdTahunDosen]=" & Me![IdTahunDosen] DoCmd.OpenForm stDocName, , , stLinkCriteria
stDocName = "TahunDosenSubfrm8?" stLinkCriteria = "[IdTahunDosen]=" & Me![IdTahunDosen] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command68_Click: Exit Sub Err_Command68_Click: MsgBox Err.Description Resume Exit_Command68_Click End Sub Private Sub Command69_Click() On Error GoTo Err_Command69_Click Dim stDocName As String Dim stLinkCriteria As String
Exit_Command106_Click: Exit Sub Err_Command106_Click: MsgBox Err.Description Resume Exit_Command106_Click End Sub Private Sub Command108_Click() On Error GoTo Err_Command108_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "TahunDosenSubfrm8" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Command108_Click: Exit Sub
stDocName = "TahunDosenSubfrm8" Err_Command108_Click: MsgBox Err.Description
Resume Exit_Command108_Click End Sub
L-5 Private Sub Command109_Click() On Error GoTo Err_Command109_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "TahunDosenSubfrm8" DoCmd.OpenForm stDocName, "", "[IdTahunDosen]=Form![TahunDosenSubfrm1].[IdTahun Dosen]" Exit_Command109_Click: Exit Sub Err_Command109_Click: MsgBox Err.Description Resume Exit_Command109_Click End Sub Private Sub Command110_Click() On Error GoTo Err_Command110_Click DoCmd.OpenForm "TahunDosenSubfrm8", "", "[IdTahunDosen]=Form![UjianFrm**].[IdTahunDosen]" Exit_Command110_Click: Exit Sub Err_Command110_Click: MsgBox Err.Description Resume Exit_Command110_Click End Sub Private Sub Command111_Click() On Error GoTo Err_Command111_Click Dim stDocName As String stDocName = "McrHonorMengajar" DoCmd.RunMacro stDocName Exit_Command111_Click: Exit Sub Err_Command111_Click: MsgBox Err.Description Resume Exit_Command111_Click End Sub Private Sub Command114_Click() On Error GoTo Err_Command114_Click Dim stDocName As String stDocName = "UjianUTSQry" DoCmd.RunMacro stDocName Exit_Command114_Click: Exit Sub Err_Command114_Click: MsgBox Err.Description Resume Exit_Command114_Click End Sub
Private Sub Form_Activate() End Sub
rivate Sub Form_Timer() End Sub Private Sub TahunDosenSubfrm2_Enter() End Sub *Kode program query menampilkan nama dosen mengajar SELECT tblTahunDosen.IdTahunDosen, tblTahunDosen.Tahun, tblTahunDosen.Semester, tblTahunDosen.IdDosen, tblDosen.NoDosen, tblDosen.NamaDosen, tblTahunDosen.KodeFakultas, tblTahunDosen.HonorTetap, tblStrata.HonStrata, tblDosen.StrataDosen, tblTahunDosen.StrataTahun, tblDosen.PangkatDosen, tblTahunDosen.PangkatTahun, tblDosen.StatusDosen, tblTahunDosen.StatusTahun, tblDosen.KewajibanDosen, tblTahunDosen.KewajibanTahun, tblDosen.NamaBankDosen, tblTahunDosen.NamaBankTahun, tblDosen.CabBankDosen, tblTahunDosen.CabBankTahun, tblDosen.RekDosen, tblTahunDosen.RekTahun, tblTahunDosen.PangkatTahun FROM (tblDosen INNER JOIN tblTahunDosen ON tblDosen.IdDosen = tblTahunDosen.IdDosen) INNER JOIN tblStrata ON tblDosen.StrataDosen = tblStrata.Strata ORDER BY tblDosen.NamaDosen; *Kode program query menampilkan mata kuliah SELECT tblDosenKuliah.IdDosenKuliah, tblDosenKuliah.IdTahunDosen, tblDosenKuliah.IdMataKuliah, tblMataKuliah.KelKuliah, tblMataKuliah.NamaMataKuliah, tblMataKuliah.SKS, tblDosenKuliah.SksDosenKuliah, tblJurusan.Jurusan, tblFakultas.KodeFakultas, tblDosenKuliah.Periode FROM (tblFakultas INNER JOIN (tblJurusan INNER JOIN tblMataKuliah ON tblJurusan.Jurusan = tblMataKuliah.Jurusan) ON tblFakultas.KodeFakultas = tblJurusan.KodeFakultas) INNER JOIN tblDosenKuliah ON tblMataKuliah.IdMataKuliah = tblDosenKuliah.IdMataKuliah WHERE (((tblJurusan.Jurusan)<>"LAB")); *Kode program pengecekan untuk memasukan data kehadiram dosen mengajar. Option Compare Database Option Explicit Private Sub Command17_Click() On Error GoTo Err_Command17_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 Exit_Command17_Click: Exit Sub Err_Command17_Click: MsgBox Err.Description
Resume Exit_Command17_Click
L6 End Sub Private Sub Command18_Click() On Error GoTo Err_Command18_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 Exit_Command18_Click: Exit Sub Err_Command18_Click: MsgBox Err.Description Resume Exit_Command18_Click End Sub Private Sub Detail_Click() End Sub Option Compare Database Option Explicit Private Sub Command25_Click() On Error GoTo Err_Command25_Click DoCmd.Close Exit_Command25_Click: Exit Sub Err_Command25_Click: MsgBox Err.Description Resume Exit_Command25_Click End Sub Private Sub Command40_Click() On Error GoTo Err_Command40_Click DoCmd.Close Exit_Command40_Click: Exit Sub Err_Command40_Click: MsgBox Err.Description Resume Exit_Command40_Click End Sub Private Sub FormHeader_Click() End Sub
tblHonorUjian.HonorAwasMalam, tblHonorUjian.HonorPangkatUjian, tblUjian.HonNas, tblUjian.HonKor, tblUjian.HonAwasPg, tblUjian.HonAwasMlm FROM tblBulan INNER JOIN (tblUjian INNER JOIN tblHonorUjian ON tblUjian.Ujian = tblHonorUjian.Ujian) ON tblBulan.IdBulan = tblHonorUjian.IdBulan; *Kode program Form Menu Report. Option Compare Database Private Sub Command2_Click() On Error GoTo Err_Command2_Click Dim stDocName As String Dim stLinkCriteria As String stLinkCriteria = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "***TransferHonorMengajar+UjianRpt" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]" Exit_Command2_Click: Exit Sub Err_Command2_Click: MsgBox Err.Description Resume Exit_Command2_Click End Sub Private Sub Command11_Click() On Error GoTo Err_Command11_Click Dim stDocName As String Dim stLinkCriteria As String stLinkCriteria = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "**RekapUjianRpt" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]"
*Kode program query naskah, koreksi dan mengawas SELECT DISTINCTROW tblHonorUjian.IdDosenKuliah, tblHonorUjian.IdHonorUjian, tblHonorUjian.HdrUjian, tblUjian.HonNas, tblUjian.HonKor, tblUjian.HonAwasPg, tblUjian.HonAwasMlm, tblHonorUjian.Ujian, tblHonorUjian.IdBulan, tblHonorUjian.JumNas, tblHonorUjian.JumKor, tblHonorUjian.AwasPag, tblHonorUjian.AwasMal, tblHonorUjian.HonorNaskah, tblHonorUjian.TelNaskah, tblHonorUjian.HonorKoreksi, tblHonorUjian.TelKoreksi, tblHonorUjian.HonorAwasPagi,
Exit_Command11_Click: Exit Sub Err_Command11_Click: MsgBox Err.Description Resume Exit_Command11_Click End Sub Private Sub Command12_Click() On Error GoTo Err_Command12_Click
L7 Dim stDocName As String Dim stLinkCriteria As String stLinkCriteria = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [IdDosen]=Forms![CetakFrm].[IdDosen]And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "**SlipUjianRptPerDosen" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [IdDosen]=Forms![CetakFrm].[IdDosen]" Exit_Command12_Click: Exit Sub Err_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End Sub Private Sub Command13_Click() On Error GoTo Err_Command13_Click Dim stDocName As String stDocName = "**TransferUjianRpt" DoCmd.OpenReport stDocName, acPreview, "", "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]And [semester]=Forms![CetakFrm].[Semester]" Exit_Command13_Click: Exit Sub Err_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End Sub Private Sub Command14_Click() On Error GoTo Err_Command14_Click Dim stDocName As String Dim stLinkCriteria As String stLinkCriteria = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan]And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "**SlipUjianRpt" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan]" Exit_Command14_Click: Exit Sub
Err_Command14_Click: MsgBox Err.Description Resume Exit_Command14_Click End Sub Private Sub Command15_Click() On Error GoTo Err_Command15_Click Dim stDocName As String Dim stLinkCriteria1 As String stLinkCriteria1 = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas] And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "RekapHonorRpt1" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria1 '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]" Exit_Command15_Click: Exit Sub Err_Command15_Click: MsgBox Err.Description Resume Exit_Command15_Click End Sub Private Sub Command16_Click() On Error GoTo Err_Command16_Click Dim stDocName As String Dim stLinkCriteria As String stLinkCriteria = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan]And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "SlipHonorRpt1" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan]" Exit_Command16_Click: Exit Sub Err_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End Sub Private Sub Command17_Click() On Error GoTo Err_Command17_Click Dim stDocName As String Dim stLinkCriteria As String
L8 stLinkCriteria = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [IdDosen]=Forms![CetakFrm].[IdDosen]And [semester]=Forms![CetakFrm].[Semester]" stDocName = "SlipHonorRptPerDosen" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [IdDosen]=Forms![CetakFrm].[IdDosen]" Exit_Command17_Click: Exit Sub Err_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub Private Sub Command18_Click() On Error GoTo Err_Command18_Click Dim stDocName As String stDocName = "Transfer" DoCmd.OpenReport stDocName, acPreview, "", "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]And [semester]=Forms![CetakFrm].[Semester]And [semester]=Forms![CetakFrm].[Semester]" Exit_Command18_Click: Exit Sub Err_Command18_Click: MsgBox Err.Description Resume Exit_Command18_Click End Sub Private Sub Command19_Click() On Error GoTo Err_Command19_Click DoCmd.Close Exit_Command19_Click: Exit Sub Err_Command19_Click: MsgBox Err.Description Resume Exit_Command19_Click End Sub Private Sub Command24_Click() On Error GoTo Err_Command24_Click DoCmd.Close Exit_Command24_Click: Exit Sub Err_Command24_Click: MsgBox Err.Description Resume Exit_Command24_Click End Sub
Private Sub Command27_Click() Dim stDocName As String Dim stLinkCriteria1 As String stLinkCriteria1 = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas] And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "RekapHonorLabRpt" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria1 '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]" End Sub Private Sub Command28_Click() Dim stDocName As String Dim stLinkCriteria1 As String stLinkCriteria1 = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas] And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "***TransferHonorMengajar+Ujian+LabRpt" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria1 '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]" End Sub Private Sub Command38_Click() On Error GoTo Err_Command38_Click Dim stDocName As String Dim stLinkCriteria As String stLinkCriteria = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan]And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "RekapDTT" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria Exit_Command38_Click: Exit Sub Err_Command38_Click: MsgBox Err.Description Resume Exit_Command38_Click End Sub Private Sub Command46_Click() Dim stDocName As String Dim stLinkCriteria As String
L9 stLinkCriteria = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "**RekapUjianUniversitasRpt" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]"
DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan]" Exit_Command16_Click: Exit Sub Err_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End Sub
Exit_Command46_Click: Exit Sub *Kode program rekap transfer mengajar. Err_Command46_Click: MsgBox Err.Description Resume Exit_Command46_Click End Sub
Private Sub Command18_Click() On Error GoTo Err_Command18_Click Dim stDocName As String
*Kode program rekap honor mengajar. Private Sub Command15_Click() On Error GoTo Err_Command15_Click Dim stDocName As String Dim stLinkCriteria1 As String stLinkCriteria1 = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas] And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "RekapHonorRpt1" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria1 '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]" Exit_Command15_Click: Exit Sub Err_Command15_Click: MsgBox Err.Description Resume Exit_Command15_Click
*Kode program Slip. Private Sub Command16_Click() On Error GoTo Err_Command16_Click Dim stDocName As String Dim stLinkCriteria As String
stDocName = "Transfer" DoCmd.OpenReport stDocName, acPreview, "", "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]And [semester]=Forms![CetakFrm].[Semester]And [semester]=Forms![CetakFrm].[Semester]" Exit_Command18_Click: Exit Sub Err_Command18_Click: MsgBox Err.Description Resume Exit_Command18_Click End Sub *Kode program rekap honor laboratorium. Private Sub Command27_Click() Dim stDocName As String Dim stLinkCriteria1 As String stLinkCriteria1 = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas] And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "RekapHonorLabRpt" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria1 '"[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan] And [KodeFakultas]=Forms![CetakFrm].[KodeFakultas]" End Sub
stLinkCriteria = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan]And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "SlipHonorRpt1"
L 10 *Kode program rekap honor mengajar perfakultas.
CetakRekapUjianQry.KodeFakultas, CetakRekapUjianQry.StatusDosen1; *Kode program mencetak slip ujian
Private Sub Command38_Click() On Error GoTo Err_Command38_Click Dim stDocName As String Dim stLinkCriteria As String
stLinkCriteria = "[Tahun]=Forms![CetakFrm].[Tahun]And [IdBulan]=Forms![CetakFrm].[IdBulan]And [Semester]=Forms![CetakFrm].[Semester]" stDocName = "RekapDTT" DoCmd.OpenReport stDocName, acPreview, "", stLinkCriteria Exit_Command38_Click: Exit Sub Err_Command38_Click: MsgBox Err.Description Resume Exit_Command38_Click End Sub *Kode program mencetak rekap ujian UTS. SELECT CetakRekapUjianQry.Tahun, CetakRekapUjianQry.Semester, CetakRekapUjianQry.IdBulan, CetakRekapUjianQry.Bulan, CetakRekapUjianQry.KodeFakultas, CetakRekapUjianQry.KodeFakultas1, CetakRekapUjianQry.StatusDosen1, CetakRekapUjianQry.Ujian, Sum(CetakRekapUjianQry.HonNasUjian) AS SumOfHonNasUjian, Sum(CetakRekapUjianQry.HonKorUjian) AS SumOfHonKorUjian, Sum(CetakRekapUjianQry.HonAwasUjian) AS SumOfHonAwasUjian, Sum(CetakRekapUjianQry.HonSksUjian) AS SumOfHonSksUjian, Sum(CetakRekapUjianQry.HonTranUjian) AS SumOfHonTranUjian, Sum(CetakRekapUjianQry.PenKotUjian) AS SumOfPenKotUjian, Sum(CetakRekapUjianQry.PajakUjian) AS SumOfPajakUjian, Sum(CetakRekapUjianQry.PenBer) AS SumOfPenBer FROM CetakRekapUjianQry GROUP BY CetakRekapUjianQry.Tahun, CetakRekapUjianQry.Semester, CetakRekapUjianQry.IdBulan, CetakRekapUjianQry.Bulan, CetakRekapUjianQry.KodeFakultas, CetakRekapUjianQry.KodeFakultas1, CetakRekapUjianQry.StatusDosen1, CetakRekapUjianQry.Ujian ORDER BY CetakRekapUjianQry.Tahun, CetakRekapUjianQry.Semester, CetakRekapUjianQry.Bulan,
SELECT DISTINCTROW tblTahunDosen.IdTahunDosen, tblTahunDosen.Tahun, tblTahunDosen.Semester, tblHonorUjian.IdBulan, tblBulan.Bulan, tblDosen.IdDosen, tblDosen.NoDosen, tblDosen.NamaDosen, tblTahunDosen.StrataTahun, tblTahunDosen.PangkatTahun, tblTahunDosen.StatusTahun, tblTahunDosen.KodeFakultas, IIf([KodeFakultas]="FE","EKONOMI",IIf([KodeFakultas] ="FTI","TEKNIK INDUSTRI",IIf([KodeFakultas]="FT","TEKNIK",IIf([Ko deFakultas]="FASILKOM","ILMU KOMPUTER",IIf([KodeFakultas]="FP","PERTANIAN",I If([KodeFakultas]="FTSP","TEKNIK SIPIL",IIf([KodeFakultas]="FPS","PSIKOLOGI",IIf([Kod eFakultas]="FIKOM","ILMU KOMUNIKASI"," ")))))))) AS KodeFakultas1, tblHonorUjian.Ujian, tblMataKuliah.NamaMataKuliah, tblMataKuliah.SKS, tblDosenKuliah.SksDosenKuliah, tblHonorUjian.HdrUjian, tblUjian.HonNas, tblUjian.HonKor, tblUjian.HonAwasPg, tblUjian.HonAwasMlm, tblHonorUjian.IdHonorUjian, tblHonorUjian.IdDosenKuliah, tblHonorUjian.IdBulan, tblBulan.Bulan, tblHonorUjian.JumNas, tblHonorUjian.JumKor, tblHonorUjian.AwasPag, tblHonorUjian.AwasMal, tblHonorUjian.HonorNaskah, tblHonorUjian.HonorKoreksi, tblHonorUjian.HonorAwasPagi, tblHonorUjian.HonorAwasMalam, tblUjian.HonNas, tblUjian.HonKor, tblUjian.HonAwasPg, tblUjian.HonAwasMlm, IIf([TelNaskah]=Yes,0.5*([JumNas]*[HonorNaskah]),([Ju mNas]*[HonorNaskah])) AS HonNasUjian, tblHonorUjian.TelNaskah, IIf([TelKoreksi]=Yes,0.5*([JumKor]*[HonorKoreksi]),([J umKor]*[HonorKoreksi])) AS HonKorUjian, tblHonorUjian.TelKoreksi, (([AwasPag]*[HonorAwasPagi])+([AwasMal]*[HonorAw asMalam])) AS HonAwasUjian, IIf([KodeFakultas]="FE",([SksDosenKuliah]*[HdrUjian]* [HonorPangkatUjian]),0) AS HonSksUjian, ([HdrUjian]*[HonTransportTahun]) AS HonTranUjian, ([HonNasUjian]+[HonKorUjian]+[HonAwasUjian]+[Hon SksUjian]+[HonTranUjian]) AS PenKotUjian, ([Pajak1]*[PenKotUjian]) AS PajakUjian, ([PenKotUjian][PajakUjian]) AS PenBer, tblDosen.StatusDosen, IIf([StatusDosen]="DTT",0.025,0.05) AS Pajak1 FROM tblPangkat INNER JOIN (tblDosen INNER JOIN (tblTahunDosen INNER JOIN (tblMataKuliah INNER JOIN (tblDosenKuliah INNER JOIN (tblBulan INNER JOIN (tblUjian INNER JOIN tblHonorUjian ON tblUjian.Ujian = tblHonorUjian.Ujian) ON tblBulan.IdBulan = tblHonorUjian.IdBulan) ON tblDosenKuliah.IdDosenKuliah = tblHonorUjian.IdDosenKuliah) ON tblMataKuliah.IdMataKuliah = tblDosenKuliah.IdMataKuliah) ON tblTahunDosen.IdTahunDosen = tblDosenKuliah.IdTahunDosen) ON tblDosen.IdDosen = tblTahunDosen.IdDosen) ON tblPangkat.Pangkat = tblDosen.PangkatDosen;
L 11 *Kode program mencetak transfer honor ujian SELECT DISTINCTROW CetakTransferUjianQry1.Tahun, CetakTransferUjianQry1.Semester, CetakTransferUjianQry1.IdBulan, CetakTransferUjianQry1.Ujian, CetakTransferUjianQry1.Bulan, CetakTransferUjianQry1.NamaDosen, CetakTransferUjianQry1.KodeFakultas, CetakTransferUjianQry1.KodeFakultas1, Sum(CetakTransferUjianQry1.PenBer) AS SumOfPenBer, CetakTransferUjianQry1.NamaBankTahun, CetakTransferUjianQry1.CabBankTahun, CetakTransferUjianQry1.RekTahun FROM CetakTransferUjianQry1 GROUP BY CetakTransferUjianQry1.Tahun, CetakTransferUjianQry1.Semester, CetakTransferUjianQry1.IdBulan, CetakTransferUjianQry1.Ujian, CetakTransferUjianQry1.Bulan, CetakTransferUjianQry1.NamaDosen, CetakTransferUjianQry1.KodeFakultas, CetakTransferUjianQry1.KodeFakultas1, CetakTransferUjianQry1.NamaBankTahun, CetakTransferUjianQry1.CabBankTahun, CetakTransferUjianQry1.RekTahun;
*Kode program mencetak rekap honor ujian per fakultas SELECT CetakRekapUjianQry.Tahun, CetakRekapUjianQry.Semester, CetakRekapUjianQry.IdBulan, CetakRekapUjianQry.Bulan, CetakRekapUjianQry.KodeFakultas, CetakRekapUjianQry.KodeFakultas1, CetakRekapUjianQry.StatusDosen1, CetakRekapUjianQry.Ujian, Sum(CetakRekapUjianQry.HonNasUjian) AS SumOfHonNasUjian, Sum(CetakRekapUjianQry.HonKorUjian) AS SumOfHonKorUjian, Sum(CetakRekapUjianQry.HonAwasUjian) AS SumOfHonAwasUjian, Sum(CetakRekapUjianQry.HonSksUjian) AS SumOfHonSksUjian, Sum(CetakRekapUjianQry.HonTranUjian) AS SumOfHonTranUjian, Sum(CetakRekapUjianQry.PenKotUjian) AS SumOfPenKotUjian, Sum(CetakRekapUjianQry.PajakUjian) AS SumOfPajakUjian, Sum(CetakRekapUjianQry.PenBer) AS SumOfPenBer FROM CetakRekapUjianQry GROUP BY CetakRekapUjianQry.Tahun, CetakRekapUjianQry.Semester, CetakRekapUjianQry.IdBulan, CetakRekapUjianQry.Bulan, CetakRekapUjianQry.KodeFakultas, CetakRekapUjianQry.KodeFakultas1, CetakRekapUjianQry.StatusDosen1, CetakRekapUjianQry.Ujian ORDER BY CetakRekapUjianQry.Tahun, CetakRekapUjianQry.Semester, CetakRekapUjianQry.Bulan, CetakRekapUjianQry.KodeFakultas, CetakRekapUjianQry.StatusDosen1;
L 12
