SISTEM INFORMASI PENGGAJIAN PEGAWAI DI SMA METHODIST 1 MEDAN TUGAS AKHIR KHARISMA S GINTING

1

SISTEM INFORMASI PENGGAJIAN PEGAWAI DI SMA METHODIST 1 MEDAN

TUGAS AKHIR

Diajukan Untuk melengkapi Salah Satu Syarat dalam Menyelesaikan Pendidikan Pada Program D3 Ilmu Komputer

KHARISMA S GINTING 062406097

PROGRAM STUDI D3 ILMU KOMPUTER FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2009

Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

2


TUGAS AKHIR


PROGRAM STUDI D3 ILMU KOMPUTER FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2009


3

PERSETUJUAN

Judul Kategori Nama Nomor Induk Mahasiswa Program Studi Departemen Fakultas

: SISTEM INFORMASI PENGGAJIAN PEGAWAI DI SEKOLAH SMA METHODIST 1 MEDAN : TUGAS AKHIR : KHARISMA S. GINTING : 062406097 : D3 ILMU KOMPUTER : MATEMATIKA : MATEMATIKA DAN ILMU PENGETAHUAN ALAM (FMIPA) UNIVERSITAS SUMATERA UTARA

Diluluskan di Medan, Mei 2009

Diketahui / Disetujui oleh Departemen Matematika FMIPA USU Ketua,

Pembimbing

Dr. Saib Suwilo, M.Sc NIP 131 796 149

Syahril Efendi, S.Si, M.IT NIP 130 148 612


4

PERNYATAAN


TUGAS AKHIR

Saya mengakui bahwa tugas akhir ini adalah hasil kerja saya sendiri, kecuali beberapa kutipan dan ringkasan yang masing-masing disebutkan sumbernya.

Medan, Mei 2009



5

PENGHARGAAN

Segala puji syukur penulis ucapkan kehadirat Tuhan Yang Maha Esa karena dengan Kasih dan Karunia-Nya akhirnya Laporan Tugas Akhir dengan judul Sistem Informasi Penggajian Data Guru dan Pegawai Pada Sekolah SMA Methodist 1 Medan ini dengan baik dan lancar. Tugas akhir ini dibuat untuk memenuhi syarat kelulusan bagi setiap mahasiswa Jurusan Ilmu Komputer Program Diploma III di FMIPA USU Medan. Selama masa perkuliahan sampai pada penyusunan dan penulisan Tugas Akhir ini, penulis banyak memperoleh bimbingan dan bantuan dari berbagai pihak. Untuk itu, dengan ketulusan hati penulis mengucapkan terima kasih yang sedalam – dalamnya kepada : 1. Bapak Prof.DR.Eddy Marlianto,M.Sc, selaku Dekan Fakultas Matematika dan Ilmu Penetahuan Alam Universitas Sumatera Utara. 2. Bapak Dr. Saib Suwilo, M.Sc, selaku Ketua Pelaksana Program D3 Ilmu Komputer Fakultas Matematika dan Ilmu Penetahuan Alam USU. 3. Bapak Syahril Efendi, S.Si, M.IT, selaku dosen Pembimbing yang telah memberikan bimbingan dan pengarahan kepada Penulis. 4. Bapak Drs. Osberth Sinaga, M.Si, selaku Pimpinan Perguruan Methodist 1 Medan. 5. Bapak Drs. B. Manurung , selaku Kepala Sekolah SMA Methodist 1 Medan. 6. Seluruh Pegawai dan Staff Pengajar di SMA Methodist 1 Medan. Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

6

7. Ucapan Terima kasih dan Penghargaan yang tulus kepada Ayahanda “ Ir. Budiman Ginting” dan Ibunda “Dra. Sugihana Sembiring, M.Hum” yang telah memberikan dukungan moril dan materil serta mendo’akan penulis dalam setiap langkah dan usaha. 8. Ucapan Terima kasih juga kepada adik – adik “Mercedita dan Dasta”. 9. Kepada Kekasih hatiku Elvee, yang telah memberikan semangat dan motivasi kepada saya untuk menyelesaikan Tugas Akhir ini sehingga dapat selesai tepat waktu walaupun sering terjadi pertengkaran dalam masa penyelesaian TA ini, tetapi saya menyanyangimu. 10. Kepada teman-teman dan sahabatku “Yudha, Boyke, Ricky, Starman, Jefry A Toy”, yang telah memberi semangat saya selama mengerjakan Tugas Akhir.. 11. Tak lupa pula rekan-rekan seperjuangan di Ilmu Komputer yang tak bisa disebutkan namanya satu per satu, semoga Tuhan Yesus menyertai gerak dan langkah kita. Akhir kata, penulis berharap semoga penulisan laporan ini dapat bermanfaat bagi kita semua.

Medan, 3 Juni 2009 Penulis



7

ABSTRAK

Kajian ini bertujuan untuk membangaun satu sistem dan alat inventori berdasarkan sisrem pendukung keputusan, Sistem ini dikembangkan menggunakan perangkat lunak Microsoft Visual Basic 6.0, dan Microsoft Word 2007. Metologi pengembangan sistem digunakan adalah berdasarkan silkus hidup pengembang sistem dengan pendekatan model air terjun dan interasinya. Sistem ini meliputi modul-modul masukan data berkaitan dengan data guru dan pegawai, data golongan, data penggajian, cetak data guru dan pegawai sert cetak slip gaji. Objektif utama sistem ini adalah untuk melihat arsitektur penggajian agar kinerja pengolahan data dapat ditingkatkan dan rancangan antarmuka diperoleh lebih mudah.


8

DAFTAR ISI

Halaman Persetujuan Pernyataan Penghargaan Abstrak Daftar Isi Daftar Tabel Daftar Gambar

ii iii iv v vi viii ix

Bab 1 Pendahuluan 1.1. Latar Belakang 1.2. Identifikasi Masalah 1.3. Maksud dan Tujuan Penelitian 1.4. Batasan Masalah 1.5. Metode Penelitian 1.6. Sistematika Penulisan

1 2 3 4 4 5

Bab 2 Landasan Teori 2.1. Defenisi 2.1.1. Defenisi Sistem 2.1.2. Defenisi Data 2.1.3. Defenisi Informasi 2.1.4. Defenisi Sistem Informasi 2.1.5. Defenisi Database 2.1.6. Analisis dan Desain Sistem 2.2. Sistem Pengolahan Data 2.3. Aplikasi Sistem 2.3.1. Aplikasi Visual Basic 6.0 2.3.2. Sejarah Perkembangan Visual Basic 6.0 2.3.3. Struktur Aplikasi Visual Basic 2.3.4. Database Dalam Visual Basic 6.0

7 7 8 8 8 9 10 10 13 13 13 14 19

Bab 3 Gambaran Sekilas SMA Methodist 1 Medan 3.1. Sejarah Berdiri Sekolah 3.2. Struktur Organisasi 3.3. Uraian Tugas dan Fungsi Organisasi 3.3.1. Kepala Sekolah 3.3.2. Wakil Kepala Sekolah 3.3.3. Guru 3.3.4. Wali Kelas 3.3.5. Guru Pembimbing dan Konseling 3.3.6. Pustakawan Sekolah 3.3.7. Laboran

22 23 24 24 27 29 30 31 32 32


9

3.3.8. Kepala Tata Usaha 3.3.9. Teknisi Media 3.3.10. Layanan Teknisi di Bidang Keamanan (Penjaga Sekolah/Satpam) 3.3.11. Layanan Teknisi di Bidang Pertamanan/Kebun (Tukang Kebun) 3.4. Visi dan Misi

33 33 34 34 35

Bab 4 Perancangan Sistem 4.1. Perancangan Sistem 4.2. Data Flow Diagram 4.3. Perancangan Struktur Database 4.4. Perancangan Menu 4.4.1. Menu Login 4.4.2. Menu Utama 4.4.3. Menu File 4.4.4. Menu Laporan 4.4.5. Menu Tentang Program 4.4.6. Menu About 4.5. Hasil Program 4.6. Algoritma

36 37 39 42 42 43 43 46 48 48 50 50

Bab 5 Implementasi Sistem 5.1. Pengertian dan Tujuan Implementasi 5.2. Spesifikasi Sistem 5.2.1. Perangkat Keras (Hardware) 5.2.2. Perangkat Lunak (Software) 5.2.3 Pemakai (Brainware)

56 57 57 58 58

Bab 6 Kesimpulan dan Saran 6.1. Kesimpulan 6.2. Saran

60 61

DAFTAR PUSTAKA LAMPIRAN


10

DAFTAR TABEL

Halaman Tabel 4.1 Tabel Pegawai

39

Tabel 4.2 Tabel Golongan

40

Tabel 4.3 Tabel Login

41

Tabel 4.4 Tabel Gaji

41


11

DAFTAR GAMBAR

Halaman Gambar 2.1 Elemen-Elemen Sistem

8

Gambar 2.2 Tampilan Visual Basic 6.0

14

Gambar 2.3 Menu Bar

15

Gambar 2.4 Toolbar

15

Gambar 2.5 Toolbox

16

Gambar 2.6 Jendela Pengkodean

17

Gambar 2.7 Jendela Project

17

Gambar 2.8 Jendela Properti

18

Gambar 2.9 Jendela Form Layout

18

Gambar 2.10 Visual Data Manager

19

Gambar 2.11 Microsoft Access

20

Gamabr 2.12 Crystal Report

21

Gambar 3.1 Struktur Organisasi

23

Gambar 4.1.1 Diagram Konteks Sistem Informasi Data Penggajian Guru/Pegawai Pada Sekolah SMA Methodist 1 Medan

37

Gambar 4.1.2 Tampilan Data Flow Diagram Sistem Informasi Data Penggajian Guru/Pegawai Pada Sekolah SMA Methodist 1 Medan

38

Gambar 4.1 Menu Loggin

42

Gambar 4.2 Menu Utama

43

Gambar 4.3 Menu Input Pegawai

44

Gambar 4.4 Menu Data Golongan Pegawai/Guru

45


12

Gambar 4.5 Menu Data Gaji Pegawai/Guru

45

Gambar 4.6 Menu Keluar

46

Gambar 4.7 Laporan Data Guru/ Pegawai

46

Gambar 4.8 Menu Laporan Gaji Per Bulan

47

Gambar 4.9 Laporan Gaji Per Bulan

47

Gambar 4.10 Menu Tentang Program

48

Gambar 4.11 Menu About

49

Gambar 4.12 Output System Info

49


13

BAB 1

PENDAHULUAN

1.1 Latar Belakang

Dalam era globalisasi sekarang ini, komputer merupakan alat yang sangat dibutuhkan oleh banyak instansi dan perusahaan-perusahaan milik negara maupun swasta. Pemakaian komputer dewasa ini semakin berkembang pesat di segala bidang sesuai dengan kemajuan zaman. Sejalan dengan lajunya perkembangan dunia teknologi modern saat ini, banyak mengakibatkan perubahan kehidupan manusia dalam menangani setiap permasalahan yang terjadi yang ada hubungannya dengan proses pembangunan secara menyeluruh.

Jika kita perhatikan dan telusuri kemajuan yang telah kita capai itu, maka akan terlihat dengan jelas bahwa permasalahannya adalah terletak pada penggunaan data dan informasi yang akurat. Penerapan suatu sistem data dan informasi sebenarnya tidak terlepas dari penggunaan peralatan elektronik yang dapat membantu manusia dalam proses penanganan sistem informasi.

Penerapan sistem data dan informasi sangatlah dibutuhkan dalam struktur kepegawaian. Penulis tertarik membuat suatu sistem informasi penggajian data guru dan pegawai. Pada saat ini SMA Methodist 1 Medan memiliki sistem informasi informasi pegawai yang masih sangat sederhana. Sistem informasi yang ada sekarang menggunakan salah satu aplikasi komputer yaitu Microsoft Excel. Akan tetapi Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

14

pengolahan data dengan aplikasi tersebut sangat tidak efisien, khususnya dalam hal input dan output data. Oleh karena itu penulis tertarik membuat suatu sistem informasi penggajian data guru dan pegawai yang lebih baik dari yang sudah ada sebelumnya. Didalam sistem ini penulis akan menyajikan informasi tentang data-data guru dan pegawai, dan penggajiannya. Dengan adanya pemrograman Visual Basic 6.0 tersebut, ada keinginan untuk membangun sebuah sistem yang dapat digunakan oleh pihak SMA Methodist 1 Medan.

Dengan

uraian

tersebut,

penulis

berkeinginan

membuat

”SISTEM

INFORMASI PENGGAJIAN PEGAWAI DI SEKOLAH SMA METHODIST 1 MEDAN”, sebagai judul Tugas Akhir, sebagai salah satu syarat untuk menyelesaikan Program Studi Diploma-3 Ilmu Komputer, Departemen Matematika, Fakultas Matematika Dan Ilmu Alam, Universitas Sumatera Utara.

1.2 Identifikasi Masalah

Sistem informasi pada SMA Methodist 1 Medan masih secara manual, misalnya dalam pengolahan berkas – berkas data serta sistem penggajian guru dan pegawai. Pengolahan data dan penggajian guru serta pegawai pada sistem yang ada dirasakan sangat kurang efisien. Oleh karena itu, permasalahan yang dihadapi adalah bagaimana merancang sistem informasi yang merangkum data – data guru dan pegawai yang berhubungan dengan penggajian, agar bisa menyajikan informasi data dan guru serta pegawai di SMA Methodist 1 Medan dengan cepat dan efisien yang dibutuhkan oleh pihak perusahaan dalam mengelola sumber daya manusia. Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

15

1.3 Maksud Dan Tujuan Penelitian

Sesuai dengan judul dan identifikasi masalah yang diutarakan sebelumnya maka maksud dan tujuan penulis adalah merancang suatu software yang dapat menginformasikan Sistem Penggajian Pegawai di SMA Methodist 1 Medan. Program yang akan dibuat adalah program yang sesuai dengan data pegawai yang telah ada, tetapi dengan sedikit perubahan-perubahan sesuai dengan kebutuhan dengan tidak menghilangkan bentuk asal dari informasi yang telah ada. Tetapi dengan sedikit perubahan – perubahan sesuai dengan kebutuhan dengan tidak menghilangkan bentuk asal dari informasi yang telah ada dan menyajikan informasi dengan hasil yang maksimal sehingga informasi yang akurat dapat mudah diperoleh.

Adapun tujuan penulis mengadakan penelitian ini adalah: 1. Mengumpulkan data sebagai bahan untuk menyelesaikan Tugas Akhir mahasiswa Diploma 3 Ilmu Komputer FMIPA USU. 2. Mencari suatu jalan keluar untuk mengatasi kelemahan dari sistem yang sedang berjalan. 3. Memberikan kemudahan kepada semua pihak dalam mencari data atau transaksi yang berhubungan dengan Guru,Pegawai, Jabatan, atau Penggajian.

1.4 Batasan Masalah


16

Penulis melakukan pembatasan/ruang lingkup masalah, hal ini dilakukan agar pembahasannya tidak menyimpang dari topik permasalahan tentang system informasi penggajian pegawai di SMA Methodist 1 Medan. Batasan masalah dalam pembuatan tugas akhir ini nantinya adalah masalah informasi pengolahan data dan penggajian guru serta pegawai. Data yang diambil/dikumpulkan pada tahun 2008/2009 tentang data-data guru dan pegawai.

1.5 Metode Penelitian

Untuk menyusun tugas akhir ini, penulis melakukan penerapan metode penelitian dalam memperoleh data-data yang dibutuhkan sehingga penyusunan tugas akhir ini dapat diselesaikan dengan baik. adapun metode penelitian yang penulis lakukan adalah sebagai berikut :

1. Library Research (Metode Penelitian Kepustakaan)

Adalah suatu penelitian yang dilakukan dengan cara mengambil data teoritis dan membaca buku – buku referensi yang berhubungan dari judul yang diangkat dari hasil penelitian. 2. Field Research (Metode Penelitian Lapangan)

Adalah suatu penelitian yang dilakukan secara langsung dengan objek penelitian tepatnya di Sekolah SMA Methodist 1 Medan. Untuk mendapat data – data penulis menempuh beberapa cara pengumpulan data antara lain: A). Observasi


17

Penulis mengambil langsung terhadap objek pencatatan yang menyatakan kegiatan data guru dan pegawai.

B). Interview Penulis mengadakan tanya jawab atau pembicaraan langsung dengan staf pegawai atau bagian tertentu yang menyangkut pembahasan.

1.6 Sistematika Penelitian

Adapun sistematika penelitian dalam menyelesaikan Tugas Akhir ini dapat diuraikan sebagai berikut :

BAB 1

PENDAHULUAN

Merupakan uraian latar belakang , identifikasi masalah, maksud dan tujuan penulisan, batasan masalah, metodologi penelitian, dan sistematika penulisan.

BAB 2

TINJAUAN TEORITIS

Dalam bab ini penulis menjelaskan teori – teori singkat mengenai hal – hal yang berhubungan dengan judul dan bahasa pemograman Visual Basic 6.0 yang digunakan oleh penulis.

BAB 3

GAMBARAN SEKILAS SMA METHODIST 1 MEDAN


18

Pada bab ini penulis akan menguraikan tentang sejarah singkat SMA Methodist 1 Medan

BAB 4

PERANCANGAN SISTEM

Bab ini berisikan mengenai rancangan sistem yang dibentuk disertai dengan penjelasan mengenai program tersebut. Bab ini juga mengulas mengenai database yang digunakan dan algoritma pemrograman.

BAB 5

IMPLEMENTASI SISTEM

Dalam bab ini penulis membahas tentang arti dan tujuan dari implementasi sistem, tahapan dalam implementasi sistem, dan pengujian sistem.

BAB 6

KESIMPULAN DAN SARAN

Membahas kesimpulan yang berisi inti sari dari implementasi studi lapangan dalam proses penyusunan laporan, juga memberikan usul yaitu berupa saran untuk meningkatan mutu kerja.


19

BAB 2

LANDASAN TEORI

2.1

DEFINISI

Pelaksanaan kegiatan dalam pengolahan data dimulai dari pengetahuan akan permasalahan, analisa terhadap efektifitas organisasi hingga kepada pelaksanaan pengolahan data itu sendiri.

2.1.1 Definisi Sistem

Sistem adalah sekumpulan komponen yang saling berhubungan dan bekerja sama untuk mencapai sesuatu tujuan tertentu. Ciri-ciri dari sebuah sistem adalah : 1. Mempunyai ruang lingkup 2. Mempunyai elemen-elemen sistem 3. Mempunyai manajemen terpadu diantara elemen-elemen sistem

Adapun yang termasuk daripada elemen-elemen sistem adalah berupa tujuan, batasan, control, input, output, proses dan umpan balik. Elemen-elemen sistem tersebut dapat digambarkan sebagai berikut :


20

Tujuan Batasan Kontrol

Input

Proses

Output

Umpan Balik

Gambar 2.1 Elemen-elemen Sistem 2.1.2 Definisi Data

Data adalah fakta, atau bagian dari fakta yang mengandung arti yang dihubungkan dengan kenyataan, simbol-simbol, gambar-gambar, kata-kata, angka-angka, atau huruf-huruf yang menunjukkan suatu kode, objek, kondisi, atau situasi. Data berfungsi sebagai bahan dasar yang objektif (relatif) di dalam proses penyusunan kebijaksanaan dan keputusan pimpinan organisasi.

2.1.3 Definisi Informasi

Informasi adalah data yang telah diolah menjadi sebuah pengetahuan yang langsung berguna bagi yang memilikinya atau dapat dikatakan sebagai hasil dari pengolahan data yang dapat berfungsi untuk mencapai suatu tujuan tertentu atau untuk analisa dalam pengambilan keputusan. Sumber darai informasi adalah data, karena dari data yang masuk (diinputkan) akan dapat menghasilkan sebuah hasil akhir (output) yang berupa sebuah informasi yang berguna bagi pengguna (user) atau pengguna.


21

2.1.4 Definisi Sistem Informasi

Sistem Informasi adalah istilah yang sering digunakan untuk menunjukkan semua jenis pemakaian yang berkisar tentang pemrosesan data. Sistem Informasi mengolah data mentah menjadi laporan untuk pemakaian sendiri menjadi masukan terhadap siklus pengelolaan berikutnya. Dapat disimpulkan bahwa sistem informasi merupakan sustu himpunan komponen sistematis dan format yang melakukan operasi pengolahan data untuk :

a. Memenuhi persyaratan pengolahan data. b. Memberi informasi kepada manajemen berguna menunjang fungsi manajemen seperti perencanaan, pengawasan dan pengambilan keputusan. c. Memberikan berbagai laporan sebagaimana yang diinginkan termasuk untuk kepentingan pihak luar.

2.1.5 Definisi Database

Database adalah kumpulan data yang terdiri atas satu atau lebih table yang terintegrasi satu sama lain, dimana pengguna (user) diberi wewenang untuk dapat mengakses (mengubah, menghapus, menganalisis, menambah, memperbaiki) data dalam tabeltabel tersebut. Tabel terdiri dari baris yang disebut dengan record dan kolom yang disebut field. Database berguna untuk : a. Redudansi data b. Kesulitan pengaksesan data Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

22

c. Isolasi data untuk standarisasi d. Multiple user (banyak pemakai) e. Masalah keamanan (Security) f. Masalah integrasi (kesatuan) g. Masalah data independence (kebebasan data)

2.1.6 Analisis dan Desain Sistem

Analisa data pemisahan terhadap suatu keseluruhan intellectual atau substansial menjadi bagian-bagian pembentuknya untuk dipelajari secara individu. Sedangkan desain sistem adalah tahap yang dilakukan setelah analisis dalam pengembangan sistem, tahap ini juga merupakan persiapan dalam merancang bangun implementasi untuk menggambarkan bagaimana suatu sistem dibentuk yang berupa perencanaan dan pembuatan sketsa.

2.2

SISTEM PENGOLAHAN DATA

Sistem pengolahan data merupakan suatu kesatuan yang saling berhubungan dan bekerja sama, yang terdiri dari peralatan, tenaga pelaksana, prosedur dan data. Untuk menyelesaikan soal pengolahan data secara menyeluruh memerlukan waktu yang lama karena dalam proses pengolahan data diperlukan kesanggupan tenaga manusia dan alat bantu seperti kalkulator, akan tetapi jika menginginkan hasil yang lebih maksimal dapat menggunakan alat bantu berupa peralatan komputer yang dianggap dapat bekerja dengan cepat dan dapat memberikan hasil yang diinginkan. Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

23

