TUGAS AKHIR RANCANGAN PROGRAM DATABASE INFORMASI AKADEMIK TARUNA DI SEKOLAH TINGGI ILMU PELAYARAN (STIP) DENGAN MENGGUNAKAN VISUAL BASIC 6

TUGAS AKHIR

RANCANGAN PROGRAM DATABASE INFORMASI AKADEMIK TARUNA DI SEKOLAH TINGGI ILMU PELAYARAN (STIP) DENGAN MENGGUNAKAN VISUAL BASIC 6.0

Disusun Oleh :

Nama NIM

: DIDIK SULISTYO KURNIAWAN : 0140312-048

Peminatan Teknik Telekomunikasi Jurusan Teknik Elektro Fakultas Teknologi Industri Universitas Mercu Buana 2008

LEMBAR PENGESAHAN

Judul Tugas Akhir

: Rancangan Program Database Informasi Akademik Taruna di Sekolah Tinggi Ilmu Pelayaran (STIP) Dengan Menggunakan Visual Basic 6.0

Nama

: Didik Sulistyo Kurniawan

NIM

: 0140312-048

Fakultas / Jurusan

: Teknologi Industri / Teknik Elektro

Program Peminatan

: Telekomunikasi

Jakarta, Mei 2008 Menyetujui dan Mengesahkan Koordinator Tugas Akhir

Pembimbing,

(Yudhi Gunardi)

(Ir. Ahmad Yanuar Syauki, MBAT)

Mengetahui, Ketua Jurusan

(Ir. Budi Yanto Husodo, MSc).

LEMBAR PERNYATAAN

Nama

: Didik Sulistyo Kurniawan

NIM

: 0140312-048

Fakultas / Jurusan

: Teknologi Industri / Teknik Elektro

Program Peminatan

: Telekomunikasi

Judul Tugas Akhir

: Rancangan Program Database Informasi Akademik Taruna di Sekolah Tinggi Ilmu Pelayaran (STIP) Dengan Menggunakan Visual Basic 6.0

Dengan ini menyatakan bahwa Laporan Tugas Akhir yang telah saya buat ini merupakan hasil karya saya sendiri. Apabila dikemudian hari penulisan ini merupakan hasil plagiat atau penjiplakan terhadap karya orang lain, maka saya bersedia mempertanggung jawabkan sekaligus bersedia menerima sangsi berdasarkan aturan tata tertib yang berlaku di Universitas Mercubuana. Demikian pernyataan ini saya buat dengan sebenar-benarnya.

Penulis,

Didik Sulistyo Kurniawan NIM. 0140312048

ABSTRAKSI

Sekolah Tinggi Ilmu Pelayaran merupakan sebuah Instansi Pemerintah dibawah Departemen Perhubungan yang mempunyai tugas pokok dan fungsi untuk mendidik dan membekali siswa/taruna sehingga mempunyai kemampuan intelektualitas untuk menjadi seorang pelaut. Saat ini Informasi-informasi akademik yang didapatkan oleh Taruna pada Sekolah Tinggi Ilmu Pelayaran didapatkan secara langsung. Salah satunya tiap akhir semester Bagian Administrasi Akademik dan Ketarunaan harus mengumumkan dan membagikan KHS secara langsung kepada tiap-tiap taruna yang mengakibatkan kurang efektif dalam kegiatan pembelajaran dan sering terjadi keterlambatan. Solusi untuk mengatasi masalah-masalah yang terjadi pada kegiatan tersebut diatas adalah

dengan

merancang

suatu

program

database

yang

dapat

mempermudah

pengadministrasian kegiatan akademik, karena dengan adanya program database ini diharapkan kegiatan administrasi dapat lebih tertata dan tidak akan terjadi pengisian data yang berulang. Data - data yang diperlukan untuk program ini antara lain data Taruna, data Dosen, data Kelas, data semester, data mata kuliah, data nilai, dan data KRS (Kartu Rencana Studi). Sedangkan output yang dihasilkan antara lain Absen Taruna dan KHS (Kartu Hasil Studi). Kedua output data tersebut ditampilkan dalam bentuk print out atau cetak.Dengan program ini taruna dapat mengakses informasi akademik secara mudah yaitu hanya dengan mengakses data secara online. Rancangan Program tersebut

menggunakan bahasa pemrograman Visual Basic

6.0 dan memanfaatkan Microsoft Acess sebagai penyimpanan data (database). Diterapkannya sistem pengadministrasian informasi akademik secara database ini akan semakin memperlancar kegiatan akademik di Sekolah Tinggi Ilmu Pelayaran dan visi misi akan tercapai dengan maksimal.

KATA PENGANTAR

Puji syukur yang sebesar-besarnya saya panjatkan kehadirat Allah SWT karena atas berkat rahmat dan HidayahNya lah saya dapat menyelesaikan Laporan Tugas Akhir saya yang berjudul “Rancangan Program Database Informasi Akademik Taruna di Sekolah Tinggi Ilmu Pelayaran (STIP) Dengan Menggunakan Visual Basic 6.0”. Terima kasih sedalam-dalamnya tak lupa saya ucapkan juga kepada : 1. Istriku tercinta atas segala Doa dan dukungannya selama pembuatan Tugas Akhir ini 2. Orang tua dan ibu mertua atas support dan doanya 3. Pak Gik atas support dan doanya 4. Mas Giyat yang telah memberikan pinjeman laptopnya 5. Bapak Syauki yang telah membimbing saya dalam penulisan Tugas Akhir ini 6. Seluruh dosen penguji yang telah berkenan untuk menguji 7. Rekan-rekan Curug (Iman dkk) 8. Pak Syukri beserta tim obenk 9. Dan masih banyak yang mungkin tidak saya sebutkan disini. Semoga Laporan Tugas akhir ini dapat bermanfaat kelak sebagai tambahan ilmu pengetahuan di Universitas Mercubuana dan sebagai masukan yang membangun bagi Institusi saya. Penulis,

Didik Sulistyo Kurniawan NIM. 0140312048

DAFTAR ISI

LEMBAR PENGESAHAN................................................................................................. LEMBAR PERNYATAAN................................................................................................ ABSTRAKSI....................................................................................................................... KATA PENGANTAR……………………………………………………………………. DAFTAR ISI……………………………………………………………………………

BAB I PENDAHULUAN …………………………………………………………….....

1

1.1.

LATAR BELAKANG …………………………………………………………….

1

1.2. ALASAN PEMILIHAN JUDUL ………………………………………………….

1

1.3. PEMBATASAN MASALAH……………………………………………………...

1

1.4. TUJUAN DAN MANFAAT………………………………………………………

2

1.5. SISTEMATIKA PENULISAN…………………………………………………….

2

BAB I PENDAHULUAN………………………………………………………….

2

BAB II LANDASAN TEORI……………………………………………………...

2

BAB III PERANCANGAN DATABASE…………………………………………

2

BAB IV PENGUJIAN DATABASE………………………………………………

2

BAB V PENUTUP………………………………………………………………...

2

BAB II LANDASAN TEORI……………………………………………………………..

3

2.1. TEORI BAHASA PEMROGRAMAN VISUAL BASIC .0……………………...

3

2.1.1. Tampilan Visual Basic…………………………………………………...

3

2.1.2. Komponen Visual Basic…………………………………………………

4

2.1.3.

Mengolah Project………………………………………………………...

8

2.1.4.

Kontrol Pada Visual Basic……………………………………………….

9

2.1.5. Mengolah Jendela Property……………………………………………...

11

2.1.6.

Membuat Menu Bar……………………………………………………...

12

2.1.7.

Membuat Menu Toolbar............................................................................

13

2.1.8. Variabel dan Konstanta..............................................................................

14

2.1.9. Tipe Data....................................................................................................

14

2.1.10. Operator dan Fungsi...................................................................................

15

2.1.11.

Statement dan Pengulangan.......................................................................

15

2.1.12. Database.....................................................................................................

16

2.2. TEORI CRYSTAL REPORTS.................................................................................

16

2.2.1. Bagian-bagian dalam Laporan...................................................................

17

2.3. TEORI MICROSOFT ACCESS...............................................................................

17

2.4. TEORI PENDUKUNG.............................................................................................

19

2.4.1. Tahap Pembuatan.......................................................................................

19

2.4.2. Peralatan pendukung..................................................................................

21

BAB III PERANCANGAN DATABASE..........................................................................

24

3.1. SPESIFIKASI RANCANGAN PROGRAM............................................................

24

3.1.1. Spesifikasi Bentuk Masukan......................................................................

26

3.1.2. Spesifikasi Bentuk Keluaran......................................................................

29

3.1.3. Listing Program ........................................................................................

32

BAB IV PENGUJIAN DATABASE..................................................................................

79

4.1. PENGUJIAN INPUT DATA....................................................................................

79

4.1.1. Pengisian Password....................................................................................

79

4.1.2. Pengisian Data Admin...............................................................................

81

4.1.3. Input Data Dosen dan Taruna....................................................................

81

4.1.3.a. Input Data Dosen .......................................................................

82

4.1.3.b.

Input Data Taruna......................................................................

83

Input Data Mata Kuliah.............................................................................

84

4.1.5. Input Jurusan..............................................................................................

85

4.1.6. Data Kelas..................................................................................................

86

4.1.7.

Pengisian KRS...........................................................................................

87

4.1.8. Pengisian Nilai Taruna...............................................................................

87

4.1.9.

Revisi dan Hapus Data Yang Sudah Tersimpan........................................

88

4.2. PENGUJIAN OUTPUT DATA................................................................................

88

4.3. PENGUJIAN KINERJA SISTEM DATABASE.....................................................

90

4.4. KESIMPULAN HASIL PENGUJIAN DATABASE...............................................

91

4.4.1. Kelebihan-kelebihan yang Didapat Dari Hasil Pengujian.........................

91

4.1.4.

4.4.2. Kekurangan /kelemahan yang didapat dari hasil pengujian......................

92

BAB V PENUTUP..............................................................................................................

93

5.1. KESIMPULAN.........................................................................................................

93

5.2. SARAN.....................................................................................................................

93

DAFTAR PUSTAKA..........................................................................................................

BAB I PENDAHULUAN 1.1. LATAR BELAKANG Sekolah Tinggi Ilmu Pelayaran merupakan sebuah Instansi Pemerintah dibawah Departemen Perhubungan yang mempunyai tugas pokok dan fungsi untuk mendidik dan membekali siswa/taruna sehingga mempunyai kemampuan intelektualitas untuk menjadi seorang pelaut. Pendidikan yang diterapkan terdiri dari Pendidikan Diploma dan Pendidikan Profesi. Pada Program Diploma diterapkan pembelajaran hingga Diploma IV, sedangkan pada Pendidikan Profesi diterapkan pembelajaran yang lebih berkaitan dengan Kepelautan. Berkaitan dengan hal diatas Sekolah Tingggi Ilmu Pelayaran terdiri atas 3 Jurusan, antara lain Jurusan Nautika, Teknika serta Ketatalaksanaan. Saat ini Informasi-informasi akademik yang didapatkan oleh Taruna pada Sekolah Tinggi Ilmu Pelayaran didapatkan secara langsung. Salah satunya tiap akhir semester Bagian Administrasi Akademik dan Ketarunaan harus mengumumkan dan membagikan KHS secara langsung kepada tiap-tiap taruna yang mengakibatkan kurang efektif dalam kegiatan pembelajaran.

1.2. ALASAN PEMILIHAN JUDUL Penulis tertarik untuk mengangkat masalah ini karena ingin mencoba membuat inovasi baru dalam pelayanan informasi kependidikan ataupun informasi akademik di Sekolah Tinggi Ilmu Pelayaran sehingga nantinya siswa bisa mendapatkan berbagai informasi dengan mudah hanya dengan mengakses website yang telah ada, informasi yang didapatkan bisa berupa Indek Prestasi, Jadwal Kuliah, Daftar Dosen ataupun pengumuman-pengumuman yang lain dsb. Sedangkan untuk membuat Program Database tersebut penulis menggunakan program Microsoft Visual basic 6.0.

1.3. PEMBATASAN MASALAH Masalah yang akan dibatasi oleh penulis adalah yang berkaitan dengan software. Dalam hal ini penulis tidak akan membahas tentang hardware.

1

1.4. TUJUAN DAN MANFAAT Merancang sebuah program yang dapat mempermudah proses pelayanan informasi akademik dan tentunya akan menjadi unsur penunjang keefektifan kegiatan pembelajaran, sehingga mempermudah Taruna untuk mengetahui segala informasi yang berkaitan dengan kegiatan Akademik di Kampus.

1.5. SISTEMATIKA PENULISAN Dalam penyusunan tugas akhir ini, penulis menggunakan sistematika penulisan: BAB I PENDAHULUAN 1.1 Latar Belakang 1.2 Alasan Pemilihan Judul 1.3 Pembatasan Masalah 1.4 Tujuan dan Manfaat 1.5 Sistematika Penulisan

BAB II LANDASAN TEORI Dalam bab ini penulis membahas teori dasar : 2.1 Teori Bahasa Pemrograman Visual Basic 2.2 Teori Crystal Report 2.3 Teori Microsoft Access

BAB III PERANCANGAN DATABASE Dalam bab ini penulis melakukan perancangan program database.

BAB IV PENGUJIAN DATABASE Dalam bab ini penulis melakukan pengujian terhadap rancangan program database.

BAB V PENUTUP Dalam bab ini penulis menarik kesimpulan dari keseluruhan pembahasan serta memberikan saran.

2

BAB II LANDASAN TEORI

