1
I. Praktek Microsoft Access I Tujuan : 1. Pengenalan Access 2. Membuka Program Access 3. Mengenal Elemen Dasar Jendela Kerja Access 4. Membuat File Tabel Baru 5. Menyimpan File Tabel 6. Menampilkan dan Memperbaiki Data 7. Membuat Form dengan AutoWizard 8. Mengakhiri Access 1.1 Pengenalan Access 2003 Access 2003 adalah salah satu program aplikasi basis data (database) yang canggih, populer dan sangat memperhatikan kemudahan pemakaian, fleksibilitas & integrasi dengan program lainnya serta kemudahan bekerja pada sistem jaringan dengan pemanfaatannya yang optimal. 1.2 Membuat Folder Baru (Sub Directory) Sebelum memulai program Access, sebaiknya anda buatkan dulu sub directory (folder) dengan nama Nama Anda untuk menyimpan data-data anda agar tidak tercampur dengan data orang lain. Adapun langkahlangkahnya adalah sbb.: 1. Nyalakan komputer anda, tunggu sampai komputer menampilkan area kerja (desktop) Windows 9x./Xp/2000/2003 2. Klik kanan tombol Start yang ada pada taskbar. 3. Pilih Explorer (lihat gambar 1.1) 4. Untuk membuat Folder Baru; klik directory tempat membuat folder baru (misal drive D atau O), kemudian klik menu File, New, Folder (lihat gambar 1.2) 5. Ganti New Folder dengan nama anda (lihat gambar 1.3) 6. Keluar dari program windows explorer : - Klik Menu File - Pilih Close
Gambar 1.1 Memulai membuka program Windows Explorer
1.3 Memulai Access 2003 Untuk memulai program aplikasi Access 2003, ikuti langkah-langkah berikut ini : 1. Klik tombol Start yang ada pada taskbar.
2
2. 3.
Pilih menu Program. Kemudian pilih dan klik program Microsoft Access seperti pada gambar 1.4, maka di layar komputer anda akan tampil layar Microsoft Access seperti pada gambar 1.5.
Gambar 1.2. Cara membuat Folder Baru
Gambar 1.3 Tampilan Windows Explorer
Gambar 1.4 Memulai Access 2003 Melalui Menu Program
3
Gambar 1.5 Layar Microsoft Access 2003 1.4 Membuat File Database Baru Untuk membuat file baru dalam access, lakukan langkah-langkah berikut : 1. Klik Icon New pada toolbars Database 2. Klik Blank Database pada kolom New di toolbars Task Pane sebelah kanan layer Access, kemudian akan tampil kotak dialog File New Database (seperti pada gambar 1.6)
Gambar 1.6. Kotak Dialog File New Database 3. 4.
Ketik nama file SIGD (Sistem Informasi Gaji Dosen) pada kolom File Name, lalu pindahkan ke folder nama anda, missal SUSI, kemudian klik tombol Create. Maka di layar akan tampil kotak dialog seperti pada gambar 1.7.
4
1.5 Membuat File Table Baru Buatlah file table pada gambar 1.8., Indeks field KODEDSN dan jadikan KODEDSN sebagai Primary Key, serta simpan dengan nama file DOSEN. Langkah Pengerjaannya : a. Klik Object Table b. Double Klik pada option Create Table in Design View, seperti pada gambar 1.7.
Gambar 1.7. Kotak dialog Menu Access c.
Buatkan struktur Table DOSEN pada gambar 1.8. berikut : Field Name Kodedsn Namadsn Alamat Kota Telp Foto
Data Type Text Text Text Text Text Ole Object
Description Kode Dosen Nama Dosen Alamat Kota Telepon Foto Dosen
Field Size 5 25 30 15 11 -
Format >@
Index Yes (No Duplicate)
Gambar 1.8. File Tabel DOSEN d.
Simpan Tabel DOSEN di atas dengan cara meng-klik icon save S), kemudian beri nama file DOSEN
e. f.
Untuk meng-entry data dosen, klik icon view Entri data pada Gambar 1.9. berikut :
Gambar 1.9. Data Dosen
pada toolbars Table Design (Ctrl +
pada toolbars Table Design.
5
g.
Tutup File Table dengan mengklik File, Close atau tekan (Ctrl +W)
1.6 Membuat File Form Buatkan Design Form seperti pada Gambar 1.10. :
Gambar 1.10 Contoh Form Langkah Pengerjaan : a. Klik object Form b. Double klik option Create Form in Design View c. Munculkan jendela Properties dengan meng-klik kanan pada form, kemudian pilih properties. d. Pilih object Form, kemudian pilih page Format pada jendela properties. e. Pada baris Caption ketik judul Form : OLAH DATA DOSEN f. Pada baris Picture : Pilih Gambar yang dikehendaki g. Pada baris Picture Size Mode : Pilih Stretch h. Klik page Data i. Pada baris Record Source : Pilih Table DOSEN (untuk meng-conect-kan file Tabel DOSEN ke Form) j. Atur lebar form sesuai kebutuhan, kemudian lakukan design form seperti pada gambar 1.10 k. Semua question (Kode Dosen, Nama Dosen, Alamat, Kota dan Telepon) dibuatkan dengan Label. l. Semua Field Entry dibuatkan dengan TextBox. Nama Field di entry dari Data, Control Source pada jendela properties. m. Kotak gambar/foto dibuatkan dengan Bound Oject Frame
1.7 Tugas I. 1. 2.
Buatkan file database baru dengan nama SIPNM (Sistem Informasi Pengolahan Nilai Mahasiswa) Buatkan File Table MHS (Mahasiswa) dengan struktur sbb : Field Name NIM NamaMhs TempatLahir TglLahir Alamat Kota KodePos Telp Photo
Data Type Text Text Text Date/Time Text Text Text Text OLE Object
Description Nomor Induk Mahasiswa Nama Mahasiswa Tempat Lahir Tanggal Lahir Alamat Kota KodePos Telepon Photo Mahasiswa
Field Size 8 20 15
Format >@
Index Yes (No Duplicate)
Medium Date 30 15 5 11
6
4.
Entry Data Mahasiswa (Ngarang sendiri minimal sepuluh record), contoh sbb :
5.
Buatkan form untuk mengolah data mahasiswa, seperti contoh berikut :
7
II. Praktek Microsoft Access II Tujuan : 1. Membuka Desain Form 2. Mengganti Background 3. Membuat Tombol Tekan 4. Membuat Report dengan Wizard 2.1 Meng-Edit Form 1. Membuka File Database (SIGD) a. Pilih dan klik File b. Pindahkan directory ke folder nama masing-masing c. Pilih dan klik file SIPB 2.
Membuka Desain Form a. Pilih dan klik Object Form b. Pilih dan klik File Olah Data Dosen c. Pilih dan klik Toolbar Design
3.
Mengganti BackGround a. Aktifkan jendela Properties dengan meng-klik kanan pada form kosong, kemudian pilih properties b. Pilih Form pada jendela Properties c. Cari Picture pada jendela Format Properties d. Cari directory gambar e.
4.
Klik tombol OK
Membuat Tombol Tekan a. Tombol Tekan Pertama Klik control Command Button pada ToolBox Klik pada form kosong Pilih Categories Record Navigation Pilih actions Go To First Record Klik Tombol Next Pilih Picture Go To First 1 Klik Tombol Next Ketik Pertama untuk nama tombolnya Klik tombol Finish Atur lebar dan tinggi tombol-nya Perintah tersebut di atas akan meng-create procedure sbb.: Private Sub Pertama_Click() On Error GoTo Err_Pertama_Click DoCmd.GoToRecord , , acFirst Exit_Pertama_Click: Exit Sub Err_Pertama_Click: Resume Exit_Pertama_Click End Sub
8
Ulangi perintah di atas untuk membuat tombol yang lainnya, jika kesulitan tanyakan pada Tutor (Dosen). b.
Procedure Tombol Sebelumnya Private Sub Sebelumnya_Click() On Error GoTo Err_Sebelumnya_Click DoCmd.GoToRecord , , acPrevious Exit_Sebelumnya_Click: Exit Sub Err_Sebelumnya_Click: Resume Exit_Sebelumnya_Click End Sub
c.
Procedure Tombol Berikutnya Private Sub Berikutnya_Click() On Error GoTo Err_Berikutnya_Click DoCmd.GoToRecord , , acNext Exit_Berikutnya_Click: Exit Sub Err_Berikutnya_Click: Resume Exit_Berikutnya_Click End Sub
d.
Procedure Tombol Terakhir Private Sub Terakhir_Click() On Error GoTo Err_Terakhir_Click DoCmd.GoToRecord , , acLast Exit_Terakhir_Click: Exit Sub Err_Terakhir_Click: Resume Exit_Terakhir_Click End Sub
e.
Procedure Tombol Terakhir Private Sub Tambah_Click() On Error GoTo Err_Tambah_Click Dim kode As String DoCmd.GoToRecord , , acLast kode = kodedsn.Value DoCmd.GoToRecord , , acNewRec kodedsn.Value = kode Exit_Tambah_Click: Exit Sub Err_Tambah_Click: MsgBox ("Sorry Kode Dosen Yang Anda Masukan Duplikasi") Resume Exit_Tambah_Click End Sub
f.
Procedure Tombol Hapus Private Sub hapus_Click()
9
On Error GoTo Err_hapus_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_hapus_Click: Exit Sub Err_hapus_Click: Resume Exit_hapus_Click End Sub g.
Procedure Tombol Keluar Private Sub keluar_Click() On Error GoTo Err_keluar_Click DoCmd.Close Exit_keluar_Click: Exit Sub Err_keluar_Click: Resume Exit_keluar_Click End Sub Hasilnya menjadi seperti pada gambar 2.1 berikut :
Gambar 2.1 Layout Form Olah Data Dosen 2.2 Membuat Report Langkah-langkah membuat report : a. Klik object Report b. Double klik option Create Report in Design View c. Munculkan jendela Properties dengan meng-klik kanan pada report, kemudian pilih properties. d. Pilih object Report, kemudian pilih page Format pada jendela properties. e. Pada baris Caption ketik judul Report : DAFTAR DOSEN
10
f. g. h.
i.
Klik page Data Pada baris Record Source : Pilih Table DOSEN (untuk meng-conect-kan file Tabel DOSEN ke Report) Memunculkan Report Header dan Report Footer - Klik kanan pada report - Pilih dan klik Report Header/Footer Lakukan design report seperti pada gambar 2.2.
Gambar 2.2. Design Report DAFTAR DOSEN
2.3 Memanggil Report dari Form Buka kembali Form Olah Data Dosen dan tambahkan tombol Preview Report seperti pada gambar 2.3 berikut :
11
Procedure Tombol Preview Private Sub Tampil_Click() On Error GoTo Err_Tampil_Click Dim stDocName As String stDocName = "Daftar Dosen" DoCmd.OpenReport stDocName, acPreview Exit_Tampil_Click: Exit Sub Err_Tampil_Click: Resume Exit_Tampil_Click End Sub
2.4. Tugas II. 1.
Buka file database SIPNM, kemudian buatkan Report Daftar Mahasiswa sbb. :
2.
Perbaiki file Form olah data mahasiswa yang sudah dibuatkan pada tugas 1 :
12
III.Praktek Microsoft Access III Tujuan : 1. Membuat File Tabel Baru 2. Menyimpan File Tabel 3. Membuat Form dengan AutoWizard 3.1 Membuat File Tabel Mata Kuliah Untuk membuat file table baru, lakukan langkah-langkah berikut : 5. Klik Objects Table 6. Klik create table in design view 7. Klik tombol design 8. Buatkan struktur file table seperti pada gambar 3.1 Field Name KodeMk NamaMk Kredit
Data Type Text Text Number
Description Kode Mata Kuliah Nama Mata Kuliah SKS
Field Size Format 9 >@ 22 Long Integer Standard
Decimal Places
Index Yes (No Duplicate)
0
Gambar 3.1. File Tabel MK 5. 6.
Simpan Tabel Mata Kuliah di atas dengan cara meng-klik icon save (Ctrl + S), kemudian beri nama file MK Tutup File Table dengan mengklik File, Close atau tekan (Ctrl +W)
pada toolbars Table Design
3.2 Membuat File Tabel Mata Kuliah Untuk membuat form baru, lakukan langkah-langkah berikut : 1. Klik object Form 2. Double klik option Create Form in Design View 3. Munculkan jendela Properties dengan meng-klik kanan pada form, kemudian pilih properties. 4. Pilih object Form, kemudian pilih page Format pada jendela properties. 5. Pada baris Caption ketik judul Form : OLAH DATA MATA KULIAH 6. Pada baris Picture : Pilih Gambar yang dikehendaki 7. Pada baris Picture Size Mode : Pilih Stretch 8. Klik page Data 9. Pada baris Record Source : Pilih Table MK (untuk meng-conect-kan file Tabel MK ke Form) 10. Atur lebar form sesuai kebutuhan, kemudian lakukan design form seperti pada gambar 3.2
Gambar 3.2 Form Olah Data Mata Kuliah
13
11. Semua question (Kode Mata Kuliah, Nama Mata Kuliah, Kredit) dibuatkan dengan Label. 12. Semua Field Entry dibuatkan dengan TextBox. Nama Field di entry dari Data, Control Source pada jendela properties. 13. Semua tombol tekan dibuatkan dengan Command Button 14. Jika design form sudah selesai, simpan dengan menekan Ctrl+S, kemudian berinama Olah Data Mata Kuliah. 15. Tampilkan/jalankan Form, kemudian entri data pada Gambar 3.3. berikut :
Gambar 3.3 Data Mata Kuliah
3.3 Tugas III. 1. 2.
Buka file database SIPNM Buatkan File Table LEVEL dengan struktur lihat gambar 3.4 Field Name Data Type Description Field Size Format lvl Text Level Dosen 2 >@ GajiPJam Number Gaji Per Jam Long Integer Standard
Decimal Places 0
Gambar 3.4. Table LEVEL 3.
Buatkan Form untuk mengolah Data Level, Contoh Form seperti pada gambar 3.5
Gambar 3.5. Form Olah Data Level
Index Yes (No Duplicate)
14
9.
Buatkan Report DAFTAR LEVEL, contoh design seperti pada gambar 3.6 :
Gambar 3.6. Daftar Level
15
IV. Praktek Microsoft Access IV Tujuan : Membuat File Menu 4.1 Membuat File Menu Untuk membuat Form Menu, lakukan langkah-langkah berikut : 10. Klik Objects Form 11. Klik create Form in design view 12. Klik tombol design 13. Buatkan Form Menu Utama seperti pada gambar 4.1
Gambar 4.1. Form Menu Utama 5. 6. 7.
Simpan dengan nama Menu Utama, kemudian tutup form. Membuat Sub Menu Data Master, dengan contoh desain seperti pada gambar 4.2. Simpan Form tersebut dengan nama Data Master
Gambar 4.2. Form Data Master 8. 9.
Membuat Sub Menu Laporan, dengan desain seperti pada gambar 4.3. Simpan Form tersebut dengan nama Laporan
16
Gambar 4.3. Form Laporan
4.2 Tugas IV. 1.
Buatkan Form Menu Utama
2.
Buatkan Form Sub Menu Data Master
17
3.
Buatkan Form Sub Menu Laporan
18
V.
Praktek Microsoft Access V
Tujuan : 1. Menyimpan File Macro 2. Membuat File Conection 5.1 Membuat File Macro Untuk membuat Form Macro, lakukan langkah-langkah berikut : 14. Membuat File Macro Menu Utama a. Klik Object Macro b. Klik Option New c. Klik kanan pada Title Bar kotak dialog Macro d. Pilih dan klik Macro Name e. Ketik Menu Utama pada kolom Macro Name f. Cari dan pilih option Close pada kolom Action g. Cari dan pilih option Form pada baris Object Type h. Cari dan pilih file Data Master pada baris Object Name i. Ulangi perintah nomor f s/d h pada baris ke dua untuk memasukan perintah menutup file Laporan j. Cari dan pilih option OpenForm pada kolom Action baris ke tiga k. Cari dan pilih file Menu Utama pada baris Form Name l. Cari dan pilih option Form pada baris View m. Cari dan pilih option Normal pada baris Window Mode n. Simpan dengan nama file Menu Utama o. Tutup kotak dialog Macro 15. Membuat File Macro Data Master a. Klik lagi Option New b. Klik kanan pada Title Bar kotak dialog Macro c. Pilih dan klik Macro Name d. Ketik Data Master pada kolom Macro Name e. Cari dan pilih option Close pada kolom Action f. Cari dan pilih option Form pada baris Object Type g. Cari dan pilih file Menu Utama pada baris Object Name h. Cari dan pilih option OpenForm pada kolom Action i. Cari dan pilih file Data Master pada baris Form Name j. Cari dan pilih option Form pada baris View k. Cari dan pilih option Normal pada baris Window Mode l. Simpan dengan nama file Data Master m. Tutup kotak dialog Macro 16. Membuat File Macro Laporan a. Klik lagi Option New b. Klik kanan pada Title Bar kotak dialog Macro c. Pilih dan klik Macro Name d. Ketik Laporan pada kolom Macro Name e. Cari dan pilih option Close pada kolom Action f. Cari dan pilih option Form pada baris Object Type g. Cari dan pilih file Menu Utama pada baris Object Name h. Cari dan pilih option Open Form pada kolom Action
19
i. j. k. l. m.
Cari dan pilih file Laporan pada baris Form Name Cari dan pilih option Form pada baris View Cari dan pilih option Normal pada baris Window Mode Simpan dengan nama file Laporan Tutup kotak dialog Macro
17. Membuat File Macro Keluar a. Klik lagi Option New b. Klik kanan pada Title Bar kotak dialog Macro c. Pilih dan klik Macro Name d. Ketik Keluar pada kolom Macro Name e. Cari dan pilih option Quit pada kolom Action f. Ketik Keluar dari Program pada kolom Comment g. Cari dan pilih option Save All pada baris Option h. Simpan dengan nama file Keluar i. Tutup kotak dialog Macro 18. Membuat File Macro Olah Data Dosen a. Klik lagi Option New b. Klik kanan pada Title Bar kotak dialog Macro c. Pilih dan klik Macro Name d. Ketik Olah Data Dosen pada kolom Macro Name e. Cari dan pilih option OpenForm pada kolom Action f. Cari dan pilih File Olah Data Dosen pada baris Form Name g. Cari dan pilih option Form pada baris View h. Cari dan pilih option Normal pada baris Window Mode i. Simpan dengan nama file Olah Data Dosen j. Tutup kotak dialog Macro 19. Membuat File Macro Olah Data Mata Kuliah a. Klik lagi Option New b. Klik kanan pada Title Bar kotak dialog Macro c. Pilih dan klik Macro Name d. Ketik Olah Data Mata Kuliah pada kolom Macro Name e. Cari dan pilih option OpenForm pada kolom Action f. Cari dan pilih File Olah Data Mata Kuliah pada baris Form Name g. Cari dan pilih option Form pada baris View h. Cari dan pilih option Normal pada baris Window Mode i. Simpan dengan nama file Olah Data Mata Kuliah j. Tutup kotak dialog Macro 20. Membuat File Macro Olah Data Level a. Klik lagi Option New b. Klik kanan pada Title Bar kotak dialog Macro c. Pilih dan klik Macro Name d. Ketik Olah Data Level pada kolom Macro Name e. Cari dan pilih option OpenForm pada kolom Action f. Cari dan pilih File Olah Data Level pada baris Form Name g. Cari dan pilih option Form pada baris View h. Cari dan pilih option Normal pada baris Window Mode
20
i. j.
Simpan dengan nama file Olah Data Level Tutup kotak dialog Macro
21. Membuat File Macro Daftar Dosen a. Klik lagi Option New b. Klik kanan pada Title Bar kotak dialog Macro c. Pilih dan klik Macro Name d. Ketik Daftar Dosen pada kolom Macro Name e. Cari dan pilih option OpenReport pada kolom Action f. Cari dan pilih File Daftar Dosen pada baris Report Name g. Cari dan pilih option Print Preview pada baris View h. Cari dan pilih option Normal pada baris Window Mode i. Simpan dengan nama file Daftar Dosen j. Tutup kotak dialog Macro 22. Membuat File Macro Daftar Mata Kuliah a. Klik lagi Option New b. Klik kanan pada Title Bar kotak dialog Macro c. Pilih dan klik Macro Name d. Ketik Daftar Mata Kuliah pada kolom Macro Name e. Cari dan pilih option OpenReport pada kolom Action f. Cari dan pilih File Daftar Mata Kuliah pada baris Report Name g. Cari dan pilih option Print Preview pada baris View h. Cari dan pilih option Normal pada baris Window Mode i. Simpan dengan nama file Daftar Mata Kuliah j. Tutup kotak dialog Macro 23. Membuat File Macro Daftar Level a. Klik lagi Option New b. Klik kanan pada Title Bar kotak dialog Macro c. Pilih dan klik Macro Name d. Ketik Daftar Level pada kolom Macro Name e. Cari dan pilih option OpenReport pada kolom Action f. Cari dan pilih File Daftar Level pada baris Report Name g. Cari dan pilih option Print Preview pada baris View h. Cari dan pilih option Normal pada baris Window Mode i. Simpan dengan nama file Daftar Level j. Tutup kotak dialog Macro 24. Menghubungkan File Macro ke File Form Menu Utama a. Buka Design Form Menu Utama b. Klik pada Command Button dan Label Data Master c. Cari dan Pilih File Macro Data Master pada kejadian On Clik di Jendela Properties. d. Klik pada Command Button dan Label Laporan e. Cari dan Pilih File Macro Laporan pada kejadian On Clik di Jendela Properties. f. Klik pada Command Button dan Label Keluar g. Cari dan Pilih File Macro Keluar pada kejadian On Clik di Jendela Properties. h. Simpan dan Tutup Design Form Menu Utama. 25. Menghubungkan File Macro ke File Form Data Master
21
a. b. c. d. e. f. g. h. i. j.
Buka Design Form Data Master Klik pada Command Button dan Label Olah Data Dosen Cari dan Pilih File Macro Olah Data Dosen pada kejadian On Clik di Jendela Properties. Klik pada Command Button dan Label Olah Data Mata Kuliah Cari dan Pilih File Macro Olah Data Mata Kuliah pada kejadian On Clik di Jendela Properties. Klik pada Command Button dan Label Olah Data Level Cari dan Pilih File Macro Olah Data Level pada kejadian On Clik di Jendela Properties. Klik pada Command Button dan Label Kembali Ke Menu Utama Cari dan Pilih File Macro Menu Utama pada kejadian On Clik di Jendela Properties. Simpan dan Tutup Design Form Data Master.
26. Menghubungkan File Macro ke File Form Laporan a. Buka Design Form Laporan b. Klik pada Command Button dan Label Daftar Dosen c. Cari dan Pilih File Macro Daftar Dosen pada kejadian On Clik di Jendela Properties. d. Klik pada Command Button dan Label Daftar Dosen e. Cari dan Pilih File Macro Daftar Dosen pada kejadian On Clik di Jendela Properties. f. Klik pada Command Button dan Label Daftar Mata Kuliah g. Cari dan Pilih File Macro Daftar Mata Kuliah pada kejadian On Clik di Jendela Properties. h. Klik pada Command Button dan Label Daftar Level Dosen i. Cari dan Pilih File Macro Daftar Level pada kejadian On Clik di Jendela Properties. j. Klik pada Command Button dan Label Kembali ke Menu Utama k. Cari dan Pilih File Macro Menu Utama pada kejadian On Clik di Jendela Properties.
5.2 Tugas V. 1.
Buatkan File Macro Menu Utama, Data Master, Laporan, Keluar, Olah Data Mahasiswa, dan Olah Data Mata Kuliah.
2.
Hubungkan File Form Menu Utama dengan File Macro Data Master dan Laporan
3.
Hubungkan pula File Form Data Master dengan File Macro Olah Data Mahasiswa, Olah Data Mata Kuliah, dan Menu Utama.
4.
Hubungkan pula File Form Laporan dengan File Macro Daftar Mahasiswa, Daftar Mata Kuliah, dan Menu Utama.
22
VI.
Praktek Microsoft Access VI
Tujuan : 1. Membuat Tabel 2. Membuat File Query 3. Merelasikan File 4. Membuat Formula pada Query 5. Membuat Form dengan Query 6.1 Membuat File Table Transaksi 1.
2.
Buat File Table GajiDsn berikut : Field Name Data Type Description NoAbs Text Nomor Absensi Bulan Date/Time Bulan KodeDsn Text Kode Dosen Gatot Number Gaji Total Infak Number Infak Gasih Number Gaji Bersih
Field Size 9
Format Decimal Places >@ MMMM YYYY 5 >@ Long Integer Standard 0 Long Integer Standard 0 Long Integer Standard 0
Buat File Table Absen berikut : Field Name Data Type Description NoAbs Text Nomor Absensi KodeMK Text Kode Mata Kuliah Lvl Text Level JmlAbs Number Jumlah Absensi
Field Size 9 9 2 Long Integer
Format >@ >@ >@ Standard
Decimal Places
0
6.2 Membuat File Queries Untuk membuat File Query, lakukan langkah-langkah berikut : 1. Membuat File Query QAbsen p. Klik Object Queries q. Klik Option Create Query in Design View r. Pilih dan Klik File GajiDsn kemudian Klik Tombol Add s. Pilih dan Klik File Absen kemudian Klik Tombol Add t. Pilih dan Klik File MK kemudian Klik Tombol Add u. Pilih dan Klik File Level kemudian Klik Tombol Add v. Pilih dan Klik Tombol Close w. Double klik semua field secara satu per satu pada semua file table x. Klik kanan pada kolom kosong setelah Kolom GajiPJam, kemudian pilih Build y. Buatka Formula berikut : Gaji: Absen!jmlabs*MK!kredit*level![GajiPJam] z. Simpan dengan nama file QAbsen aa. Tutup kotak Query (Gambar 6.1) 2.
Membuat File Query QGaji a. Klik Object Queries b. Klik Option Create Query in Design View c. Pilih dan Klik File Dosen kemudian Klik Tombol Add d. Pilih dan Klik File GajiDsn kemudian Klik Tombol Add e. Pilih dan Klik Tombol Close f. Double klik semua field secara satu per satu pada semua file table
Index Yes (No Duplicate) Yes (Duplicate Ok)
Index Yes (Duplicate Ok) Yes (Duplicate Ok) Yes (Duplicate Ok)
23
g. h.
Simpan dengan nama file QGaji Tutup kotak Query (Gambar 6.2)
Gambar 6.1. File Query QAbsen
Gambar 6.2. File Query QGaji 3.
Membuat File Query QGajiDsn a. Klik Object Queries b. Klik Option Create Query in Design View c. Pilih dan Klik File Dosen kemudian Klik Tombol Add d. Pilih dan Klik File GajiDsn kemudian Klik Tombol Add e. Pilih dan Klik File Absen kemudian Klik Tombol Add f. Pilih dan Klik File MK kemudian Klik Tombol Add g. Pilih dan Klik File Level kemudian Klik Tombol Add h. Pilih dan Klik Tombol Close i. Double klik semua field secara satu per satu pada semua file table j. Klik kanan pada kolom kosong setelah Kolom GajiPJam, kemudian pilih Build k. Buatka Formula berikut : Gaji: Absen!jmlabs*level![GajiPJam]*MK!kredit
24
l. Simpan dengan nama file QGajiDsn m. Tutup kotak Query (Gambar 6.3)
Gambar 6.3. File Query QGajiDsn
6.3 Tugas VI. 1.
2.
Buatkan File Tabel IdNilai sbb.: Field Name Data Type Description IdNilai Text Id Nilai=Nim& Smt Nim Text Nomor Induk Mhs Smt Text Semester ThAk Text Tahun Akademik
Field Size 10 8 1 9
Format Decimal Places >@ >@ >@ >@
Index Yes (No Duplicate) Yes (Duplicate Ok)
Buatkan Tabel DetailNilai sbb. : Field Name IdNilai KodeMK UTS UAS TGS NA AM HM NM
Data Type Text Text Number Number Number Number Number Text Number
Description Id Nilai=Nim& Smt Nomor Induk Mhs Ujian Tengan Smt Ujian Akhir Smt Tugas Nilai Akhir Angka Mutu Huruf Mutu Nilai Mutu
Field Size 10 9 Long Integer Long Integer Long Integer Long Integer Long Integer 1 Long Integer
Format >@ >@ Standard Standard Standard Standard Standard >@ Standard
Decimal Places Index Yes (Duplicate Ok) Yes (Duplicate Ok) 0 0 0 0 0 0
25
3.
Buatkan File Queries QNilai sbb. :
Formula : Jurusan: IIf(Mid(IdNilai!Nim;3;3)="232";"Komputerisasi Akuntansi";"Manajemen Informatika") Lahir: Mahasiswa!Tlahir & ", " & Mahasiswa!TglLahir 4.
Buatkan File Queries QDetailNilai sbb. :
Formula : Jurusan: IIf(Mid(IdNilai!Nim;3;3)="232";"Komputerisasi Akuntansi";"Manajemen Informatika") Lahir: Mahasiswa!Tlahir & ", " & Mahasiswa!TglLahir
26
VII. Praktek Microsoft Access VII Tujuan : 1. Membuat Report Struk Gaji 2. Mem-filter Data
7.1 Membuat File Report Struk Gaji Untuk membuat File Report Struk Gaji, lakukan langkah-langkah berikut : 1.
Membuat File Report Baru bb. Klik Object Report cc. Klik Option Create Report in Design View
2.
Menggabungkan File Query QGajiDsn ke dalam File Report a. Munculkan Jendela Properties b. Cari object Report pada jendela Properties c. Pilih dan Klik Option Data d. Pilih dan Klik File Query QGajiDsn pada baris Record Source
3.
Membuat Filter agar Struk Gaji baris ditampilkan/dicetak per Nomor Absen a. Ketik GajiDsn.NoAbs=NomorAbsensi.Value pada baris Filter b. Pilih kejadian Yes pada baris Filter On c. Tutup Jendela Properies
4.
Membuat Group Data a. Klik kanan pada Report yang kosong b. Pilih Sorting and Grouping c. Lakukan Grouping data sbb. :
d. e.
Untuk Grouping berdasarkan Nomor Absensi (NoAbs), tampilkan Group Footernya, dengan memilih kejadian Yes pada baris Ggroup Footer Tutup kembali jendela Sorting and Grouping
27
7.2 Design Report Struk Gaji Desain Report Struk Gaji berikut ini :
7.3 Tugas VII. 1.
Buatkan desain report Kartu Kemajuan Studi (KKS) seperti pada gambar 7.2.1.:
2.
Gunakan File Query (QDetailNilai) untuk membuat Kartu Kemajuan Studi di atas.
3.
Untuk menghitung Indeks Prestasi, Formulanya =sum(nm)/sum(kredit)
28
Gambar 7.2.1. Report Kartu Kemajuan Studi (KKS)
29
VIII.
Praktek Microsoft Access VIII
Tujuan : 1. Membuat Form Olah Data Gaji Dosen 2. Mencetak Per Nomor Absensi 3. Membuat SubForm 4. Menggunakan File Macro 8.1 Membuat Form Olah Data Gaji Dosen A. Buat File Form Olah Data Gaji Dosen berikut :
Gambar 8.1 Contoh Form Olah Data Gaji Dosen B. Procedure Tombol Keluar On Click Private Sub Keluar_Click() On Error GoTo Err_Keluar_Click DoCmd.Close Exit_Keluar_Click: Exit Sub Err_Keluar_Click: Resume Exit_Keluar_Click End Sub C. Formula Tombol + On Click Private Sub Tambah_Click() On Error GoTo Err_Tambah_Click
30
DoCmd.GoToRecord , , acNewRec Exit_Tambah_Click: Exit Sub Err_Tambah_Click: Resume Exit_Tambah_Click End Sub D. Procedure Tombol Cetak On Click Private Sub cetak_Click() On Error GoTo Err_cetak_Click Dim stDocName As String stDocName = "TrukGaji" DoCmd.OpenReport stDocName, acViewPreview Exit_cetak_Click: Exit Sub Err_cetak_Click: Resume Exit_cetak_Click End Sub E. Procedure Tombol Hapus On Click Private Sub Hapus_Click() On Error GoTo Err_Hapus_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_Hapus_Click: Exit Sub Err_Hapus_Click: Resume Exit_Hapus_Click End Sub F. Procedure Tombol Pertama On Click Private Sub Pertama_Click() On Error GoTo Err_Pertama_Click DoCmd.GoToRecord , , acFirst Exit_Pertama_Click: Exit Sub Err_Pertama_Click: Resume Exit_Pertama_Click End Sub G. Procedure Tombol Sebelumnya On Click Private Sub Sebelumnya_Click() On Error GoTo Err_Sebelumnya_Click DoCmd.GoToRecord , , acPrevious Exit_Sebelumnya_Click: Exit Sub Err_Sebelumnya_Click: Resume Exit_Sebelumnya_Click End Sub
31
H. Procedure Tombol Berikutnya On Click Private Sub Berikutnya_Click() On Error GoTo Err_Berikutnya_Click DoCmd.GoToRecord , , acNext Exit_Berikutnya_Click: Exit Sub Err_Berikutnya_Click: Resume Exit_Berikutnya_Click End Sub I.
Procedure Tombol Terakhir On Click Private Sub Terakhir_Click() On Error GoTo Err_Terakhir_Click DoCmd.GoToRecord , , acLast Exit_Terakhir_Click: Exit Sub Err_Terakhir_Click: Resume Exit_Terakhir_Click End Sub
J.
Procedure Tombol Ref (Refresh) On Click Private Sub Ref_Click() On Error GoTo Err_Ref_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 Exit_Ref_Click: Exit Sub Err_Ref_Click: Resume Exit_Ref_Click End Sub
K. Membuat SubForm dengan properties sbb.:
L. Membuat Tombol Jumlah Absensi Private Sub jmlabs_Click() On Error GoTo Err_jmlabs_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "FormAbsen" stLinkCriteria = "[Noabs]=" & "'" & Me![NoAbs] & "'"
32
DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_jmlabs_Click: Exit Sub Err_jmlabs_Click: Resume Exit_jmlabs_Click End Sub
8.2
Membuat Form Jumlah Absensi
A. Buat File Form Jumlah Absensi seperti pada gambar 8.2.A: B. Procedure TextBox JmlAbs After Update Private Sub jmlabs_AfterUpdate() DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 End Sub C. Procedure Command Button
On Click
Private Sub Pertama_Click() On Error GoTo Err_Pertama_Click DoCmd.GoToRecord , , acFirst Exit_Pertama_Click: Exit Sub Err_Pertama_Click: Resume Exit_Pertama_Click End Sub
33
D. Procedure Command Button
On Click
Private Sub Sebelumnya_Click() On Error GoTo Err_Sebelumnya_Click DoCmd.GoToRecord , , acPrevious Exit_Sebelumnya_Click: Exit Sub Err_Sebelumnya_Click: Resume Exit_Sebelumnya_Click End Sub E. Procedure Command Button
On Click
Private Sub Berikutnya_Click() On Error GoTo Err_Berikutnya_Click DoCmd.GoToRecord , , acNext Exit_Berikutnya_Click: Exit Sub Err_Berikutnya_Click: Resume Exit_Berikutnya_Click End Sub F. Procedure Command Button
On Click
Private Sub Terakhir_Click() On Error GoTo Err_Terakhir_Click DoCmd.GoToRecord , , acLast Exit_Terakhir_Click: Exit Sub Err_Terakhir_Click: Resume Exit_Terakhir_Click End Sub G. Procedure Command Button
On Click
Private Sub Tambah_Click() Dim Kode As String Kode = NoAbs.Value On Error GoTo Err_Tambah_Click DoCmd.GoToRecord , , acNewRec NoAbs.Value = Kode Exit_Tambah_Click: Exit Sub Err_Tambah_Click: Resume Exit_Tambah_Click End Sub
34
H. Procedure Command Button
On Click
Private Sub Hapus_Click() On Error GoTo Err_Hapus_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 Exit_Hapus_Click: Exit Sub Err_Hapus_Click: Resume Exit_Hapus_Click End Sub I.
Procedure Command Button
On Click
Private Sub cetak_Click() On Error GoTo Err_cetak_Click Dim stDocName As String stDocName = "TrukGaji" DoCmd.OpenReport stDocName, acViewPreview Exit_cetak_Click: Exit Sub Err_cetak_Click: Resume Exit_cetak_Click End Sub J.
Procedure Command Button
On Click
Private Sub Keluar_Click() On Error GoTo Err_Keluar_Click Gatot.Value = tot.Value Inpak.Value = 0.025 * tot.Value Gasih.Value = tot.Value - Inpak.Value DoCmd.Close Exit_Keluar_Click: Exit Sub Err_Keluar_Click: Resume Exit_Keluar_Click End Sub J.
Procedure Command Button Refresh On Click Private Sub Ref_Click() On Error GoTo Err_Ref_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 Exit_Ref_Click: Exit Sub Err_Ref_Click: Resume Exit_Ref_Click End Sub
35
8.3 Membuat File Macro A. Buat File Macro Penjualan Action baris 1. Close Form : Detail Pejualan Action baris 2. Open Form : Penjualan B. Memanggil File Macro dari Detail Penjualan File Macro Penjualan dibuka dari tombol Keluar pada form Detail Penjualan.
8.4 Tugas VIII. 1.
Buatkan Form Entry Olah Data Nilai sbb.:
Gunakan File Query (QNilai1) untuk membuat Form Olah Data Nilai di atas. 2.
Buatkan Form Entry Detail Nilai sbb.:
36
Gunakan File Query (QNilai2) untuk membuat Form Detail Nilai di atas.
37
IX. Praktek Microsoft Access IX Tujuan : 1. Membuat Report Rekap Gaji Dosen 2. Memfilter data Per Bulan
9.1 Cara Membuat Report Rekap Gaji Dosen Untuk membuat File Report Rekap Gaji Dosen, lakukan langkah-langkah berikut : 1.
Membuat File Report Baru dd. Klik Object Report ee. Klik Option Create Report in Design View
2.
Menggabungkan File Query QGajiDsn ke dalam File Report a. Munculkan Jendela Properties b. Cari object Report pada jendela Properties c. Pilih dan Klik Option Data d. Pilih dan Klik File Query QGajiDsn pada baris Record Source
3.
Membuat Filter agar Rekap gaji Dosen bisa ditampilkan/dicetak per Bulan a. Ketik Month(GajiDsn.bulan)=Masukan_Bulan_Dalam_Angka pada baris Filter b. Pilih kejadian Yes pada baris Filter On c. Tutup Jendela Properies
4.
Membuat Group Data a. Klik kanan pada Report yang kosong b. Pilih Sorting and Grouping c. Lakukan Grouping data sbb. :
d. e.
Untuk Grouping berdasarkan GajiDsn.NoAbs, tampilkan Group Header dan Footernya, dengan memilih kejadian Yes pada baris Group Header dan baris Ggroup Footer Tutup kembali jendela Sorting and Grouping
38
9.2 Mendesign Report Rekap Gaji Dosen Design Laporan Harian seperti pada gambar 9.2.
Gambar 9.1 Contoh Rekap Gaji Dosen
9.3 Tugas IX. 1.
Buatkan desain report Rekapitulasi Nilai sbb.:
39
2.
Lakukan Sorting dan Gruping Report Rekapitulasi Nilai sbb.:
40
X. Praktek Microsoft Access X Tujuan : 1. Latihan Membuat Table 2. Latihan Membuat Query 3. Latihan Membuat Form 4. Latihan Membuat Report 10.1
Membuat Table
1. Table Barang
2. Table Anggota
41
3. Table Faktur Jual
4. Table Detail Jual
42
10.2
Membuat Query
1. Query QJual
2. Query QJual1
43
3. Query QJual2
10.3 Membuat Report (Faktur) Buatlak Report Faktur Penjualan sbb. :
44
10.4 Membuat Form 1. Form Penjualan Barang :
2. Form Detail Penjualan :