Suatu sistem pengolahan data berbasis komputer memiliki empat komponen dasar, yaitu mesin-mesin, program-program, data dan manusia. Mesin dan program masing-masing disebut perangkat keras (Hardware) dan perangkat lunak (Software), sedangkan manusia disebut dengan Brainware.

Di dalam mengolah suatu data baik itu menggunakan cara atau metode-metode secara tradisional maupun secara modern yaitu dengan menggunakan peralatan komputer, memiliki tahapan-tahapan yang harus dilaksanakan, yaitu :

1. Perekaman (Originating-recording) Perekaman maksudnya setiap data yang telah diperolah sebelum diolah hendaknya tertulis dalam suatu formulir untuk dijadikan bahan dasar dalam pengolahan selanjutnya.

2. Klasifikasi (Classifying) Klasifikasi maksudnya setiap data yang diperoleh diindentifikasi, hal ini dilakukan untuk memberikan karakteristik dari data yang ada.

3. Penyusunan (Sorting) Data yang telah diolah dan diidentifikasikan, akan diatur atau diurutkan sedemikian rupa menurut kode dari klasifikasinya.

4. Perhitungan (Calculating) Perhitungan adalah suatu kegiatan memanipulasi data seperti dalam pelaksanaan perhitungan-perhitungan. Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

24

5. Penyusunan laporan (Summarizing) Penyusunan laporan dilakukan jika data atau informasi yang dihasilkan tersebut akan dilakukan suatu analisa.

6. Penyimpan (Storing) Penyimpanan dilakukan dengan maksud sebagai referensi jika suatu saat data tersebut dibutuhkan kembali.

7. Pencarian (Retrieving) Pengolahan yang dilakukan untuk pencarian data kedalam file yang disimpan.

8. Penggandaan (Reproducing) Penggandaan dilakukan sesuai dengan keinginan dan kebutuhan pemakai, hal ini dilakukan dapat juga sebagi bahan referensi di samping disimpan kedalam sebuah file di komputer.

9. Pembagian (Communicating) Pembagian biasanya dilakukan pada suatu organisasi, dimana data yang telah diperoleh akan ditransfer dari satu kegiatan ke kegiatan lainnya untuk memperoleh penyelesaian.


25

2.3

APLIKASI SISTEM

2.3.1 Aplikasi Visual Basic versi 6.0

Bahasa pemograman Visual Basic 6.0 adalah bahasa pemograman yang merupakan penghasil aplikasi yang berbasiskan GUI (Graphic User Interface) dan dapat beroperasi pada aplikasi Windows. Visual Basic merupakan perangkat otomatis, dengan bantuan Intelligent IDE (Integrated Development Integration) yang akan membantu user dalam penulisan kode program semua itu akan ditampilkan secara otomatis. Didalam bahasa pemograman Visual Basic 6.0 dikenal dengan metode drag-drop yang akan berguna dalam menyingkat proses perancangan interface maupun dalam proses pengeditan kode program.

2.3.2 Sejarah perkembangan Visual Basic 6.0

Visual Basic pertama kali diperkenalkan pada tahun 1991 berupa pemograman yang masih berbasiskan DOS dan untuk Windows. Setelah itu muncul versi baru dengan Visual Basic versi 3.0 yang dirilis pada tahun 1993, yang kemudian diikuti dengan dirilisnya Visual Basic versi 4.0 pada tahun 1995 dengan tambahan dukungan untuk aplikasi 32 bit. Dari semua versi Visual Basic yang ada, akhirnya dikeluarkan versi terbaru yaitu Visual Basic versi 6.0 pada tahun 1998 yang memiliki fasilitas yang lebih baik dibandingkan versi sebelumnya. Fasilitas terbaru tersebut adalah fasilitas pengaksesan data Visual Basic versi 6.0 kemampuan akan pengolahan database lebih Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

26

canggih karena adanya aplikasi yang terbaru seperti ADO (Active Data Object), ODBC (Open Database Connectivity), DAO (Data Accses Object), dan RDO (Remote Data Object), sehingga dapat membuat pengguna (user) dapat menggunakannya dengan mudah dan dapat menghasilkan output yang baik.

2.3.3 Struktur Aplikasi Visual Basic

Salah satu yang membuat Visual basic begitu banyak digunakan adalah kerana adanya fasilitas editor yang serba fungsi. Fasilitas tersebut adalah Integrated Development Environment atau disingkat IDE. Fasilitas ini memberikan kemudahan dalam mengelola sumber-sumber program dan menyediakan apa yang dibutukan user.

Gambar 2.2 Tampilan Visual Basic 6.0


27

1. Menu Bar Menu bar berisi perintah-perintah umum yang digunakan untuk mengoperasikan Visual Basic

Gambar 2.3 Menubar

2. Toolbar Toolbar digunakan sebagai alternative lain untuk menjalankan perintah secara langsung selain melalui Menu Bar. Ada empat macam standart toolbar Visual Basic, yaitu : a. Debug Digunakan untuk shortcut perintah pelacakan kode program. b. Edit Digunakan untuk shortcut perintah dalam editor pengkodean. c. From editor Digunakan untuk shortcut perintah dalam mendesain objek form. d. Standart Digunakan untuk shortcut perintah standart dalam Visual Basic.

Gambar 2.4 Toolbar Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

28

3. Toolbox Dalam jendela Toolbox terdapat beberapa objek control yang dapat digunakan dalam form atau objek desainer lain. Jendela ini terbagi dalam beberapa tab, seperti yang ditunjukan pada gambar 2.5.

Gambar 2.5 Toolbox

4. Jendela Pengkodean Gunakan jendela pengkodean (code window) untuk membuat perintah dalam form atau objek lain dalam aplikasi. Jendela akan ditampilkan jika mengklik ganda pada bagian form atau kontrol. Ada dau buah Combo Box dalam jendela ini. Yang paling kiri berisi objekobjek yang ada dalam project, sedangkan sebelah kanannya terdiri dari event-event yang berhubungan dengan objek yang dipilih.


29

Gambar 2.6 Jendela Pengkodean

5. Jendela Project Jendela ini digunakan untuk isi dari semua objek yang terdapat dalam aplikasi. Menampilkan semua objek yang dikelompokan menurut tipe atau menyusunnnya berdasarkan huruf pertama saja, dengan mengklik toolbar icon dibagian kanan jendela Project.

Gambar 2.7 Jendela Project Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

30

6. Jendela property Jendela ini menampilkan semua property dari objek yang sedang dipilih dan beberapa tipe dari semua properti tersebut memungkinkan untuk dimodifikasi.

Gambar 2.8 Jendela Properti

7. Jendela Form Layout Jendela Form Layout digunakan untuk melihat bagaimana posisi form yang akan ditampilkan ketika dijalankan. Jika menginginkan posisi lain dari form , dapat mendrag posisi form tersebut dalam layar Form Layout.

Gambar 2.9 Jendela Form Layout


31

2.3.4 Database dalam Visual Basic 6.0

Database yang digunakan pada aplikasi Visual Basic ini adalah Microsoft Accsess, Microsoft Visual Foxpro dan Microsoft SQL Server. Suatu database dikelompokkan menjadi dua bagian, yaitu back-end dan front-end. Back-end adalah fasilitas yang menyusun, menyimpan dan mengamankan database sedangkan front-end adalah aplikasi yang berhubungan langsung dengan para pemakai program. Dalam Visual Basic dapat mempergunakan kedua bagian tersebut, untuk back-end dapat digunakan Visual Data Manager sedangkan untuk front-end dapat menggunakan tabel Microsoft Accsess.

Gambar 2.10 Visual Data Manager


32

Gambar 2.11 Microsoft Accsess

Setelah data database dibuat maka data pada database tersebut dapat ditampil dalam bentuk laporan. Sama seperti dalam pembuatan database dimana kita dapat langsung menggunakan yang ada pada Visual Basic yaitu dengan menggunakan Data Report dan kita dapat juga menggunakan diluar Visual Basic, yaitu dengan menggunakan Crystal Report.


33

Gambar 2.12 Crystal Report


34

BAB 3

GAMBARAN SEKILAS SMA METHODIST 1 MEDAN

3.1 Sejarah Berdiri Sekolah

Pendidikan merupakan kebutuhan yang sangat penting bagi setiap manusia. Pendidikan menciptakan sumber daya manusia yang berkualitas yaitu manusia cerdas, kreatif, serta memiliki pengetahuan dan keterampilan tinggi. Untuk merealisasikan tujuan tersebut maka pemerintah terus giat melakukan pembangunan lembagalembaga pendidikan termasuk pembangunan gedung sekolah di tingkat sekolah menengah atas, sehingga berdirilah sekolah SMA Methodist 1 Medan. Berdasarkan data dokumentasi yang diperoleh dari pihak sekolah, SMA Methodist 1 Medan berdiri pada tahun 1958.


35

3.2 Struktur Organisasi PIMPINAN GMI Wilayah I Konta GMI Wil. I

YAYASAN GMI KPP PKMI-1

PIMPINAN PERGURUAN

CHAPLAIN

BENDAHARA

KEPALA-KEPALA UNIT

KTU PERGURUAN

PKS 1,2,3

KEPALA PERPUSTAKAAN

WALI KELAS GURU BP Keterangan. Garis Komando - - - - - - Garis Kordinasi

Guru Mata Pelajaran

Siswa / Siswi


36

3.3 Uraian Tugas dan Fungsi Organisasi

3.3.1 Kepala Sekolah

Kepala Sekolah berfungsi dan bertugas sebagai edukator, manejer, administrator, supervisor serta pemimpin/Leader inovator dan motivator.

1. Kepala Sekolah Selaku Edukator : Kepala Sekolah bertugas dan berfungsi sebagain edukator, manager administrator dan supervisor, pemimpin/leader, inovator dan motivator.

2. Kepala Sekolah Selaku Manager Mempunyai Tugas : 1. Menyusun perencanan 2. mengorganisasikan kegiatan 3. Mengarahkan kegiatan 4. Mengkoordinasikan kegiatan 5. Melaksanakan pengawasan 6. Melakukan evaluasi terhadap kegiatan 7. Menentukan kebijakan 8. Mengadakan rapat 9. Mengambil keputusan 10. Mengatur PBM 11. Mengatur administrasi ketatausahaan, sarana, prasarana, keuangan / RAPBS 12. Mengatur OSIS Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

37

13. Mengatur hubungan sekolah dengan masyarakat dan instansi terdekat 3. Kepala Sekolah Selaku Administrator 1. Perencanaan

11. Perpustakaan

2. Mengorganisasikan

12. Laboratorium

3. Pengarahan

13. Ruangan ketrampilan/kesenian

4. Pengawasan

14. BP

5. Kurikulum

15. UKS

6. Kesiswaan

16. OSIS

7. Ketatausahaan

17. Serbaguna

8. Kantor

18. Media

9. Keuangan

19. Gudang

10. Ketenangan

4. Kepala Sekolah Sebagai Supervisor Bertugas menyelenggarakan supervisi mengenai : 1. Proses belajar mengajar 2. Kegiatan BP 3. kegiatan ekstrakurikuler 4. Kegiatan Ketatausahaan 5. Kegiatan kerjasama dengan masyarakat 6. Kegiatan sarana dan prasarana 7. kegiatan OSIS 8. Kegiatan 7 K


38

5. Kepala Sekolah Sebagai Pemimpin 1. Dapat dipercaya dan bertanggung jawab 2. Memahami kondisi guru, pegawai, karyawan dan siswa 3. Memakai Visi dan Misi sekolah 4. Mengambil keputusan dan urusan intern dan ekstern 5. Membuat, mencari dan memilih gagasan baru

6. Kepala Sekolah Sebagai Inovator 1. Melakukan pembaharuan di bidang : KBM, BK dan ekstrakurikuler 2. Melaksanakan pembinaan guru, pegawai dan karyawan 3. Melakukan pembaharuan dalam menggali sumber daya di komite sekolah dan masyarakat.

7. Kepala Sekolah Sebagai Motivator 1. Mengatur ruang kantor yang konduktif untuk bekerja 2. Mengatur ruang kantor yang konduktif untuk KBM/BK 3. Mengatur ruang laboratorium yang konduktif untuk praktikum 4. Mengatur ruang perpustakaan yang konduktif untuk belajar 5. Mengatur halaman/lingkungan sekolah yang sejuk dan teratur 6. Menciptakan hubungan kerja yang harmonis antar sesama guru, pegawai dan karyawan 7. Menciptakan hubungan kerja yang harmonis antar sekolah dan lingkungan


39

8. Menerapkan prinsip penghargaan dan hukuman dalam melaksanakan tugasnya, kepala sekolah dapat mendelegasikan kepada wakil kepala sekolah. 3.3.2 Wakil Kepala Sekolah

Wakil Kepala Sekolah membantu Kepala Sekolah dalam kegiatan sebagai berikut: 1.

Menyusun perencanaan, membuat program kegiatan dan pelaksanaan kegiatan

2.

Pengorganisasian

3.

Pengarahan

4.

Ketenangan

5.

pengkoordinasian

6.

Pengawasan

7.

Penilaian

8.

Indentifikasi dan pengumpulan data

9.

Penyusun laporan

Wakil Kepala Sekolah bertugas membantu Kepala Sekolah dalam urusan-urusan sebagai berikut :

1. Kurikulum 1. Menyusun dan menjabarkan kalender pendidikan 2. Menyusun pembagian tugas guru dan jadwal pelajaran 3. Mengatur penyusunan program pengajaran, program SP dan persiapan mengajar, penjabaran dan penyusunan kurikulum 4. Mengatur pelaksanaan kurikuler dan ekstrakurikuler Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

40

5. Mengatur pelaksanaan program penilaian kriteria kenaikan kelas, kriteria kelulusan, dan laporan kemajuan belajar mengajar siswa serta pembagian rapor dan STTB 6. Mengatur pelaksanaan program perbaikan dan pengajaran 7. Mengatur pemanfaatan lingkungan sebagai sumber belajar 8. Mengatur pengembangan MGMP dan koordinator mata pelajaran 9. Mengatur mutasi siswa 10. Mengatur supervisi administrasi dan akademis 11. Menyusun laporan

2. Kesiswaan 1. Mengatur program dan pelaksanaan bimbingan dan konseling 2. Mengatur

dan

mengkoordinasikan

pelaksanaan

7K

(Keamanan,

Kebersihan, Ketertiban, Keindahan, Kekeluargaan, Kesehatan dan Kerindangan) 3. Mengatur dan membina program kegiatan OSIS meliputi kepramukaan, PMR, kelompok Ilmiah Remaja, UKS, PKS dan Paskibra 4. Menyusun dan mengatur pelaksanaan pemilihan siswa teladan sekolah 5. Menyelenggarakan cerdas cermat, olahraga prestasi 6. Menyeleksi calon untuk diusulkan mendapat beasiswa

3. Sarana Prasarana 1. Merencanakan kebutuhan sarana prasarana untuk menunjang proses belajar mengajar Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

41

2. Merencanakan program pengadaannya 3. mengatur pemanfaatan sarana prasarana 4. Mengelola perawatan, perbaikan dan penyisihan 5. Mengatur pembukuannya 6. Menyusun laporan

4. Hubungan Dengan Masyarakat 1. Mengatur dan mengembangkan hubungan dengan komite sekolah dan peran komite sekolah. 2. Menyelenggarakan bakti sosial dan karya wisata 3. Menyelenggarakan pameran hasil pendidikan di sekolah (gebyar pendidikan)

3.3.3 Guru

Guru bertanggung jawab kepada sekolah dan mempunyai tugas melaksanakan kegiatan PBM secara efektif dan efisien. Tugas dan tanggung jawab seorang guru meliputi : 1.

Membuat perangkat program pengajaran a.

AMP

b.

Program tahunan

c.

Program satuan pelajaran

d.

Program rencana pengajaran

e.

Program mingguan guru

f.

LKS


42

2.

Melaksanakan kegiatan pembelajaran

3.

Melaksanakan kegiatan proses pelajaran, ulangan harian, ulangan umum, ujian akhir

4.

Melaksanakan analisis hasil ulangan umum

5.

Menyusun dan melaksanakan program perbaikan dan pengayaan

6.

Mengisi daftar nilai siswa

7.

Melaksanakan kegiatan membimbing (pengimbasan pengetahuan) kepada guru lain dalam PBM

8.

Membuat alat pelajaran/alat peraga

9.

Menumbuh kembangkan sikap menghargai karya seni

10.

Mengikuti kegiatan pengembangan dan pemasyarakatan kurikulum

11.

Melaksanakan tugas tertentu di sekolah

12.

Mengadakan pengembangan program pengajaran yang menjadi tanggung jawabnya

13.

Membuat catatan tentang kemajuan hasil belajar siswa

14.

Mengisi dan meneliti daftar hadir siswa sebelum memulai pelajaran

15.

Mengatur kebersihan ruangan kelas dan ruang praktikum

16.

Mengumpulkan dan menghitung angka kredit untuk kenaikan pangkatnya

3.3.4 Wali Kelas

Wali Kelas membantu kepala sekolah dalam kegiatan – kegiatan sebagai berikut : 1.

Pengelolaan kelas

2.

Menyelenggarakan administrasi kelas meliputi : a. Denah tempat duduk siswa


43

b. Papan absensi siswa c. Daftar pelajaran kelas d. Daftar piket kelas e. Buku absensi siswa f. Buku kegiatan pembelajaran/buku kelas g. Tata tertib siswa 3.

Penyusunan pembuatan statistik bulanan siswa

4.

Pengisian daftar nilai siswa

5.

Pembuatan catatan khusus tentang siswa

6.

Pencataan mutasi siswa

7.

Pengisian buku laporan penilaian hasil belajar

8.

Pembagian buku laporan penilaian hasil belajar

3.3.5 Guru Pembimbing dan Konseling.

Bimbingan dan konseling membantu kepala sekolah dalam kegiatan-kegitan sebagai berikut : 1.

Penyusunan program dalam pelaksanaan bimbingan dan konseling

2.

Koordinasi dengan wali kelas dalam rangka mengatasi masalah-masalah yang dihadapi oleh siswa tentang kesulitan belajar

3.

Memberikan layanan dan bimbingan kepada siswa agar lebih berprestasi dalam kegiatan belajar

4.

Memberikan saran dan pertimbangan kepada siswa dalam memperoleh gambaran tentang lanjutan pendidikan dan lapangan pekerjaan yang sesuai.

5.

Mengadakan penilaian pelaksanaan bimbingan dan konseling


44

6.

Menyusus statistik hasil penilaian bimbingan dan konseling

7.

Melaksanakan kegiatan analisis hasil evaluasi belajar

8.

Menyususn dan melaksanakan program tindak lanjut bimbingan dan konseling

3.3.6 Pustakawan Sekolah

Pustakawan sekolah membantu kepala sekolah dalam kegiatan-kegiatan sebagai berikut : 1.

Perencanaan pengadaan buku/bahas pustaka/media elektronika

2.

Pengurusan pelayanan sekolah

3.

Perencanaan mengembangkan perpustakaan

4.

Pemeliharaan dan perbaikan buku-buku/bahan pustaka/media elektronika

5.

Inventarisasi

dan

pengadministrasian

buku-buku/bahan

pustaka/media

elektronika 6.

Melakukan pelayanan bagi siswa, guru, dan tenaga kependidikan lainnya serta masyarakat

7.

Penyimpanan buku-buku perpustakaan/media elektronika

Menyusun tata tertib perpustakaan, laporan kegiatan perpustakaan secara berkala

3.3.7 Laboran

Pengelolaan laboratorium membantu kepala sekolah dalam kegiatan-kegiatan sebagai berikut: 1.

Perencanaan pengadaan alat dan bahan laboratorium

2.

Menyusun dan jadwal tata tertib penggunaan laboratorium

3.

Mengatur penyimpanan dan daftar alat-alat laboratorium

4.

Memelihara dan perbaikan alat-alat laboratorium


45

5.

Inventarisasi dan mengadministrasian pemimjam alat-alat laboratorium

6.

Menyusun laporan pelaksanaan kegiatan laboratorium

3.3.8 Kepala Tata Usaha

Kepala tata Usaha sekolah mempunyai tugas melaksanakan ketatausahaan sekolah dan pertanggungjawaban kepada kepala sekolah dalam kegiatan-kegiatan sebagia berikut : 1.

Penyusunan program kerja tata usaha sekolah

2.

Pengelolaan keuangan sekolah

3.

Pengurusan administrasi ketenagaan dan siswa

4.

Pembinaan dan pengembangan karier pegawai tata usaha sekolah

5.

Penyusunan administrasi sekolah

6.

Penyusunan dan penyajian data/statistik sekolah

7.

Mengkoordinasikan dan melaksanakan 7K

8.

Penyusunan laporan pelaksanaan kegiatan pengurus ketatausahaan berkala.

3.3.9 Teknisi Media

Teknisi media membantu kepala sekolah dalam kegiatan-kegiatan sebagai berikut: 1.

Merencanakan kegiatan alat-lat media

2.

Menyusun jadwal dan tata tertib penggunaan media

3.

Menyusun program kegiatan teknisi media

4.

Mengatur penyimpanan pemelihaan dan pebaikan alat-alat media

5.

Inventaris dan pengadministrasian alat-alat media


46

6.

Menyusun laporan pemanfaatan alat-alat media

3.3.10 LAYANAN TEKNIS DI BIDANG KEAMANAN (PENJAGA SEKOLAH / SATPAM)

1.

Mengisi buku catatan kejadian

2.

Mengantar/memberi petunjuk tamu sekolah

3.

Mengamankan pelaksanaan upacara, PBM, Ujian, Rapat

4.

Menjaga kebersihan di pos jaga

5.

Menjaga ketenangan dan keamanan kampus sekolah siang dan malam

6.

Merawat peralatan jaga malam

7.

Melaporkan kejadian secepatnya, bila ada

3.3.11 LAYANAN TEKNIS DI BIDANG PERTAMANAN/KEBUN (TUKANG KEBUN)

1.

Mengusulkan keperluan alat perkebunan

2.

Merencanakan distribusi, jenis dan pemeliharaan tanaman

3.

Memotong rumput

4.

Menyiangi rumput liar

5.

Memelihara dan memangkas tanaman


47

6.

Memupuk tanaman

7.

Membrantas hama dan keindahan tanaman serta kerindangan

8.

Menjaga kebersihan dan keindahan tanaman serta kerindangan

9.

Merawat tanaman dan imfrastrukturnya (pagar saluran air)

10.

Merawat dan memperbaiki peralatan kebun

11.

Membuang sampah kebun dan lingkungan

3.4 Visi dan Misi

Visi dan Misi sekolah SMA Methodist 1 Medan adalah “Menjadikan SMA Swasta Methodist 1 Medan menjadi lembaga pendidikan yang dapat melahirkan siswa yang berakal budi, sehat jasmani dan rohani yang mampu bersaing baik tingkat Nasional dan Internasional


48

BAB 4

PERANCANGAN SISTEM

4.1 Perancangan Sistem

Perancangan sistem merupakan upaya Instansi Pemerintahan maupun Swasta untuk mulai memiliki sistem yang baru. Perancangan sistem dilakukan setelah mendapat gambaran dengan jelas apa yang harus dikerjakan.

4.2 Data Flow Diagram

Data Flow Diagram (DFD) adalah gambaran sistem secara logika. Gambaran ini tidak tergantung pada perangkat keras, lunak, srtuktur data atau organisasi. Pada tahap analisa,

penanganan

notasi

simbol

lingkaran

dan

anak

panah

mewakili/menggambarkan arus data dalam perancangan sistem sangat membantu sekali di dalam komunikasi dengan pemakai sistem menggunakan notasi-notasi ini untuk menggambarkan arus dari data sistem. Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

49

Perancangan DFD yang penulis buat dalam perancangan ini terdiri dari: Diagram Kontekks, dan DFD Level Nol.

Adm. Kepegawaian

Data Guru/Pegawai dan Data Gaji

Guru/Pegawai

Sistem Informasi Data Penggajian Guru dan Pegawai

Info Data Guru/Pegawai Info Data Gaji

Laporan Data Gaji Guru/ Pegawai

Pimpinan

Gambar 4.1 Diagram Konteks Sistem Informasi Data Penggajian Guru/Pegawai Pada Sekolah SMA Methodist 1 Medan


50

Adm. Kepegawain

Guru/Pegawai

1 Input Data Data Guru/Pegawai Data Gaji

Info Data Guru/ Pegawai

F1

Guru/Pegawai

F2

Gaji

2 Pembuatan Laporan

Laporan Data Gaji Guru/Pegawai

Pimpinan


51

Gambar 4.2 Data Flow Diagram Sistem Informasi Data Penggajian Guru/Pegawai Pada Sekolah SMA Methodist 1 Medan

4.3 Perancangan Struktur Database

Database merupakan suatu kumpulan field-field yang berguna dalam hal menyimpan data-data untuk proses pengambilan keputusan.

Dalam merancang sebuah program diperlukan perancangan database karena hal ini merupakan salah satu langkah dalam menentukan file database, field data, tipe data dan ukuran data yang dibutuhkan. Dalam program yang penulis rancang ada tiga tabel yang dipergunakan, yaitu tabel pegawai, golongan, login, dan gaji.

Database dibuat oleh penulis melalui fasilitas database yang tersedia pada Visual Basic 6.0 yaitu Visual Data Manager. Fasilitas ini disediakan Visual Basic 6.0 untuk menghasilkan tabel-tabel. Setelah database dibuat langkah selanjutnya adalah membuat antar muka pemakai dengan menggunakan Visual Basic 6.0.

Dibawah ini merupakan gambaran isi masing-masing tabel : Tabel 4.1 Tabel Pegawai

No

Field Data

Tipe Data

Panjang

Keterangan

1.

status_pegawai

Text

50

Status Pegawai/Guru


52

2.

Nama_pegawai

Text

50

Nama Pegawai/Guru

3.

js_kel

Text

10

Jenis Kelamin

4.

tpt_lahir

Text

20

Tempat Lahir

5.

tgl_lahir

Date/Time

tanggal

Tanggal Lahir

6.

agama

Text

10

Agama

7.

alamat

Text

15

Alamat

8.

jabatan

Text

50

Jabatan

9.

pendidikan

Text

50

Pendidikan

10.

jurusan

Text

15

Jurusan

11.

mata_pelajaran

Text

15

Mata Pelajaran

12.

TMT

Date/Time

tanggal

TMT

13.

jumlah_jam_mengajar

Text

50

Jumlah Jam Mengajar

14.

status_nikah

Text

50

Status Nikah

15.

jumlah_anak

Text

50

Jumlah Anak

16.

golongan

Text

50

Golongan

17

gapok

Text

50

Gaji Pokok

18.

no_telepon

Text

15

No Telepon

19.

masa_kerja

Text

15

Masa Kerja

Tabel 3.2 Tabel Golongan

No

Field Data

Tipe Data

Panjang

Keterangan

1.

kd_gol

Text

8

Kode Golongan

2.

gol

Text

5

Golongan


53

3.

gapok

Number

Double

Gaji Pokok

Tabel 4.3 Tabel Login

No

Field Data

Tipe Data

Panjang

Keterangan

1.

username

Text

50

Username

2.

password

Text

50

Password

Tabel 4.3 Tabel Gaji

No

Field Data

Tipe Data

Panjang

Keterangan

1.

nama

Text

50

NIS

2.

bulan

Text

20

Nama

3.

tahun

Text

5

Jurusan

4.

status pegawai

Text

50

Kode Pelajaran

5.

status nikah

Text

50

Nama Pelajaran

6.

jlh_anak

Text

50

Jumlah Anak

7.

gol

Text

50

Golongan

8.

gapok

Number

Double

Gaji Pokok

9.

tunj_jabatan

Number

Double

Tunjangan Jabatan

10.

tunj_istri

Number

Double

Tunjangan Istri (5%)


54

11.

tunj_anak

Number

Double

Tunjangan Anak (3%)

12.

tunj_beras

Number

Double

Tunjangan Beras

13.

ban_yayasan

Number

Double

Bantuan Yayasan

14.

jlh_jam_mngjr_lebih

Number

Double

Jumlah Jam Mengajar Lebih

15.

tot_jam_mngjr_lebih

Number

Double

Total Jam Mengajar Lebih (Rp)

16.

gator

Number

Double

Gaji Kotor

17.

gaber

Number

Double

Gaji Bersih

18.

masa_kerja

Text

50

Masa Kerja

4.6 Algoritma

Algoritma merupakan langkah-langkah pelaksanaan suatu program. Adapun algoritma dari program ini adalah : 1. Algoritma untuk menampilkan menu utama Langkah 1

: Jalankan aplikasi

Langkah 2

: Muncul tampilan form Login

Langkah 3

: Akan tampil menu pembuka yang menampilkan nama sekolah, input username dan password.

Langkah 4

: Jika username dan password yang diinput benar maka klik OK, maka akan tampil menu utama.

Langkah 5

: Jika username dan password yang diinput salah maka akan muncul pesan, pilih Cancel atau Help.

Langkah 6

: Selesai


55

2. Algoritma untuk menu utama Langkah 1

: Tampilkan menu utama Menu utama ini berisikan tiga sub menu, yaitu: 1. File 2. Laporan 3. Tentang Program

Langkah 2

: Pilih sub menu yang ada pada menu utama

Langkah 3

: Jika pilihan = 1 Tampilkan menu File Jika pilihan = 2 Tampilkan menu Laporan Jika pilihan = 3 Tampilkan menu Tentang Program

3.

Algoritma untuk menampilkan menu file Langkah 1

: Tampilkan menu File, yang terdapat input data terbagi atas : 1.

Data Guru/Pegawai (F1)

2.

Data Golongan (F2)

3.

Data Gaji (F3)

4.

Exit (Ctrl+X)

Langkah 2

: Masukan pilihan

Langkah 3

: Program akan jalan apabila : Pilihan = 1 jalankan data guru/pegawai Jika data sudah terisi maka simpan, jika

ingin

membatalkan maka pilih batal, jika tidak klik tombol hapus untuk menghapus data yang telah disimpan. Jika ingin mencari data yang telah ada atau data Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

56

yang baru disimpan klik tombol search, jika tutup keluar submenu dan kembali kemenu utama.

Pilihan = 2 jalankan data golongan Pada menu ini kita dapat mengetahui kode golongan, golongan dan gaji pokok guru/ pegawai. Jika ada perubahan terhadap

gaji pokok

untuk

setiap

golongan kita dapat mengubah dan menyimpannya engan cara memilih simpan. Data yang sebelumnya dapat dihapus dengan memilih hapus. Jika sudah selesai, maka dapat memilih tutup untuk kembali ke menu utama.

Pilihan = 3 jalankan data gaji Pada menu ini, akan menginput data berdasarkan data

yang

sudah

disimpan

pada

form data

guru/pegawai yang dilakukan dengan mencari nama guru/pegawai. Jika data sudah terisi maka pilihbulan dan tahun data gaji perorangan lalu pilih hitung gaji setelah semua terisi maka pilih simpan, jika

ingin

membatalkan maka pilih batal, jika ingin langsung mencetak hasil dari perhitungan data gaji maka klik tombol cetak. Jika sudah selesai, maka dapat memilih tutup untuk kembali ke menu utama.


57

Pilihan = 4 jalankan Exit Pada menu ini, akan muncul pesan peringatan, jika ingin keluar dari aplikasi tersebut maka pilih Yes dan jika tidak ingin keluar dari aplikasi maka pilih No. Langkah 4

: Selesai

4. Algoritma untuk menampilkan menu laporan Langkah 1

: Tampilkan menu laporan, yang terbagi dari dua pilihan yaitu laporan data pegawai dan laporan gaji per bulan.

Langkah 2

: Masukkan pilihan.

Langkah 3

: Program akan jalan apabila: Pilihan =1 jalankan laporan data guru/pegawai Pada menu ini , akan muncul laporan tentang data guru/pegawai yang telah diinput pada saat data guru/pegawai. Dalam laporan data guru/pegawai ini, laporan langsung dapat dicetak. Pilihan 2= jalankan laporan gaji per bulan Menu

ini

digunakan

untuk

mencetak

gaji

guru/pegawai berdasarkan bulan dan tahun sesuai dengan permintaan user. Langkah 4

: Selesai

5. Algoritma untuk menampilkan tentang program Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

58

Langkah 1

: Pilih menu tentang program di menu utama.

Langkah 2

: Form tentang program akan muncul yang berisi mengenai identitas penulis dan program. Form ini akan ditutup secara otomatis jika lebih dari satu menit.

Langkah 3

: Selesai.

6. Algoritma untuk menampilkan about Langkah 1

: Pilih menu about di menu utama.

Langkah 2

: Form about akan muncul yang berisikan mengenai nama project SMA Methodist 1 Medan. Form ini memiliki 2 pilihan yaitu OK dan System Info.

Langkah 3

: Program ini akan jalan apabila: Pilihan = 1 jalankan pilihan OK Form abot akan keluar dan kembali ke menu utama.

Pilihan =2 jalankan System Info Pada menu ini, akan muncul tentang sistem informasi komputer yang dipergunakan oleh user ataupun admin. Langkah 4

: Selesai.


59

BAB 5

IMPLEMENTASI SISTEM

5.1 Pengertian dan Tujuan Implementasi

Implementasi sistem adalah langkah-langkah atau prosedur-prosedur yang dilakukan dalam menyelesaikan desain sistem yang telah disetujui, untuk menguji, menginstall dan memulai sistem baru atau sistem yang diperbaiki. Dari definisi diatas jelaslah bahwa sebelum sistem dilakukan diperlukan implementasi sistem. Untuk lebih jelasnya, maka penulis akan memberikan penjelasan mengenai tujuan implementasi sistem, yaitu : 1. Menyelesaikan desain sistem yang ada dalam dokumen sistem yang disetujui. Menyusun dokumen-dokumen baru atau dokumen yang diperbaiki. 2. Menulis, menguji dan mendokumentasikan program-program dan prosedurprosedur yang dilakukan oleh dokumen desain sistem yang disetujui. 3. Memastikan bahwa pemakai (user) dapat mengoperasikan sistem baru dan melatih pemakai.