2.1. TEORI BAHASA PEMROGRAMAN VISUAL BASIC 6.0 Microsoft Visual Basic 6.0 merupakan bahasa pemrograman yang cukup populer dan mudah untuk dipelajari. Microsoft Visual Basic 6.0 menyediakan fasilitas yang memungkinkan anda untuk menyusun sebuah program dengan memasang objekobjek grafis dalam sebuah form. Selain itu Visual Basic juga menawarkan berbagai kemudahan dalam mengelola sebuah database. Kemudahan ini masih ditambah lagi dengan tersedianya sarana piranti yang lengkap.

2.1.1 Tampilan Visual Basic Pada awal kita membuka aplikasi Visual Basic ini maka akan ditampilkan kotak dialog New Project seperti tampak pada gambar 2.1.1

Gambar 2.1.1a

Untuk memulai program pilih New kemudian Standard.exe, maka tampilan akan tampak seperti gambar 2.1.1b

3

Gambar 2.1.1b

2.1.2 Komponen Visual Basic Title Bar Title bar merupakan batang judul dari Program Visual basic 6.0 yang terletak pada bagian paling atas jendela program Menu Bar Menu bar merupakan batang menu yang terletak di bawah titlebar berfungsi untuk menampilkan pilihan menu atau perintah untuk mengoperasikan program Visual Basic. Toolbar Toolbar merupakan sebuah batang yang berisi kumpulan tombol yang terletak di bagian bawah menu bar yang dapat digunakan untuk menjalankan suatu perintah. Pada kondisi default program Visual Basic hanya menampilkan toolbar standard. Namun selain toolbar standard kita juga dapat menampilakn toolbar lain yang dimiliki oleh Visual Basic dengan klik kanan pada area toolbar lalu pilih perintah menu View-Toolbar dan lanjutkan dengan memilih salah satu dari empat pilihan yang ada.

Toolbox Toolbox merupakan kotak perangkat yang berisi kumpulan tombol objek atau control untuk mengatur desain dari aplikasi yang akan dibuat. Pada kondisi default, toolbox menampilkan tabulasi General dengan 21 tombol control yang dapat ditampilkan dengan menggunakan prosedur: Klik tombol Toolbox di bagian toolbar Standard kemudian pilih perintah View-Toolbox.Tampilan pada Toolbox akan tampak seperti gambar 2.1.2a 4

Gambar 2.1.2a Project Project merupakan suatu kumpulan modul atau merupakan program aplikasi itu sendiri. Dalam Visual Basic, file project dengan nama file berakhiran .VBP, dimana file ini berfungsi untuk menyimpan seluruh komponen program. Apabila anda membuat suatu program aplikasi baru, maka secara otomatis project tersebut akan diisi dengan objek Form1. dalam jendela Project Explorer ditampilkan suatu struktur hirarki dari sebuah project itu sendiri yang berisi semua item yang terkandung didalamnya, seperti tampak pada gambar 2.1.2b

Gambar 2.1.2b

Jendela Properties Jendela Properties merupakan sebuah jendela yang digunakan untuk menampung nama propeti suatu kontrol. Pengaturan properti pada program visual basic merupakan hal yang sangat penting untuk membedakan objek yang satu dengan yang lainnya. Pada jendela properti ditampilkan jenis dan nama objek yang dipilih urut berdasarkan abjad pada tab Alphabetic atau berdasarkan kategori pada tab Categorized (lihat gambar 2.1.2c dan 2.1.2d). untuk menampilkan jendela properties dapat menggunakan salah satu prosedur berikut : Klik tombol Properties Window pada toolbar Standard, kemudian pilih View-Properties Window atau tekan tombol F4. 5

Gambar 2.1.2d

Gambar 2.1.2c

Jendela Form Layout Jendela Form Layout merupakan sebuah jendela yang digunakan untuk mengatur posisi form saat program djalankan. Untuk menampilkan Form Layout adalah dengan meng-klik tombol Form Layout Window pada Toolbar standar atau pilih perintah View-Form Layout Window.

Gambar 2.1.2e

Jendela Immediate Jendela Immediate merupakan sebuah jendela yang digunakan untuk mencoba beberapa perintah dengan mengetikkan baris program dan dapat secara langsung dilihat hasilnya. Hal tersebut biasa dilakukan dan membantu proses pengujian suatu perintah sebelum dipasang didalam suatu program. Untuk menampilkan jendela immediate dengan meng-klik tombol Immediate Window pada Toolbar Deb atau menekan tombol Ctrl+G atau dengan memilih perintah View – Immediate Window.

6

Gambar 2.1.2f

Jendela Form Jendela form merupakan jendela desain dari sebuah program aplikasi. Kita dapat mendesain sebuah program aplikasi dengan menempatkan kontrol-kontrol yang ada di bagian Toolbox pada area Form. Pada jendela form juga terdapat beberapa elemen yang dapat digunakan untuk mengatur tampilan. Untuk lebih jelasnya bisa dilihat pada Gambar 2.1.2g

Gambar 2.1.2g

Code Window Code Window merupakan sebuah jendela yang digunakan menuliskan kode program dari kontrol yang kita pasang pada jendela form dengan cara memilih terlebih dahulu kontrol pada objek. Untuk lebih jelasnya dapat dilihat pada Gambar 2.1.2h

Gambar 2.1.2h 7

Event Event merupakan suatu kejadian yang akan diterima oleh suatu objek. Event yang diterima oleh objek berfungsi untuk menjalankan kode program yang ada dalam objek tersebut.

Private Sub Command1_Click Baris kode diatas menunjukkan penggunaan event click pada oblek Command1, yang berarti apabila objek command1 diklik maka kode program yang terletak dibawah baris kode program tersebut akan dijalankan.

Method Method adalah suatu kumpulan perintah yang memiliki kegunaa yang hampir sama dengan suatu fungsi atau prosedur, tetapi perintah-perintah tersebut sudah disediakan dalam suatu objek. Suatu method dapat dipanggil dengan cara menyebutkan nama objek dan diikuti dengan tanda titik dan nama metodenya. Mthod umumnya digunakan untuk menjalankan perintah khusus pada suatu objek tertentu.

Module Module hampir sama fungsinya dengan Form, tetapi module tidak berisi objek dan bentuk standar, module berisi kode program atau prosedur yang dapat digunakan oleh program aplikasi. Kita dapat menambahkan suatu module program aplikasi dengan menggunakan perintah Project – Add Module, dan kemudian mengisinya dengan suatu kode program yang akan digunakan oleh aplikasi tersebut.

2.1.3 Mengolah Project Pada dasarnya project terdiri dari beberapa file dengan fungsi yang berbeda, di antaranya : •

Project file (.vbp), berfungsi sebagai file induk.

•

Form file (.frm).

•

Binary file (.frx), berisi properti data dari kontrol yang terpasang pada bagian form. Kita tidak dapat mengedit isi file binary karena file ini secara otomatis akan menyesuaikan dengan properti kontrol yang ada pada bagian form.

•

Class Module file (.cls), bersifat opsional.

8

•

Standard Module file (.bas), Bersifat opsional.

•

ActiveX Control file (.ocx), bersifat opsional.

•

Single Resource file (.res), bersifat opsional. Ketika file project sudah lengkap dengan smua file pendukung, kita dapat

mengkonversikan file project terseut ke file Executable (.exe). selain file Executable dengan Visual Basic versi Professional Edition dan Enterprise Edition, kita juga dapat membuat file Executable yang berekstensi lain, misalnya .ocx dan .dll.

2.1.4 Kontrol Pada Visual Basic Pengertian Kontrol Kontrol merupakan bagian terpenting dari program MS Visual Basic yang berfungsi untuk menyusun sebuah program aplikasi. Kontrol adalah suatu komponen atau objek yang diletakkan dalam form. Setiap kontrol adalah bagian yang berdiri sendiri tetapi saling berhubungan satu sama lainsehingga membentuk program aplikasi. Contoh dari kontrol adalah Text Box, Rectangle, Command Button dan beberapa kontrol lain yang dapat ditempatkan pada form untuk menampilkan data, menjalankan suatu aksi atau membuat sebuah form lebih mudah untuk dibaca. Kita harus mengetahui cara membuat, memanipulasi, memberi properti dan sebagainya. Semua kontrol akan diletakkan pada sebuah objek induk (parent object) yang dalam hal ini adalah object form. Form inilah yang nantinya akan menjadi placeholder atau tempat meletakkan semua kontrol.

Kategori Kontrol Kontrol-kontrol pada Visual Basic dibagi menjadi tiga kategori sebagai berikut : •

Kontrol Intrinsic, contohnya Command Button dan Frame. Kontrol tersebut terdapat dalam Visual Basic. Kontrol Intrinsic selalu berada didalam jendela toolbox, tidak seperti kontrol ActiveX dan objek-objek tambahan lain yang dapat ditambahkan dan dihapus dari bagian toolbox.

•

Kontrol ActiveX merupakan kontrol yang aktif sebagai file yang terpisah dengan ekstensi .OCX. yang temasuk dalam kontrol ActiveX adalah kontrol-kontrol yang tersedia dalam semua versi Visual Basic contohnya DataCombo dan DataList serta kontrol-kontrol yang tersedia dalam versi Professional Edition dan Enterprise Edition seperti Listview, Toolbar, Animation dan Tabbed Dialog. 9

•

Objek Sisipan, contohnya Microsoft Excel Worksheet yang berisi daftar pegawai suatu perusahaan atau Microsoft Project Calendar yang berisi informasi jadwal sebuah projek. Beberapa objek tersebut juga mendukung kerja aplikasi yang kita buat sehingga disebut OLE Automation dan mengijinkan kita untuk membuat program dari aplikasi lain dengan Visual Basic. Kontrol ActiveX lain yang termasuk dalam semua versi Visual Basic yang terdapat

dalam Component Tools Guide adalah antara lain: ImageCombo, ImageList, ListView, ProgressBar, Slider, Statusbar, TabStrip, Toolbar dan TreeView. Kontrolkontrol yang dapat digunakan atau ditambahkan dalam lembar kerja form dapat diambil dari toolbox, seperti tampak pada Gambar 2.1.2a Beberapa penjelasan dan penggunaan dari kontrol adalah sebagai berikut :

Kontrol Label, TextBox dan CommandButton Merupakan kontrol standar yang digunakan pada sebuah program database.

Kontrol Frame dan OptionButton Kontrol Frame dan OptionButton digunakan untuk memberikan sekelompok pilihan dimana hanya ada satu pilihan yang dapat dipilih. Kita dapat mengklik salah satu pilihan dengan mengklik tombol pilihan yang diinginkan.

Kontrol CheckBox Kontrol CheckBox digunakan untuk menampilkan sekelompok pilihan, dimana kita dapat memilih lebih dari satu pilihan.

Control ComboBox Komponen ComboBox digunakan untuk membuat sebuah daftar pilihan, dimana hanya ada satu pilihan yang dapat dipilih. Kita dapt mengklik tombol drop down untuk mencari dan kemudian memilih salah satu pilihan yang terdapat di dalam daftar.

10

Kontrol ListBox Komponen ListBox digunakan untuk membuat sebuah daftar pilihan dimana hanya ada satu pilihan ang dapat dipilih. Kita dapat mengunakan scrollbar untuk mencari dan memilih salah satu pilihan yang terdapat didalam daftar.

Kontrol HScrollBar dan VScrollBar Kontrol ini merupakan kontrol yang dapat digunakan untuk menyatakan suatu kondisi saat posisi penggulung Scrollbar digeser.

2.1.5 Mengolah Jendela Properti Properti merupakan atribut yang melekat pada suatu kontrol yang berfungsi untuk menentukan sifat atau karakteristik kontrol yang bersangkutan misalnya warna, jenis huruf, ukuran dan sebagainya. Tatanan properti juga digunakan untuk menentukan cara kerja dan tampilan sebuah kontrol apabila program yang kita buat dijalankan. Jendela properti mempunyai 2 tabulasi yaitu :

Tabulasi Alphabetic Semua properti pada tabulasi alphabetic diurutkan berdasarkan uutan abjad. Kita dapat mengubah seting properti dengan cara memilih properti dan mengetikkan atau memilih nilai properti yang sudah disediakan. Tampilan dari Properti Alphabetic bisa kita lihat pada Gambar 2.1.2c

Tabulasi Categorized Semua properti pada tabulasi ini dikelompokkan berdasarkan jenisnya. Sebagai contoh: properti BackColor, Caption dan ForeColor termasuk didalam kategori Apperance. Kita dapat menutup daftar dari suatu kategori dengan mengklik simbol (-) dan membukanya dnegan mengklik simbol (+) yang ada di bagian sebelah kiri dari masing-masing kategori. Akan tetapi pada dasarnya semua properti yang ada pada tabulasi alphabetic juga ada pada tabulasi Categorized. Kita dapat menggunakan salah satu tabulasi, tergantung dari kebutuhan kita. Tampilan dari Properti Categorized bisa kita lihat pada Gambar 2.1.2d

11

2.1.6 Membuat Menu Bar Menu adalah suatu daftar item, seperti daftar nama perintah, daftar nama file yang ditampilkan saat kita memilih judul menu dari bagian menu bar. Sebuah kontrol menu digunakan untuk membuat atau menampilkan suatu menu buatan pada aplikasi yang sedang kita kerjakan. Suatu menu dapat terdiri dari perintah-perintah, submenu dan garis pemisah antar kelompok menu tertentu. Setiap[ menu dapat memiliki sampai empat tingkat submenu. Contoh tampilan dari Menu Bar bisa kita lihat pada Gambar 2.1.6a

Gambar 2.1.6a

Membuat Kontrol Menu Untuk membuat suatu kontrol menu, gunakan menu editor. Masukkan nama kontrol menu dalam kotak Caption. Untuk membuat garis pemisah antar kelompok menu ketik tanda minus (-) dalam kotak Caption. Untuk menampilkan sebuah tanda centang pada bagian kiri suatu item menu, pilih kotak Checked. Kotak dialog Menu Editor dapat digunakan untuk membuat menu pada aplikasi kita dan sekaligus untuk mendefinisikan properti-properti dari menu tersebut.

Gambar 2.1.6b

12

2.1.7 Membuat Toolbar Toolbar adalah kumpulan tombol yang berisi gambar dan berfungsi untuk menjalankan suatu perintah tertentu saat diklik. Pada umumnya orang lebih suka menggunakan toolbar untuk menjalankan perintah yang sering digunakan, seperti: membuka file, menyimpan file, menyalin file, menghapus file, membuka lembar kerja baru, keluar dari suatu program aplikasi dan lain-lain.

Gambar 2.1.7a Untuk membuat suatu toolbar kita harus menggunakan dua kontrol yaitu kontrol ImageList dan Toolbar. Kedua kontrol tersebut hanya terdapat didalam toolbar standar

Gambar 2.1.7b

Kontrol ImageList digunakan untuk menyimpan gambar-gambar yang akan ditamplikan pada toolbar. Sedangkan kontrol Toolbar digunakan untuk membuat toolbar itu sendiri.

13

2.1.8 Variabel dan Konstanta Kita akan selalu membutuhkan tempat yang digunakan untuk menampung data ketika ingin melakukan proses perhitungan data dengan Visual Basic dan pada proses tersebut kita hanya perlu menyimpan data jika ingin membandingkannya tetapi kita tidak perlu menyimpan data tersebut sebagai suatu nilai properti.

Variabel Variabel dapat diasumsikan sebagai suatu tempat dalam memori yang berfungsi menampung data. Variabel dapat digunakan untuk mewqakili tipe data seperti alfanumerik, tanggal, objek dan sebagainya.

Konstanta Suatu konstanta adalah suatu nama yang mempunyai fungsi untuk menyediakan tempat untuk suatu angka atau teks yang tidak dapat diubah-ubah nilainya. Meskipun suatu konstanta dapat diasumsikan sebagai suatu variabel namun kita tidak dapat mengubah nilainya atau memberikan suatu nilaibaru padanya seperti yang kita lakukan pada suatu variabel.

2.1.9 Tipe Data Tipe data suatu variabel digunakan untuk mengatur jenis data yang dibutuhkan untuk menyimpan nilai-nilai tersebut didalam memori komputer. Saat kita mendeklarasikan sebuah variabel maka kita juga dapat memberikan suatu tipe data pada variabel tersebut. TIPE

UKURAN BYTE

KARAKTER

RANGE

Integer

2 byte

%

-32768 s/d 32767

Long

4 byte

&

-2147483.648 s/d 2147483647

Single

4 byte

!

(-):-3.402823E38s/d-1.401298E-45 (+):1.401298E-45s/d3.402823E38

Double

8 byte

#

(-):-179769313486232E308 s/d -4.94065645841247E-324 (+):4.94065645841247E-324 s/d 179769313486232E308

14

Currency

8 byte

@

-922337203685477.5808

s/d

922337203685477.5807 String

1 byte /karakter

$

0 s/d 2 miliar karakter

Byte

1 byte

0 s/d 255

Boolean

2 byte

True (benar) atau False(salah)

Date

8 byte

1 Januari 100 s/d 31 Desember 9999

Object

4 byte

Referensi Objek

Variant

16 byte + 1byte /

Null, Error dan seluruh tipe data

karakter

yang lain (boolean, numerik, string, objek, array)

2.1.10 Operator dan Fungsi Kita dapat mengkalkulasi data dengan rumus ayng dibentuk dari operator yang terdiri dari beberapa fungsi. Visual Basic menyediakan beberapa fungsi yang berkaitan dengan penggunaan rumus-rumus aritmetika, statistik, string, database dan beberapa kelompok fungsi lain.

Operator Aritmatika Dalam menggunakan fungsi yang berkaitan dengan operasi aritmatika, terdapat beberapa operator yang harus anda kenal terlebih dahulu. Dalam Visual Basic operator aritmetik terdiri dari: + (penjumlahan), - (pengurangan), * (perkalian), / (pembagian bilangan real), \ (pembagian bilangan bulat), ^ (perpangkatan) dan mod (sisa hasil bagi).

2.1.11 Statement dan Pengulangan Pada dasarnya setiap program aplikasi yang kita buat akan dijalankan dari baris program paling atas sampai paling bawah. Walaupun demikian kita dapat menuliskan percabangan atau pengulangan. Dengan menggunakan pernyataan percabangan alur program tidak harus dari atas kebawah namun dapat melompat menuju baris program yang lain. Sedangkan dengan menggunakan pernyataan pengulangan kita dapat menjalankan suatu pernyataan secara berulang-ulang.

15

2.1.12 Database Database adalah sekumpulan data yang terdiri atas satu atau beberapa hal yang saling berhubungan satu sama lain dimana kita atau user mempunyai wewenang untuk mengaksesdata tersebut baik menambah, mengganti, menghapus dan mengedit data dalam tabel-tabel tersebut.

2.2. TEORI CRYSTAL REPORTS Crystal Reports merupakan program yang dirancang untuk membuat laporan yang dapat digunakan dengan bahasa pemrograman berbasis Windows, seperti Borland Delphi, Visual Basic, Visual C/C++ dan Visual Interdev. Tampilan saat kita membuka Crystal Reports tampak seperti gambar 2.15. Sedangkan beberapa kelebihan dari Crystal Reports ini adalah: -

Dari segi pembuatan laporan tidak terlalu rumit yang memungkinkan para programmer pemula sekalipun dapat membuat laporan yang sederhana tanpa melibatkan banyak kode pemrograman.

-

Inegrasi dengan bahasa-bahasa pemrograman lain yang memungkinkan dapat digunakan oleh banyak programmer dengan masing-masing keahlian.

-

Fasilitas impor hasil laporan yang mendukung format-format populer seperti Microsoft Word, Excel, Access, Adobe Acrobat Reader, HTML dan sebagainya.

Gambar 2.15

16

2.2.1 Bagian-bagian dalam Laporan Sebuah laporan biasanya terdiri dari sedikitnya lima bagian (section) Utama yaitu : Report Header, Page Header, Detail, Page Footer dan Report Footer. Anda dapat mendrag objek-objek Crystal Reports ke dalam bagian laporan ini. Isi dari laporan yang ditampilkan tergantung pada pilihan kita mendesain laporan. Sebagai contoh jika kita menyisipkan sebuah objek chart kedalam bagian judul maka chart tersebut akan ditampilkan sekali saja pada awal (halaman pertama) laporan dan akan diringkas berdasarkan data yang ada dalam laporan. Namun jika kita menginginkan objek chart tersebut ditampilkan pada setiap kelompok (group) maka chart tersebut akan ditampilkan pada awal dari setiap kelompok dan akan diringkas berdasarkan data yang ada dalam kelompok tersebut.

Gambar 2.2.1a

2.3. TEORI MICROSOFT ACCESS Microsoft Access merupakan salah satu software yang digunakan untuk mengolah database yang berjalan dibawah sistem operasi Windows. Tampilan Microsoft Access tidak jauh beda dengan program aplikasi Microsoft yang lain.

Gambar 2.3a 17

Data adalah hal yang amat penting dalam banyak aspek. Untuk menggunakan dan menyimpan data tersebut dibutuhkan pengorganisasian dan pengolahan data yang teratur dan baik. Saat ini pengolahan data dilakukan dengan teknologi komputer. Kita dapat menambah, mengedit, menghapus dan mengurutkan data sesuai keinginan dan kebutuhan. Database adalah sekumpulan informasi yang diorganisasikan dan diinformasikan dalam bentuk yang spesifik. Microsoft Access adalah salah satu program yang dapat digunakan untuk melakukan manajemen database. Database dapat dibuatkan relasi-relasi antar data yang bisa diatur pemakai selama data tersebut mempunyai minimal satu field yang sama. Tabel, record dan field merupakan komponen-komponen dasar sebagai bagian dari database pada Microsoft Access :

Tabel Tabel merupakan sekumpulan data yang memiliki topik tertentu misalnya sebuah tabel yang berisi data mahasiswa. Didalam tabel tersebut terdapat record dan field yang merupakan bagian dari tabel. Pada dasarnya tabel adalah tempat untuk meletakkan, menyimpan, mengedit atau mengubah data. Tabel dibuat dan dikelola dengan baik sehingga data yang dihasilkan dapat ditampilkan dan lebih mudah dimengerti.

Record Record merupakan baris yang terdapat didalam tabel. Pada baris tersebut data-data tabel diisikan. Contohnya pada Tabel Mahasiswa terdapat field data nama mahasiswa dan alamat. Record adalah baris data yang berisi nama dan alamat. Secara umum, record memiliki definisi satu bagian dari data. Misalnya pada suatu tabel terdapat 100 record maka bisa dikatakan bahwa tabel tersebut mempunyai 100 data utuh. Satu record mewakili satu data yang utuh.

Field Field adalah kolom dalam tabel, misalnya kolom nama atau alamat. Bisa dikatakan field adalah bagian dari record. Pada satu record terdapat bermacam-macam field dan satu field mewakili satu bagian dari data pada tabel.

18

Form Form merupakan jendela atau yang biasa digunakan untuk tampilan data dalam database. Selain itu dengan menggunakan form ini kita dibekali teknik pemrograman, dapat menampilkan, mengedit dan menghapus data.

Query Secara umum query merupakan bentuk pertanyaan (questioning) dalam sebuah inquiry. Dalam dunia komputer query sebuah database sering mengacu ke istilah structure query language (SQL). SQL merupakan kalimat yang menyatakan bahasa pemrograman komputer untuk digunakan dalam relasional database. Kita dapat membuat, memodifikasi query sebuah database dengan kriteria-kriteria tertentu. Misalnya, kita dapat memilih untuk menampilkan data mahasiswa yang berumur diatas 22 tahun.

Report Report merupakan fasilitas cetak data dalam bentuk file atau berkas. Pada report fasilitas cetak data dalam bentuk file atau berkas. Pada report juga dapat diatur data yang hendak dicetak.

2.4. TEORI PENDUKUNG 2.4.1 Tahap Pembuatan Secara umum, tahap-tahap yang ditempuh penulis dalam menyusun program Sistem Administrasi Akademik ini adalah sebagai berikut:

a. Menganalisa Masalah (analyzing problem). Pada tahap yang pertama ini, penulis menganalisa semua hal yang berkaitan dengan Administrasi akademik. Dalam prosesnya, penulis mencatat semua data yang ditemukan, dan membuat katagori dari masing – masing data untuk dikelompokan sebagai variable input, proses dan output yang hasilnya dituangkan dalam kamus data.

19

b. Menulis Program. Sebagai pendahuluan dari tahap ini, penulis menentukan bahasa pemrograman yang akan digunakan dalam penyusunan program. Pemilihan bahasa pemrograman menjadi salah satu faktor penentu hasil suatu program. Disini penulis memilih bahasa pemrograman yang berbasis objek agar lebih mudah dalam penggunanya yaitu Bahasa Pemrograman Microsoft Visual Basic 6.0.

c. Merakit Program. Instrusi program yang telah ditulis merupakan instruksi program dalam bahasa yang hanya dapat dimengerti oleh manusia (symbol language). Proses compiling oleh komputer akan mengubah instruksi program tersebut menjadi bahasa yang dimengerti yaitu bahasa mesin, sehingga akan dijalankan oleh komputer.

d. Mengetes dan Mengoreksi Program (Testing and correcting the program). Pada saat program yang telah di compile itu dijalankan, kadang masih terdapat kesalahan- kesalahan (error).Oleh karena itu langkah setelah merakit program dilanjutkan dengan dengan mengoreksi kesalahan program.

e. Menyiapkan Program Untuk Diproduksi (Prepering the Program For Produciton). Proses ini dapat dilakukan apabila program ini telah dinyatakan bebas dari bug. Dalam tahap ini, Semua komponen program diorganisasikan dan di kelompokan mengenai program yang dibuat.

20

2.4.2. Peralatan Pendukung. Adapun peralatan pendukung (Tool System) yang digunakan penulis pada pembuatan tugas akhir ini adalah sebagai berikut :

a. Normalisasi. Normalisasi menurut [ Rusmawan, 2006, Hal 93 ] adalah suatu proses pengelompokan elemen data kedalam tabel yang menyatakan hubungan antar entitas sehingga terwujud suatu bentuk yang memudahkan adanya perubahan dengan dampak terkecil. Proses pengolahan data yang mengakibatkan efek samping yang tidak diharapkan sering disebut dengan istilah anomali yang dapat terjadi akibat inserting, updating, atau deleting. Adapun teknik penyusunan normalisasi file adalah dengan menentukan hal-hal sebagai berikut: a) Kunci Atribut Adalah kunci berupa satu field atau satu set field yang dapat mewakili record. b) Kunci Kandidat ( Candidate Key ) Adalah satu atribut atau satu set minimal atribut yang mengidentifikasikan secara unik suatu kejadian spesifik dari entiti. c) Kunci Primer ( Primary key ) Adalah satu atribut atau satu set minimal attribute yang tidak hanya mengidentifikasi secara unik suatu kejadian spesifik, tetapi juga dapat mewakili setiap kejadian dari suatu entiti. d) Kunci Alternatif ( Alternate Key ) Adalah kunci kandidat yang tidak dipakai sebagai kunci primer.

21

e) Kunci Tamu ( Foreign Key ) Adalah satu attribut atau satu set attribute yang melengkapi satu hubungan yang menunjukkan ke tabel induknya. Bentuk – bentuk normalisasi dibagi dalam beberapa tahap, yaitu : 1. Bentuk Tidak Normal ( Unnormalized Form ) Bentuk ini merupakan kumpulan data yang akan disimpan. Tidak ada keharusan mengikuti suatu format tertentu, dapat saja data tidak lengkap atau terduplikasi dan dikumpulkan apa adanya sesuai dengan bentuk asalnya. 2. Bentuk Normal Kesatu ( First Normal Form / 1NF ) Bentuk normal kesatu mempunyai ciri, yaitu setiap data dibentuk dalam flat file, data dibentuk record demi record dan nilai tiap field berupa “Atomic Value”. Tidak ada set attribute yang terduplikasi ( multi value ). 3. Bentuk Normal Kedua ( Second Normal Form / 2NF ) Bentuk normal kedua mempunyai syarat, yaitu bentuk data telah memenuhi syarat normal kesatu, Attribut bukan kunci harus bergantung secara fungsional pada kunci primer. 4. Bentuk Normal Ketiga ( Third Normal Form / 3NF ) Syarat bentuk normal ketiga adalah data telah memenuhi syarat normal kedua dan semua attribut yang bukan kunci primer tidak mempunyai hubungan transitif.

b.Flowchart Flowchart menurut [ Sutedjo, 2000, hal 46 ] adalah suatu metode untuk menggambarkan tahap-tahap pemecahan masalah dengan mempresentasikan simbolsimbol tertentu yang mudah dimengerti, mudah digunakan dan standar. Dalam penulisan flowchart dikenal dua model, yaitu :

22

1. Sistem Flowchart Merupakan diagram alir yang menggambarkan suatu sistem peralatan komputer yang digunakan dalam proses pengolahan data serta hubungan antar peralatan tersebut. 2. Program Flowchart Merupakan diagram alir yang menggambarkan urutan logika dari suatu prosedur pemecahan masalah.

c. HIPO HIPO ( Hierarcy plus Input - Proses – Otuput ) menurut [ Jogiyanto, 1999, Hal 787 ] merupakan metodologi yang dikembangkan dan didukung oleh IBM. HIPO sebenarnya adalah alat dokumentasi program, akan tetapi sekarang HIPO juga banyak digunakan sebagai alat desain dan teknik dokumentasi dalam siklus pengembangan sistem. HIPO berbasis pada fungsi, yaitu tiap-tiap modul didalam sistem digambarkan oleh fungsi utamanya.

23

BAB III PERANCANGAN DATABASE 3.1. SPESIFIKASI RANCANGAN PROGRAM Dalam perancangan suatu database penulis terlebih dahulu akan membuat suatu flowchart yang nantinya akan memudahkan dalam membangun suatu program database. Adapun bentuk flowchart utama perancangan database tersebut adalah sebagai berikut :

Mulai Pengumpulan Data :Data-data yang akan dimasukkan dalam program dikumpulkan Desain Database : Perencanaan Pembuatan bentuk database yang akan dibuat Desain Menu Program : Pembuatan Menu-menu utama yang ada dalam program database seperti Data Taruna, IP, Dosen, Jadwal dsb. Desain Form yang ada di Menu : Menu-menu yang telah dibuat kemudian dilakukan desain form nya. Desain Laporan: Form-form yang telah dibuat kemudian didesain agar dapat dicetak. Pengujian terhadap progam : Dilakukan Pengujian terhadap Program yang telah dibuat, jika terjadi kesalahan maka kembali ke tahapan sebelumnya. Kompilasi Program : Program yang telah jadi dibuat menjadi Bentuk Aplikasi ( .exe) Selesai

Sedangkan rancangan program yang database yang akan dibangun oleh penulis adalah sebagai berikut : dimana sebelum masuk ke program database tersebut akan ditampilkan sebuah user name beserta password yang harus diisi oleh pengguna program. Dalam hal ini user name akan menentukan apakah pengguna yang masuk sebagai administrator atau sebagai 24

user dimana ini akan menentukan otoritas pemakaian. Setelah masuk ke program tersebut maka akan tampil sebuah form (tampilan) menu utama, dimana didalamnya kita bisa memilih menu apa yang kita inginkan. Form-form yang ada merupakan form input data maupun keluaran dimana kita juga dapat mencetak hasil dari pemrosesan data kita. Menu utama terbagi atas: •

File

: Exit

•

Edit

: Data Taruna, Data Dosen, Data Mata Kuliah, Jurusan, Nilai Taruna, Formulir Rencana Studi, Kelas

•

Laporan

: Kartu Hasil Studi, absen Taruna

•

Cari data

: Cari Data Taruna, Cari Kelas Taruna, Cari Data Dosen, Cari Mata

Kuliah •

Data user

•

Login user

Bentuk Skema Bagian dari Menu Utama Program Adalah sebagai berikut: Password

Menu Utama

File

Edit

Laporan

Cari Data

Data User

Cari Data Taruna

Exit

Data Taruna

Kartu hasil Studi

Cari Kelas Taruna

Data Dosen

Absen Taruna

Cari Data Dosen

Data Mata Kuliah Cari Mata Kuliah

Jurusan

Nilai Taruna

Formulir Rencana Studi

Kelas

25

Login User

3.1.1 Spesifikasi Bentuk Masukan Dalam rancangan program pada tugas akhir ini, penulis menguraikan rancangan pembuatan program menjadi sub-sub bab. Adapun sistematika pembuatan program sebagai berikut : a. Nama Form

: Password

Fungsi

: Sebagai Tampilan Masuk

Sumber

: User Name dan Password yang telah sesuai

Tujuan

: Semua bentuk Data

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai data dalam File

Bentuk

: Gbr. A.1

Listing Program

: 3.1.3 a

b. Nama Form

: Menu Utama

Fungsi

: Sebagai Tampilan Utama

Sumber

: semua bentuk masukan

Tujuan

: Semua bentuk laporan

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai data dalam File

Bentuk

: Gbr. A.2

Listing Program

: 3.1.3 b

d. Nama Form

: Data Taruna

Fungsi

: Sebagai input Data Taruna (bagian dari tab edit)

Sumber

: Administrasi

Tujuan

: Seluruh dosen dan taruna

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai data dalam File

Bentuk

: Gambar A.3

Listing Program

: 3.1.3 c

26

e. Nama Form

: Data Dosen

Fungsi

: Sebagai input Data Dosen (bagian dari tab edit)

Sumber

: Administrasi

Tujuan

: seluruh dosen dan taruna

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai data dalam File

Bentuk

: Gambar A.4

Listing Program

: 3.1.3 d

f. Nama Form

: Data Mata Kuliah

Fungsi

: Sebagai input Data mata Kuliah (bagian dari tab edit)

Sumber

: Administrasi

Tujuan

: Seluruh dosen dan taruna

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai data dalam File

Bentuk

: Gambar A.5

Listing Program

: 3.1.3 e

g. Nama Form

: Jurusan

Fungsi

: Sebagai input jurusan yang ada (bagian dari tab edit)

Sumber

: Pelanggan

Tujuan

: Administrasi

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai data dalam File

Bentuk

: Gambar A.6

Listing Program

: 3.1.3 f

27

h. Nama Form

: Nilai Taruna

Fungsi

: Sebagai input nilai taruna (bagian dari tab edit)

Sumber

: Administrasi

Tujuan

: taruna

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai data dalam File

Bentuk

: Gambar A.7

Listing Program

: 3.1.3 g

i. Nama Form Fungsi

: Formulir rencana studi : Sebagai input formulir rencana studi (bagian dari tab edit)

Sumber

: Taruna

Tujuan

: Administrasi

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai data dalam File

Bentuk

: Gambar A.8

Listing Program

: 3.1.3 h

j. Nama Form

: Kelas

Fungsi

: Sebagai input Kelas (bagian dari tab edit)

Sumber

: Administrasi

Tujuan

: Taruna

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai data dalam File

Bentuk

: Gambar A.9

Listing Program

: 3.1.3 i

28

k. Nama Form

: Data User

Fungsi

: Sebagai input user yang menggunakan

Sumber

: Administrasi

Tujuan

: Taruna & dosen

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai data dalam File

Bentuk

: Gambar A.10

Listing Program

: 3.1.3 j

3.1.2. Spesifikasi Bentuk Keluaran a.

Nama Form

: Absen taruna

Fungsi

: Sebagai bukti kehadiran taruna

Sumber

: Bagian Administrasi

Tujuan

: dosen

Frekuensi

: setiap akhir semester

Media

: tampilan layar

Jumlah

: Sesuai dengan data dalam file

Bentuk

: Gambar B.1

Listing Program

: 3.1.3 k

b. Nama Form

: Kartu Hasil Studi

Fungsi

: Untuk mengetahui Nilai Taruna

Sumber

: Bagian Administrasi

Tujuan

: Taruna

Frekuensi

: Setiap akhir semester

Media

: tampilan layar

Jumlah

: Sesuai dengan data dalam file

Bentuk

: Gambar B.2

Listing Program

: 3.1.3 l

c. Nama Dokumen Fungsi

: Cari Data : Untuk mengetahui data taruna, dosen , kelas maupun absen. 29

Sumber

: Administrasi

Tujuan

: Taruna & dosen

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai dengan banyaknya data dalam file

Bentuk

: Gambar B.3

Listing Program

: 3.1.3 m

d. Nama Dokumen

: Cari Data Taruna

Fungsi

: Untuk mengetahui data taruna yang telah diinput

Sumber

: Administrasi

Tujuan

: Taruna & dosen

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai dengan banyaknya data dalam file

Bentuk

: Gambar B.4

Listing Program

: 3.1.3 n

e. Nama Dokumen

: Cari Kelas Taruna

Fungsi

: Untuk mengetahui data kelas taruna yang telah diinput

Sumber

: Administrasi

Tujuan

: Taruna & dosen

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai dengan banyaknya data dalam file

Bentuk

: Gambar B.5

Listing Program

: 3.1.3 o

30

f. Nama Dokumen Fungsi

: Cari Data Dosen : Untuk mengetahui data dosen pengajar yang telah diinput

Sumber

: Administrasi

Tujuan

: Taruna & dosen

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai dengan banyaknya data dalam file

Bentuk

: Gambar B.6

Listing Program

: 3.1.3 p

g. Nama Dokumen

: Cari Mata Kuliah

Fungsi

: Untuk mengetahui mata kuliah yang telah diinput

Sumber

: Administrasi

Tujuan

: Taruna & dosen

Frekuensi

: Setiap ada pemrosesan data

Media

: Tampilan Layar

Jumlah

: Sesuai dengan banyaknya data dalam file

Bentuk

: Gambar B.7

Listing Program

: 3.1.3 q

h. Nama Dokumen

: Login User

Fungsi

: Untuk mengetahui siapa saja user yang telah masuk

Sumber

: Bagian Administrasi

Tujuan

: Pelanggan

Frekuensi

: Setiap ada transaksi

Media

: Cetakan Komputer

Jumlah

: Sesuai dengan banyaknya data dalam file

Bentuk

: Gambar B.8

Listing Program

: 3.1.3 r

31

3.1.3. Listing Program a. Password Private Sub Form_Activate() Me.txtuser.SetFocus End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label4.ForeColor = &H80000005 End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label4.ForeColor = vbWhite Me.Label5.ForeColor = &H80000011 End Sub Private Sub Label4_Click() GANTI_PASSWORD.Show Unload Me End Sub Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label4.ForeColor = vbWhite End Sub Private Sub Label5_Click() End End Sub Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label5.ForeColor = &H80000000 End Sub Private Sub txtpass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtPass.Recordset.FindFirst "Kd_Admin='" & Me.txtuser.Text & "'" Me.DtPass.Recordset.FindFirst "Password='" & Me.txtpass.Text & "'" 32

If Me.txtuser.Text = Me.DtPass.Recordset.Fields(0) And Me.txtpass.Text = Me.DtPass.Recordset.Fields(1) Then Call Catatan With MENU_UTAMA .lbladm.Caption = Me.DtPass.Recordset!Kd_Admin MENU_UTAMA.Show

Unload Me End With Else MsgBox "Maaf Pengisian Salah", vbExclamation, "Security" Me.txtuser.Text = "" Me.txtpass.Text = "" Me.txtuser.SetFocus End If End If End Sub Private Sub HakAccsessADM() If Me.txtuser.Text = " ADM " And Me.txtpass.Text = " STIP " Then MENU_UTAMA.Show End If End Sub Private Sub Catatan() With Me.DtDeteksiUser.Recordset .AddNew !Kd_Admin = Me.txtuser.Text !Tgl_Login = Format(Time, "hh:mm:ss AMPM") !Waktu_Login = Date .Update End With End Sub Private Sub txtuser_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtpass.SetFocus 33

End If End Sub

b. Menu Utama Private Sub MnCari_Click() CARI.Show End Sub Private Sub mnCetakAbsen_Click() CARI_TARUNA_BERDASARKAN_KELAS.Show End Sub Private Sub MnDataMatakuliah_Click() MATAKULIAH.Show End Sub Private Sub MnDataTaruna_Click() TARUNA.Show End Sub Private Sub MnDataUser_Click() ADMIN.Show End Sub Private Sub MnDtDosen_Click() DOSEN.Show End Sub Private Sub mnExit_Click() End End Sub Private Sub mnfrs_Click() FRS.Show End Sub Private Sub Mnjurusan_Click() JURUSAN.Show End Sub Private Sub MnKartuHasilStudi_Click() cetak_khs.Show End Sub 34

Private Sub MnKelas_Click() KELAS.Show End Sub Private Sub MnLoginUser_Click() LOGIN_USER.Show End Sub Private Sub MnNilaiTaruna_Click() NILAI_TARUNA.Show End Sub

c. Data Taruna Dim status As Boolean Private Sub nonaktif() Me.txtnrp.Enabled = False Me.txtnama.Enabled = False Me.txtalamat.Enabled = False Me.txttempatlahir.Enabled = False Me.cmbtgl.Enabled = False Me.cmbbulan.Enabled = False Me.cmbtahun.Enabled = False Me.txttlp.Enabled = False Me.DBCombo1.Enabled = False Me.txtnmjurusan.Enabled = False Me.txtkd_Kelas.Enabled = False Me.txtruang.Enabled = False Me.cmdcari.Enabled = False Me.cmdsimpan.Enabled = False Me.cmdhapus.Enabled = False Me.cmdbatal.Enabled = False End Sub Private Sub bersih() Me.txtnrp.Text = "" Me.txtnama.Text = "" Me.txtalamat.Text = "" 35

Me.txttempatlahir.Text = "" Me.cmbtgl.Text = "" Me.cmbbulan.Text = "" Me.cmbtahun.Text = "" Me.txttlp.Text = "" Me.DBCombo1.Text = "" Me.txtnmjurusan.Text = "" Me.txtkd_Kelas.Text = "" Me.txtruang.Text = "" End Sub Private Sub aktif() Me.txtnrp.Enabled = True Me.txtnama.Enabled = True Me.txtalamat.Enabled = True Me.txttempatlahir.Enabled = True Me.cmbtgl.Enabled = True Me.cmbbulan.Enabled = True Me.cmbtahun.Enabled = True Me.txttlp.Enabled = True Me.DBCombo1.Enabled = True Me.txtnmjurusan.Enabled = True End Sub Private Sub cmbbulan_Click() Me.cmbtahun.Enabled = True Me.cmbtahun.SetFocus End Sub Private Sub cmbtahun_Click() Me.txttlp.Enabled = True Me.txttlp.SetFocus End Sub Private Sub cmbtgl_Click() Me.cmbbulan.Enabled = True Me.cmbbulan.SetFocus End Sub 36

Private Sub cmdbatal_Click() Call KembaliKePosisiAwal End Sub Private Sub KembaliKePosisiAwal() Call nonaktif Call bersih Me.cmdtambah.Enabled = True Me.cmdedit.Enabled = True Me.cmdkeluar.Enabled = True End Sub Private Sub cmdcari_Click() Call CariEditData End Sub Private Sub cmdedit_Click() status = False Me.cmdedit.Enabled = False Me.cmdtambah.Enabled = False Me.cmdcari.Enabled = True Me.txtnrp.Enabled = True Me.txtnrp.SetFocus Me.cmdbatal.Enabled = True Me.cmdkeluar.Enabled = False End Sub Private Sub cmdhapus_Click() p = MsgBox("Yakin Record Anda Akan Dihapus", vbInformation + vbYesNo, "Coution") If p = vbYes Then With Me.DtTabelTaruna.Recordset .Delete If .EOF Then .MovePrevious Else .MoveNext End If 37

End With Call KembaliKePosisiAwal End If End Sub Private Sub CMDKELUAR_Click() Unload Me End Sub Private Sub cmdsimpan_Click() If status = True Then With Me.DtTabelTaruna.Recordset .AddNew !NRP = Me.txtnrp !Nama_Taruna = Me.txtnama.Text !Alamat = Me.txtalamat.Text !Tempat_Lahir_Taruna = Me.txttempatlahir.Text !Tanggal_Lahir_Taruna = Me.cmbtgl.Text !Bulan_Lahir_Taruna = Me.cmbbulan.Text !Tahun_Lahir_Taruna = Me.cmbtahun.Text !No_Telp_Taruna = Me.txttlp.Text !Kd_Kelas = Me.txtkd_Kelas.Text !Kd_Jurusan = Me.DBCombo1.Text !Tahun_Masuk = Me.txttahun.Text .Update End With End If If status = False Then With Me.DtTabelTaruna.Recordset .Edit !NRP = Me.txtnrp !Nama_Taruna = Me.txtnama.Text !Alamat = Me.txtalamat.Text !Tempat_Lahir_Taruna = Me.txttempatlahir.Text !Tanggal_Lahir_Taruna = Me.cmbtgl.Text !Bulan_Lahir_Taruna = Me.cmbbulan.Text 38

!Tahun_Lahir_Taruna = Me.cmbtahun.Text !No_Telp_Taruna = Me.txttlp.Text !Kd_Kelas = Me.txtkd_Kelas.Text !Kd_Jurusan = Me.DBCombo1.Text !Tahun_Masuk = Me.txttahun.Text .Update End With End If Call KembaliKePosisiAwal Call KunciKelas End Sub Private Sub cmdtambah_Click() status = True Me.cmdtambah.Enabled = False Me.txtnrp.Enabled = True Me.txtnrp.SetFocus Me.cmdedit.Enabled = False Me.cmdbatal.Enabled = True Me.cmdkeluar.Enabled = False End Sub Private Sub DBCombo1_Change() Me.DtTabelJurusan.Recordset.FindFirst

"Kd_Jurusan='"

&

Me.DBCombo1.Text & "'" If Not Me.DtTabelJurusan.Recordset.NoMatch Then Me.DtTabelKelas.RecordSource

=

"select*

from

Tabel_Kelas

Kd_Jurusan='" & Me.DBCombo1.Text & "'" Me.DtTabelKelas.Refresh Me.txtkd_Kelas.Enabled = True Call BukaKelas Me.txtnmjurusan.Text = Me.DtTabelJurusan.Recordset!Nm_Jurusan cmdsimpan.Enabled = True cmdsimpan.SetFocus End If 39

where

End Sub Private Sub Form_Load() Call nonaktif Call KunciKelas For a = 1 To 31 Me.cmbtgl.AddItem (Str(a)) Next a For b = 1 To 12 Me.cmbbulan.AddItem (MonthName(b)) Next b For c = 1970 To Year(Now) Me.cmbtahun.AddItem (Str(c)) Next c Me.txttahun.Text = Year(Now) End Sub Private Sub KunciKelas() Me.DBGrid1.Visible = False End Sub Private Sub BukaKelas() Me.DBGrid1.Visible = True End Sub Private Sub txtalamat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txttempatlahir.Enabled = True Me.txttempatlahir.SetFocus End If End Sub Private Sub txtkd_Kelas_KeyPress(KeyAscii As Integer) Me.DtTabelKelas.Recordset.FindFirst "Kd_Kelas='" & Me.txtkd_Kelas.Text & "'" If Not Me.DtTabelKelas.Recordset.NoMatch Then Me.DtTabelKelas.RecordSource

=

"select*from

Kd_Kelas='" & Me.txtkd_Kelas.Text & "'" Me.DtTabelKelas.Refresh 40

Tabel_Kelas

where

Me.txtruang.Text = Me.DtTabelKelas.Recordset!Ruang End If End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtalamat.Enabled = True Me.txtalamat.SetFocus End If End Sub Private Sub CariData() Me.DtTabelTaruna.Recordset.FindFirst "NRP='" & Me.txtnrp.Text & "'" If Not Me.DtTabelTaruna.Recordset.NoMatch Then MsgBox "Maaf NRP : " & Me.txtnrp.Text & " Sudah Ada ", vbExclamation, "Security" Else Me.txtnama.Enabled = True Me.txtnama.SetFocus End If End Sub Private Sub CariEditData() Me.DtTabelTaruna.Recordset.FindFirst "NRP='" & Me.txtnrp.Text & "'" If Not Me.DtTabelTaruna.Recordset.NoMatch Then Me.txtnama.Text = Me.DtTabelTaruna.Recordset!Nama_Taruna Me.txtalamat.Text = Me.DtTabelTaruna.Recordset!Alamat Me.txttempatlahir.Text = Me.DtTabelTaruna.Recordset!Tempat_Lahir_Taruna Me.cmbtgl.Text = Me.DtTabelTaruna.Recordset!Tanggal_Lahir_Taruna Me.cmbbulan.Text = Me.DtTabelTaruna.Recordset!Bulan_Lahir_Taruna Me.cmbtahun.Text = Me.DtTabelTaruna.Recordset!Tahun_Lahir_Taruna Me.txttlp.Text = Me.DtTabelTaruna.Recordset!No_Telp_Taruna Me.DBCombo1.Text = Me.DtTabelTaruna.Recordset!Kd_Jurusan Me.cmdsimpan.Enabled = True Me.cmdhapus.Enabled = True Call aktif Else 41

BR_TARUNA.Show End If End Sub Private Sub txtnrp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If status = True Then Call CariData End If If status = False Then Call CariEditData End If End If End Sub Private Sub txttempatlahir_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.cmbtgl.Enabled = True Me.cmbtgl.SetFocus End If End Sub Private Sub txttlp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DBCombo1.Enabled = True Me.DBCombo1.SetFocus End If End Sub

d. Data Dosen Private Sub txtalamat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txttempat.Enabled = True Me.txttempat.SetFocus End If End Sub Private Sub txtjabatan_KeyPress(KeyAscii As Integer) 42

If KeyAscii = 13 Then Me.txtnotlp.Enabled = True Me.txtnotlp.SetFocus End If End Sub Private Sub txtnid_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If status = True Then Call CariData End If If status = False Then Call CariEditData End If End If End Sub Private Sub txtnmdosen_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtalamat.Enabled = True Me.txtalamat.SetFocus End If End Sub Private Sub txtnotlp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.cmdsimpan.Enabled = True Me.cmdsimpan.SetFocus End If End Sub Private Sub txttempat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.cmbtanggal.Enabled = True Me.cmbtanggal.SetFocus End If End Sub

43

e. Data Mata Kuliah Private Sub txtjmlsks_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtsemester.Enabled = True Me.txtsemester.SetFocus End If End Sub Private Sub txtkdmatakuliah_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If status = True Then Call CariData End If If status = False Then Call CariEditData End If End If End Sub Private Sub txtnmmatakuliah_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtjmlsks.Enabled = True Me.txtjmlsks.SetFocus End If End Sub Private Sub txtsemester_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DBkdjurusan.Enabled = True Me.DBkdjurusan.SetFocus End If End Sub

f. Jurusan Private Sub txtkdjurusan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If status = True Then 44

Call CariData End If If status = False Then Call CariEditData End If End If End Sub Private Sub txtnmjurusan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.cmdsimpan.Enabled = True Me.cmdsimpan.SetFocus End If End Sub

g. Nilai Taruna Private Sub txtabsen_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txttgs.Enabled = True Me.txttgs.SetFocus End If End Sub Private Sub txtakhir_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call InputGrid Me.txtkdmatakuliah.Text = "" Me.txtnmmatakuliah.Text = "" Me.txtjmlsks.Text = "" Me.txtsemester.Text = "" Me.txtakhir.Text = "" Me.txtabsen.Text = "" Me.txttgs.Text = "" Me.txtuts.Text = "" Me.txtuas.Text = "" Me.txtnilaihuruf.Text = "" 45

End If End Sub Private Sub CariDataMatakuliah() Me.DtMatakuliah.Recordset.FindFirst "Kd_Matakuliah='" & Me.txtkdmatakuliah.Text & "'" If Not Me.DtMatakuliah.Recordset.NoMatch Then Me.txtnmmatakuliah.Text = Me.DtMatakuliah.Recordset!Nama_Matakuliah Me.txtjmlsks.Text = Me.DtMatakuliah.Recordset!Jumlah_Sks Me.txtsemester.Text = Me.DtMatakuliah.Recordset!Semester Me.txtabsen.Enabled = True Me.txtabsen.SetFocus End If End Sub Private Sub txtcarisemester_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtMatakuliah.Recordset.FindFirst "Semester='" & Me.txtcarisemester.Text & "'" If Not Me.DtMatakuliah.Recordset.NoMatch Then Me.DtMatakuliah.RecordSource = "select * from Tabel_Matakuliah where Semester='" & Me.txtcarisemester.Text & "'" Me.DtMatakuliah.Refresh Me.DBGrid1.Enabled = True Me.DBGrid1.SetFocus End If End If End Sub Private Sub txtkdmatakuliah_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call CariDataMatakuliah End If End Sub Private Sub CariDataTaruna() Me.Dt_Tabel_Taruna.Recordset.FindFirst "NRP='" & Me.txtnrp.Text & "'" If Not Me.Dt_Tabel_Taruna.Recordset.NoMatch Then 46

Me.txtnmtaruna.Text = Me.Dt_Tabel_Taruna.Recordset!Nama_Taruna Me.txtkdjurusan.Text = Me.Dt_Tabel_Taruna.Recordset!Kd_Jurusan Me.txtkdkelas.Text = Me.Dt_Tabel_Taruna.Recordset!Kd_Kelas End If End Sub Private Sub KunciBukaPencarianMatakuliah() Me.DBGrid1.Visible = True Me.Label16.Visible = True Me.txtcarisemester.Visible = True End Sub Private Sub txtnrp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call CariDataTaruna If Me.txtkdjurusan.Text = Me.txtkdjurusan.Text Then Me.DtJurusan.Recordset.FindFirst "Kd_Jurusan='" & Me.txtkdjurusan & "'" If Not Me.DtJurusan.Recordset.NoMatch Then Me.txtnmjurusan.Text = Me.DtJurusan.Recordset!Nm_Jurusan Call KunciBukaPencarianMatakuliah Me.txtnrp.Enabled = False Me.txtcarisemester.SetFocus End If End If Me.DtMatakuliah.Recordset.FindFirst

