DAFTAR PUSTAKA
F, Rowland Jonathan e.(2006). Perancangan sistem penjualan berbasis web pada PT. Restu Mahkota Karya. Sekolah Tinggi Manajemen Informatika dan Komputer Jayakarta. Jakarta. HM, Jogiyanto.(1995). Analisa dan Desain Sistem Informasi. Yogyakarta :ANDI. Kadir, Abdul.(2002). Pengenalan sistem informasi. Yogyakarta: ANDI. Nugroho, Adi.(2006). E-Commerce. Bandung: Informatika. Nugroho, Bunafit.(2004). Aplikasi Pemrograman Web Dinamis dengan PHP dan MySQL, Yogyakarta: GAVAMEDIA. Prasetyo, Didik Dwi.(2003). Kolaborasi PHP dan MySQL untuk Membuat Web Database yang Interaktif. Jakarta: Elex Media Komputindo. Sunarfrihantono, Bimo, ST.(2002). Php dan mysql untuk web. Yogyakarta: Andi. Tyas, Zahra Arwaning.(2010). Implementasi E-Commerce untuk Ozone Distro. Program Studi Teknik Informatika Jurusan Matematika Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Diponegoro. Semarang Widyaestoeti Dahlia, 2011. Rancangan bangun database nilai siswa tingkat sekolah mengah. Jakarta. Hal 3 Hardiyansyah Dede, 2009.
Sistem Informasi Pendataan Pegawai Dan
Pembuatan Id Card Pegawai Dengan Borland Delphi 6.0 Pada Pt.Pln(Persero)Area Jaringan Kebayoran. Stmik Jakarta Sti&K. Jakarta. Hal 6
Doro Edi, Valentinus Ricky Sjofyan, 2010. Sistem Informasi Penyewaan Properti Berbasis C2C. Universitas Kristen Maranatha. Bandung. Hal 26 Edhy Sutanta, 2004. Sistem Basis Data. Graha Ilmu. Yogyakarta Hal. 18-19 Jogiyanto, 2005. Analisis dan Desain. Andi Yogyakarta. Yogyakarta. Hal 1012 Jogiyanto, 2005. Sistem teknologi informasi. Andi Yogyakarta. Yogyakarta. Hal 34-37 Tanti Kristanti, Gede Niluh Redita, 2012. Sistem Informasi Nilai SMPN 14 Bandung. Universitas Kristen Maranatha. Bandung. Hal 10 Mangkulo Hengky Alexander, 2004. Belajar Sendiri Aplikasi Database Menggunakan ado vb 6 dan sql server 2000. PT. Elex Media Komputindo, Jakarta. Hal. 1-6 Nataniel Dengen, Heliza Rahmania Hatta, 2009. Perancangan Sistem Informasi
Terpadu
Pemerintah
Daerah
Kabupaten
Paser.
FMIPA
Universitas Mulawarman. Samarinda. Hal 3 Rahayu Primita, Rossi Henry, Adhitiara Dudi. 2011. Sistem Informasi Pasien Rawat Jalan Puskesmas Maospati Berbasis Web. Program Studi Manajemen informatika Politeknik Telkom. Bandung Robby, Owen Kwanentent, Frans Mei Wardana, 2009 Universitas Bina Nusantara. Jakarta. Hal 2 Triyono Joko, Wahyudi Kunjung, 2005. Aplikasi sistem informasi geografi tingkat pencemaran industri di kabupaten gresik. Institut Sains & Teknologi AKPRIND Yogyakarta. Yogyakarta. Hal 8
FORM DATA SISWA Dim cek As String Dim TANDA As Boolean Private Sub CmdBatal_Click() tb_Siswa.CancelBatch hidup kosong tb_Siswa.MoveFirst Tampil End Sub Private Sub cmdedit_Click() With tb_Siswa If Text1 = "" Then MsgBox "DATA KOSONG", vbInformation, "PERINGATAN" Else edit TANDA = False Text2.SetFocus End If 'Next End With End Sub Private Sub cmdsimpan_Click() If Me.Text1.Text = "" _ Or Me.Text2.Text = "" _ Or Me.Text3.Text = "" _ Or Me.Text4.Text = "" _ Or Me.Combo1.Text = "" Then MsgBox "Data masih ada yang kosong", vbInformation + vbSystemModal + vbOKOnly, "Informasi" Me.Text2.SetFocus
Else With tb_Siswa .Find "[kd_siswa]='" & Me.Text1.Text & "'" If .EOF Then .Filter = adFilterNone .AddNew .Fields(0) = Me.Text1.Text End If .Fields(1) = Me.Text2.Text .Fields(2) = Me.Text3.Text .Fields(4) = Me.Text4.Text .Fields(3) = Combo1 .Fields(5) = Me.Text5.Text .Fields(6) = Me.Text6.Text .Fields(7) = Me.Text7.Text .Fields(8) = Me.Text8.Text 'End If .Update .Requery MsgBox "Data Sudah Disimpan", vbInformation + vbSystemModal + vbOKOnly, "Informasi" .MoveLast Tampil hidup End With End If End Sub Sub edit() CmdBatal.Enabled = True cmdsimpan.Enabled = True 'DTPicker1(0).Enabled = True
cmdtambah.Enabled = False 'cmdhapus.Enabled = False cmdtambah.Enabled = False 'Command5.Enabled = False cmdedit.Enabled = False 'cmdkeluar.Enabled = False 'Command1.Enabled = False Text1.Locked = True Text2.Locked = False Text3.Locked = False Text4.Locked = False 'Text5.Locked = False 'Text6.Locked = False End Sub Private Sub Cmdhapus_Click() If MsgBox("Apakah yakin dihapus?", 32 + vbOKCancel, "Konfirmasi") = vbOK Then tb_Siswa.Delete MsgBox "Hapus" tb_Siswa.MoveFirst End If End Sub Private Sub cmdtambah_Click() kosong 'Me.Text2.SetFocus Me.Text1.Text = No_anggota mati End Sub Private Sub EXIT_Click() Unload Me End Sub
Function No_anggota() With tb_Siswa If .State = 0 Then .Open 'thn$ = Year(Date) If .EOF Then No_anggota = "S" + "0001" Else .MoveLast No_anggota = "S" + Right("0000" + Trim(Str(Val(Right(.Fields(0), 4)) + 1)), 4) End If End With End Function Sub kosong() Me.Text1.Text = "" Me.Text2.Text = "" Me.Text3.Text = "" Me.Text4.Text = "" Me.Text6.Text = "" Me.Text5.Text = "" Me.Combo1.Text = "" Me.Text7.Text = "" End Sub Private Sub Form_Load() Buka kosong If tb_Siswa.EOF Then MsgBox "Data kosong, Isi dulu...!!!", vbInformation + vbSystemModal + vbOKOnly, "Informasi" Else tb_Siswa.MoveFirst
Tampil End If hidup Set Me.DataGrid1.DataSource = tb_Siswa 'mati End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Me.Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Combo1.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) 'cek = "0123456789" + Chr(13) + Chr(8) + "-" 'If InStr(cek, Chr(KeyAscii)) = 0 Then ' KeyAscii = 0 '
MsgBox "Masukkan angka saja & tanda [-]", vbInformation + vbSystemModal
+ vbOKOnly, "Informasi" 'End If 'KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Me.cmdsimpan.SetFocus End If End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.Text4.SetFocus End If End Sub Private Sub Command1_Click() tb_Siswa.MoveFirst Tampil End Sub Private Sub Command2_Click() tb_Siswa.MoveNext If tb_Siswa.EOF Then tb_Siswa.MoveLast MsgBox "Sudah di data terakhir", vbInformation + vbSystemModal + vbOKOnly, "Informasi" End If Tampil End Sub Private Sub Command3_Click() tb_Siswa.MovePrevious If tb_Siswa.BOF Then tb_Siswa.MoveFirst MsgBox "Sudah di data pertama", vbInformation + vbSystemModal + vbOKOnly, "Informasi" End If Tampil End Sub Private Sub Command4_Click() tb_Siswa.MoveLast Tampil End Sub
Sub Tampil() Me.Text1.Text = tb_Siswa!kd_siswa Me.Text2.Text = tb_Siswa!nmsiswa Me.Text3.Text = tb_Siswa!alamat Me.Combo1.Text = tb_Siswa!Jkel Me.Text4.Text = tb_Siswa!tgllhr Me.Text7.Text = tb_Siswa!telp Me.Text5.Text = tb_Siswa!nmortu Me.Text6.Text = tb_Siswa!kerja Me.Text8.Text = tb_Siswa!kls End Sub Sub hidup() Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True cmdtambah.Enabled = True CmdBatal.Enabled = False cmdsimpan.Enabled = False cmdtambah.Enabled = True cmdedit.Enabled = True Cmdhapus.Enabled = True Text1.Locked = True Text2.Locked = True Text3.Locked = True End Sub Sub mati() Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False
Cmdhapus.Enabled = False CmdBatal.Enabled = True cmdsimpan.Enabled = True cmdtambah.Enabled = False cmdedit.Enabled = False Text1.Locked = False Text2.Locked = False Text3.Locked = False End Sub
FORM DATA NILAI SISWA Dim cell As ListItem, cell2 As ListItem, cell3 As ListItem, cell4 As ListItem Dim cells As ListItem, cells2 As ListItem, cells3 As ListItem, cells4 As ListItem Private Sub cmdbaru_Click() kosong Text1.SetFocus Me.ListView1.ListItems.Clear End Sub Private Sub cmdsimpan_Click() If Me.ListView1.ListItems.Count <> 0 Then With tb_nilai jml = Me.ListView1.ListItems.Count For I = 1 To jml Set dlist = Me.ListView1.ListItems(I) .AddNew .Fields(0) = Me.Text1.Text !semester = Text9.Text !pelajaran = Me.ListView1.ListItems.Item(I).SubItems(1) !kelas = Me.Text3.Text !nmsiswa = Me.Text7.Text !noinduk = Me.Text17.Text
!nh = Me.Text4.Text !nt = Me.Text5.Text !nu = Me.Text6.Text !na = Me.Text8.Text .Update .Requery Next End With MsgBox "Data telah disimpan", vbOKOnly, "Informasi" End If End Sub Private Sub Command1_Click() ListView2.Visible = True End Sub Private Sub Command2_Click() ListView3.Visible = True End Sub Private Sub Command3_Click() ListView4.Visible = True End Sub Private Sub Form_Activate() 'Text1.Text = Year(yy) While Not tb_mapel.EOF Set cell = Me.ListView2.ListItems.Add(, , tb_mapel(1)) tb_mapel.MoveNext Wend While Not tb_kelas.EOF Set cells = Me.ListView3.ListItems.Add(, , tb_kelas(1)) tb_kelas.MoveNext Wend While Not tb_Siswa.EOF
Set cells2 = Me.ListView4.ListItems.Add(, , tb_Siswa(0)) tb_Siswa.MoveNext Wend End Sub Function kodeotomatis() With tb_nilai If .State = 0 Then .Open ' thn$ = Year(Date) If .EOF Then kodeotomatis = "N0001" Else .MoveLast kodeotomatis = "N" + Right("0000" + Trim(Str(Val(Right(.Fields(0), 4)) + 1)), 4) End If End With End Function Sub kosong() Me.Text2.Text = "" Me.Text3.Text = "" Me.Text4.Text = "" Me.Text5.Text = "" Me.Text6.Text = "" Me.Text1.Text = "" Me.Text8.Text = "" Me.Text9.Text = "" Me.Text17.Text = "" 'Me.Text13.Text = "" End Sub
Private Sub Form_DblClick() ListView4.Visible = False ListView3.Visible = False ListView2.Visible = False End Sub Private Sub Form_Load() Buka 'Combo1 = tb_Siswa.Fields(0) kosong 'Text9.Text = Date End Sub Private Sub ListView2_DblClick() Set cell = Me.ListView2.ListItems.Item(Me.ListView2.SelectedItem.Index) Me.Text2 = cell Me.ListView2.Visible = False End Sub Private Sub ListView3_DblClick() Set cells = Me.ListView3.ListItems.Item(Me.ListView3.SelectedItem.Index) Me.Text3 = cells Me.ListView3.Visible = False End Sub Private Sub ListView4_DblClick() Set cells2 = Me.ListView4.ListItems.Item(Me.ListView4.SelectedItem.Index) Me.Text17 = cells2 Me.ListView4.Visible = False End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text9.SetFocus End If End Sub
Private Sub Text17_KeyPress(KeyAscii As Integer) With tb_Siswa If .RecordCount > 0 Then .Filter = adFilterNone .Requery .Find "[kd_siswa] = '" & Me.Text17.Text & "'" If Not .EOF Then Me.Text7.Text = !nmsiswa Else pesen "Data kosong" End If End If End With End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text17.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then
Text6.SetFocus End If End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text8.SetFocus End If Rata = (Val(Me.Text4.Text) _ + Val(Me.Text5.Text) _ + Val(Me.Text6.Text)) / 3 Me.Text8.Text = Rata End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) JmlList = Me.ListView1.ListItems.Count + 1 If KeyAscii = 13 Then Me.ListView1.ListItems.Add JmlList, , Me.Text17.Text Me.ListView1.ListItems(JmlList).SubItems(1) = Me.Text2.Text Me.ListView1.ListItems(JmlList).SubItems(2) = Me.Text4.Text Me.ListView1.ListItems(JmlList).SubItems(3) = Me.Text5.Text Me.ListView1.ListItems(JmlList).SubItems(4) = Me.Text6.Text Me.ListView1.ListItems(JmlList).SubItems(5) = Me.Text8.Text 'Me.Text13.Text = Val(Me.Text13.Text) + Val(Me.Text8.Text) Text2.SetFocus End If End Sub Private Sub Text9_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub
