SISTEM INFORMASI GURU DAN PEGAWAI SMP NEGERI 12 MEDAN TUGAS AKHIR ARIEF GUNAWAN

SISTEM INFORMASI GURU DAN PEGAWAI SMP NEGERI 12 MEDAN

TUGAS AKHIR

ARIEF GUNAWAN 062406070

DEPARTEMEN MATEMATIKA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2009

Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

SISTEM INFORMASI GURU DAN PEGAWAI SMP NEGERI 12 MEDAN

TUGAS AKHIR Diajukan untuk melengkapi tugas dan memenuhi syarat memperoleh Ahli Madya


DEPARTEMEN MATEMATIKA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2009


PERSETUJUAN

Judul Kategori Nama Nomor Induk Mahasiswa Program Studi Departemen Fakultas

: SISTEM INFORMASI GURU DAN PEGAWAI SMP NEGERI 12 MEDAN : TUGAS AKHIR : ARIEF GUNAWAN : 062406070 : D3 ILMU KOMPUTER : MATEMATIKA : MATEMATIKA DAN ILMU PENGETAHUAN ALAM (FMIPA) UNIVERSITAS SUMATERA UTARA

Diluluskan di Medan, 30 Mei 2009

Diketahui / Disetujui oleh Departemen Matematika FMIPA USU Ketua,

Pembimbing

Dr. Saib Suwilo, M.Sc NIP 13179614

Syahril Efendi, S.Si, M.IT. NIP 132148612


PERNYATAAN

SISITEM INFORMASI GURU DAN PEGAWAI SMP NEGERI 12 MEDAN

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



PENGHARGAAN

Bismillahirrahmanirrahim Puji dan syukur penulis ucapkan atas kehadirat Allah SWT, karena dengan limpah rahmat dan karunia-Nya penulis berhasil menyelesaikan tugas akhir ini yang berjudul ”Sistem Informasi Guru dan Pegawai SMP Negeri 12 Medan “pada waktu yang telah ditetapkan, dan tak lupa pula shalawat serta salam kepada junjungan Nabi Besar Muhammad SAW dan para sahabatnya yang telah membawa kita dari kegelapan kealam terang benderang yang penuh ilmu pengetahuan.

Tugas Akhir ini tidak mungkin bisa selesai dengan baik, jika tidak ada bantuan dari berbagai pihak. Pada kesempatan ini, penulis ingin mengucapkan terima kasih yang setulus-tulusnya kepada :

1. Bapak Prof. Dr. Eddy Marlianto, M.Sc selaku Dekan Fakultas MIPA Universitas Sumatera Utara.

2. Bapak Dr. Saib Suwilo, M.Sc selaku Ketua Jurusan Program Studi D-3 Ilmu Komputer.

3. Bapak Syahril Efendi, S.Si, M.IT selaku Dosen Pembimbing Tugas Akhir Program Studi D-3 Ilmu Komputer Fakultas MIPA Universitas Sumatera Utara yang telah memberikan bimbingan dan arahan selama ini kepada penulis dalam penyelesaian tugas akhir.

4. Seluruh Staf Pengajar Program Studi D-3 Ilmu Komputer Faklutas MIPA Universitas Sumatera Utara yang telah memberikan ilmu dan pengetahuannya kepada penulis selama masa perkuliahan.


5. Teristimewa kepada Ibunda Jauhari dan Ayahanda Syawaluddin serta kedua Kakakku Yani dan Rita yang senantiasa memberikan kasih sayang, dukungan dan selalu mendoakan penulis agar lancar dalam segala urusan.

Selain itu, penulis juga banyak mengucapkan terima kasih kepada rekan-rekan seangkatan stambuk 2006 Yamin, Ade, Ridzal, Bayu, Jefry, Rini, Fikri, Agus, Naldi, Eka, Rizky, Ayu, Nina, Santi yang selalu membantu penulis dan memberikan dukungan dalam penyelesaian tugas akhir ini serta menemani penulis mengisi waktu luang. Tak lupa juga buat rekan-rekan komputer B 2006 lainnya yang tidak dapat penulis sebutkan satu-persatu.

Akhir kata, Penulis berharap semoga Tugas Akhir ini bermanfaat bagi siapapun yang membacanya. Semoga Allah SWT senantiasa memberikan rahmat dan hidayah kepada kita semua. Amin.

Medan,

Mei 2009

Penulis

Arief Gunawan


ABSTRAK

Kajian ini untuk mempermudah proses pencarian atau searching data dan informasi untuk seluruh guru dan pegawai SMP Negeri 12 Medan yang mengalami kesulitan dalam memperoleh data mengenai biodata serta gaji para guru dan pegawainya. Fasilitas-fasilitas yang terdapat dalam aplikasi ini berupa penyediaan data dan informasi mengenai biodata serta gaji para guru dan pegawai. Pada proses pembuatan aplikasi ini perangkat lunak yang digunakan adalah Microsoft Visual Basic, Microsoft Acces dan Crystal Report.


DAFTAR ISI

Halaman Persetujuan Pernyataan Penghargaan Abstrak Daftar Isi Daftar Tabel Daftar Gambar

ii iii iv vi vii ix x

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

1 2 2 3 3 4 5

Bab 2 Landasan Teori 2.1 Sistem 2.2 Informasi 2.3 Sistem Informasi 2.4 Data 2.5 Basis Data 2.5.1 Tabel 2.5.2 Record 2.5.3 Field 2.6 Microsoft Visual Basic 6.0 2.6.1 Sejarah Perkembangan Visual Basic 6.0 2.6.2 Struktur Aplikasi Visual Basic 2.7 Microsoft Acces 2.8 Crystal Report

7 8 8 9 9 9 10 10 10 11 11 17 17

Bab 3 Sekilas Tentang SMP Negeri 12 Medan 3.1 Profil SMP Negeri 12 Medan 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 Tata Usaha 3.3.4 Komite Sekolah 3.3.5 Bidang Sarana dan Prasarana 3.3.6 Bidang Kurikulum

19 20 21 21 21 21 22 22 22


3.3.7 Bidang Kesiswaan 3.3.8 Bidang Humas 3.3.9 Guru 3.3.10 Wali Kelas 3.3.11 Guru Pembimbing dan Konseling (BP / BK) 3.4 Visi dan Misi Sekolah 3.4.1 Visi Sekolah 3.4.2 Misi Sekolah

23 23 23 24 24 24 24 25

Bab 4 Analisis dan Perancangan Sistem 4.1 Analisis Sistem 4.1.1 Analisis sistem yang berjalan 4.2 Perancangan Sistem 4.2.1 Perancangan Database 4.2.2 Normalisasi 4.2.3 Perancangan Struktur Menu Utama 4.2.4 Perancangan Tampilan 4.3 Flow Chart 4.3.1 Simbol-simbol Flow Chart 4.3.2 Flow Chart Form Menu Utama 4.3.3 Flow Chart Form Pengolahan Biodata Guru dan Pegawai 4.3.4 Flow Chart Form Pengolahan data Pangkat 4.3.5 Flow Chart Form Pengolahan Data Tujangan 4.3.6 Flow Chart Form Pengolahan Data Potongan 4.3.7 Flow Chart Form Pencarian 4.3.8 Flow Chart Form Laporan Biodata Guru dan Pegawai 4.3.9 Flow Chart Form Laporan Data Gaji

26 26 26 27 29 30 31 35 35 37 38 39 40 41 42 43 43

Bab 5 Implementasi Sistem 5.1 Pengertian Implementasi sistem 5.2 Tujuan Implementasi Sistem 5.3 Spesifikasi Sistem 5.3.1 Perangkat Keras (Hardware) 5.3.2 Perangkat Lunak (Software) 5.3.3 Sumber Daya Manusia (Brainware)

44 44 45 45 46 46

Bab 6 Kesimpulan dan Saran 6.1 Kesimpulan 6.2 Saran

47 47

Daftar Pustaka

48

Lampiran


DAFTAR TABEL

Halaman Tabel 4.1

Tabel Pegawai

27

Tabel 4.2

Tabel Pangkat

28

Tabel 4.3

Tabel Tunjangan

28

Tabel 4.4

Tabel Potongan

29

Tabel 4.5

Tabel Admin

29

Tabel 4.6

Biodata Guru dan Pegawai

30

Tabel 4.7

Struktur Menu Utama

30

Tabel 4.8

Direction Simbol

35

Tabel 4.9

Processing Simbol

35

Tabel 4.10 Input Output Simbol


36

DAFTAR GAMBAR

Halaman Gambar 2.1

Tampilan Visual Basic 6.0

12

Gambar 2.2

Menubar

12

Gambar 2.3

Toolbar

13

Gambar 2.4

Toolbox

13

Gambar 2.5

Jendela Form

14

Gambar 2.6

Jendela Pengkodean

15

Gambar 2.7

Jendela Project

15

Gambar 2.8

Jendela Properti

16

Gambar 2.9

Jendela Form Layout

16

Gambar 2.10

Tampilan Awal Microsoft Acces

17

Gambar 3.1

Struktur Organisasi SMP Negeri 12 Medan

20

Gambar 4.1

Form Pengolahan Biodata Guru dan Pegawai

31

Gambar 4.2

Form Pengolahan Data Pangkat

31

Gambar 4.3

Form Pengolahan Data Tunjangan

32

Gambar 4.4

Form Pengolahan Potongan

32

Gambar 4.5

Form Pencarian

33

Gambar 4.6

Form Laporan Biodata Guru dan Pegawai

33

Gambar 4.7

Form Laporan Gaji Guru dan Pegawai

34

Gambar 4.8

Bentuk Laporan Biodata Guru dan Pegawai

34

Gambar 4.9

Bentuk Laporan Daftar Gaji

34

Gambar 4.10