"Kd_Jurusan='"

&

Me.txtkdjurusan.Text & "'" If Not Me.DtMatakuliah.Recordset.NoMatch Then Me.DtMatakuliah.RecordSource = "select * from Tabel_Matakuliah where Kd_Jurusan='" & Me.txtkdjurusan.Text & "'" Me.DtMatakuliah.Refresh End If End If End Sub Private Sub txttgs_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtuts.Enabled = True 47

Me.txtuts.SetFocus End If End Sub Private Sub txtuas_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtakhir.Text = Val(Me.txtabsen.Text * 0.1) + Val(Me.txttgs.Text * 0.2) + Val(Me.txtuts.Text * 0.3) + Val(Me.txtuas.Text * 0.4) If Me.txtakhir.Text >= 80 Then Me.txtnilaihuruf.Text = "A" Else If Me.txtakhir.Text >= 65 Then Me.txtnilaihuruf.Text = "B" Else If Me.txtakhir.Text >= 45 Then Me.txtnilaihuruf.Text = "C" Else If Me.txtakhir.Text >= 20 Then Me.txtnilaihuruf.Text = "D" Else Me.txtnilaihuruf = "E" End If End If End If End If Me.txtakhir.Enabled = True Me.txtakhir.SetFocus End If End Sub Private Sub txtuts_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtuas.Enabled = True Me.txtuas.SetFocus End If End Sub 48

h. Formulir rencana studi Private Sub txtsemester_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTAbelMatakuliah.Recordset.FindFirst

"Semester='"

&

Me.txtsemester.Text & "'" If Not Me.DtTAbelMatakuliah.Recordset.NoMatch Then Me.DtTAbelMatakuliah.RecordSource = "select * from Tabel_Matakuliah where Semester ='" & Me.txtsemester.Text & "'" Me.DtTAbelMatakuliah.Refresh Me.cmdcetak.Enabled = True Me.cmdcetak.SetFocus Me.cmdbatal.Enabled = True End If End If End Sub

i. Kelas Private Sub txtkdjurusan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTAbelKelas.Recordset.FindFirst

"Kd_Jurusan='"

&

Me.txtkdjurusan.Text & "'" If Not Me.DtTAbelKelas.Recordset.NoMatch Then Me.DtTAbelKelas.RecordSource = "select * from Tabel_Kelas where Kd_Jurusan ='" & Me.txtkdjurusan.Text & "'" Me.DtTAbelKelas.Refresh End If End If End Sub Private Sub txtkdkelas_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTAbelKelas.Recordset.FindFirst "Kd_Kelas='" & Me.txtkdkelas.Text & "'" If Not Me.DtTAbelKelas.Recordset.NoMatch Then

49

Me.DtTAbelKelas.RecordSource = "select * from Tabel_Kelas where Kd_Kelas='" & Me.txtkdkelas.Text & "'" Me.DtTAbelKelas.Refresh End If End If End Sub Private Sub txtruang_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTAbelKelas.Recordset.FindFirst "Ruang='" & Me.txtruang.Text & "'" If Not Me.DtTAbelKelas.Recordset.NoMatch Then Me.DtTAbelKelas.RecordSource = "select * from Tabel_Kelas where Ruang ='" & Me.txtruang.Text & "'" Me.DtTAbelKelas.Refresh End If End If End Sub

j. Data User Private Sub AturGrid() Me.MSFlexGrid1.ColAlignment(0) = 4 Me.MSFlexGrid1.ColWidth(0) = 2000 Me.MSFlexGrid1.ColAlignment(1) = 4 Me.MSFlexGrid1.ColWidth(1) = 2000 Me.MSFlexGrid1.ColAlignment(2) = 4 Me.MSFlexGrid1.ColWidth(2) = 2030 End Sub Private Sub Form_Load() Call AturGrid End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label4.ForeColor = vbWhite End Sub Private Sub Label4_Click() 50

Unload Me End Sub Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label4.ForeColor = &HFF& End Sub

k. Absen taruna Private Sub txtnamataruna_Change() If Me.txtnamataruna.Text = "" Then Me.txtnrp.Enabled = True Else Me.txtnrp.Enabled = False End If End Sub Private Sub txtnamataruna_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTAbelTaruna.Recordset.FindFirst "Nama_Taruna='" & Me.txtnamataruna.Text & "'" If Not Me.DtTAbelTaruna.Recordset.NoMatch Then Me.DtTAbelTaruna.RecordSource = "select * from Tabel_Taruna where Nama_Taruna='" & Me.txtnamataruna.Text & "'" Me.DtTAbelTaruna.Refresh Me.DBGrid1.SetFocus Else MsgBox "Maaf Nama Taruna :" & Me.txtnamataruna.Text & " Tidak Terdaftar Di STIP", vbExclamation, "Security" Me.txtnamataruna.Text = "" Me.txtnrp.Enabled = True End If End If End Sub Private Sub txtnrp_Change() If Me.txtnrp.Text = "" Then 51

Me.txtnamataruna.Enabled = True Else Me.txtnamataruna.Enabled = False End If End Sub Private Sub txtnrp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTAbelTaruna.Recordset.FindFirst "NRP='" & Me.txtnrp.Text & "'" If Not Me.DtTAbelTaruna.Recordset.NoMatch Then Me.DtTAbelTaruna.RecordSource = "select *from Tabel_Taruna where NRP='" & Me.txtnrp.Text & "'" Me.DtTAbelTaruna.Refresh Me.DBGrid1.SetFocus Else MsgBox "Maaf NRP Taruna :" & Me.txtnrp.Text & " Tidak Terdaftar Di STIP", vbExclamation, "Security" Me.txtnrp.Text = "" Me.txtnamataruna.Text = "" Me.txtnamataruna.Enabled = True Me.txtnrp.Enabled = True End If End If End Sub

l. KHS Private Sub cmdbatal_Click() With Me.dtkhs .RecordSource = "select*from Tabel_cetak_khs" .Refresh End With txtnrp.Text = "" txtnmtaruna.Text = "" TXTJURUSAN.Text = "" txtsemester.Text = "" 52

Me.txtipk.Text = "" Me.txtips.Text = "" Me.txttotalmutukom.Text = "" Me.txttotalmutusmtr.Text = "" Me.txttotalskskom.Text = "" Me.txttotalskssmtr.Text = "" End Sub Private Sub cmdcari_Click() dtkhs.Recordset.FindFirst "Semester='" & Me.txtsemester.Text & "'" If Not dtkhs.Recordset.NoMatch Then Me.dtkhs.RecordSource = "select * from Tabel_cetak_khs where Semester='" & txtsemester.Text & "'" Me.dtkhs.Refresh End If sSql = "Select *from Tabel_cetak_khs where Semester like '*" & Me.txtsemester & "*'" Me.dtkhs.RecordSource = sSql Me.dtkhs.Refresh sksS = 0 mutuS = 0 dtkhs.Recordset.MoveFirst Do While Not dtkhs.Recordset.EOF sksS = Val(sksS) + Val(dtkhs.Recordset.Fields(2)) mutuS = Val(mutuS) + Val(dtkhs.Recordset.Fields(5)) dtkhs.Recordset.MoveNext Loop Me.txttotalskssmtr.Text = sksS Me.txttotalmutusmtr.Text = mutuS Me.txtips.Text = Format(CSng(Me.txttotalmutusmtr.Text) / CSng(Me.txttotalskssmtr.Text), "standard") cmdcetak.SetFocus End Sub Private Sub cmdcetak_Click() Load Layar 53

Layar.Show Layar.FontName = "Times New Roman" Layar.CurrentX = 0 Layar.CurrentY = 0 Layar.Print "" Layar.FontSize = 10 Layar.FontBold = True Layar.Print "" Layar.Print Tab(35); "KARTU HASIL STUDI " Layar.FontBold = False Layar.Print Tab(48); "STIP JAKARTA " Layar.Print "" Layar.FontSize = 10 Layar.FontBold = True Layar.FontUnderline = True Layar.FontSize = 10 Layar.FontBold = False Layar.FontUnderline = False Layar.Print String(90, "=") 'sSql = "Select *from Tabel_cetak_khs where Semester like '*" & Me.TXTSEMESTER.Text & "*'" 'Me.dtkhs.RecordSource = sSql 'Me.dtkhs.Refresh Layar.Print Tab(35); "NRP"; Tab(57); ":"; Tab(59); Me.txtnrp.Text Layar.Print Tab(35); "Nama_Taruna"; Tab(57); ":"; Tab(59); Me.txtnmtaruna.Text Layar.Print Tab(35); "Semester"; Tab(57); ":"; Tab(59); Me.txtsemester.Text Layar.Print

Tab(35);

"Jurusan";

Tab(57);

":";

Tab(59);

Me.TXTJURUSAN.Text Layar.Print String(90, "=") Layar.Print Tab(5); "NO"; Tab(10); " NAMA MATAKULIAH "; Tab(40); "SKS"; Tab(50); "NILAI"; Tab(60); "NILAI"; Tab(70); "MUTU" Layar.Print Tab(49); "ANGKA"; Tab(59); "HURUF" Layar.Print String(90, "=") 54

n=1 dtkhs.Recordset.MoveFirst Do While Not dtkhs.Recordset.EOF Layar.Print Tab(5); n; Layar.Print Tab(10); Me.dtkhs.Recordset.Fields(1); Layar.Print Tab(41); Me.dtkhs.Recordset.Fields(2); Layar.Print Tab(51); Me.dtkhs.Recordset.Fields(3); Layar.Print Tab(62); Me.dtkhs.Recordset.Fields(4); Layar.Print Tab(72); Me.dtkhs.Recordset.Fields(5) dtkhs.Recordset.MoveNext n=n+1 Loop Layar.Print String(90, "=") Layar.Print Tab(20); "Total"; Tab(41); Me.txttotalskssmtr.Text; Tab(72); Me.txttotalmutusmtr.Text Layar.Print Tab(20); "Komulatif"; Tab(41); Me.txttotalskskom.Text; Tab(72); Me.txttotalmutukom.Text Layar.Print String(90, "=") Layar.Print Tab(20); "IPS"; Tab(41); Me.txtips.Text Layar.Print Tab(20); "IPK"; Tab(41); Me.txtipk.Text Layar.Print String(90, "=") Layar.Show End Sub Private Sub CMDKELUAR_Click() Unload Me End Sub Private Sub Command1_Click() End Sub Private Sub Text1_Change() End Sub Private Sub Form_Load() cmdcetak.Enabled = False cmdbatal.Enabled = False cmdcari.Enabled = False 55

End Sub Private Sub txtnrp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then dttaruna.Recordset.FindFirst "NRP='" & txtnrp.Text & "'" If Not dttaruna.Recordset.NoMatch Then txtnmtaruna.Text = Me.dttaruna.Recordset!Nama_Taruna TXTJURUSAN.Text = Me.dttaruna.Recordset!Kd_Jurusan End If Me.dtkhs.Recordset.FindFirst "NRP='" & Me.txtnrp.Text & "'" If Not Me.dtkhs.Recordset.NoMatch Then Me.dtkhs.RecordSource = "select * from Tabel_cetak_khs where NRP='" & Me.txtnrp.Text & "'" Me.dtkhs.Refresh End If cmdbatal.Enabled = True cmdcetak.Enabled = True Me.txtsemester.SetFocus End If End Sub Private Sub txtsemester_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtsemester.Text = "" Then MsgBox "Semester Harus Diisi!!", vbCritical + vbOKOnly, "Pesan" End If dtkhs.Recordset.FindFirst "Semester='" & Me.txtsemester.Text & "'" If dtkhs.Recordset.NoMatch Then MsgBox "Semester Tidak Terdaftar", vbCritical + vbOKOnly, "Info" Else p = MsgBox("Apakah Anda Ingin Mencetak KHS Persemester?", vbQuestion + vbYesNo, "Konfirmasi") If p = 6 Then cmdcari.Enabled = True cmdcari.SetFocus Else 56

SKS = 0 Mutu = 0 dtkhs.Recordset.MoveFirst Do While Not dtkhs.Recordset.EOF SKS = Val(SKS) + Val(dtkhs.Recordset.Fields(2)) Mutu = Val(Mutu) + Val(dtkhs.Recordset.Fields(5)) dtkhs.Recordset.MoveNext Loop Me.txttotalskskom.Text = SKS Me.txttotalmutukom.Text = Mutu Me.txtipk.Text = Format(CSng(Me.txttotalmutukom.Text) / CSng(Me.txttotalskskom.Text), "standard") cmdcari.Enabled = True Me.cmdcari.SetFocus End If End If End If End Sub

m. Cari Data Private Sub cmdoke_Click() If Me.optcaridatataruna.Value Then

BR_TARUNA.Show ElseIf Me.optcaritaruna.Value Then CARI_TARUNA_BERDASARKAN_KELAS.Show With CARI_TARUNA_BERDASARKAN_KELAS .txtnrp.Visible = True .txtnama.Visible = True .Label1.Visible = True .Label2.Visible = True End With ElseIf Me.optcaridatadosen.Value Then BR_DOSEN.Show 57

Else BR_MATAKULIAH.Show End If End Sub Private Sub Form_Load() Me.optcaridatataruna.Value = False Me.optcaridatadosen.Value = False Me.optcarimatakuliah.Value = False Me.optcaritaruna.Value = False End Sub Private Sub Image2_Click() End Sub