60

4. Memperhitungkan bahwa sistem memenuhi permintaan yaitu dengan menguji sistem secara menyeluruh. 5. Memastikan bahwa konversi ke sistem baru berjalan yaitu dengan membuat rencana, mengontrol dan melakukan instalasi baru secara benar. Langkah-langkah yang dilakukan dalam melaksanakan implementasi sistem adalah : 1. Menyelesaikan desain sistem 2. Mendapatkan hardware dan software 3. Menulis, menguji, mengontrol dan mendokumentasikan program 4. Menyelesaikan manual pemakai 5. Mendapatkan persetujuan

5.2 Spesifikasi Sistem

Untuk menjalankan sistem, perlu kita ketahui perangkat apa saja yang akan mendukung dalam proses program dan data. Perangkat komputer yang dibutuhkan, yaitu :

5.2.1 Perangkat Keras (Hardware)

Penggunaan perangkat keras yang baik akan mempengaruhi cepat lambatnya proses program dijalankan dan dihasilkan. Adapun spesifikasi perangkat keras yang dianjurkan adalah : 1. PC Intel 667 Mhz Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

61

2. Memori 128 Mb 3. VGA 32Mb 4. Monitor Super VGA 15 inchi 5. Hardisk 10 GB Perangkat Lunak (Software)

Untuk mendukung sistem kerja dari hardware maka diperlukan juga software didalamnya. Untuk sistem ini diperlukan spesifikasi perangkat lunak yaitu sistem Windows XP/Vista, aplikasi Microsoft Accsess 2003/2007 serta bahasa pemograman Microsoft Visual Basic 6.0 dan Crystal Report 8.5.

5.2.3 Pemakai (Brainware)

Dalam mengolah sebuah program diperlukan tenaga sumber daya manusia yang akan menjadikan program tersebut dapat berjalan dengan baik dan efisien. Tenaga sumber daya manusia yang dibutuhkan adalah : 1. Sistem Analis, yaitu seorang professional yang bergerak dibidang pengembangan sistem yang akan membentuk dan membangun fasilitas desain sistem. 2. Programmer, yaitu orang yang akan menyusun instruksi bagi komputer agar dapat digunakan oleh pemakai (user) serta merancang antar muka pemakai (interface) pada program. 3. Operator, yaitu yang akan menangani secara langsung pengolahan data dalam ruangan komputer.


62

4. Data entry Operator, yaitu yang akan melakukan pengurusan terhadap data yang akan diolah, mulai dari pengumpulan data, perekaman data ke dalam komputer hingga pemeriksaan dan pengiriman informasi yang dihasilkan oleh komputer. Seorang operator yang bertugas mengoperasikan program yang telah tersedia seharusnya memahami program yang tersedia, agar program dapat berjalan dengan baik dan hasilnya akan sesuai yang diharapkan oleh pemakai (user).

5.3 Output Menu

5.3.1. Menu Login

Pada menu ini berisi tentang username dan password. Jika username dan password yang diisi sudah benar maka klik Ok, maka akan mucul menu utama. Jika kita pilih Cancel maka akan keluar dan jika kita pilih Help maka akan mucul form bantuan kepada admin.


63

Gambar 5.1 Menu Login

5.3.2 Menu Utama

Dalam perancangan sistem ini, terdapat satu Form yang dikhususkan untuk pemanggilan form-form yang lainnya dengan kata lain form ini merupakan form utama dalam program ini.

Gambar 5.2 Menu Utama

5.3.3 Menu File


64

Pada menu file merupakan dari input data yang terdiri dari empat penginputan data, yaitu : 1.

Data Guru/Pegawai

2.

Search

3.

Data Golongan

4.

Data Gaji

5.

Keluar

Dimana bentuk rancangan dari tampilan menu file tersebut, yaitu

Gambar 5.3 Menu Input Pegawai


65

Gambar 5.4 Menu Data Golongan Pegawai/Guru

Gambar 5.5 Menu Data Gaji Pegawai/Guru Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

66

Gambar 5.6 Menu Keluar

4.4.4 Menu Laporan Pada menu laporan ini berisi dari pencetakan laporan dari hasil input data pada menu file,yang terdiri dari dua bentuk pelaporan, yaitu : 1.

Laporan Data Guru/Pegawai

2.

Laporan Gaji Per Bulan

Dimana bentuk rancangan dari tampilan menu laporan tersebut, yaitu


67

Gambar 5.7 Laporan Data Guru/ Pegawai

Gambar 5.8 Menu Laporan Gaji Per Bulan

Gambar 5.9 Laporan Gaji Per Bulan


68

5.3.5 Menu Tentang Program

Pada menu ini berisi tentang data diri penulis dan penjelasan singkat tentang program yang telah dibuat. Bentuk rancangan pada menu tentang program, yaitu:

Gambar 5.10 Menu Tentang Program

5.3.6 Menu About

Pada menu ini berisi tentang sistem informasi hardware yang sedang dipakai oleh pihak user. Bentuk rancangan pada menu tentang program, yaitu:


69

Gambar 5.11 Menu About

Gambar 5.12 Output System Info


70

5.4 Hasil Program

Untuk sistem yang telah dirancang tentunya akan menghasilkan sebuah output yang dapat dipergunakan oleh pemakai. Program ini berupa pengentrian data guru/pegawai dan pengentrian gaji guru/pegawai, dimana hasil akhirnya menghasilkan 6 (enam) form, yang terdiri dari satu form utama yaitu form utama dan 6 (enam) form pendukung. Untuk form utama ini berfungsi untuk memanggil form-form pendukung, seperti form pegawai, form gaji dan lain sebagainya. Dimana sebelum form utama masuk form pendukung yaitu form login akan muncul terlebih dahulu. Pada form menu ini hanya dapat diakses oleh bagian administrasi keuangan dan akan mempermudah pemakaian dalam menggunakan program ini, karena didalam form menu ini telah disediakan menu yang sesuai dengan kebutuhan, dan bentuk dari form ini sama cara penggunaannya dengan pemakaian aplikasi Windows. Sedangkan untuk form-form pendukung merupakan form inti dari program yang dirancang. Form inti yang paling utama adalah form data guru/pegawai dan form gaji guru/pegawai.


71

BAB 6

KESIMPULAN DAN SARAN

6.1

Kesimpulan

Selama penulis melakukan penelitian di SMA Methodist 1 MEDAN hingga dalam perancangan sistem, maka penulis dapat mengambil kesimpulan :

1. Pengolahan data dengan bantuan komputer dapat meringankan pekerjaan, lebih efektif dan efesien dan tentunya dapat mempersingkat waktu kerja dan mendapatkan hasil yang akurat. 2. Informasi mengenai data guru/pegawai, kemampuannya dan mengenai sistem penggajiannya dapat diperoleh lebih cepat dan juga setiap saat. 3. Pembuatan program dengan menggunakan bahasa pemograman berbasiskan Windows lebih mudah dalam hal perancangan maupun untuk hasil akhirnya (output) dan lebih mudah dimengerti oleh pemakai. 4. Penggunaan perangkat komputer yang baik dapat menghasilkan hasil yang lebih maksimal dan dapat juga mempersingkat waktu dalam pengoperasian program.


72

6.2

Saran

Adapun saran yang dapat diberikan penulis pada tugas akhir ini adalah : 1. Untuk melakukan pekerjaan yang membutuhkan banyak data sebaiknya diolah menggunakan komputer agar dapat meningkatkan efisiensi dalam penggunaan waktu dan tenaga. 2. Diharapkan dengan program ini dapat membantu dalam mengelola data guru/pegawai dan system penggajian guru dan pegawai. 3. Program ini dapat dikembangkan lebih lanjut untuk mendapatkan hasil yang lebih maksimal. 4. Dalam merancang sebuah program dianjurkan menggunakan perangkat komputer yang mendukung dan sesuai dengan yang dibutuhkan oleh bahasa pemograman itu sendiri agar lebih mudah dalam hal mengoperasikannya. 5. Program ini dapat dikembangkan lebih lanjut oleh pihak SMA Methodist 1 MEDAN terutama untuk membentuk suatu sistem yang kompleks sesuai dengan kebutuhan. 6. Pembuatan terhadap Backup file-file yang penting bagi lembaga sebaiknya dilakukan setiap akhir tahun.


73

LISTING PROGRAM 1. Form Loggin Option Explicit Dim k As Integer Dim keluar As String Dim i As Integer Public status As String Private Sub bersih() txtlogin = "" txtpassword = "" End Sub Private Sub cmdCancel_Click() End End Sub Private Sub cmdhelp_Click() MsgBox "Anda harus mengisi username dan password " & vbCrLf & _ "untuk bisa mengakses program ini !", vbOKOnly, "Info" txtlogin.SetFocus End Sub Private Sub cmdOK_Click() If keluar = 2 Then MsgBox "Anda bukan operator yang valid. Silahkan hubungi administrator!", vbOKOnly + vbCritical, "Peringatan" cmdCancel_Click keluar = 0 Unload Me Exit Sub End If If txtlogin.Text = "" Then MsgBox "Login harus diisi!!", vbOKOnly, "Peringatan" txtlogin.SetFocus ElseIf txtpassword.Text = "" Then MsgBox "Password harus diisi!!", vbOKOnly, "Peringatan" txtpassword.SetFocus End If rsuser.Find "username='" & txtlogin.Text & "'", , adSearchForward, 1 Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

74

If rsuser.EOF Then MsgBox "Coba ingat vbInformation, "username"

username dan password anda!",

vbOKOnly +

keluar = keluar + 1 txtlogin.Text = "" txtpassword.Text = "" txtlogin.SetFocus Else If txtpassword.Text = rsuser!Password Then keluar = 0 pbar.Visible = True For i = 1 To 30000 i=i+1 pbar.Value = i Next i Unload Me utama.Show

utama.Enabled = True Else MsgBox "Login dan Password Anda Salah !", vbCritical, "Password" keluar = keluar + 1 txtpassword.Text = "" txtpassword.SetFocus End If End If End Sub Private Sub Form_Activate() txtlogin.SetFocus End Sub Private Sub Form_Load() keluar = 0 Call BukaDatabase pbar.Visible = False Dim i As Integer pbar.Max = 30000 Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

75

pbar.Min = 1 End Sub

Private Sub txtlogin_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If txtlogin <> "" And KeyAscii = 13 Then txtpassword.SetFocus End If End Sub Private Sub txtpassword_KeyPress(KeyAscii As Integer) If txtpassword <> "" And KeyAscii = 13 Then cmdOK_Click End If End Sub

2. Form Menu Utama Private Sub mn_slipgaji_Click() slip_gaji.Show End Sub Private Sub MDIForm_Load() End Sub Private Sub mnabout_Click() About.Show End Sub Private Sub mndata_gaji_Click() gaji.Show End Sub Private Sub mndata_gol_Click() gol.Show End Sub Private Sub mndata_pegawai_Click() pegawai.Show Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

76

End Sub Private Sub mnlap_datapegawai_Click() cr_pegawai.WindowState = crptMaximized cr_pegawai.RetrieveDataFiles cr_pegawai.Action = 1 End Sub Private Sub mnlap_gajiperbulan_Click() lap_perbulan.Show End Sub