Flow Chart Form Menu Utama

37

Gambar 4.11

Flow Chart Form Pengolahan Biodata Guru dan Pegawai

38

Gambar 4.12

Flow Chart Form Pengolahan Data Pangkat

39

Gambar 4.13

Flow Chart Form Pengolahan Data Tunjangan

40

Gambar 4.14

Flow Chart Form Pengolahan Data Potongan

41

Gambar 4.15

Flow Chart Form Pencarian

42

Gambar 4.16

Flow Chart Form Laporan Biodata Guru dan Pegawai

43

Gambar 4.17

Flow Chart Form Laporan Gaji Guru dan Pegawai

43


BAB I

PENDAHULUAN

1.1 Latar Belakang

Perkembangan teknologi informasi yang demikian cepat, menjadikan komputer sebagai alat yang dapat meringankan kerja manusia dalam memecahkan masalah atau persoalan yang rumit dalam bisnis, administrasi, dan sebagainya, sehingga banyak perusahaan besar maupun kecil membutuhkan komputer sebagai alat bantu dalam kegiatan operasionalnya.

Selain perusahaan, perkembangan teknologi komputer juga sangat diperlukan di lembaga-lembaga pendidikan untuk mengelola data-data yang ada dalam lingkungan lembaga-lembaga pendidikan tersebut sehingga dapat disajikan informasi yang cepat dan akurat yang dapat dikonsumsi oleh pihak-pihak yang berhak untuk mengetahuinya.

SMP Negeri 12 Medan sebagai sebuah lembaga pendidikan, masih memiliki kelemahan-kelemahan dalam pengolahan data dan penyajian informasi khususnya tentang data para guru dan pegawai. Penyajian dan penyimpanan data yang masih menggunakan cara manual membuat data tersebut sulit untuk didapatkan secara cepat, tepat, dan akurat. Ketertarikan penulis terhadap permasalahan serta perkembangan yang terjadi pada SMP Negeri 12 Medan membuat penulis berkeinginan membantu instansi Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

pendidikan tersebut untuk mengubah sistem penyimpanan dan penyajian informasi yang telah ada sebelumnya, sehingga mempermudah semua pihak yang membutuhkan segala informasi data guru dan pegawai yang ada pada SMP Negeri 12 Medan. Atas dasar inilah, penulis mengangkat judul ”SISTEM INFORMASI GURU

DAN

PEGAWAI SMP NEGERI 12 MEDAN”.

1.2 Identifikasi Masalah

Kemampuan manusia dalam menyelesaikan pekerjaan yang semakin banyak dan rumit sangatlah terbatas, sehingga disini dibutuhkan suatu sistem yang dapat mengolah data dengan baik sehingga dapat mempercepat serta mengefisienkan pekerjaan pengolahan data.

Dari permasalahan diatas penulis mencoba untuk merancang suatu sistem data guru dan pegawai. Penulis mengharapkan melalui sistem informasi ini pengolahan data guru dan pegawai yang kurang efisien dapat diatasi sehingga pekerjaan dapat dilaksanakan dengan optimal.

1.3 Batasan Masalah

Sehubungan dengan keterbatasan waktu dan kemampuan penulis serta untuk mencegah terjadinya kesimpangsiuran dari topik permasalahan yang diangkat, penulis membatasi ruang lingkup hanya sampai pada masalah penyajian dan penginputan data guru dan pegawai.


1.4 Maksud dan Tujuan

Penulis melakukan penelitian ini bermaksud untuk merancang suatu sistem informasi yang dapat membantu pihak sekolah megatasi permasalahan dalam pengolahan data sehingga informasi yang dibutuhkan dapat diperoleh secara cepat dan akurat. Adapun tujuan penulis dari penelitian ini adalah : 1. Menambah ilmu pengetahuan di bidang database 2. Menerapkan dan mengembangkan pengetahuan tentang pemograman visual basic.

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 Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah. Untuk mendapat data – data penulis menempuh beberapa cara pengumpulan data antara lain: a) Observasi Penulis mengambil langsung terhadap objek pencatatan yang menyatakan kegiatan data pegawai. b) Interview Penulis mengadakan tanya jawab atau pembicaraan langsung dengan staf pegawai atau bagian tertentu yang menyangkut pembahasan.

1.6 Sistematika Penulisan

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

BAB 1 : PENDAHULUAN Bab ini berisikan latar belakang masalah, identifikasi masalah, batasan masalah, maksud dan tujuan, metode penelitian, tinjauan pustaka dan sistemaitka penulisan.

BAB 2 : LANDASAN TEORI 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 : SEKILAS TENTAG SMP NEGERI 12 MEDAN Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Bab ini menjelaskan secara singkat mengenai sejarah, visi dan misi serta struktur organisasi SMP Negeri 12 Medan.

BAB 4 : PERANCANGAN SISTEM Pada bab ini penulis menerangakan rancangan form, penerapan sistemnya berupa rancangan input dan output program dan algoritma dari program tersebut.

BAB 5 : IMPLEMENTASI SISTEM Bab ini menjelaskan tentang implementasi sistem dan juga kebutuhan sistem pengujian program. BAB 6 : KESIMPULAN DAN SARAN Bab ini menjelaskan tentang kesimpulan dan saran dari hasil penelitian penulis.

1.7 Tinjauan Pustaka

Adapun tinjauan pustaka yang menjadi pedoman penulis dalam menyusun tugas akhir ini adalah : 1. Ario Suryo Kusumo. 2003. Latihan Microsoft Visual Basic 6.0. Cetakan keenam. Jakarta : Penerbit PT. Elex Media Komputindo. 2. Dhewiberta. 2005. Pemograman Tinkat Lanjut dengan Visual Basic 6.0 dan Crystal Report. Yogyakarta : Penerbit Andi. 3. Didik Dwi Prasetyo. 2004. Aplikasi Bisnis dan Perkantoran Menggunakan Visual basic. Jakarta: Penerbit PT. Elex Media Komputindo.


4. Siswoutomo Wiwit. 2006. Tip dan Trik Canggih Visual Basic 6.0 Jakarta : Penerbit PT. Elek Media Komputindo.


BAB 2

LANDASAN TEORI

2.1 Sistem

Moscove dan Simkin (2000, hal: 1) mengemukakan bahwa “Suatu sistem adalah merupakan suatu kesatuan yang terdiri dari interaksi subsistem yang berusaha untuk mencapai tujuan (goal) yang sama“.

Indrajit (2001, hal : 2) dalam bukunya menjelaskan bahwa “Kata sistem mengandung arti kumpulan dari komponen-komponen yang memiliki unsur keterkaitan antara satu dan lainnya“.

Dari beberapa uraian diatas dapat disimpulkan bahwa sistem adalah sebagai satu kesatuan yang terdiri dari dua atau lebih komponen atau subsistem yang berinteraksi untuk mencapai suatu tujuan. Suatu sistem dapat terdiri dari sistem-sistem bagian (subsistem). Subsistem saling berinteraksi dan saling berhubungan membentuk satu kesatuan sehingga suatu tujuan atau sasaran sistem tersebut dapat tercapai.


2.2 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.

Jogiyanto H.M (Analisis Dan Desain Sitem Informasi Pendekatan Terstruktur Teori Dan Praktek Aplikasi Bisnis, 1989, hal 8), ”Informasi adalah data yang diolah menjadi bentuk yang lebih berguna dan lebih berarti

bagi yang

menerimanya.

2.3 Sistem Informasi

Lucas ( 2000, hal : 1) “Suatu sistem informasi adalah suatu kegiatan dari prosedurprosedur yang diorganisasikan, bilamana dieksekusi akan menyediakan informasi untuk mendukung pengambilan keputusan dan pengendalian di dalam organisasi“.

Menurut Indrajit (2001, hal : 3) “Sistem informasi merupakan suatu kumpulan dari komponen-komponen dalam perusahaan atau organisasi yang berhubungan dengan proses penciptaan dan pengaliran informasi“.

Sistem informasi adalah suatu cara yang sudah tertentu untuk menyediakan informasi yang dibutuhkan oleh organisasi untuk beroperasi dengan cara yang sukses dan untuk organisasi bisnis dengan cara yang menguntungkan“. (Bower et al, 2000).


2.4 Data