n. Cari Data Taruna Private Sub CMDKELUAR_Click() Unload Me End Sub Private Sub cmdtampil_Click() With Me.DtTAbelTaruna .RecordSource = "select * from Tabel_Taruna" .Refresh End With Me.txtnrp.Text = "" Me.txtnamataruna.Text = "" Me.txtnamataruna.Enabled = True Me.txtnrp.Enabled = True End Sub Private Sub DBGrid1_DblClick() With TARUNA .txtnrp.Text = Me.DtTAbelTaruna.Recordset!NRP .txtnama.Text = Me.DtTAbelTaruna.Recordset!Nama_Taruna .txtalamat.Text = Me.DtTAbelTaruna.Recordset!Alamat .txttempatlahir.Text = Me.DtTAbelTaruna.Recordset!Tempat_Lahir_Taruna .cmbtgl.Text = Me.DtTAbelTaruna.Recordset!Tanggal_Lahir_Taruna 58

.cmbbulan.Text = Me.DtTAbelTaruna.Recordset!Bulan_Lahir_Taruna .cmbtahun.Text = Me.DtTAbelTaruna.Recordset!Tahun_Lahir_Taruna .txttlp.Text = Me.DtTAbelTaruna.Recordset!No_Telp_Taruna .DBCombo1.Text = Me.DtTAbelTaruna.Recordset!Kd_Jurusan .DtTAbelTaruna.Recordset.FindFirst"NRP='"& Me.DtTAbelTaruna.Recordset!NRP & "'" .txtnrp.Enabled = True .txtnama.Enabled = True .txtalamat.Enabled = True .txttempatlahir.Enabled = True .cmbtgl.Enabled = True .cmbbulan.Enabled = True .cmbtahun.Enabled = True .txttlp.Enabled = True .DBCombo1.Enabled = True .cmdsimpan.Enabled = True .cmdhapus.Enabled = True End With End Sub Private Sub DBGrid1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call DBGrid1_DblClick End If End Sub Private Sub Form_Activate() Me.DtTAbelTaruna.Refresh Me.lblrec.Caption = Me.DtTAbelTaruna.Recordset.RecordCount End Sub Private Sub txtnamataruna_Change() If Me.txtnamataruna.Text = "" Then Me.txtnrp.Enabled = True Else Me.txtnrp.Enabled = False End If 59

End Sub Private Sub txtnamataruna_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTAbelTaruna.Recordset.FindFirst"Nama_Taruna='"& Me.txtnamataruna.Text & "'" If Not Me.DtTAbelTaruna.Recordset.NoMatch Then Me.DtTAbelTaruna.RecordSource = "select * from Tabel_Taruna where Nama_Taruna='" & Me.txtnamataruna.Text & "'" Me.DtTAbelTaruna.Refresh Me.DBGrid1.SetFocus Else MsgBox "Maaf Nama Taruna :" & Me.txtnamataruna.Text & " Tidak Terdaftar Di STIP", vbExclamation, "Security" Me.txtnamataruna.Text = "" Me.txtnrp.Enabled = True End If End If End Sub Private Sub txtnrp_Change() If Me.txtnrp.Text = "" Then Me.txtnamataruna.Enabled = True Else Me.txtnamataruna.Enabled = False End If End Sub Private Sub txtnrp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTAbelTaruna.Recordset.FindFirst "NRP='" & Me.txtnrp.Text & "'" If Not Me.DtTAbelTaruna.Recordset.NoMatch Then Me.DtTAbelTaruna.RecordSource = "select *from Tabel_Taruna where NRP='" & Me.txtnrp.Text & "'" Me.DtTAbelTaruna.Refresh Me.DBGrid1.SetFocus Else 60

MsgBox "Maaf NRP Taruna :" & Me.txtnrp.Text & " Tidak Terdaftar Di STIP", vbExclamation, "Security" Me.txtnrp.Text = "" Me.txtnamataruna.Text = "" Me.txtnamataruna.Enabled = True Me.txtnrp.Enabled = True End If End If End Sub

o. Cari Kelas Taruna Private Sub CMDKELUAR_Click() Unload Me End Sub Private Sub cmdtampil_Click() With Me.DtTAbelKelas .RecordSource = "select * from Tabel_Kelas" .Refresh End With End Sub Private Sub txtkdjurusan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTAbelKelas.Recordset.FindFirst

"Kd_Jurusan='"

&

Me.txtkdjurusan.Text & "'" If Not Me.DtTAbelKelas.Recordset.NoMatch Then Me.DtTAbelKelas.RecordSource = "select * from Tabel_Kelas where Kd_Jurusan ='" & Me.txtkdjurusan.Text & "'" Me.DtTAbelKelas.Refresh End If End If End Sub Private Sub txtkdkelas_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

61

Me.DtTAbelKelas.Recordset.FindFirst "Kd_Kelas='" & Me.txtkdkelas.Text & "'" If Not Me.DtTAbelKelas.Recordset.NoMatch Then Me.DtTAbelKelas.RecordSource = "select * from Tabel_Kelas where Kd_Kelas='" & Me.txtkdkelas.Text & "'" Me.DtTAbelKelas.Refresh End If End If End Sub Private Sub txtruang_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTAbelKelas.Recordset.FindFirst "Ruang='" & Me.txtruang.Text & "'" If Not Me.DtTAbelKelas.Recordset.NoMatch Then Me.DtTAbelKelas.RecordSource = "select * from Tabel_Kelas where Ruang ='" & Me.txtruang.Text & "'" Me.DtTAbelKelas.Refresh End If End If End Sub

p. Cari Data Dosen Private Sub CMDKELUAR_Click() Unload Me End Sub Private Sub cmdtampil_Click() With Me.DtTabelDosen .RecordSource = "select *from Tabel_Dosen" .Refresh End With Me.txtnamadosen.Text = "" Me.txtnid.Text = "" End Sub Private Sub DBGrid1_DblClick() With DOSEN 62

.txtnid.Text = Me.DtTabelDosen.Recordset!NID .txtnmdosen.Text = Me.DtTabelDosen.Recordset!Nama_Dosen .txtalamat.Text = Me.DtTabelDosen.Recordset!Alamat .txttempat.Text = Me.DtTabelDosen.Recordset!Tempat_Lahir .cmbtanggal.Text = Me.DtTabelDosen.Recordset!Tanggal_Lahir .cmbbulan.Text = Me.DtTabelDosen.Recordset!Bulan_Lahir .cmbtahun.Text = Me.DtTabelDosen.Recordset!Tahun_Lahir .txtjabatan.Text = Me.DtTabelDosen.Recordset!Jabatan .txtnotlp.Text = Me.DtTabelDosen.Recordset!No_Telp .DtTabelDosen.Recordset.FindFirst

"NID='"

Me.DtTabelDosen.Recordset!NID & "'" .txtnid.Enabled = True .txtnmdosen.Enabled = True .txtalamat.Enabled = True .txttempat.Enabled = True .cmbtanggal.Enabled = True .cmbbulan.Enabled = True .cmbtahun.Enabled = True .txtjabatan.Enabled = True .txtnotlp.Enabled = True .cmdsimpan.Enabled = True .cmdhapus.Enabled = True End With Unload Me End Sub Private Sub Form_Activate() Me.lblrec.Refresh Me.lblrec.Caption = Me.DtTabelDosen.Recordset.RecordCount End Sub Private Sub txtnamadosen_Change() If Me.txtnamadosen.Text = "" Then Me.txtnid.Enabled = True Else Me.txtnid.Enabled = False 63

&

End If End Sub Private Sub txtnamadosen_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTabelDosen.Recordset.FindFirst

"Nama_Dosen='"

&

Me.txtnamadosen.Text & "'" If Not Me.DtTabelDosen.Recordset.NoMatch Then Me.DtTabelDosen.RecordSource = "select * from Tabel_Dosen where Nama_Dosen='" & Me.txtnamadosen.Text & "'" Me.DtTabelDosen.Refresh Else MsgBox "Maaf Nama Dosen :" & Me.txtnamadosen.Text & " Ini Tidak Terdaftar DI STIP", vbExclamation, "Security" Me.txtnamadosen.Text = "" End If End If End Sub Private Sub txtnid_Change() If Me.txtnid.Text = "" Then Me.txtnamadosen.Enabled = True Else Me.txtnamadosen.Enabled = False End If End Sub Private Sub txtnid_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTabelDosen.Recordset.FindFirst "NID='" & Me.txtnid.Text & "'" If Not Me.DtTabelDosen.Recordset.NoMatch Then Me.DtTabelDosen.RecordSource = "select * from Tabel_Dosen where NID='" & Me.txtnid.Text & "'" Me.DtTabelDosen.Refresh Else MsgBox "Maaf NID Dosen :" & Me.txtnid.Text & " Ini Tidak Terdaftar DI STIP", vbExclamation, "Security" 64

Me.txtnid.Text = "" End If End If End Sub

q. Cari Mata Kuliah Private Sub CMDKELUAR_Click() Unload Me End Sub Private Sub cmdtampil_Click() With Me.DtTabelMatakuliah .RecordSource = "select * from Tabel_Matakuliah" .Refresh End With End Sub Private Sub DBGrid1_DblClick() With MATAKULIAH

.txtkdmatakuliah.Text = Me.DtTabelMatakuliah.Recordset!Kd_Matakuliah .txtnmmatakuliah.Text = Me.DtTabelMatakuliah.Recordset!Nama_Matakuliah .txtjmlsks.Text = Me.DtTabelMatakuliah.Recordset!Jumlah_Sks .TXTSEMESTER.Text = Me.DtTabelMatakuliah.Recordset!Semester .DBkdjurusan.Text = Me.DtTabelMatakuliah.Recordset!Kd_Jurusan .DBnid.Text = Me.DtTabelMatakuliah.Recordset!NID .DtTabelMatakuliah.Recordset.FindFirst"Kd_Matakuliah='" Me.DtTabelMatakuliah.Recordset!Kd_Matakuliah & "'" .cmdsimpan.Enabled = True .cmdhapus.Enabled = True .txtkdmatakuliah.Enabled = True .txtnmmatakuliah.Enabled = True .txtjmlsks.Enabled = True .TXTSEMESTER.Enabled = True .DBkdjurusan.Enabled = True .DBnid.Enabled = True 65

&

End With Unload Me End Sub Private Sub txtkdmatakuliah_Change() If Me.txtkdmatakuliah.Text = "" Then Me.txtnmmatakuliah.Enabled = True Else Me.txtnmmatakuliah.Enabled = False End If End Sub Private Sub txtkdmatakuliah_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtTabelMatakuliah.Recordset.FindFirst"Kd_Matakuliah='"& Me.txtkdmatakuliah.Text & "'" If Not Me.DtTabelMatakuliah.Recordset.NoMatch Then Me.DtTabelMatakuliah.RecordSource = "select * from Tabel_Matakuliah where Kd_Matakuliah='" & Me.txtkdmatakuliah.Text & "'" Me.DtTabelMatakuliah.Refresh Else MsgBox "Maaf Kode Matakuliah :" & Me.txtkdmatakuliah.Text & " Tidak Terdaftar Di STIP", vbExclamation, "Security" Me.txtkdmatakuliah.Text = "" End If End If End Sub Private Sub txtnmmatakuliah_Change() If Me.txtnmmatakuliah.Text = "" Then Me.txtkdmatakuliah.Enabled = True Else Me.txtkdmatakuliah.Enabled = False End If End Sub Private Sub txtnmmatakuliah_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 66

Me.DtTabelMatakuliah.Recordset.FindFirst"Nama_Matakuliah='"& Me.txtnmmatakuliah.Text & "'" If Not Me.DtTabelMatakuliah.Recordset.NoMatch Then Me.DtTabelMatakuliah.RecordSource = "select * from Tabel_Matakuliah where Nama_Matakuliah='" & Me.txtnmmatakuliah.Text & "'" Me.DtTabelMatakuliah.Refresh Else MsgBox "Maaf Nama Matakuliah :" & Me.txtnmmatakuliah.Text & " Tidak Terdaftar Di STIP", vbExclamation, "Security" Me.txtnmmatakuliah.Text = "" End If End If End Sub

r. Login User Private Sub Form_Activate() Me.txtuser.SetFocus End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label4.ForeColor = &H80000005 End Sub Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label4.ForeColor = vbWhite Me.Label5.ForeColor = &H80000011 End Sub Private Sub Label4_Click() GANTI_PASSWORD.Show Unload Me End Sub Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label4.ForeColor = vbWhite 67

End Sub Private Sub Label5_Click() End End Sub Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Label5.ForeColor = &H80000000 End Sub Private Sub txtpass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.DtPass.Recordset.FindFirst "Kd_Admin='" & Me.txtuser.Text & "'" Me.DtPass.Recordset.FindFirst "Password='" & Me.txtpass.Text & "'" If Me.txtuser.Text = Me.DtPass.Recordset.Fields(0) And Me.txtpass.Text = Me.DtPass.Recordset.Fields(1) Then Call Catatan With MENU_UTAMA .lbladm.Caption = Me.DtPass.Recordset!Kd_Admin MENU_UTAMA.Show Unload Me End With Else MsgBox "Maaf Pengisian Salah", vbExclamation, "Security" Me.txtuser.Text = "" Me.txtpass.Text = "" Me.txtuser.SetFocus End If End If End Sub Private Sub HakAccsessADM() If Me.txtuser.Text = " ADM " And Me.txtpass.Text = " STIP " Then MENU_UTAMA.Show End If End Sub Private Sub Catatan() 68

With Me.DtDeteksiUser.Recordset .AddNew !Kd_Admin = Me.txtuser.Text !Tgl_Login = Format(Time, "hh:mm:ss AMPM") !Waktu_Login = Date .Update End With End Sub Private Sub txtuser_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.txtpass.SetFocus End If End Sub