Private Sub mnttgprogram_Click() tentang_program.Show End Sub Private Sub mntutup_Click() keluar = MsgBox("Anda yakin untuk keluar dari program ini?", vbYesNo + vbQuestion, "Peringatan") If keluar = vbYes Then End Else Exit Sub End If End Sub Private Sub Timer1_Timer() utama.Caption = Right(utama.Caption, Left(utama.Caption, 1) End Sub

Len(utama.Caption)

3. Form Pegawai Private Sub cbo_agama_KeyPress(KeyAscii As Integer) If cbo_agama <> "" And KeyAscii = 13 Then txt_alamat.SetFocus End If End Sub Private Sub cbo_gol_Click() TampilGapok Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

-

1)

+

77

cmd_simpan.Enabled = True End Sub Private Sub cbo_gol_KeyPress(KeyAscii As Integer) If cbo_gol <> "" And KeyAscii = 13 Then txt_gapok.SetFocus End If End Sub Private Sub cbo_jabatan_KeyPress(KeyAscii As Integer) If cbo_jabatan <> "" And KeyAscii = 13 Then cbo_pend_trkhir.SetFocus End If End Sub Private Sub cbo_jskel_Click() txt_tmptlhr.SetFocus End Sub Private Sub cbo_jskel_KeyPress(KeyAscii As Integer) If cbo_jskel <> "" And KeyAscii = 13 Then txt_tmptlhr.SetFocus End If End Sub Private Sub cbo_ruang_KeyPress(KeyAscii As Integer) If cbo_ruang <> "" And KeyAscii = 13 Then cbo_statuspegawai.SetFocus End If End Sub Private Sub cbo_jurusan_KeyPress(KeyAscii As Integer) If cbo_jurusan <> "" And KeyAscii = 13 Then cbo_mt_pel_diampu.SetFocus End If End Sub

Private Sub cbo_pend_trkhir_KeyPress(KeyAscii As Integer) If cbo_pend_trkhir <> "" And KeyAscii = 13 Then cbo_jurusan.SetFocus End If End Sub Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

78

Private Sub cbo_statusnikah_Click() If cbo_statusnikah.Text = "Tidak Nikah" Then txt_jlhanak.Enabled = False End If End Sub Private Sub cbo_statusnikah_KeyPress(KeyAscii As Integer) If cbo_statusnikah <> "" And KeyAscii = 13 Then txt_jlhanak.SetFocus End If End Sub Private Sub cbo_statuspegawai_Click() txt_nama.SetFocus If cbo_statuspegawai.Text = "Guru Tetap" Or cbo_statuspegawai.Text = "Peg.Tetap" Then cbo_gol.Enabled = True txt_masakerja.Enabled = False ElseIf cbo_statuspegawai.Text = "Guru Diperbantukan" Then cbo_gol.Enabled = False txt_masakerja.Enabled = False ElseIf cbo_statuspegawai.Text = "Guru Honor" Or cbo_statuspegawai.Text = "Peg.Honor" Then cbo_gol.Enabled = False txt_masakerja.Enabled = True End If End Sub Private Sub cbo_statuspegawai_KeyPress(KeyAscii As Integer) If cbo_statuspegawai <> "" And KeyAscii = 13 Then txt_nama.SetFocus End If End Sub Private Sub bersih() txt_nama.Text = "" cbo_jskel.Text = "" txt_tmptlhr.Text = "" dtp_tgllahir.Value = Now cbo_agama.Text = "" txt_alamat.Text = "" cbo_jabatan.Text = "" cbo_pend_trkhir.Text = "" cbo_jurusan.Text = "" cbo_mt_pel_diampu.Text = "" dtp_tgl_tugas.Value = Now Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

79

txt_jlh_jam.Text = "" cbo_statuspegawai.Text = "" cbo_statusnikah.Text = "" txt_jlhanak.Text = "" cbo_gol.Text = "" txt_gapok.Text = "" txt_no.Text = "" txt_masakerja.Text = 0 'txt_NIP.SetFocus End Sub Private Sub cmd_Batal_Click() Frame1.Enabled = False End Sub Private Sub cmd_cari_Click() Frame1.Enabled = True cbo_cari.SetFocus End Sub Private Sub cmd_hapus_Click() hapus = MsgBox("Anda yakin untuk menghapus data ini?", _ vbYesNo + vbQuestion, "Menghapus Record") If hapus = vbYes Then rspegawai.Delete rspegawai.MoveFirst MsgBox "Data telah dihapus!", vbInformation, "Hapus Data" Else MsgBox "Data batal dihapus!", , "Batal menghapus" End If End Sub Private Sub cmd_OK_Click() On Error Resume Next Select Case cbo_cari.Text Case "Status Pegawai" rspegawai.Find "status_pegawai adSearchForward, 1 Case "Nama Pegawai" rspegawai.Find "nama_pegawai adSearchForward, 1 End Select

like

'*"

+

txt_cari.Text

+

"*'",

,

like

'*"

+

txt_cari.Text

+

"*'",

,

If cbo_cari.Text = "" And txt_cari.Text = "" Then Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

80

MsgBox "Masukkan nama field dan ketik kriteria yang dicari", vbOKOnly + vbInformation, "Pencarian Data" cbo_cari.SetFocus Else If cbo_cari.Text = "" Then MsgBox "Pilih nama field yang dicari!", vbInformation, "Peringatan" cbo_cari.SetFocus ElseIf txt_cari.Text = "" Then MsgBox "Ketik kriteria yang ingin anda cari!", vbOKOnly + vbInformation, "Pencarian Data" txt_cari.SetFocus Else If rspegawai.EOF Then MsgBox "Data yang anda cari tidak ditemukan!", vbOKOnly + vbCritical, "Pencarian Data" txt_cari.Text = "" txt_cari.SetFocus Else MsgBox "Data ditemukan!", vbOKOnly + vbInformation, "Pencarian Data" cbo_cari.Text = "" txt_cari.Text = "" cbo_cari.SetFocus cmd_cari.Enabled = False End If End If End If On Error GoTo 0 End Sub Private Sub cmd_simpan_Click() On Error Resume Next With rspegawai .AddNew !nama_pegawai = txt_nama.Text !js_kel = cbo_jskel.Text !tpt_lahir = txt_tmptlhr.Text !tgl_lahir = Format(dtp_tgllahir.Value, "dd-mm-yyyy") !agama = cbo_agama.Text !alamat = txt_alamat.Text !jabatan = cbo_jabatan.Text !pendidikan = cbo_pend_trkhir.Text !jurusan = cbo_jurusan.Text !mata_pelajaran = cbo_mt_pel_diampu.Text !TMT = Format(dtp_tgl_tugas.Value, "dd-mm-yyyy") !jumlah_jam_mengajar = txt_jlh_jam.Text !status_pegawai = cbo_statuspegawai.Text !status_nikah = cbo_statusnikah.Text !jumlah_anak = txt_jlhanak.Text Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

81

!golongan = cbo_gol.Text !gapok = txt_gapok.Text !no_telepon = txt_no.Text !masa_kerja = txt_masakerja.Text .Update MsgBox "Data telah disimpan!", vbOKOnly, "Menyimpan Data" bersih cbo_statuspegawai.SetFocus End With

End Sub Private Sub cmd_tambah_Click() bersih End Sub Private Sub Command1_Click() Unload Me End Sub

Private Sub Form_Activate() cbo_statuspegawai.SetFocus End Sub Private Sub Form_Load() cmd_simpan.Enabled = False Set dg_pegawai.DataSource = rspegawai IsiCombo_Golongan Frame1.Enabled = False txt_jlhdata.Text = rspegawai.RecordCount End Sub Private Sub txt_alamat_KeyPress(KeyAscii As Integer) If txt_alamat <> "" And KeyAscii = 13 Then cbo_jabatan.SetFocus End If End Sub Private Sub txt_gapok_Change() Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

82

cmd_simpan.Enabled = True End Sub Private Sub txt_jlh_jam_KeyPress(KeyAscii As Integer) If txt_jlhanak <> "" And KeyAscii = 13 Then cbo_statusnikah.SetFocus End If End Sub Private Sub txt_jlhanak_KeyPress(KeyAscii As Integer) If txt_jlhanak <> "" And KeyAscii = 13 Then cbo_gol.SetFocus End If End Sub Private Sub txt_masakerja_Change() If txt_masakerja.Text <= 5 Then txt_gapok.Text = Val(txt_jlh_jam.Text) * 42000 ElseIf txt_masakerja.Text > 5 Then txt_gapok.Text = Val(txt_jlh_jam.Text) * 47000 End If End Sub Private Sub txt_nama_KeyPress(KeyAscii As Integer) If txt_nama <> "" And KeyAscii = 13 Then cbo_jskel.SetFocus End If End Sub Private Sub txt_tmptlhr_KeyPress(KeyAscii As Integer) If txt_tmptlhr <> "" And KeyAscii = 13 Then dtp_tgllahir.SetFocus End If End Sub Private Sub IsiCombo_Golongan() Dim rsisicombo As New ADODB.Recordset cSQL = "SELECT gol FROM gol" rsisicombo.Open cSQL, hubung, adOpenKeyset, adLockReadOnly If rsisicombo.RecordCount <> 0 Then For l = 1 To rsisicombo.RecordCount cbo_gol.AddItem rsisicombo(0) rsisicombo.MoveNext Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

83

Next l Else Exit Sub End If End Sub Private Sub TampilGapok() Dim rstampilgapok As New ADODB.Recordset cSQL = "SELECT * FROM gol WHERE gol='" & cbo_gol & "'" rstampilgapok.Open cSQL, hubung, adOpenKeyset, adLockReadOnly If rstampilgapok.RecordCount <> 0 Then txt_gapok.Text = rstampilgapok(2) End If End Sub

4. Form Golongan Private Sub cmd_simpan_Click() On Error Resume Next With rsgol .AddNew !kd_gol = txt_kdgol.Text !gol = cbo_gol.Text !gapok = txt_gapok.Text .Update MsgBox "Data telah disimpan!", vbOKOnly, "Menyimpan Data" bersih End With End Sub Private Sub bersih() txt_kdgol = "" cbo_gol = "" txt_gapok = "" End Sub Private Sub cmd_tutup_Click() Unload Me End Sub Private Sub Form_Activate() Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

84

txt_kdgol.SetFocus End Sub Private Sub Form_Load() Set dg_gol.DataSource = rsgol cmd_simpan.Enabled = False End Sub Private Sub txt_gapok_Change() cmd_simpan.Enabled = True End Sub

Private Sub txt_kdgol_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If txt_kdgol <> "" And KeyAscii = 13 Then cbo_gol.SetFocus End If End Sub

5. Form Gaji Private Sub TampilNama() Dim rstampil As New ADODB.Recordset cSQL = "SELECT * FROM pegawai WHERE nama_pegawai='" & cbonama.Text & "'" rstampil.Open cSQL, hubung, adOpenKeyset, adLockReadOnly If rstampil.RecordCount <> 0 Then txt_statuspegawai.Text = rstampil(0) txt_statusnikah.Text = rstampil(13) txt_jlhanak.Text = rstampil(14) txt_gol.Text = rstampil(15) txt_gapok.Text = rstampil(16) txt_masakerja.Text = rstampil(18) End If End Sub