Data berasal dari kata “datum“ yang berarti fakta atau bahan-bahan keterangan. 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.5 Basis Data (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.

2.5.1 Tabel

Tabel merupakan sekumpulan data yang memiliki topik tertentu. Di dalam tabel terdapat record dan field yang merupakan bagian dari tabel. Pada dasarnya, tabel adalah tempat untuk meletakkan, menyimpan, atau mengubah data.


2.5.2 Record

Record merupakan baris yang terdapat dalam tabel. Pada baris tersebut, data dari tabel diisikan. Secara umum record memiliki defenisi suatu bagian dari data.

2.5.3

Field

Field adalah item tertentu dalam tabel. Bisa disebut kolom. Sebuah record dibentuk oleh banyak field. Setiap field dalam suatu record mengandung suatu potongan tunggal dari informasi tentang record.

2.6 Microsoft Visual Basic 6.0

Microsoft Visual Basic adalah bahasa pemrograman yang digunakan untuk membuat aplikasi Windows yang berbasis grafis (GUI–Graphical User Interface). Visual Basic merupakan perangkat otomatis, dengan bantuan Intelligent IDE (Integrated Development Integration) yang akan membantu user dalam penulisan kode program yang 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.6.1 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 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.6.2 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.1 Tampilan Visual Basic 6.0

a

Menubar

Menubar berisi perintah-perintah umum yang digunakan untuk mengoperasikan Visual Basic.

Gambar 2.2 Menubar

b Toolbar


Toolbar digunakan sebagai alternative lain untuk menjalankan perintah secara langsung selain melalui Menubar. Ada empat macam standart toolbar Visual Basic, yaitu : 1

Debug Digunakan untuk shortcut perintah pelacakan kode program.

2

Edit Digunakan untuk shortcut perintah dalam editor pengkodean.

3

From editor Digunakan untuk shortcut perintah dalam mendesain objek form.

4

Standart Digunakan untuk shortcut perintah standart dalam Visual Basic.

Gambar 2.3 Toolbar

c

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 di bawah ini.


Gambar 2.4 Toolbox d Jendela Form

Form merupakan bagian utama dari program aplikasi yang digunakan untuk pembuatan program. Pada form ini kita dapat mengatur tampilan yang akan dibuat dengan menambahkan komponen-komponen yang ada pada toolbox sehingga memudahkan pengguna berinteraksi dengan program yang telah kita tuliskan.

Gambar 2.5 Jendela Form

e

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.

Gambar 2.6 Jendela Pengkodean

f

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 g

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

h 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. Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Gambar 2.9 Jendela Form Layout 2.7 Microsoft Acces

Microsoft Acces merupakan salah satu software yang tercakup dalam satu paket Microsoft Office yang digunakan untuk mengolah database. Microsoft Acces 2003 merupakan pengolah database yang berjalan pada sistem operasi windows.

Gambar 2.10 Tampilan awal Microsoft Acces


2.8 Crystal Report

Crystal Report adalah perangkat lunak yang khusus digunakan untuk membuat laporan dan dapat digunakan oleh bahasa pemrograman lain dengan cara menghubungkan keduanya (linkage).

Crystal Report merupakan program khusus untuk membuat laporan yang terpisah dengan program Microsoft Visual Basic 6.0 tetapi keduanya dapat dihubungkan (linkage). Mencetak dengan Crystal Report hasilnya lebih baik dan lebih mudah. Hal ini karena pada Crystal Report banyak tersedia objek-objek maupun komponen yang mudah digunakan. Crystal Report juga dapat dihubungkan dengan basis data (database) (Dhewiberta et al,2002).


BAB 3

SEKILAS TENTANG SMP NEGERI 12 MEDAN

3.1 Profil SMP Negeri 12 Medan

SMP Negeri 12 Medan berada di Jalan M.H. Thamrin No. 52 Medan. Sekolah ini dulunya bernama Perguruan Husni Thamrin dan pada waktu itu sekolah ini masih menjadi milik swasta. Setelah memalui proses yang sangat panjang akhirnya pada tahun 1968 sekolah ini di Nasionalisasi menjadi SMP Negeri 10 Medan. Pada tahun 1997 sekolah ini kemudian berganti nama menjadi SMP Neger 12 Medan. Seperti sekolah-sekolah lain pada umumnya, sekolah ini memiliki ruang kelas untuk kegiatan belajar mengajar siswa-siswanya serta beberapa fasilitas lainnya yang dapat mendukung kegiatan siswa dalam belajar.


Fasilitas tersebut diantaranya adalah ruang laboratorium komputer, lapangan basket, UKS, mushola dan fasilitas lainnya yang diharapkan dapat membantu kegiatan belajar siswa.

3.2 Struktur Organisasi

Komite Sekolah Zulfan M. Isa

Kepala Sekolah Drs. Risman hamrin

Wakil Kepala Sekolah Lazwardi

Tata Usaha Darma Pakpahan

PKS Bid. Kurikulum

PKS Bid. Sar / Pra

PKS Bid. Kesiswaan

PKS Bid. Humas

Dra. Saiyar

Hasael Barus

P. S ianturi, S.PD

Hamidah, BA


Wali Kelas/ Guru

BP / BK

Drs. Linus Manalu

Siswa / i

Gambar 3.1 Struktur Organisasi SMP Negeri 12 Medan

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.

3.3.2 Wakil Kepala Sekolah

Wakil Kepala Sekolah bertugas membantu Kepala Sekolah dalam kegiatan: 1. Menyusun kurikulum. 2. Mengatur segala program kesiswaan. 3. Merencanakan kebutuhan sarana dan prasarana. 4. Mengatur dan mengembangkan hubungan dengan masyarakat. 5. Mengatur dan mengawasi penyelenggaraan program pendidikan. 6. Mengatur mutasi siswa. 7. Menyusun program kegiatan ekstrakurikuler. 8. Mengatur penyusunan bahan pengajaran dan pengembangan kurikulum. Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

3.3.3 Tata Usaha

Kepala Tata Usaha mempunyai tugas melaksanakan ketatausahaan sekolah dan bertanggung jawab kepada kepala sekolah dalam kegiatan-kegiatan sebagai berikut: 1. Penyusunan program kerja tata usaha sekolah. 2. Pengolahan keuangan sekolah. 3. Penyusunan administrasi perlengkapan sekolah. 4. Penyusunan laporan pelaksanaan kegiatan pengurusan ketatausahaan secara umum.

3.3.4 Komite Sekolah

Membantu sekolah dalam hal: 1. Peningkatan kegiatan sekolah. 2. Peningkatan kesejahteraan guru dan pegawai.

3.3.5 Bidang Sarana dan Prasarana

Tugas yang dilakukan disini adalah: 1. Pembangunan sarana dan prasarana. 2. Pengawasan dalam hal sarana dan prasarana yang ada.

3.3.6 Bidang Kurikulum Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Membantu Kepala Sekolah dalam hal: 1. Pelaksanaan kur ikulum. 2. Pemberian tugas guru. 3. Mengawas jadwal pelaksanaan KBM. 4. Administrasi kurikulum dan penelitian. 5. Konsultasi dengan Kepala Sekolah.

3.3.7 Bidang Kesiswaan

Membantu Kepala Sekolah dalam bidang: 1. Pembinaan disiplin sekolah. 2. Koordinator pembinaan siswa. 3. Koordinator pelaksana kegiatan intra / ekstrakulikuler. 4. Koordinator kegiatan sekolah.

3.3.8 Bidang Humas (Hubungan Masyarakat)

Membantu Kepala Sekolah dalam hal: 1. Hubungan sekolah, masyarakat , dan pemerintah. 2. Hubungan sekolah dengan perguruan tinggi. 3. Penelusuran tamatan. 4. Penelitian 5. Konsultasi dengan Kepala Sekolah.


3.3.9 Guru

Guru bertanggung jawab kepada kepala sekolah dan mempunyai tugas melaksanakan kegiatan proses belajar mengajar secara efektif dan efisien.

3.3.10 Wali Kelas

Membantu kepala sekolah dalam kegiatan: 1. Pengelolaan kelas. 2. Penyelenggaraan administrasi kelas. 3. Pembuatan catatan khusus tentang siswa. 4. Penyusunan statistik bulanan siswa. 5. Penyusunan nilai siswa.

3.3.11 Guru Pembimbing dan Konseling (BP / BK)

Bertugas

membantu

Kepala

Sekolah

dalam

penyusunan

pembimbingan dan konseling di sekolah.

3.4 Visi dan Misi Sekolah

3.4.1 Visi Sekolah Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

dan

pelaksanaan

Mempersiapkan lulusan sebagai calon pemimpin yang memiliki wawasan iman dan taqwa (IMTAK) serta IPTEK yang handal, berbudi pekerti luhur, daya juang kuat, integritas tinggi, berwawasan lingkungan mandiri serta mempunyai kemampuan intelektual (IQ), kemampuan emosional (EQ) dan kemampuan spiritual (SQ) yang tinggi serta kepribadian utuh dan kokoh.

3.4.2 Misi Sekolah

1. Mewujudkan kultur lingkungan belajar yang aman, tentram, nyaman dan kondisif. 2. Menyiapkan para lulusan terampil dan mampu berkomunikasi bahasa inggris dan mengoperasikan komputer secara maksimal. 3. Mewujudkan sekolah yang efektif, yang memiliki profil kuat, mandiri, kreatif, krisis dan inofatif. 4. Menyiapkan lulusan yang potensial.


BAB 4

ANALISIS DAN PERANCANGAN SISTEM

4.1 Analisis Sistem

Analisis sistem adalah penguraian dari suatu sistem informasi yang utuh ke dalam bagian-bagian komponennya dengan maksud untuk mengidentifikasikan dan mengevaluasi

permasalahan-permasalahan,

kesempatan-kesempatan,

hambatan-

hambatan yang terjadi dan kebutuhan-kebutuhan yang diharapkan sehingga dapat diusulkan perbaikan-perbaikannya (Jogianto Hartono, 1999).

4.1.1 Analisis Sistem yang Berjalan

SMP Negeri 12 Medan mengalami masalah dalam proses pengolahan data guru dan pegawai. Pengelolaan data yang masih dilakukan secara manual dengan cara Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

mencatatnya dalam sebuah arsip membuat para pegawainya kesulitan jika suatu waktu membutuhkan data seorang pegawai atau guru.

4.2 Perancangan Sistem

Perancangan sistem adalah gambaran, perencanaan dan pembuatan sketsa atau pangaturan dari beberapa elemen yang terpisah ke dalam satu kesatuan yang utuh dan berfungsi. Tahapan perancangan memiliki tujuan untuk merancang sistem baru yang dapat menyelesaikan masalah-masalah yang dihadapi oleh suatu instansi atau lembaga yang diperoleh dari pemilihan alternatif sistem yang terbaik.

4.2.1 Perancangan Database

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 merancang 5 tabel yang dipergunakan, yaitu tabel pegawai, pangkat, tunjangan, potongan dan admin. Di bawah ini merupakan gambaran masing-masing tabel. Tabel 4.1 Pegawai Nama Field

Tipe

Panjang

Keterangan

Nip

Double

Nip (primary key)

Nama

Text

30

Nama

Kelamin

Text

10

Jenis kelamin

Tgl_lahir

Date/time

Tanggal lahir


Tempat_lahir

Text

30

Tempat lahri

Agama

Text

10

Agama

Pendidikan

Text

8

Pendidikan

Alamat

Text

50

Alamat

Status

Text

15

Status nikah

Jml_anak

Currency

No_telp

Text

Jumlah anak 12

Nomor telepon

Tabel 4.2 Pangkat Nama Field

Tipe

Panjang

Keterngan

Nip

Duoble

Nip (primary key)

Jabatan

Text

10

Jabatan

Golongan

Text

5

Golongan

Masa_kerja

Text

15

Masa kerja

Gaji_pokok

Currency

Gaji pokok

Tgl_masuk

Date/time

Taggal mulai masuk

satatuspegawai

Text

5

Status kepegawaian

Tabel 4.3 Tunjangan Nama Field

Tipe

Panjang

Keterangan

Nip

Duoble

Nip (primary key)

Istri_suami

currency

Tunjangan Istri/suami

T_anak

Currency

Tunjangan Anak

T_fungsional

Currency

Tunjangan Fungsional

T_umum

Currency

Tunjangan umum


T_beras

Currency

Tunjangan beras

Subsidi_askes

Currency

Subsidi askes

T_khususpajak

Currency

Tunjangan khusus pajak

T_lain

Currency

Tunjangan lain

Jml_tunjangan

Currency

Jumlah tunjangan

Gaji_kotor

Currency

Gaji kotor

Tabel 4.4 Potongan Nama Field

tipe

Panjang

Keterangan

Nip

Duoble

Nip (Primary key)

Iuran_wajib

Currency

Iuran wajib

Pot_subsidi_askes

Currency

Potongan subsidi askes

Pph

Currency

Pajak penghasilan

Taperum

Currency

TAPERUM

Pot_lain

Currency

Potongan lain

Gaji_bersih

Currency

Gaji bersih

Tabel 4.5 Admin Nama Field

Tipe

Panjang

Keterangan

Nama

Text

15

Nama (primary key)

Password

Text

15

Password

4.2.2 Normalisasi Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Normalisasi merupakan teknik dalam perancangan sebuah basis data, teknik pengelompokkan atribut dari suatu relasi sehingga membentuk relasi yang baik (tanpa redudansi). Pada tabel 4.5 adalah normalisasi tabel data guru pegawai.

Tabel 4.6 Biodata Guru dan Pegawai Nama

Lazwardi

Tempt

Tgl

Golongan

lahir

lahir

Idi

26/05/1960

Masa

Pendidikan

Jabatan

kerja IV/A

26thn

Tgl

Status

Alamat

masuk

No telp

S-1

Wakasek

1/2/1986

PNS

Jl.kelambir

8497086

D-1

GBS

8/10/1985

PNS

Jl gaperta

4576223

D-III

GBS

17/7/2000

PNS

JL.Pelajar

4522287

11bln Sanggaria

Medan

12/5/1961

III/D

18thn 3 bln

Nurhayati

Idi

1/4/1974

III/D

23thn 3bln

4.2.3 Perancangan Struktur Menu Utama

Caption Level 1

Nama Level2

File

&pengolahanData

Shortcut

File Ganti password

Gantipass

Login

Login

LogOut

Logout

Keluar

Keluar Odata


Crtl+X

&Guru Dan Pegawai

Guru

&Pangkat

Pangkat

&Tunjangan

Tunjangan

&Potongan

Potongan

Pencarian

Cari

&Laporan Biodata Guru dan Pegawai

Laporan data

Gaji Guru dan Pegawai

Laporan gaji

Tabel 4.7 Struktur Menu Utama 4.2.4 Perancangan Tampilan

a

Form Pengolahan Biodata Guru dan Pegawai

Gambar 4.1 Form Pengolahan Biodata Guru dan Pegawai

b Form Pengolahan Data Pangkat


c

Gambar 4.2 Form Pengolahan Data Pangkat Form Pengolahan Data Tunjangan

Gambar 4.3 Form Pengolahan Data Tunjangan

d Form Pengolahan Data Potongan


Gambar 4.4 Form Pengolahan Data Potongan e

Form Pencarian

Gambar 4.5 Form Pencarian

f

Form Laporan Biodata Guru Dan Pegawai


Gambar 4.6 Form Laporan Biodata Guru dan Pegawai

g

Form Laporan Gaji Guru Dan Pegawai

Gambar 4.7 Form Laporan Gaji Guru dan Pegawai


h Bentuk Laporan Biodata Guru Dan Pegawai

Gambar 4.8 Bentuk Laporan Biodata Guru dan Pegawai

i

Bentuk Laporan Daftar Gaji

Gambar 4.9 Bentuk Laporan Daftar Gaji 4.3 Flow Chart

4.3.1 Simbol-Simbol Flow Chart

a

Direction Simbol Simbol

Simbol Arus/

Kegunaannya Untuk menghubungkan antara simbol yang satu dengan yang lain

Simbol off-Line Connector

Simbol untuk keluar/masuk prosedur atau proses dalam lembar/halaman yang lain

Simbol Connector

Simbol untuk keluar/masuk prosedur atau proses dalam lembar/halaman yang sama

Table 4.8 Direction Simbols b Processing Simbol Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Simbol

Kegunaan

SimbolProcess

Simbol yang menunjukkan pengolahan yang dilakukan oleh komputer

Simbol Communication Link

Simbol yang menunjukkan pengolahan yang tidak dilakukan oleh komputer

Simbol Decision

Simbol untuk kondisi yang akan menghasilkan beberapa kemungkinan jawaban/aksi

Simbol off-Line Connector Simbol untuk mempersiapkan penyimpanan yang akan digunakan sebagai tempat pengolahan didalam stroge Simbol Terminator

Simbol untuk permulaan atau akhir dari suatu program

Tabel 4.9 Processing Simbol c

Tabel Input output simbol Simbol

Simbol Input Output

Kegunaannya Simbol yang menyatakan proses input dan output tergantung dengan jenis peralatannya

Simbol Punched Card

Simbol yang menyatakan input berasal dari kartu atau output ditulis ke kartu

Simbol Magnetic Tape Unit

Simbol yang menyatakan input berasal dari pita magnetic atau output disimpan ke pita magnetic


Simbol Disk and On-Line Stroge

Simbol untuk menyatakan input berasal dari disk atau output disimpan ke disk

Simbol Transmittal Tape

Simbol untuk menyatakan input berasal dari mesin jumlah/hitung.

Simbol Display

Simbol yang menyatakan peralatan output yang digunakan yaitu layar, plotter, printer, dan sebagainya Tabel 4.10 Input Output Simbol

4.3.2 Flow Chart Form Menu Utama


Mulai Ganti Password

Login Master Log Out

Keluar

Gurur dan Pegawai Pangkat Pengolahan Data Tunjangan

Potongan

Pengolahan Data

Guru dan Pegawai

Data Guru dan Pegawai Laporan Gaji Guru dan Pegawai Data Guru dan Pegawai Cetak Gaji Guru dan Pegawai

Gambar 4.10 Flow Chart Form Menu Utama 4.3.3 Flow Chart Form Pengolahan Biodata Guru dan Pegawai Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Form Pengolahan Data Guru dan Pegawai

Masukan Data

Tidak Data sudah ada

Database pegawai

Simpan

Ya Data ditampilkan

Ubah

Ya

Simpan

Tidak

Hapus

Ya

Olah Data lain

Ya

Tidak Menu Utama

Tidak

Gambar 4.11 Flow Chart Form Pengolahan Biodata Guru dan Pegawai

4.3.4 Flow Chart Form Pengolahan Data Pangkat Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Form Pengolahan Data Pangkat i Masukan Data

Tidak Data Sudah ada

Simpan

Database pangkat

Ya Data ditampilkan

Ubah

Ya

Simpan

Tidak

Hapus

Ya

Olah Data lain

Tidak Menu Utama

Tidak

Gambar 4.12 Flow Chart Form Pengolahan Data Pangkat

4.3.5 Flow Chart Form Pengolahan Data Tunjangan Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Ya

Form Pengolahan Data Tunjangan i Masukan Data

Tidak data Sudah ada

Database tunjangan

Simpan

Ya Data ditampilkan

Ubah

Ya

Simpan

Tidak

Hapus

Ya

Olah Data lain

Ya

Tidak Menu Utama

Tidak

Gambar 4.13 Flow Chart Form Pengolahan Data Tunjangan

4.3.6 Flow Chart Form Pengolahan Data Potongan Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Form Pengolahan Data Potongan

Masukan Data

Tidak data Sudah ada

Simpan

Database potongan

Ya Data ditampilkan

Ubah

Ya

Simpan

Tidak

Hapus

Ya

Olah Data lain

Tidak Menu Utama

Tidak

Gambar 4.14 Flow Chart Form Pengolahan Data Potongan

4.3.7 Flow Chart Form Pencarian Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Ya

Form Pencarian

Masukan Kriteria dan kata kunci

Tekan Tombol Cari

Data Ketemu

Tidak

Pesan “Data Yang Anda Cari Tidak”

Ya Data ditampilkan

Ya Cari Data lain Tidak Menu Utama

Gambar 4.15 Flow Chart Form Pencarian

4.3.8 Flow Chart Form Laporan Biodata Guru Dan Pegawai Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Form Laporan Data Guru dan Pegawai

Keluar

Pilih nip atau nama Tidak Tersedia Ya

Menu Utama

Data ditampilkan

Gambar 4.16 Flow Chart Form Laporan Biodata Guru dan Pegawai

4.3.9 Flow Chart Form Laporan Gaji Guru dan Pegawai

Form Laporan Data Guru dan Pegawai

Keluar

Pilih nip atau nama Tidak Tersedia Ya

Menu Utama

Data ditampilkan

Gambar 4.17 Flow Chart Form Laporan Gaji Guru dan Pegawai


BAB 5 IMPLEMENTASI SISTEM

5.1 Pengertian Implementasi Sistem Implementasi sistem adalah prosedur-prosedur yang dilakukan dalam menyelesaikan desain sistem yang telah disetujui seperti menginstall sistem, menguji sistem yang dibuat dan memulai sistem baru atau sistem yang diperbaiki.

Implementasi sistem merupakan tahap inti dari pekerjaan sebuah proyek, pada tahap inilah pembangunan komponen-komponen pokok sebuah sistem informasi dilakukan berdasarkan desain yang telah dibuat.

5.2 Tujuan Implementasi Sistem

Adapun tujuan dari implementasi sistem ini adalah sebagai berikut: 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. Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

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.

5.3 Spesifikasi Sistem

Untuk melakukan perancangan dan menjalankan sistem ini diperlukan beberapa komponen seperti perangkat keras (hardware), perangkat lunak (software), dan sumber daya manusia (brainware).

5.3.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 Celeron 667 Mhz 2. Memori 64 Mb 3. Monitor super VGA 4. Hardisk minimal 10 GB 5. Keyboard 6. Mouse 7. Printer


5.3.2 Perangkat Lunak (Software)

Untuk mendukung sistem kerja dari hardware maka diperlukan juga software didalamnya. Untuk sistem ini diperlukan spesifikasi perangkat lunak, yaitu : 1. Sistem Operasi Windows XP. 2. Aplikasi bahasa pemograman Microsoft Visual Basic 6.0. 3. Microsoft Acces 2003 4. Seagate Crystal Report

5.3.3 Sumber Daya Manusia (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 orang yang menganalisa sistem dengan mempelajari masalahmasalah yang timbul dan menentukan kebutuhan-kebutuhan pemakai dan mengidentifikasi pemecahan yang beralasan. 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 orang yang akan menangani secara langsung pengolahan data pada sistem yang telah dibuat atau bisa dikatakan pengguna sistem.


BAB 6 KESIMPULAN DAN SARAN

6.1 Kesimpulan

Selama penulis melakukan penelitian di SMP NEGERI 12 MEDAN hingga dalam perancangan sistem, maka penulis dapat mengambil kesimpulan : 1. Pengolahan data dengan berbantukan komputer dapat meringankan pekerjaan, lebih efektif dan efesien dan tentunya dapat mempersingkat waktu kerja dan mendapatkan hasil yang akurat.. 2. Penggunaan perangkat komputer yang baik dapat menghasilkan hasil yang lebih maksimal dan dapat juga mempersingkat waktu dalam pengoperasian program.

6.2 SARAN

Adapun beberapa saran yang dapat disampaikan, yaitu: 1. Untuk melakukan pekerjaan yang membutuhkan banyak data sebaiknya diolah menggunakan komputer agar dapat meningkatkan efisiensi dalam penggunaan waktu dan tenaga. 2. Perlu dilakukan perbaikan dan pengembangan terhadap program ini agar dapat memberikan hasil yang lebih maksimal.


3. Dalam merancang sebuah program sebaiknya menggunakan perangkat komputer yang mendukung dan sesuai dengan yang dibutuhkan oleh bahasa pemograman itu sendiri agar lebih mudah dalam hal mengoperasikannya.


DAFTAR PUSTAKA

Ario Suryo Kusumo. 2003. Latihan Microsoft Visual Basic 6.0. Cetakan keenam. Jakarta : PT. Elex Media Komputindo. Dhewiberta. 2005. Pemograman Tinkat Lanjut dengan Visual Basic 6.0 dan Crystal Report. Yogyakarta : Andi. Didik Dwi Prasetyo. 2004. Belajar Sendiri Aplikasi Bisnis dan Perkantoran Menggunakan Visual Basic. Jakarta : Penerbit PT Elex Media Komputindo Kelompok Gramedia, Anggota IKAPI, Jakarta 2004 Rahadian Hadi. 2000. Membuat Laporan dengan Crystal Report 8.5 dan Visual Basic 6.0 Jakarta : PT Elex Media Komputindo. Siswoutomo Wiwit. 2006. Tip dan Trik Canggih Visual Basic 60. Jakarta : PT. Elek Media Komputindo


LAMPIRAN A LISTING PROGRAM

Form Menu Utama Private Sub about_Click() about.Show End Sub Private Sub cari_Click() caridata.Show End Sub Private Sub cetakdata_Click() cetaksemuadata.Show End Sub Private Sub cetakgaji_Click() cetaksemuagaji.Show End Sub Private Sub exit_Click() Unload Me End Sub Private Sub guru_Click() Oguru.Show End Sub Private Sub Laporandata_Click() ldata.Show End Sub Private Sub Laporangaji_Click() lgaji.Show End Sub Private Sub logout_Click() pesan = MsgBox("Anda Yakin Akan Log Out ??", vbYesNo, "Konfirmasi") If pesan = vbYes Then logout = False smlogin = True ubahpass = False data = False cari = False laporan = False cetak = False End If End Sub Private Sub MDIForm_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd End Sub Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Private Sub pangkat_Click() Opangkat.Show End Sub Private Sub potongan_Click() Opotongan.Show End Sub Private Sub smlogin_Click() login.Show End Sub Private Sub tunjangan_Click() Otunjangan.Show End Sub Private Sub ubahpass_Click() gantipass.Show End Sub

Form Login Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Activate() Text1.MaxLength = 15 Text2.MaxLength = 15 Text1.SetFocus End Sub Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd MDIForm1.ubahpass = False MDIForm1.logout = False MDIForm1.data = False MDIForm1.cari = True MDIForm1.laporan = True MDIForm1.cetak = True End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1_Click End If End Sub Private Sub Command1_Click() CekUser End Sub Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Private Sub CekUser() With Data1.Recordset .Index = "adminIdx" .Seek "=", Text1 If .NoMatch Then pesan = MsgBox("Account User Anda tidak ada !!", 0, "Konfirmasi") Text1.Text = "" Text2.Text = "" Text1.SetFocus Else If Trim(!Password) = Trim(Text2.Text) Then MDIForm1.logout = True MDIForm1.smlogin = False MDIForm1.ubahpass = True MDIForm1.data = True MDIForm1.cari = True MDIForm1.laporan = True MDIForm1.cetak = True Unload Me Else pesan = MsgBox("Mohon Periksa Kembali Nama Dan Password !", 0, "Akses Ditolak !") Text1.Text = "" Text2.Text = "" Text1.SetFocus End If End If End With End Sub

Form Ganti Password Private Sub CmdBatal_Click() Unload Me End Sub Private Sub CekUserPass() With Data1.Recordset ' Memeriksa Akun User dengan index userIdx .Index = "adminIdx" .Seek "=", Text1 ' Jika Akun ama tidak cocok If .NoMatch Then pesan = MsgBox(" Account User Anda Tidak Ada !!", 0, "Konfirmasi") Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text1.SetFocus 'Jika Password sesuai maka periksa password baru 'Jika password baru1 dan baru2 sesuai, ubah password Else If Trim(!Password) = Trim(Text2.Text) Then If Trim(Text3.Text) = Trim(Text4.Text) Then .Edit !Password = Text3.Text Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

.Update pesan = MsgBox("Password telah diganti !!", 0, "Ganti Password") Unload Me 'Jika password baru1 dan baru2 tidak sesuai Else pesan = MsgBox("Password Baru tidak cocok !!", 0, " Masukkan Kembali Password Anda !!") Text3.SetFocus End If 'Jika Login tidak sesuaidengan akun database Else pesan = MsgBox("Anda tidak berhak mengubah password !!", 0, "Akses ditolak !!") Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text1.SetFocus End If End If End With End Sub Private Sub CmdProses_Click() CekUserPass End Sub Private Sub Form_Activate() Text1.MaxLength = 15 Text2.MaxLength = 15 Text3.MaxLength = 15 Text4.MaxLength = 15 Data1.Visible = False End Sub Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4.SetFocus End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

CmdProses_Click End If End Sub

Form Pengolahan Biodata Guru dan Pegawai Private Sub cmdAdd_Click() If DBCombo1.Text = Empty Or Text1 = Empty Then If DBCombo1.Text = "" Then DBCombo1.SetFocus ElseIf Text1 = "" Then Text1.SetFocus End If Else With Data1.Recordset On Error GoTo Salah .AddNew !nip = Val(DBCombo1.Text) !nama = Text1 !kelamin = Combo1.Text !tgl_lahir = Text2 !tempat_lahir = Text3 !agama = Combo2.Text If Option1.Value = True Then !Status = Option1.Caption Else !Status = Option2.Caption End If !jml_anak = Text6 !pendidikan = Text4 !no_telp = Text7 !alamat = Text5 .Update End With pesan = MsgBox("Data Berhasil Ditambah", 0, "informasi") BelumAda On Error GoTo 0 Exit Sub Salah: pesan = MsgBox("Periksa Kembali Data", 0, "informasi") End If End Sub Private Sub Cmdcancel_Click() BelumAda End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDelete_Click() If DBCombo1.Text = "" Then pesan = MsgBox("Pilih Pegawai Yang Akan Di Hapus ", _ 0, "Informasi") DBCombo1.SetFocus Else With Data1.Recordset If Not .NoMatch Then Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

pesan = MsgBox("Yakin Akan Menghapus Pegawai Bernama " & _ !nama & "..??", vbYesNo, "Konfirmasi") If pesan = vbYes Then .Delete BelumAda End If Else pesan = MsgBox("Data Tidak Ditemukan", 0, "Konfirmasi") End If End With End If End Sub Private Sub cmdUpdate_Click() If DBCombo1.Text = "" Then DBCombo1.SetFocus Else With Data1.Recordset If Not .NoMatch Then .Edit !nip = Val(DBCombo1.Text) !nama = Text1 !kelamin = Combo1.Text !tgl_lahir = Text2 !tempat_lahir = Text3 !agama = Combo2.Text If Option1.Value = True Then !Status = Option1.Caption ElseIf Option2.Value = True Then !Status = Option2.Caption End If !pendidikan = Text4 !alamat = Text5 !jml_anak = Text6 !no_telp = Text7 .Update pesan = MsgBox("Data Berhasil Diubah", 0, "Konfirmasi") Form_Load Else pesan = MsgBox("Data Tidak Ditemukan", 0, "Konfirmasi") End If End With Data1.Refresh End If End Sub Private Sub DBCombo1_Change() Dim namagb As String On Error GoTo kosong With Data1.Recordset .Index = "pegawaiIdx" .Seek "=", DBCombo1.Text If .NoMatch Then Text1 = "" Text2 = "" Text3 = "" Text4 = "" Combo1 = "" Text5 = "" Text6 = "" Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Text7 = "" Else Text1 = !nama Combo1 = !kelamin Text2 = !tgl_lahir Text3 = !tempat_lahir Combo2 = !agama If Option1.Caption = !Status Then Option1.Value = True Else Option2.Value = True End If Text4 = !pendidikan Text5 = !alamat Text6 = !jml_anak Text7 = !no_telp End If Exit Sub kosong: End With End Sub Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd Combo2.AddItem ("Islam") Combo2.AddItem ("Kristen") Combo2.AddItem ("Hindu") Combo2.AddItem ("Budha") Combo1.AddItem ("Laki-laki") Combo1.AddItem ("Perempuan") Combo1.ListIndex = 0 Combo2.ListIndex = 0 Data1.Visible = False BelumAda End Sub Private Sub BelumAda() DBCombo1.Text = "" Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" Option1.Value = False Option2.Value = False Combo1.Text = "" Combo2.Text = "" End Sub Private Sub Option2_Click() If Option2.Value = True Then Text6 = "0" End If End Sub Private Sub Text6_Change() Option2_Click Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

End Sub

Form Pengolahan Data Pangkat Private Sub cmdAdd_Click() On Error GoTo Salah If DBCombo1.Text = Empty Or Text2 = Empty Then If DBCombo1.Text = "" Then DBCombo2.SetFocus ElseIf Text2 = "" Then Text2.SetFocus End If Else With RSpangkat .AddNew !nip = DBCombo2.Text !jabatan = Text2 !golongan = Combo1.Text !masa_kerja = Text3 !gaji_pokok = Text4 !tgl_masuk = Text5 !statuspegawai = Combo2.Text .Update End With On Error GoTo 0 cmdAdd.Enabled = False cmdUpdate.Enabled = True cmdDelete.Enabled = True pesan = MsgBox(" Data Berhasil Ditambahkan ", 0, "Konfirmasi") BelumAda Form_Load End If Exit Sub Salah: pesan = MsgBox(" Periksa Lagi Data ", 0, "Konfirmasi") End Sub

Private Sub Cmdcancel_Click() BelumAda Form_Load End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDelete_Click() With RSpangkat If Not .EOF Then pesan = MsgBox("Yakin Menghapus Pendidikan Pegawai NIP " & _ !nip & "??", vbYesNo, "Konfirmasi") If pesan = vbYes Then .Delete BelumAda Form_Load End If Else pesan = MsgBox("Data Tidak Ditemukan", 0, "Konfirmasi") Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

End If End With End Sub Private Sub cmdUpdate_Click() If DBCombo1.Text = "" Then DBCombo2.SetFocus Else With RSpangkat If Not .NoMatch Then .Edit !nip = Val(DBCombo2.Text) !jabatan = Text2 !golongan = Combo1.Text !masa_kerja = Text3 !gaji_pokok = Val(Text4) !tgl_masuk = Text5 !statuspegawai = Combo2.Text .Update pesan = MsgBox("Data Berhasil Diubah", 0, "Konfirmasi") BelumAda Form_Load Else pesan = MsgBox("Data Tidak Ditemukan", 0, "Konfirmasi") End If End With End If End Sub Private Sub DBCombo1_Change() Dim namagb As String On Error GoTo Salah With Data1.Recordset Data1.Recordset.Index = "PegawaiIdx2" Data1.Recordset.Seek "=", DBCombo1.Text If Not .NoMatch Then Text1 = !kelamin DBCombo2.Text = !nip RSpangkat.Seek "=", Data1.Recordset!nip If RSpangkat.NoMatch Then BelumAda cmdAdd.Enabled = True cmdDelete.Enabled = False cmdUpdate.Enabled = False Else Combo1.Text = RSpangkat!golongan Combo2.Text = RSpangkat!statuspegawai Text2 = RSpangkat!jabatan Text3 = RSpangkat!masa_kerja Text4 = RSpangkat!gaji_pokok Text5 = RSpangkat!tgl_masuk cmdAdd.Enabled = False cmdUpdate.Enabled = True cmdDelete.Enabled = True End If Else End If End With On Error GoTo 0 Exit Sub Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Salah: pesan = MsgBox(" End Sub

Periksa Lagi Data

", 0, "Konfirmasi")

Private Sub DBCombo2_Change() Dim namagb As String On Error GoTo Salah With Data1.Recordset Data1.Recordset.Index = "PegawaiIdx" Data1.Recordset.Seek "=", DBCombo2.Text If Not .NoMatch Then DBCombo1.Text = !nama Text1 = !kelamin Text2 = RSpangkat!jabatan Combo2.Text = !RSpangkat!statuspegawai Combo1.Text = !RSpangkat!golongan Text5 = RSpangkat!tgl_masuk Text4 = RSpangkat!gaji_pokok Text3 = RSpangkat!masa_kerja Else BelumAda cmdAdd.Enabled = True cmdDelete.Enabled = False cmdUpdate.Enabled = False End If End With On Error GoTo 0 Exit Sub Salah: End Sub Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd BukaKoneksi Text1.Enabled = False cmdAdd.Enabled = True cmdDelete.Enabled = False cmdUpdate.Enabled = False DBCombo1.Text = "" DBCombo2.Text = "" Text1 = "" Combo1.AddItem (" ") Combo1.AddItem ("II/C") Combo1.AddItem ("II/D") Combo1.AddItem ("III/A") Combo1.AddItem ("III/B") Combo1.AddItem ("III/C") Combo1.AddItem ("III/D") Combo1.AddItem ("IV/A") Combo2.AddItem ("PNS") Combo2.AddItem ("GTT") Combo2.AddItem ("PTT") Combo2.ListIndex = 0 Data1.Visible = False BelumAda End Sub Private Sub BelumAda() Combo1.Text = "" Combo2.Text = "" Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Text2 = Text3 = Text4 = Text5 = End Sub

"" "" "" ""

Form Pengolahan Data Tunjangan Private Sub DBCombo2_Change() On Error GoTo Salah With Data1.Recordset Data1.Recordset.Index = "PegawaiIdx2" Data1.Recordset.Seek "=", DBCombo2.Text If Not .NoMatch Then Text1 = !kelamin DBCombo1.Text = !nip Eksekusi RSpangkat.Seek "=", Data1.Recordset!nip If RSpangkat.NoMatch Then PangkatKosong Else Text12 = RSpangkat!gaji_pokok MJumlah = RSpangkat!gaji_pokok End If RStunjangan.Seek "=", Data1.Recordset!nip If RStunjangan.NoMatch Then Text3 = "": Text4 = "": Text6 = "" Text5 = "": Text7 = "" Text8 = "": Text9 = "" Text10 = "": Text11 = "" cmdDelete.Enabled = False cmdUpdate.Enabled = False cmdadd.Enabled = True Text3.SetFocus Else Text3 = RStunjangan!istri_suami Text4 = RStunjangan!t_anak Text5 = RStunjangan!t_fungsional Text6 = RStunjangan!t_umum Text7 = RStunjangan!t_beras Text8 = RStunjangan!subsidi_askes Text9 = RStunjangan!t_khususpajak Text10 = RStunjangan!t_lain Text11 = RStunjangan!jml_tunjangan Text13 = RStunjangan!gaji_kotor cmdUpdate.Enabled = True cmdDelete.Enabled = True cmdadd.Enabled = False End If End If End With On Error GoTo 0 Exit Sub Salah: pesan = MsgBox(" Periksa Lagi Data End Sub

", 0, "Konfirmasi")

Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Skin1.ApplySkin Me.hWnd BukaKoneksi Text1.Enabled = False Text2.Enabled = False Text11.Enabled = False Text11.FontBold = True Text12.Enabled = False Text12.FontBold = True Text13.Enabled = False Text13.FontBold = True cmdDelete.Enabled = False cmdUpdate.Enabled = False cmdadd.Enabled = True Data1.Visible = False Data2.Visible = False DBCombo1.Text = "" DBCombo2.Text = "" Text1 = "" Text2 = "" Text12 = "" Text13 = "" End Sub Private Sub DBCombo1_Change() Dim namagb As String On Error GoTo kosong With Data1.Recordset .Index = "PegawaiIdx" .Seek "=", DBCombo1.Text If Not .NoMatch Then DBCombo2.Text = !nama Text1 = !kelamin Text2 = !Status Eksekusi RSpangkat.Seek "=", Data1.Recordset!nip If RSpangkat.NoMatch Then PangkatKosong Else Text12 = RSpangkat!gaji_pokok MJumlah = RSpangkat!gaji_pokok End If RStunjangan.Seek "=", Data1.Recordset!nip If RStunjangan.NoMatch Then Text3 = "": Text4 = "": Text6 = "" Text5 = "": Text7 = "" Text8 = "": Text9 = "" Text10 = "": Text11 = "" cmdDelete.Enabled = False cmdUpdate.Enabled = False cmdadd.Enabled = True Text3.SetFocus Else Text3 = RStunjangan!istri_suami Text4 = RStunjangan!t_anak Text5 = RStunjangan!t_fungsional Text6 = RStunjangan!t_umum Text7 = RStunjangan!t_beras Text8 = RStunjangan!subsidi_askes Text9 = RStunjangan!t_khususpajak Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Text10 = RStunjangan!t_lain Text11 = RStunjangan!jml_tunjangan Text13 = RStunjangan!gaji_kotor cmdUpdate.Enabled = True cmdDelete.Enabled = True cmdadd.Enabled = False End If End If End With Exit Sub kosong: End Sub Private Sub cmdAdd_Click() If DBCombo1.Text = Empty Then pesan = MsgBox("Data Belum Lengkap, Coba Periksa Lagi!!", _ 0, "Informasi") If DBCombo1.Text = "" Then DBCombo1.SetFocus End If Else If Text3 = Empty Or Text4 = Empty Or Text5 = Empty Or Text6 = Empty Or Text7 = Empty Or Text8 = Empty Or Text9 = Empty Or Text10 = Empty Or Text11 = Empty Then pesan = MsgBox("Data Belum Lengkap, Isikan Angka Nol pada Data Yang Ingin Dikosongkan!!", _ 0, "informasi") Else tambah cmdadd.Enabled = False cmdUpdate.Enabled = True cmdDelete.Enabled = True pesan = MsgBox("data berhasil ditambah??", 0, "Konfirmasi") BelumAda Form_Load End If End If End Sub Private Sub tambah() With RStunjangan .AddNew !nip = Val(DBCombo1.Text) !istri_suami = Val(Text3) !t_anak = Val(Text4) !t_fungsional = Val(Text5) !t_umum = Val(Text6) !t_beras = Val(Text7) !subsidi_askes = Val(Text8) !t_khususpajak = Val(Text9) !t_lain = Val(Text10) !gaji_kotor = Val(Text13) !jml_tunjangan = Val(Text11) .Update End With End Sub Private Sub cmdDelete_Click() With RStunjangan If Not .EOF Then Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

pesan = MsgBox("Yakin Menghapus Tunjangan Pegawai Dengan NIP " & _ !nip & "??", vbYesNo, "Konfirmasi") If pesan = vbYes Then .Delete BelumAda cmdadd.Enabled = True cmdDelete.Enabled = False cmdUpdate.Enabled = False End If Else pesan = MsgBox("Data Tidak Ditemukan", 0, "Konfirmasi") End If End With End Sub Private Sub Eksekusi() Data2.RecordSource = "SELECT tgl_lahir,tempat_lahir,agama FROM Pegawai DBCombo1.Text & " ORDER By nip ASC" Data2.Refresh End Sub

status,nama,kelamin, WHERE nip= " &

Private Sub Text13_Change() Text11_Change End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub Text3_Change() Text11_Change End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub Text4_Change() Text11_Change End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text6.SetFocus End If Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub Text5_Change() Text11_Change End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text7.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub Text6_Change() Text11_Change End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text8.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub Text7_Change() Text11_Change End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text9.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub Text8_Change() Text11_Change End Sub Private Sub Text9_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text10.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Beep KeyAscii = 0 End If End Sub Private Sub Text9_Change() Text11_Change End Sub Private Sub Text10_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub Text10_Change() Text11_Change End Sub Private Sub cmdUpdate_Click() On Error GoTo kosong If DBCombo1.Text = "" Then DBCombo1.SetFocus Else With RStunjangan If Not .NoMatch Then .Edit !nip = Val(DBCombo1.Text) !istri_suami = Val(Text3) !t_anak = Val(Text4) !t_fungsional = Val(Text5) !t_umum = Val(Text6) !t_beras = Val(Text7) !subsidi_askes = Val(Text8) !t_khususpajak = Val(Text9) !t_lain = Val(Text10) !gaji_kotor = Val(Text13) !jml_tunjangan = Val(Text11) .Update pesan = MsgBox("Data Berhasil Diubah", 0, "Konfirmasi") BelumAda Form_Load Else pesan = MsgBox("Data Tidak Ditemukan", 0, "Konfirmasi") End If End With End If kosong: Exit Sub End Sub Private Sub Text11_Change() MJumlah = Val(Text3) + Val(Text4) + Val(Text5) Val(Text7) + Val(Text8) + Val(Text9) + Val(Text10) On Error GoTo Salah Text11 = Format(MJumlah, "########") Text13 = Val(Text11) + Val(Text12) Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

+

Val(Text6)

+

On Error GoTo 0 Exit Sub Salah: End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub BelumAda() Text3 = "": Text4 = "": Text6 = "" Text5 = "": Text7 = "" Text8 = "": Text9 = "" Text10 = "": Text11 = "" End Sub Private Sub PangkatKosong() Text12 = "" End Sub

Form Pengolahan Data Potongan Private Sub cmdAdd_Click() On Error GoTo Salah If DBCombo1.Text = Empty Or DBCombo2.Text = Empty Then pesan = MsgBox(" Data Belum Lengkap ", 0, "Konfirmasi") If DBCombo1.Text = "" Then DBCombo1.SetFocus Else Text2.SetFocus End If Else If Text3 = Empty Or Text4 = Empty Or Text5 = Empty Or Text6 = Empty Or Text7 = Empty Then pesan = MsgBox("Data Belum Lengkap, Isikan Angka Nol pada Data Yang Ingin Dikosongkan!!", _ 0, "informasi") Else tambah cmdAdd.Enabled = False cmdUpdate.Enabled = True cmdDelete.Enabled = True pesan = MsgBox("data berhasil ditambah??", 0, "Konfirmasi") BelumAda Form_Load End If End If Exit Sub Salah: pesan = MsgBox(" Periksa Lagi Data ", 0, "Konfirmasi") End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDelete_Click() With RSpotongan Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

If Not .EOF Then pesan = MsgBox("Yakin Menghapus Tunjangan Pegawai Dengan NIP " & _ !nip & "??", vbYesNo, "Konfirmasi") If pesan = vbYes Then .Delete BelumAda cmdAdd.Enabled = True cmdDelete.Enabled = False cmdUpdate.Enabled = False End If Else pesan = MsgBox("Data Tidak Ditemukan", 0, "Konfirmasi") End If End With End Sub Private Sub cmdUpdate_Click() On Error GoTo kosong If DBCombo1.Text = "" Then DBCombo1.SetFocus Else With RSpotongan If Not .NoMatch Then .Edit !nip = DBCombo1.Text !iuran_wajib = Text2 !pot_subsidi_askes = Text3 !pph = Text4 !taperum = Text5 !pot_lain = Text6 !jml_potongan = Text7 .Update pesan = MsgBox("Data Berhasil Diubah", 0, "Konfirmasi") BelumAda Form_Load Else pesan = MsgBox("Data Tidak Ditemukan", 0, "Konfirmasi") End If End With End If kosong: Exit Sub End Sub Private Sub DBCombo1_Change() On Error GoTo Salah With Data1.Recordset Data1.Recordset.Index = "PegawaiIdx" Data1.Recordset.Seek "=", DBCombo1.Text If Not .NoMatch Then Text1 = !kelamin DBCombo2.Text = !nama Text2 = RSpotongan!iuran_wajib Text3 = RSpotongan!pot_subsidi_askes Text4 = RSpotongan!pph Text5 = RSpotongan!taperum Text6 = RSpotongan!pot_lain Text7 = RSpotongan!jml_potongan Else BelumAda Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

cmdAdd.Enabled = True cmdDelete.Enabled = False cmdUpdate.Enabled = False End If End With On Error GoTo 0 Exit Sub Salah: End Sub Private Sub DBCombo2_Change() On Error GoTo Salah With Data1.Recordset Data1.Recordset.Index = "PegawaiIdx2" Data1.Recordset.Seek "=", DBCombo2.Text If Not .NoMatch Then Text1 = !kelamin DBCombo1.Text = !nip RSpotongan.Seek "=", Data1.Recordset!nip If RSpotongan.NoMatch Then BelumAda cmdAdd.Enabled = True cmdDelete.Enabled = False cmdUpdate.Enabled = False Else Text2 = RSpotongan!iuran_wajib Text3 = RSpotongan!pot_subsidi_askes Text4 = RSpotongan!pph Text5 = RSpotongan!taperum Text6 = RSpotongan!pot_lain Text7 = RSpotongan!jml_potongan cmdAdd.Enabled = False cmdUpdate.Enabled = True cmdDelete.Enabled = True End If End If End With On Error GoTo 0 Exit Sub Salah: pesan = MsgBox(" Periksa Lagi Data End Sub

", 0, "Konfirmasi")

Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd BukaKoneksi Text1.Enabled = False cmdAdd.Enabled = True cmdDelete.Enabled = False cmdUpdate.Enabled = False DBCombo1.Text = "" DBCombo2.Text = "" Text1 = "" Text7.Enabled = False Text7.FontBold = True Data1.Visible = False BelumAda End Sub Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Private Sub BelumAda() Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Text7 = "" End Sub Private Sub tambah() With RSpotongan .AddNew !nip = DBCombo1.Text !iuran_wajib = Text2 !pot_subsidi_askes = Text3 !pph = Text4 !taperum = Text5 !pot_lain = Text6 !jml_potongan = Text7 .Update End With End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub Text2_Change() Text7_Change End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub Text3_Change() Text7_Change End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Private Sub Text4_Change() Text7_Change End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text6.SetFocus End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub Private Sub Text5_Change() Text7_Change End Sub Private Sub Text6_Change() Text7_Change End Sub Private Sub Text7_Change() MJumlah = Val(Text2) + Val(Text3) Val(Text6) On Error GoTo Salah Text7 = Format(MJumlah, "########") On Error GoTo 0 Exit Sub Salah: End Sub

+

Val(Text4)

+

Val(Text5)

Form Pencarian Private Sub cmdCari_Click() Dim namagb As String If Combo1.Text = Empty Or Combo2.Text = Empty Then pesan = MsgBox("Masukkan Kriteria dan Kunci Pencarian...", _ 0, "Konfirmasi") Else Data1.RecordSource = "SELECT * FROM Pegawai WHERE " _ & Combo1.Text & " ='" & Combo2.Text & "'" Data1.Refresh With Data1.Recordset If Data1.Recordset.EOF Then pesan = MsgBox("Data Tidak Di Temukan...!!", 0, "Informasi") Data1.RecordSource = "SELECT * FROM Pegawai" Data1.Refresh End If End With End If End Sub Private Sub Cmdkembali_Click() Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

+

DBGrid1.Visible = True Frame2.Visible = False End Sub Private Sub cmdTutup_Click() Unload Me End Sub Private Sub Combo1_Click() If Combo1.Text = "Nama" Then Combo2.Clear ElseIf Combo1.Text = "Kelamin" Then Combo2.Clear Combo2.AddItem ("Laki-laki") Combo2.AddItem ("Perempuan") Combo2.ListIndex = 0 End If End Sub Private Sub Combo2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdCari_Click End If End Sub Private Sub Command1_Click() Data1.RecordSource = "select * from pegawai" Data1.Refresh End Sub Private Sub DBGrid1_Click() Frame2.Visible = True Tampilkan DBGrid1.Visible = False End Sub Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd Data1.Visible = False DBGrid1.Visible = True Frame2.Visible = False Combo1.AddItem ("Nama") Combo1.AddItem ("Kelamin") Combo1.ListIndex = 0 DBGrid1.AllowAddNew = False DBGrid1.AllowDelete = False DBGrid1.AllowUpdate = False End Sub Private Sub Tampilkan() With Data1.Recordset Text1 = !nip Text2 = !nama Text3 = !kelamin Text4 = !tgl_lahir Text5 = !tempat_lahir Text6 = !agama Text7 = !Status Text8 = !alamat Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Text9 = !pendidikan End With Data1.Refresh End Sub

Form Laporan Biodata Guru dan Pegawai Private Sub Command1_Click() Unload Me End Sub Private Sub DBCombo1_Change() With Data1.Recordset .Index = "pegawaiIdx" .Seek "=", DBCombo1.Text If Not .NoMatch Then DBCombo2.Text = !nama Text1 = !kelamin Text2 = !tgl_lahir Text3 = !tempat_lahir Text4 = !alamat Text5 = !agama Text7 = !pendidikan Text11 = !no_telp RSpangkat.Seek "=", Data1.Recordset!nip If RSpangkat.NoMatch Then Text8 = "" Text9 = "" Text10 = "" Else Text6 = RSpangkat!statuspegawai Text8 = RSpangkat!jabatan Text9 = RSpangkat!golongan Text10 = RSpangkat!masa_kerja Text12 = RSpangkat!tgl_masuk End If End If End With End Sub Private Sub DBCombo2_Change() With Data1.Recordset .Index = "pegawaiIdx2" .Seek "=", DBCombo2.Text If Not .NoMatch Then DBCombo1.Text = !nip Text1 = !kelamin Text2 = !tgl_lahir Text3 = !tempat_lahir Text4 = !alamat Text5 = !agama Text7 = !pendidikan Text11 = !no_telp RSpangkat.Seek "=", Data1.Recordset!nip If RSpangkat.NoMatch Then Text6 = "" Text8 = "" Text9 = "" Text10 = "" Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Text12 = "" Else Text6 = RSpangkat!statuspegawai Text8 = RSpangkat!jabatan Text9 = RSpangkat!golongan Text10 = RSpangkat!masa_kerja Text12 = RSpangkat!tgl_masuk End If End If End With End Sub Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd BukaKoneksi Data1.Visible = False Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False Text12.Enabled = False End Sub

Form Laporan Gaji Guru dan Pegawai Private Sub Command1_Click() Unload Me End Sub Private Sub DBCombo1_Change() With Data1.Recordset .Index = "pegawaiIdx" .Seek "=", DBCombo1.Text If Not .NoMatch Then DBCombo2.Text = !nama Text3 = !Status RSpangkat.Seek "=", Data1.Recordset!nip If RSpangkat.NoMatch Then Text1 = "" Text2 = "" Text4 = "" Else Text1 = RSpangkat!jabatan Text2 = RSpangkat!golongan Text4 = RSpangkat!gaji_pokok End If RStunjangan.Seek "=", Data1.Recordset!nip If RStunjangan.NoMatch Then Text5 = "": Text6 = "" Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Text7 = "": Text8 = "" Text9 = "": Text10 = "" Text11 = "": Text12 = "" Text13 = "": Text20 = "" Else Text5 = RStunjangan!istri_suami Text6 = RStunjangan!t_anak Text7 = RStunjangan!t_fungsional Text8 = RStunjangan!t_umum Text9 = RStunjangan!t_beras Text10 = RStunjangan!subsidi_askes Text11 = RStunjangan!t_khususpajak Text12 = RStunjangan!t_lain Text13 = RStunjangan!jml_tunjangan Text20 = RStunjangan!gaji_kotor End If RSpotongan.Seek "=", Data1.Recordset!nip If RSpotongan.NoMatch Then Text14 = "": Text17 = "" Text15 = "": Text18 = "" Text16 = "": Text19 = "" Else Text14 = RSpotongan!iuran_wajib Text15 = RSpotongan!pot_subsidi_askes Text16 = RSpotongan!pph Text17 = RSpotongan!taperum Text18 = RSpotongan!pot_lain Text19 = RSpotongan!jml_potongan End If End If End With End Sub Private Sub DBCombo2_Change() With Data1.Recordset .Index = "pegawaiIdx2" .Seek "=", DBCombo2.Text If Not .NoMatch Then DBCombo1.Text = !nip Text3 = !Status RSpangkat.Seek "=", Data1.Recordset!nip If RSpangkat.NoMatch Then Text1 = "" Text2 = "" Text4 = "" Else Text1 = RSpangkat!jabatan Text2 = RSpangkat!golongan Text4 = RSpangkat!gaji_pokok End If RStunjangan.Seek "=", Data1.Recordset!nip If RStunjangan.NoMatch Then Text5 = "": Text6 = "" Text7 = "": Text8 = "" Text9 = "": Text10 = "" Text11 = "": Text12 = "" Text13 = "" Else Text5 = RStunjangan!istri_suami Text6 = RStunjangan!t_anak Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Text7 = RStunjangan!t_fungsional Text8 = RStunjangan!t_umum Text9 = RStunjangan!t_beras Text10 = RStunjangan!subsidi_askes Text11 = RStunjangan!t_khususpajak Text12 = RStunjangan!t_lain Text13 = RStunjangan!jml_tunjangan End If RSpotongan.Seek "=", Data1.Recordset!nip If RSpotongan.NoMatch Then Text14 = "": Text17 = "" Text15 = "": Text18 = "" Text16 = "": Text19 = "" Else Text14 = RSpotongan!iuran_wajib Text15 = RSpotongan!pot_subsidi_askes Text16 = RSpotongan!pph Text17 = RSpotongan!taperum Text18 = RSpotongan!pot_lain Text19 = RSpotongan!jml_potongan End If End If End With End Sub Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd BukaKoneksi Data1.Visible = False Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False Text12.Enabled = False Text13.Enabled = False Text14.Enabled = False Text15.Enabled = False Text16.Enabled = False Text17.Enabled = False Text18.Enabled = False Text19.Enabled = False Text20.Enabled = False Text21.Enabled = False End Sub Private Sub Text13_Change() Text21_Change End Sub Private Sub Text19_Change() Text21_Change Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

End Sub Private Sub Text21_Change() MJumlah = Val(Text4) + Val(Text13) - Val(Text19) On Error GoTo Salah Text21 = Format(MJumlah, "########") On Error GoTo 0 Exit Sub Salah: End Sub Private Sub Text4_Change() Text21_Change End Sub

Form Cetak Biodata Guru dan Pegawai Private Sub Command1_Click() With Report1 .DataFiles(0) = "d:\arief\TA\Pegawai.mdb" .ReportFileName = "d:\arief\TA\dataguru.rpt" .WindowState = crptMaximized .WindowTitle = "Cetak Data Guru Pegawai" .Action = 1 End With End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd End Sub

Form Cetak Daftar Gaji Private Sub Command1_Click() With Report1 .DataFiles(0) = "d:\arief\TA\Pegawai.mdb" .ReportFileName = "d:\arief\TA\Report1.rpt" .WindowState = crptMaximized .WindowTitle = "Cetak Daftar Gaji" .Action = 1 End With End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() SkinPath = App.Path & "\skin\winaqua.skn" Skin1.LoadSkin SkinPath Skin1.ApplySkin Me.hWnd End Sub Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

LAMPIRAN B OUTPUT

Menu Utama

Login


Ganti Password

Pengolahan Biodata Guru dan Pegawai


Pengolahan Data Pangkat

Pengolahan Data Tunjangan


Pengolahan Data Potongan

Pencarian Arief Gunawan : Sistem Informasi Guru Dan Pegawai SMP Negeri 12 Medan, 2009.

Laporan Biodata Guru dan Pegawai

Laporan Gaji Guru dan Pegawai


Cetak Biodata Guru dan Pegawai

Cetak Daftar Gaji


SISTEM INFORMASI GURU DAN PEGAWAI SMP NEGERI 12 MEDAN TUGAS AKHIR ARIEF GUNAWAN

Recommend Documents