69

Gambar A.1 Password

Gambar A.2 Menu Utama

70

Gambar A.3 Data Taruna

Gambar A.4 Data Dosen

71

Gambar A.5 Data Mata Kuliah

Gambar A.6 Jurusan

72

Gambar A.7 Nilai Taruna

Gambar A.8 Formulir Rencana Studi (FRS)

Gambar A.8 Formulir Rencana Studi (FRS)

73

Gambar A.9 Kelas

Gambar A.10 Data User

Gambar B.1 Absen Taruna

74

Gambar B.2 Kartu Hasil Studi (KHS)

Gambar B.3 Cari Data

75

Gambar B.4 Cari Data Taruna

Gambar B.5 Cari Kelas Taruna

\

76

Gambar B.6 Cari Data Dosen

Gambar B.7 Cari Mata Kuliah

77

Gambar B.8 Login User

78

BAB IV PENGUJIAN DATABASE

Pada Bab ini penulis akan menguji terhadap program database yang telah dibuat sehingga diharapkan setelah adanya pengujian ini akan diketahui kelebihan- kelebihan serta kekurangan-kekurangan yang harus dibenahi dan menyempurnakan hasil akhir dari program database tersebut, sehingga layak untuk digunakan. Sedangkan proses pengujian yang akan dilakukan antara lain berupa tahap-tahap berikut:

4.1. PENGUJIAN INPUT DATA Pada pengujian ini penulis menggunakan sampling data Taruna secara random yang diambil dari absensi kelas Nautika IA, Teknika IA dan KTK IA, data nilai, biodata taruna serta dosen di Sekolah Tinggi Ilmu Pelayaran Jakarta.

4.1.1. Pengisian Password Untuk memulai program maka dimulai dengan membuka aplikasi program database tersebut, saat aplikasi program kita buka maka akan tampil user name dan password yang harus kita isi (gambar 4.1.1.a). Masukkan user name dan password yang sesuai dengan data yang pernah dimasukkan sebelumnya, jika belum pernah sama sekali maka input data dan password adalah kosong. penggunaan karakter huruf harus diperhatikan dalam pengisiannya, apakah harus menggunakan huruf kapital atau huruf kecil. Saat input user name dan password yang kita masukkan benar maka akan ditampilkan menu utama (gambar 4.1.1.b), namun jika salah maka kolom user name dan password akan tampil kembali dalam bentuk kosong dan kita harus mencoba ulang dengan memasukkan user name dan password yang benar.

79

Gambar 4.1.1.a Login user

Gambar 4.1.1.b Menu Utama

80

4.1.2. Pengisian Data Admin Pengisian Data Admin bertujuan untuk mendaftarkan pemakai program database ini sehingga program bisa digunakan sesuai dengan tujuan pemakai. (gambar 4.1.2). Sedangkan langkah- langkah pengisian atau penambahan data admin adalah sebagai berikut : Menu Utama

Data User

Tambah

Isi Data

Simpan

Gambar 4.1.2. Data Admin

Gambar 4.1.1.a Menu utama

4.1.3. Input Data Dosen dan Taruna Untuk input data Dosen dan data Taruna dimulai dari menu “Edit”,saat tab edit kita tekan maka akan tampil pilihan sebagai berikut (gambar 4.1.3):

81

Gambar 4.1.3. Menu Edit

4.1.3.a. Input Data Dosen Untuk input data Dosen dengan memilih menu edit dalam menu utama seperti gambar 4.1.1.b kemudian data Dosen hingga muncul menu data Dosen (gambar 4.1.3.a).

82

Gambar 4.1.3.a. Menu Data Dosen

Adapun langkah-langkah untuk input data Dosen akan dijelaskan dalam skema sebagai berikut: Menu Utama

Edit

Data Dosen

Tambah

Isi Data

Simpan

Setelah data Dosen disimpan maka secara otomatis data dosen yang dimasukkan akan tersimpan dan menu dosen akan tampil kembali dalam bentuk kosong dan jika

menambah data Dosen yang lain maka tekan “tambah” dan

pengisian data Dosen yang lain bisa diproses. Setelah selesai melaksanakan input data dosen maka menu data dosen bisa ditutup dengan menekan tombol keluar.

4.1.3.b. Input Data Taruna Untuk input Data Taruna langkah - langkah yang dilakukan hampir sama dengan input Data Dosen seperti skema berikut: Menu Utama

Edit

Data Taruna

Tambah

Isi Data

Simpan

Setelah data Taruna disimpan maka secara otomatis data Taruna yang dimasukkan akan tersimpan dan menu Taruna akan tampil kembali dalam bentuk kosong. Dan jika menambah 83

data Taruna yang lain maka tekan “tambah” dan pengisian data Taruna yang lain bisa diproses kembali (gambar 4.1.3.b). Setelah selesai melaksanakan input data Taruna maka menu data Taruna bisa ditutup dengan menekan tombol keluar.

Gambar 4.1.3.b. Menu Pengisian Data Taruna

4.1.4. Input Data Mata Kuliah Dalam pengisian data mata kuliah, perubahan data mata kuliah maupun penghapusan data mata kuliah yang sudah tersimpan, tahap – tahap yang dilakukan sama dengan input data Dosen ataupun data Taruna. Adapun lebih jelasnya akan digambarkan dalam skema berikut : Menu Utama

Edit

Data Mata Kuliah

Tambah

Isi Data

Hasil dari input data mata kuliah seperti contoh dalam gambar 4.1.4 berikut :

84

Simpan

Gambar 4.1.4 Menu Data Mata Kuliah

Setelah selesai melaksanakan input data Taruna maka menu data Taruna bisa ditutup dengan menekan tombol keluar.

4.1.5. Input Jurusan Untuk input data jurusan hampir sama dengan input data Dosen/ Taruna. Sebagai salah satu contoh input jurusan adalah sebagai berikut (Gambar 4.1.5) :

85

Gambar 4.1.5. Menu Jurusan

4.1.6. Data Kelas Seperti dijelaskan dari input data sebelumnya. Input data kelas sama juga dengan input data yang lain. Namun untuk mengatur ruangan maka tiap kelas harus dibedakan ruangannya sehingga dalam satu kelas bisa diatur berapa jumlah taruna dalam satu kelas. Dalam contoh penelitian ini tiap satu kelas terdiri dari 30 (tiga puluh) Taruna. Adapun contoh input data kelas adalah sebagai berikut (gambar 4.1.6):

Gambar 4.1.6 Menu Kelas

86

4.1.7. Pengisian KRS Untuk rencana studi Taruna dilakukan dengan mengisi menu formulir rencana studi, dimana dalam pengisian formulir ini bisa dilakukan dilakukan sendiri oleh masing-masing taruna atau dosen yang bersangkutan (Gambar 4.1.7). Untuk pengisian KRS langkah-langkah yang dilakukan hampir sama dengan proses pengisian data yang lain diatas.

Gambar 4.1.7 Menu Kelas

4.1.8. Pengisian Nilai Taruna Pengisian nilai Taruna dilaksanakan oleh Dosen yang bersangkutan, proses pengisian data nilai Taruna hampir sama dengan pengisian data yang lain diatas. Hasil pengisian nilai akan diakumulasikan dan ditampilkan pada Kartu Hasil Studi (KHS). (Gambar 4.1.8.) 87

Gambar 4.1.8 Data Nilai Taruna

4.1.9. Revisi dan Hapus Data Yang Sudah Tersimpan Pada semua proses input data, jika Data yang dimasukkan ada kesalahan maka untuk merubah data/ menghapus data akan dijelaskan dalam skema berikut:

Menu Data Dosen

Edit

Isi NID

Cari

Penggantian Data

Cari

Simpan

Hapus

(Jika NID atau Nama Dosen tidak diketahui)

(Jika menghapus data yang sudah

tersimpan)

4.2. PENGUJIAN OUTPUT DATA Pada tahap ini penulis mencoba untuk menguji keluaran data yang dihasilkan bila terdapat kesalahan atau kekurangan dalam input data maka akan diketahui dalam output data. Data tersebut antara lain berupa: 1. Data Absen Data ini berupa hasil cetak absen Taruna ( gambar 4.2.1)

2. Data Kartu Rencana Studi (KRS) Data ini berupa hasil pengisian KRS Taruna (gambar 4.2.2)

88

Gambar 4.2.2 Cetak KRS

3. Data Hasil Studi (KHS) Data ini berupa Data KHS yang juga merupakan hasil cetak dari Hasil Studi Taruna. dimana tujuan utamanya adalah untuk membuktikan apakah data keluaran yang dihasilkan telah sesuai dengan apa yang diharapkan sehingga tujuan akhir akan tercapai. (gambar 4.2.3) Gambar 4.2.3 Cetak KHS

89

4.3.

PENGUJIAN KINERJA SISTEM DATABASE Sistem database ini merupakan kesatuan yang saling berkaitan antara satu dengan

lainnya, dimana jika salah satu sistem tidak berjalan dengan baik maka akan berpengaruh pula terhadap sistem yang lain. Hal ini yang menjadi dasar perlunya dilaksanakan pengujian terhadap kinerja sistem database ini supaya dikemudian hari program database ini dapat digunakan untuk secara maksimal tanpa ada masalah-masalah yang timbul. Pengujian yang penulis lakukan meliputi :

1. Pengujian fisik, dimana program yang sudah jadi tersebut penulis coba untuk diinstall di PC lain yang mempunyai Sistem Operasi windows XP. Pada pengujian tersebut penulis tidak menemukan masalah yang dapat menghambat kinerja sistem database ini, dengan kata lain program database ini dapat di-install dimana saja sesuai dengan keinginan pengguna.

2. Pengujian ketahanan terhadap kinerja sistem database. Pada pengujian ini penulis mencoba untuk mengoperasikan program dengan menjalankan input data sebanyak mungkin selama + 2 jam, hasilnya tidak terdapat error terhadap kinerja program tersebut. Hanya saja pada pengisian data, jika sebuah form tidak diisi lengkap datanya maka akan terjadi error

90

4.4. KESIMPULAN HASIL PENGUJIAN DATABASE Dengan pengujian ini dapat ditarik kesimpulan bahwa dalam pengisian / input data Dimulai dengan urutan seperti dalam flowchart berikut:

INPUT DATA

OUTPUT DATA

Pengisian data tersebut harus sesuai dengan flowchart diatas karena output data sebelumnya berhubungan dengan input data selanjutnya. Selain kesimpulan diatas, penulis menemukan kelebihan serta kekurangan dalam program database pada saat proses pengisian data. Adapun kelebihan serta kekurangan dari program database adalah sebagai berikut:

4.4.1. Kelebihan – kelebihan yang di dapat dari hasil pengujian. 1. Semua data yang dimasukkan dapat dilihat dari outputnya sesuai dengan item masingmasing misalnya: a. Melihat Absen Taruna berdasarkan kelas dan jurusan b. Melihat Rencana Studi Taruna berdasarkan hasil pengisian KRS c. Melihat nilai Taruna melalui KHS 91

2. Data –data yang dimasukkan langsung tersimpan otomatis berdasarkan absen dan jurusan masing-masing. 3. Jika data yang dimasukkan terdapat kekeliruan data maka data bisa diedit ulang. 4. Jika data tidak terpakai maka data dapat dihapus dari database. 5. Dari menu login user dapat diketahui data–data user pemakai program dan waktu pemakaian program. 6. Dengan menggunakan program database pemakai dapat mempersingkat waktu kerja.

4.4.2. Kekurangan/ kelemahan yang didapat dari hasil pengujian Kekurangan atau kelemahan yang didapat dari pengujian adalah pada pengujian input biodata tidak terdapat suatu kekurangan atau kelemahan yang fatal, tetapi hanya berupa batasan tertentu agar tidak terjadi error dalam pengaplikasian program database, yaitu : 1. Akan Terjadi error jika kita tidak mengisi data pada form dengan lengkap

92

BAB V PENUTUP

5.1. KESIMPULAN Setelah dilakukan perancangan sekaligus pengujian terhadap program database tersebut, kesimpulan yang dapat ditarik dari bab-bab sebelumnya antara lain sebagai berikut:

1. Untuk mendapatkan output data yang optimal maka dalam input data harus dilakukan sesuai dengan urutan proses input data.

2. Program database akademik taruna ini bersifat open source sehingga komponen-komponen program yang ada didalamnya masih dapat di update sesuai dengan kebutuhan institusi.

5.2. SARAN Sedangkan saran-saran yang dapat diberikan oleh penulis adalah sebagai berikut:

1. Untuk mempermudah kegiatan akademik sebaiknya dalam menyampaikan informasi yang berkaitan dengan akademik taruna menggunakan program database ini.

2. Program database dapat diaplikasikan untuk keperluan akademik, namun juga harus disesuaikan dengan kondisi dari lingkup kerja dari pemakai database ini .

93

DAFTAR PUSTAKA

Seri Panduan Pemrograman Database Visual Basic 6.0 penerbit kerjasama Madcoms Dan Andi Yogyakarta Juli 2002;

Mahir Dalam 7 Hari Pemrograman Visual Basic 6.0 penerbit kerjasama Madcoms Dan Andi Yogyakarta April 2005;

Tutorial 5 Hari Menggunakanmicrosoft Access 2003 penerbit kerjasama Wahana Komputer Dan Andi Yogyakarta 2005;

Membuat Laporan Dengan Crystal Reports 8.5 Dan Visual Basic 6.0, Rahardian Hadi Penerbit Elex Media Komputindo Juni 2004.