Private Sub IsiCombo_Nama() Dim rsisicombo As New ADODB.Recordset cSQL = "SELECT nama_pegawai FROM pegawai" rsisicombo.Open cSQL, hubung, adOpenKeyset, adLockReadOnly Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

85

If rsisicombo.RecordCount <> 0 Then For l = 1 To rsisicombo.RecordCount cbonama.AddItem rsisicombo(0) rsisicombo.MoveNext Next l Else Exit Sub End If End Sub Private Sub cbo_bulan_Click() cmd_hitunggaji.Enabled = True cmd_hitunggaji.SetFocus End Sub Private Sub cbo_nip_Click() TampilNIP cbo_bulan.SetFocus If txt_statuskawin = "Tidak Kawin" Then txt_jlhanak = 0 txt_tunj_suami_istri = 0 End If

End Sub Private Sub cbonama_Click() TampilNama If txt_statuspegawai.Text = "Guru Tetap" Or txt_statuspegawai.Text = "Peg.Tetap" Then txt_gol.Enabled = True txt_masakerja.Enabled = True txt_tunj_istri.Enabled = True txt_tunj_anak.Enabled = True ElseIf txt_statuspegawai.Text = "Guru Diperbantukan" Then txt_gol.Enabled = True txt_masakerja.Enabled = True txt_tunj_istri.Enabled = False txt_tunj_anak.Enabled = False ElseIf txt_statuspegawai.Text = "Guru Honor" Or txt_statuspegawai.Text = "Peg.Honor" Then txt_gol.Enabled = False txt_masakerja.Enabled = True txt_tunj_istri.Enabled = False txt_tunj_anak.Enabled = False End If Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

86

txt_tunj_istri.Text = 0.05 * Val(txt_gapok.Text) txt_tunj_anak.Text = 0.03 * Val(txt_gapok.Text) txt_tunj_jabatan.SetFocus End Sub Private Sub cmd_cetak_Click() If cbonama.Text = "" Then MsgBox "Pilih dahulu Nama pegawai yang ingin dicetak!", vbInformation, "Peringatan" cbonama.SetFocus Else cetak = MsgBox("Cetak Slip Gaji?", vbYesNo, "Cetak Slip Gaji") If cetak = vbYes Then cr_slipgaji.SelectionFormula = "{gaji.nama}='" & cbonama & "' and ({gaji.bulan})='" & _ cbo_bulan.Text & "' and ({gaji.tahun})='" & cbo_tahun.Text & "'" cr_slipgaji.WindowState = crptMaximized cr_slipgaji.RetrieveDataFiles cr_slipgaji.Action = 1 End If End If End Sub Private Sub cmd_hitunggaji_Click() If txt_statusnikah.Text = "Tidak Nikah" Then txt_tunj_beras.Text = 50000 ElseIf txt_jlhanak.Text <= 3 Then txt_tunj_beras.Text = (Val(txt_jlhanak.Text) + 2) * 50000 ElseIf txt_jlhanak.Text > 3 Then txt_tunj_beras.Text = 250000 ElseIf txt_jlhanak.Text = 0 Then txt_tunj_beras.Text = 50000 Else txt_tunj_beras.Text = 2 * 50000 End If If txt_masakerja.Text <= 5 Then txt_tot_jm_mngjr_lebih.Text = Val(txt_jlh_jam_ngajar.Text) * 42000 ElseIf txt_masakerja.Text > 5 Then txt_tot_jm_mngjr_lebih.Text = Val(txt_jlh_jam_ngajar.Text) * 47000 End If txt_gator.Text = Val(txt_gapok.Text) + Val(txt_tunj_jabatan.Text) + Val(txt_tunj_istri.Text) + Val(txt_tunj_anak.Text) + Val(txt_tunj_beras.Text) + Val(txt_yayasan.Text) + Val(txt_tot_jm_mngjr_lebih.Text) Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

87

txt_gaber.Text = Val(txt_gator.Text) cmd_simpan.Enabled = True

End Sub Sub bersih() 'cbonama.Text = "" 'cbo_bulan.Text = "" 'cbo_tahun.Text = "" txt_statuspegawai.Text = "" txt_statusnikah.Text = "" txt_jlhanak.Text = "" txt_gol.Text = "" txt_gapok.Text = "" txt_tunj_jabatan.Text = "" txt_tunj_istri.Text = "" txt_tunj_anak.Text = "" txt_tunj_beras.Text = "" txt_yayasan.Text = "" txt_gator = "" txt_gaber.Text = "" txt_jlh_jam_ngajar.Text = "" txt_tot_jm_mngjr_lebih.Text = "" txt_masakerja.Text = "" End Sub Private Sub cmd_simpan_Click() On Error Resume Next With rsgaji .AddNew !nama = cbonama.Text !bulan = cbo_bulan.Text !tahun = cbo_tahun.Text !status_pegawai = txt_statuspegawai.Text !status_nikah = txt_statusnikah.Text !jumlah_anak = txt_jlhanak.Text !gol = txt_gol.Text !gapok = txt_gapok.Text !tunj_jabatan = txt_tunj_jabatan.Text !tunj_anak = txt_tunj_anak.Text !tunj_istri = txt_tunj_istri.Text !tunj_anak = txt_tunj_anak.Text !tunj_beras = txt_tunj_beras.Text !ban_yayasan = txt_yayasan.Text !jlh_jam_mngjr_lebih = txt_jlh_jam_ngajar.Text !tot_jam_mngjr_lebih = txt_tot_jm_mngjr_lebih.Text Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

88

!gator = txt_gator !gaber = txt_gaber.Text .Update ' MsgBox "Data telah disimpan!", vbOKOnly, "Menyimpan Data" bersih End With cmd_cetak.Enabled = True cmd_simpan.Enabled = False End Sub Private Sub cmd_tambah_Click() bersih cbo_bulan.Text = "" cbo_tahun.Text = "" End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() IsiCombo_Nama cmd_simpan.Enabled = False cmd_hitunggaji.Enabled = False cmd_cetak.Enabled = False End Sub Private Sub txt_lain_Change() cmd_simpan.Enabled = True End Sub

6. Form Laporan Per Bulan Private Sub cbo_bulan_Click() cmd_tampil.Enabled = True End Sub Private Sub cmd_tampil_Click() cr_perbulan.SelectionFormula = "({gaji.bulan})='" & cbo_bulan & "' and ({gaji.tahun})='" & _ Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

89

cbo_tahun.Text & "'" cr_perbulan.WindowState = crptMaximized cr_perbulan.RetrieveDataFiles cr_perbulan.Action = 1 End Sub Private Sub cmd_tutup_Click() Unload Me End Sub Private Sub Form_Load() cmd_tampil.Enabled = False End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub

7. Form Tentang Program Private Sub cmdTutup_Click() Unload Me End Sub

Private Sub Timer1_Timer() Label1(1).ForeColor = RGB(255, 255, 255) * Rnd Label7.ForeColor = QBColor(2) * Rnd End Sub Private Sub TmrTutup_Timer() Unload Me End Sub

8. Form About Dim teks As String Option Explicit ' Reg Key Security Options... Const READ_CONTROL = &H20000 Const KEY_QUERY_VALUE = &H1 Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

90

Const KEY_SET_VALUE = &H2 Const KEY_CREATE_SUB_KEY = &H4 Const KEY_ENUMERATE_SUB_KEYS = &H8 Const KEY_NOTIFY = &H10 Const KEY_CREATE_LINK = &H20 Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL ' Reg Key ROOT Types... Const HKEY_LOCAL_MACHINE = &H80000002 Const ERROR_SUCCESS = 0 Const REG_SZ = 1 ' Unicode nul terminated string Const REG_DWORD = 4 ' 32-bit number Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" Const gREGVALSYSINFOLOC = "MSINFO" Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO" Const gREGVALSYSINFO = "PATH" Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long Public Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String ' Try To Get System Info Program Path\Name From Registry... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then ' Try To Get System Info Program Path Only From Registry... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then ' Validate Existance Of Known 32 Bit File Version If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then SysInfoPath = SysInfoPath & "\MSINFO32.EXE" ' Error - File Can Not Be Found... Else GoTo SysInfoErr Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

91

End If ' Error - Registry Entry Can Not Be Found... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit Sub SysInfoErr: MsgBox "System Information Is Unavailable At This Time", vbOKOnly End Sub Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long ' Loop Counter Dim rc As Long ' Return Code Dim hKey As Long ' Handle To An Open Registry Key Dim hDepth As Long ' Dim KeyValType As Long ' Data Type Of A Registry Key Dim tmpVal As String ' Tempory Storage For A Registry Key Value Dim KeyValSize As Long ' Size Of Registry Key Variable '-----------------------------------------------------------' Open RegKey Under KeyRoot {HKEY_LOCAL_MACHINE...} '-----------------------------------------------------------rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Open Registry Key If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError tmpVal = String$(1024, 0) KeyValSize = 1024

' Handle Error...

' Allocate Variable Space ' Mark Variable Size

'-----------------------------------------------------------' Retrieve Registry Key Value... '-----------------------------------------------------------rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) ' Get/Create Key Value If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError

' Handle Errors

If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then ' Win95 Adds Null Terminated String... tmpVal = Left(tmpVal, KeyValSize - 1) ' Null Found, Extract From String Else ' WinNT Does NOT Null Terminate String... tmpVal = Left(tmpVal, KeyValSize) ' Null Not Found, Extract String Only Kharisma S. Ginting : Sistem Informasi Penggajian Pegawai Di Sma Methodist 1 Medan, 2009.

92

End If '-----------------------------------------------------------' Determine Key Value Type For Conversion... '-----------------------------------------------------------Select Case KeyValType ' Search Data Types... Case REG_SZ ' String Registry Key Data Type KeyVal = tmpVal ' Copy String Value Case REG_DWORD ' Double Word Registry Key Data Type For i = Len(tmpVal) To 1 Step -1 ' Convert Each Bit KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) ' Build Value Char. By Char. Next KeyVal = Format$("&h" + KeyVal) ' Convert Double Word To String End Select GetKeyValue = True rc = RegCloseKey(hKey) Exit Function

' Return Success ' Close Registry Key ' Exit

GetKeyError: ' Cleanup After An Error Has Occured... KeyVal = "" ' Set Return Val To Empty String GetKeyValue = False ' Return Failure rc = RegCloseKey(hKey) ' Close Registry Key End Function Private Sub Form_Load() teks$ = " SMA METHODIST 1 MEDAN Jl.Hang Tuah No.4 Medan" End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Timer1_Timer() teks$ = Right$(teks$, Len(teks$) - 1) + Left$(teks$, 1) Label3.Caption = teks$ End Sub Private Sub cmdSysInfo_Click() Call StartSysInfo End Sub Private Sub cmdOK_Click() Unload Me End Sub


93

DAFTAR PUSTAKA

Ramadhan Arief. 2004. Pemogaram Visual basic 6.0. Jakarta: PENERBIT PT. Elex Media Komputindo.

Siswoutomo Wiwit. 2006. Tip dan Trik Canggih Visual Basic 6. Jakarta: PENERBIT PT. Elex Media Komputindo.

Dwi Prasetyo Didik. 2004. Belajar Sendiri Aplikasi Bisnis dan Perkantoran Menggunakan Visual Basic. Jakarta: PENERBIT PT. Elex Media Komputindo.


SISTEM INFORMASI PENGGAJIAN PEGAWAI DI SMA METHODIST 1 MEDAN TUGAS AKHIR KHARISMA S GINTING

Recommend Documents