SISTEM INFORMASI PENGOLAHAN DATA GAJI PEGAWAI PADA KANTOR DINAS PERIKANAN DAN KELAUTAN LABUHAN BATU DENGAN MENGGUNAKAN VISUAL BASIC 6

SISTEM INFORMASI PENGOLAHAN DATA GAJI PEGAWAI PADA KANTOR DINAS PERIKANAN DAN KELAUTAN LABUHAN BATU DENGAN MENGGUNAKAN VISUAL BASIC 6.0

TUGAS AKHIR

Diajukan untuk melengkapi tugas dan memenuhi syarat mencapai gelar Ahli Madya

SANTI NASUTION 052406114

DEPARTEMEN MATEMATIKA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2008 Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

2

PERSETUJUAN

Judul

Kategori Nama Nomor Induk Mahasiswa Program Studi Departemen Fakultas

: SISTEM INFORMASI PERPUSTAKAAN PADA SMA NEGERI 5 MEDAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0 : TUGAS AKHIR : SUPIANI : 052406108 : DIPLOMA (D3) ILMU KOMPUTER : MATEMATIKA : MATEMATIKA DAN ILMU PENGETAHUAN ALAM (FMIPA) UNIVERSITAS SUMATERA UTARA Diluluskan di Medan, Juni 2008

Diketahui/Disetujui oleh Departemen Matematika FMIPA USU Ketua,

Pembimbing,

Dr. Saib Suwilo, M.Sc. NIP 131796149

Dra. Rahmawati Pane, M.Si. NIP 131474682

Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

3

PERNYATAAN

SISTEM INFORMASI PENGOLAHAN DATA GAJI PEGAWAI PADA KANTOR DINAS PERIKANAN DAN KELAUTAN LABUHAN BATU DENGAN MENGGUNAKAN VISUAL BASIC 6.0

TUGAS AKHIR

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

Medan, Juni 2008

SANTI NASUTION 052406114


4

PENGHARGAAN

Puji dan syukur penulis panjatkan pada Tuhan Yang Maha Pemurah dan Maha Penyayang, dengan limpah kurnia-Nya kajian ini berhasil diselesaikan dengan waktu yang telah ditetapkan. Ucapan terima kasih saya sampaikan kepada Dra. Rahmawati Pane, M.Si selaku pembimbing pada penyelesaian tugas akhir ini yang telah memberikan panduan dan penuh kepercayaan kepada saya untuk menyempurnakan kajian ini. Ucapan terima kasih juga ditujukan kepada ketua dan sekretaris Departemen Dr. Saib Suwilo, M.Sc, Drs, Henri Rani Sitepu, M.Si, Dekan dan Pembantu Dekan Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara, semua dosen pada Departemen Matematika FMIPA USU, pegawai di FMIPA USU, rekan-rekan kuliah khususnya Nur Asiah, Supiani, Khoiriyani dan Sri Suli Yanti. Akhirnya tidak terlupakan kepada kedua orang tuaku, Ayahanda dan Ibunda tercinta dan semua ahli keluarga yang selama ini memberikan dan dorongan yang diperlukan. Semoga Tuhan Yang Maha Esa akan membalasnya.


5

ABSTRAK

Perkembangan teknologi khususnya komputer pada saat ini mempunyai peranan yang sangat penting dalam kehidupan di masyarakat. Teknologi yang berkembang sesuai tuntutan zaman diharapkan menjadi sarana penunjang untuk menangani permasalahan yang timbul dalam mengelola dan menyelesaikan permasalahan yang ada di perusahaan atau organisasi. Begitu juga dengan Kantor Dinas Perikanan dan Kelautan di Labuhan Batu, diharapkan dapat menyediakan informasi yang tepat dan akurat dalam membuat pengolahan data dan informasi gaji pegawai. Sistem yang sedang berjalan pada Kantor Dinas Perikanan dan Kelautan di Labuhan Batu saat ini belum sepenuhnya menggunakan sistem komputerisasi. Sistem Informasi ini dirancang dengan menggunakan bahasa pemrograman visual basic 6.0. Sistem Informasi ini dirancang sedemikian rupa untuk mempermudah dalam pembuatan laporan gaji yang lebih cepat dan akurat serta menarik. Sistem Informasi ini bersifat dinamis, yaitu berarti bahwa informasi yang diberikan tersebut dapat berubah sewaktu-waktu berdasarkan keadaan yang sedang terjadi.


6

DAFTAR ISI

Halaman Persetujuan Pernyataan Penghargaan Abstrak Daftar Isi Daftar Tabel Daftar Gambar Bab 1 Pendahuluan 1.1 Latar Belakang Masalah 1.2 Identifikasi Masalah 1.3 Batasan Masalah 1.4 Maksud dan Tujuan 1.5 Metode Penelitian 1.6 Tinjauan Pustaka 1.7 Sistematika Penulisan

ii iii iv v vi viii ix 1 1 2 3 3 4 4 5

Bab 2 Landasan Teori dan Tinajauan Umum Perusahaan 2.1 Sistem Komputer 2.1.1 Struktur dan Fungsi Komputer 2.2 Mengenal Visual Basic (VB) 2.2.1 Memulai Visual Basic 2.2.2 Bidang Kerja 2.2.3 Komponen-komponen dalam Ms.-Visual Basic 6.0 2.3 Mengenal Integrated Develoment Environment (IDE) VB 6.0 2.4 Memahami Istilah Object, Property, Method dan Event 2.5 Tinjauan Umum Perusahaan 2.5.1 Sejarah Perkembangan Dinas Perikanan dan Kelautan 2.5.2 Kedudukan, Tugas Pokok dan Fungsi 2.5.3 Kewenangan 2.5.4 Struktur Organisasi

7 7 9 12 12 14 14 18 19 20 20 22 22 24

Bab 3 Analisa dan Perancangan Sistem 3.1 Analisa Sistem yang sedang Berjalan 3.1.1 Analisa Sistem pengolahan Data 3.1.2 Pengertian Sistem pengolahan Data 3.1.3 Evaluasi Sistem yang sedang Berjalan 3.2 Perancangan Bentuk Sistem yang sedang Berjalan 3.2.1 Aliran Sistem Informasi

25 25 25 26 27 27 27


7

3.2.2 Alat Bantu Perancangan Sistem 3.3 Database 3.4 Relasi antar Tabel Bab 4 Implemantasi Sistem 4.1 Defenisi Implementasi Sistem 4.1.1 Komponen-komponen Utama dalam Implementasi Sistem 4.1.2 Tujuan Implementasi Sistem 4.2 Desain Sistem 4.2.1 Desain Terinci

30 45 47 48 48 48 49 50 51

Bab 5 Kesimpulan dan Saran 5.1 Kesimpulan 5.2 Saran

57 57 58

Daftar Pustaka Lampiran


8

DAFTAR TABEL

Tabel 3.1 Tabel 3.2 Tabel 3.3 Tabel 3.4 Tabel 3.5

Tabel Daftar Gaji Pegawai Petugas Jabatan Pegawai Penggajian

Halaman 29 46 46 46 46


9

DAFTAR GAMBAR

Halaman Gambar 2.1 Gambar 2.2 Gambar 2.3 Gambar 2.4 Gambar 2.5 Gambar 2.6 Gambar 2.7 Gambar 2.8 Gambar 2.9 Gambar 2.10 Gambar 2.11 Gambar 2.12 Gambar 2.13 Gambar 2.14 Gambar 3.1 Gambar 3.2 Gambar 3.3 Gambar 3.4 Gambar 3.5 Gambar 3.6 Gambar 3.7 Gambar 3.8 Gambar 3.9 Gambar 3.10 Gambar 3.11 Ganbar 4.1 Gambar 4.2 Gambar 4.3 Gambar 4.4 Gambar 4.5 Gambar 4.6 Gambar 4.7

Software Struktur dan Fungsi Komputer Kotak Dialog New Project Layar Utama Visual Basic 6.0 Project Layar Utama Visual Basic Form Window Toolbox Jendela Kode Program Tampilan Visual Basic Sketsa Visual Basic Implementasi Kerja VB Logo Kantor Dinas Perikanan dan Kelautan Struktur Organisasi Dinas Perikana dan Kelautan Kabupaten Labuahn Batu Aliran Sistem Informasi Data Gaji Diagram Konteks Level Nol Flowchart Menu Utama Flowchart Menu File Flowchart Menu Laporan Flowchart Petugas Flowchart Jabatan Flowchart Pegawai Flowchart Penggajian Relasi Antar Tabel Tampilan Awal Program Tampilan Input Data Petugas Tampilan Input Data Jabatan Tampilan Input Data Pegawai Tampilan Data Penggajian Tampilan Cetak Laporan Hasil Cetak Laporan

8 10 13 13 14 15 16 16 17 18 18 20 21 24 28 32 33 39 40 41 42 43 44 45 47 51 52 53 54 55 56 56


10

BAB 1

PENDAHULUAN

1.1 Latar Belakang Masalah

Perkembangan ilmu pengetahuan dan teknologi pada saat sekarang ini mempunyai peranan yang sangat penting, salah satunya dibidang komputer. Terbukti dengan banyaknya lembaga/instansi pemerintah yang menggunakan sistem komputerisasi sebagai alat bantu untuk meningkatkan kreativitas dan aktivitas para pegawai sehingga memiliki skill yang bagus dan menjadikan lembaga ataupun instansi pemerintah memiliki kompetensi yang tinggi.

Sistem pengolahan data gaji pegawai merupakan kebutuhan yang sangat diperlukan untuk mengetahui daftar gaji pegawai pada Kantor Dinas Perikanan dan Kelautan Labuhan Batu, selain itu dapat mengetahui tunjangan gaji pegawai pada dinas tersebut.

Untuk melakukan data penggajian pada kantor dinas tersebut masih belum mengunakan komputerisasi yang akurat. Perlu diadakan pembenahan yang kompleks dan teratur didalam manajemen penggajian yang lebih baik lagi. Salah satu alat yang dapat digunakan untuk memperbaiki aktivitas penggajian tersebut adalah dengan menciptakan suatu sistem pengolahan data gaji pegawai yang benar-benar efisien dan Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

11

cepat. Karena hal ini sangat penting untuk menghindari kesalahan sistem pengolahan data gaji yang sangat diingginkan. Gaji pegawai pada Kantor Dinas Perikanan dan Kelautan Labuhan Batu melalui bantuan komputer dengan menggunakan bahasa pemograman visual basic 6.0.

Sesuai dengan penelitian dan observasi yang di lakukan di Kantor Dinas Perikanan dan Kelautan Labuhan Batu sistim pengolahan data gaji pegawai masih belum

mengunakan

komputerisasi

dalam

pengolahan

datanya,

sehingga

menggakibatkan pemrosesan waktu yang lama dan adanya keterlambatan dalam pembuatan laporan gaji yang ada di Dinas Perikanan dan Kelautan Labuahan Batu. Oleh karena itu penulis sangat tertarik untuk membuat suatu program pengolahan data.

Dari uraian diatas penulis tertarik memilih judul “Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0”.

1.2 Identifikasi Masalah

Masalah yang akan diselesaikan dalam tugas akhir ini adalah bagaimana membuat pengolahan data dan informasi gaji pegawai pada Kantor Dinas Perikanan dan Kelautan Labuhan Batu, yang masih kurang efektif.


12

1.3 Batasan Masalah

Sehubungan dengan keterbatasan waktu, biaya, kemampuan penulis dan banyaknya cakupan untuk menghindari kesimpangsiuran dalam penulisan agar judul dan latar belakang dapat dipahami dengan jelas. Maka penulis membatasi ruang lingkup penelitian hanya menyangkut pembuatan program tentang pengolahan data gaji karyawan di Kantor Dinas Perikanan dan Kelautan Labuhan Batu.

1.4 Maksud Dan Tujuan Penelitian

Maksud penulisan tugas akhir ini adalah untuk mempermudah dalam pembuatan laporan gaji dan juga sekaligus untuk mempercepat pekerjaan pegawai yang berhubungan dengan penggajian dan juga sekaligus pemisahan data antara pegawai Negeri dengan pegawai honor dengan menggunakan komputerisasi yang ada di Kantor Dinas Perikanan dan Kelauatn Kabupaten Labuhan Batu

Tujuan penyusunan tugas akhir ini adalah untuk : 1. Merancang program data gaji pegawai pada Kantor Dinas Perikanan dan Kelautan Labuhan Batu agar sistem penggajian lebih akurat dan menggunakan komputerisasi secara otomatis. 2. Meningkatkan efisiensi kerja berkenaan dengan pengolahan data gaji pegawai.


13

1.5 Metodologi Penelitian

Dalam penyusunan tugas akhir ini, penulis mengumpulkan data yang diperlukan untuk membuat program tersebut dengan langkah-langkah sebagai berikut : 1. Penelitian lapangan Penelitian ini penulis lakukan langsung di lapangan dengan menganalisa masalah terhadap objek yang telah dipilih. Dalam hal ini penulis mendahulukan penelitian (peninjauan) langsung ke Kantor Dinas perikanan dan Kelautan Labuhan Batu. 2. Selanjutnya melaksanakan wawancara dengan pihak yang bersangkutan dan observasi sehingga diperoleh data yang diperlukan dalam penulisan tugas akhir ini.

1.6 Tinjauan Pustaka

Sistem adalah sebuah tatanan keterpaduan yang terdiri atas sejumlah komponen fungsional yang saling berhubungan untuk memenuhi suatu proses atau pekerjaan tertentu. (Fahansyah, Basis Data, 1999, hal. 9).

Informasi adalah data yang telah diproses atau memiliki arti. (Raymond Mc Leod Jr, Sistem Informasi Manajemen, 1998).


14

Sistem

informasi

adalah

cara-cara

mengolah

pekerjaan

informasi

menggunakan pendekatan sistem yang berdasarkan pada prinsip-prinsip manajemen (Drs. Zulkipli Amsyah, Manajemen Sistem Informasi, Jakarta, 1997, hal. 7). Microsoft visual basic merupakan bahasa pemograman komputer yang cepat, lengkap dan mudah untuk membuat suatu aplikasi dalam microsoft windows dengan menggunakan metode Grafikal User Inteface (GUI). Visual Basic yang memudahkan pemograman untuk berinteraksi langsung dengan elemen-elemen didalam setiap bentuk pemograman. Aplikasi GUI adalah program yang memungkinkan pemakai komputer berkomunikasi dengan komputer tersebut menggunakan modus atau grafik. (Daryanto, Belajar Komputer Visual Basic, Yrama Widya, 2004).

1.7 Sistematika Penulisan

Adapun sistemat ika penulisan Tugas Akhir ini terdiri dari enam (6) Bab yaitu : BAB. I

PENDAHULUAN Bab ini berisi tentang latar belakang, perumusan masalah, ruang lingkup masalah, tujuan penelit ian, metode penelit ian dan sistemat ika penulisan.

BAB. II

LANDASAN TEORI DAN TINJAUAN PERUSAHAAN Bab ini berisi tentang t injauan umum perusahaan, sejarah singkat, struktur organisasi perusahaan, konsep dasar bahasa pemrograman, sejarah Visual Basic 6.0, menjalankan Visual Basic 6.0, dan lingkungan kerja Visua l Basic 6.0.

BAB. III ANALISA DAN PERANCANGAN SISTEM


15

Bab ini berisi tentang Analisa sistem yang sedang berjalan, dan desain/bentuk sistem yang sedang berjalan. Diagram contek

BAB. IV

IMPLEMENTASI SISTEM Pada Bab ini berisi desain sistem, analisa sistem informasi (ASI) baru, data flow diagram, relat ionship, desain file, desain program, dan desain dialog menu bar.

BAB. V

KESMPULAN DAN SARAN Bab ini merupakan bab terakhir yang berisi kesimpulan yang dipero leh serta saran-saran yang dapat diberikan untuk pengembangan sistem yang baik.


16

BAB 2

LANDASAN TEORI DAN TINJAUAN UMUM PERUSAHAAN

2.1 Sistem Komputer

Agar komputer dapat digunakan untuk mengolah data, maka harus berbentuk suatu sistem yang disebut dengan sistem komputer. Secara umum, sistem terdiri dari elemen-elemen

yang

saling

berhubungan

membentuk

satu

kesatuan untuk

melaksanakan suatu tujuan pokok dari sistem tersebut. Tujuan pokok dari sistem komputer adalah mengolah data untuk menghasilkan informasi sehingga perlu didukung oleh elemen-elemen yang terdiri dari perangkat keras (hardware), perangkat lunak (software), dan brainware.

Adapun komponen-komponen yang dimiliki komputer yaitu : 1. Hardware (Perangkat Keras) Hardware (Perangkat Keras) adalah komponen-komponen yang membentuk suatu sistem komputer yang berhubungan dengan komponen lainnya, sehingga memungkinkan komputer dapat melakukan tugasnya. Perangkat keras ini terdiri dari 3 (tiga) jenis yaitu perangkat masukan (input device), perangkat pengolah (processor) dan perangkat keluaran (output device). Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

17

2. Software (Perangkat Lunak) Software (Perangkat Lunak) adalah komponen dalam sistem komputer berupa program untuk mengatur hubungan antara hardware dan brainware serta mengawasi seluruh kegiatan CPU. Dengan adanya software ini barulah komputr dapat dipergunakan sesuai kebutuhan. Fasilitas software ini terdiri dari sistem desain, program-program dan prosedur-prosedur. Bentuk terkecil dari perangkat lunak adalah operasi aritmatik (+, -, :, x) dan logika (AND, OR, >, <, =). Dari operasi dasar ini di susun program / perangkat lunak.

Gambar 2.1 software Tingkat pemrosesan yang di kerjakan perangkat lunak pun dari machine-like, mulai berubah seperti human-like. Di dalam teori informasi, di susun hirarki informasi, mulai dari data/ fakta, kemudian setelah proses seleksi dan pengurutan menjadi sesuatu yang berguna menjadi informasi. Informasi yang di susun secara sistematis dengan suatu alur logika tertentu menjadi knowledge. Dan pada


18

akhirnya gabungan knowledge yang di gabung dari berbagai sisi guna membangun wisdom. 3. Brainware (Tenaga Pelaksana) Brainware adalah user (manusia) yang terlibat langsung didalam pengoperasian komputer dan yang akan melaksanakan semua kegiatan-kegiatan yang berhubungan dengan hardware dan software. User (manusia) yang terlibat langsung dalam sistem komputer dikategorikan dalam berbagai tingkatan, yaitu : a) Operator Operator adalah user (manusia) yang bekerja mengoperasikan komputer untuk memasukkan data atau menjalankan program yang sudah ada. b) Programmer Programmer adalah user (manusia) yang bertugas membuat program atau software berdasarkan ketentuan yang sudah ada, meliputi : i. Menganalisa dan membuat program ii. Membuat flowchart atau algoritma iii. Memeriksa dan memperbaiki kesalahan program. c) Sistem Analis Sistem analis adalah user (manusia) yang bertugas mempelajari, menganalisa serta merancang sistem program untuk suatu masalah. Ketiga komponen tersebut harus saling berhubungan dan membentuk satu kesatuan. Hardware tanpa adanya software, maka tidak akan berfungsi hanya seperti benda mati saja karena yang akan mengoperasikan adalah hardwarenya. Hardware yang sudah didukung software juga tidak akan berfungsi kalau tidak ada manusia yang mengoperasikannya.


19

2.1.1 Struktur Dan Fungsi Komputer

Struktur komputer didefinisikan sebagai cara-cara dari tiap komponen saling terkait. Struktur sebuah komputer secara sederhana, dapat digambarkan dalam diagram blok pada gambar berikut :

Gambar 2.2 Struktur dan fungsi komputer

Sedangkan fungsi komputer didefinisikan sebagai operasi masing-masing komponen sebagai bagian dari struktur. Adapun fungsi dari masing-masing komponen dalam struktur di atas adalah sebagai berikut:

a. Input Device (Alat Masukan) Adalah perangkat keras komputer yang berfungsi sebagai alat untuk memasukan data atau perintah ke dalam komputer

b.

Output Device (Alat Keluaran)


20

Adalah perangkat keras komputer yang berfungsi untuk menampilkan keluaran sebagai hasil pengolahan data. Keluaran dapat berupa hard-copy (ke kertas), soft-copy (ke monitor), ataupun berupa suara.

c.

I/O Ports Bagian ini digunakan untuk menerima ataupun mengirim data ke luar sistem. Peralatan input dan output di atas terhubung melalui port ini.

d.

CPU (Central Processing Unit) CPU merupakan otak sistem komputer, dan memiliki dua bagian fungsi operasional, yaitu: ALU (Arithmetical Logical Unit) sebagai pusat pengolah data, dan CU (Control Unit) sebagai pengontrol kerja komputer.

e.

Memori Memori terbagi menjadi dua bagian yaitu memori internal dan memori eksternal. Memori internal berupa RAM (Random Access Memory) yang berfungsi untuk menyimpan program yang kita olah untuk sementara waktu, dan ROM (Read Only Memory) yaitu memori yang haya bisa dibaca dan berguna sebagai penyedia informasi pada saat komputer pertama kali dinyalakan.

f.

Data Bus Adalah jalur-jalur perpindahan data antar modul dalam sistem komputer. Karena pada suatu saat tertentu masing-masing saluran hanya dapat membawa 1 bit data, maka jumlah saluran menentukan jumlah bit yang dapat ditransfer pada suatu saat. Lebar data bus ini menentukan kinerja sistem secara keseluruhan. Sifatnya


21

bidirectional, artinya CPU dapat membaca dan menirma data melalui data bus ini. Data bus biasanya terdiri atas 8, 16, 32, atau 64 jalur paralel.

g.

Address Bus Digunakan untuk menandakan lokasi sumber ataupun tujuan pada proses transfer data. Pada jalur ini, CPU akan mengirimkan alamat memori yang akan ditulis atau dibaca Address bus biasanya terdiri atas 16, 20, 24, atau 32 jalur paralel.

h.

Control Bus Control Bus digunakan untuk mengontrol penggunaan serta akses ke Data Bus dan Address Bus Terdiri atas 4 samapai 10 jalur paralel.

2.2 Mengenal Visual Basic (VB)

Visual Basic adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman adalah perintah-perintah yang di mengerti oleh komputer untuk melakukan tugastugas tertentu. Bahasa pemrograman Visual Basic, yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner’s All-purpose Symbolic Instruction Code) yang dikembangkan pada era 1950-an. Visual Basic merupakan salah satu Development Tool yaitu alat bantu untuk membuat berbagai macam program komputer, khususnya yang menggunakan sistem operasi Windows. Visual Basic merupakan salah satu bahasa pemrograman komputer

yang

mendukung

object

(Object

Oriented

Programming = OOP).


22

c 2.2.1 Memulai Visual Basic

Untuk memulai visual basic ada beberapa hal yang harus diperhat ikan.

Antara lain :

1. Perancangan Interface ( tampilan ) 2. Menentukan Properties 3. Pembuatan Bahasa Pemograman

Berikut ini adalah Contoh Tampilan Visual Basic 6.0

Gambar 2.3 Kotak Diolog New Project

Tampilan awal dari Visual Basic, Klik Standard Exe dan Klik Open lalu akan muncul :


23

Gambar 2.4 Layar utama visual basic 6.0

2.2.2 Bidang Kerja

Didalanm bidang kerja ada beberapa hal yang harus diperhatikan antara lain yaitu : 1. Menu Bar, yaitu kumpulan dari beberapa icon yang biasanya terletak diatas atau dibawah

yste.

2. Form, yaitu lembar kerja yang akan dijadikan tampilan

ystem data.

3. Project explorer, yaitu sarana untuk mengakses bagian – bagian pembentuk project. 4. Windows properties, yaitu berpungsi sebagai penyimpan segala properties dari objek yang diperhatikan dalam rancangan user interface

2.2.3 Komponen-komponen Dalam Ms-Visual Basic 6.0

1. Project Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

24

Project adalah sekumpulan modul atau form atau file bentukan dari proyek berektensi, jendela projek berisi nama projek dan form-form yang digunakan dalam projek (aplikasi).

Gambar 2.5 Project 2. Form Form adalah suatu objek yang dipakai sebagai tempat bekerja program aplikasi. Saat membuat suatu program aplikasi baru, maka akan otomatis Setelah Form yang ada diaktifkan maka yang muncul dilayar adalah :


25

Gambar 2.6 Layar Utama Visual Basic

3. Form Window Form window adalah suatu objek yang dipakai sebagai tempat program aplikasi. Pada saat membuat suatu program (proyek) baru akan otomatis tersedia suatu Form dan disebut form 1. pada saat mendesain form, terdapat titik-titik yang disebut Grid. Grid berguna untuk pengaturan tata letak objek yang dimasukan dalam form, karena gerakan petunjuk mouse akan sesuai.

Gambar 2.7 Form Window

4. Toolbox Toolbox adalah kotak alat yang berisi icon-icon untuk memasukkan objek tertentu kedalam form.


26

Gambar 2.8 Toolbox

5.

Kode Program

Kode Program merupakan tempat penulisan intruksi - intruksi yang digunakan untuk menjalankan aplikasi. Untuk menampilkan jendela kode program dapat memilih view dari baris menu, lalu klik kode atau dapat dengan klik ganda salah satu objek yang ada dalam proyek (aplikasi), termasuk form itu sendiri.

Gambar 2.9. Jendela Kode Program Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

27

6. Event Misalnya klik, seret, tunjuk Event adalah peristiwa atau kejadian yang diterima oleh suatu objek, dan lain-lain. Event yang diterima suatu objek akan memicu aplikasi untuk menjalankan kode program yang ada didalamnya. Contohnya : Private Sub Command1_ Click ()

Ini berarti Objek Command menggunakan event clik, maka bila ada instruksi didalamnya akan dijalankan.

2.3 Mengenal Integrated Development Environment (IDE) VB 6

Aktifkan VB 6 melalui tombol Start > Programs > Microsoft Visual Studio 6.0 >Microsoft Visual Basic 6.0.

Tunggulah beberapa saat hingga muncul tampilan berikut :

Gambar 2.10 Tampilan Visual Basic


28

Pilih Standard EXE dan klik tombol Open. Anda akan melihat tampilan area kerja atau IDE VB 6. Kenali bagian-bagian utama di dalam IDE VB 6 berikut ini :

Gambar 2.11 Seketsa Visual Basic

2.4 Memahami Istilah Object, Property, Method dan Event Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

29

Dalam pemrograman berbasis obyek (OOP), anda perlu memahami istilah object, property, method dan event sebagai berikut : Object

: Komponen di dalam sebuah program

Property

: Karakteristik yang dimiliki object

Method

: Aksi yang dapat dilakukan oleh object

Event

: Kejadian yang dapat dialami oleh object

Sebagai ilustrasi anda dapat menganggap sebuah mobil sebagai obyek yang memiliki property, method dan event. Perhatikan gambar berikut :

Gambar 2.12 Implementasi Kerja V.B


30

Implementasinya dalam sebuah aplikasi misalnya anda membuat form, maka form tersebut memiliki property, method, dan event. Sebagaimana pemrograman visual lain seperti Delphi dan Java, VB juga bersifat event driven progamming. Artinya anda dapat menyisipkan kode program pada event yang dimiliki suatu objek.

2.5 Tinjauan Umum Perusahaan

2.5.1. Sejarah Pengembangan Dinas Perikanan dan Kelautan

Berdirinya Kantor Dinas Perikanan dan Kelautan Labuhan batu pada awal tahun 1999. setelah didakan otonomi perda no 04 tahun 2001 tentang pembentukan susunan organisasi dan tata kerja dinas-dinas Kantor daerah Kabupaten Labuhan Batu. Kantor Dinas Perikanan dan Kelautan di gabung dengan Kantor Peternakan. Pada tanggal 01 Januari 2003 sesuai perda No 10 tahun 2002 tentang perubahan atas peraturan daerah Kabupaten Labuhan Batu No 04 tahun 2001 tentang pembentukan susunan organisasi dan tata kerja dinas-dinas daerah kabupaten Labuhan batu. Kantor dinas Perikanan di pisah kembali dengan Dinas Peternakan. Kemudian terbentuklah kantor Kantor Dinas perikanan dan kelautan sampai dengan sekarang.

PEMERINTAH KABUPATEN LABUHAN BATU DINAS PERIKANAN DAN KELAUTAN JALAN W.R. SUPRATMAN NO. TELP.(0624)351666 RANTAU PRAPAT


31

Gambar : 2.13 Logo Kantor Dinas Perikanan dan Kelautan

2.5.2. Kedudukan, Tugas Pokok dan Fungsi

Kedudukan, tugas pokok dan fungsi dinas perikanan dan Kelautan adalah sebagai berikut : a. Dinas Perikanan merupakan unsur pelaksana pemerintah kabupaten di bidang perikanan dan kelautan. b. Dinas perikanan dan kelautan di pimpin oleh kepala dinas yang beradah dibawah dan bertanggung jawab kepada Bupati melalui sekrtaris Daerah c. Dinas perikanan dan Kelaitan mempunyai tugas melaksanakan kewenagan otonomi daerah dibidang perikanan dan kelautan. Dinas perikanan dan kelautan mempunyai fungsi : a. Perumusan kebijakan teknis dibidang perikanan dan kelautan . b. Pemberian perjanjian dan pelayanan umum. c. Pembinan terhadap unit pelaksanaan teknis dan cabang Dinas dibidang Perikanan dan Kelautan. Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

32

d. Pengolahan urusan ketatausahaan Dinas.

2.5.3. Kewenangan

Kewenagan Dinas Perikanan dan Kelautan dalam melaksanakan fungsi adalah sebagai berikut : 1. Penetapan kebijakan dan pengolahan plasma nutfah spesifikasi lokasilokasi serta suaka perikanan di wilayah laut Kabupaten. 2. Pemberian izin usaha dan pegawasan pembudidayaan, penangkapan dan pengangkutan ikan didarat dan diperairan lautwilayah kabupaten. 3. Penataan dan pengolahan perairan darat dan laut. 4. Penetapan kebijakan dan pengawasan explorasi, exploitasi, konservasi dan penglolahan kekayaan laut sebatas wilayah laut kewenagan Kabupaten. 5. Pemberian izin dan pengwasan pemasagan rumput diwilayah perairan kewengan kabupaten. 6. Pembagunan dan pengolahan pangkalan pendaratan ikan. 7. Pembagunan dan peglolahan tempat pelelangan ikan. 8. Pengendalian terhadap pelaksanaan pemberantasan penyakit ikan. 9. Penyusunan perencana bidang kelautan Dan Perikanan. 10. Perjanjian bidang Perikanan dan dan Kelautan.


33

2.5.4 Struktur Organisasi

KEPALA DINAS BAGIAN TATA USAHA KELOMPOK JABATAN FUNGSIONAL

SUB BAG UMUM

SUB BAG KEUANGAN

SUB BAG KEPEGAWAIAN

SUB DINAS PROGRAM

SUB DINAS PRODUKSI DAN BINA USAHA

SUB DINAS KEKAYAAN LAUT

SEKSI PENYUSUNAN PROGRAM

SEKSI PEMBENAHAN DAN BUDI DAYA

SEKSI EKSPLORASI

SEKSI PENDATAAN DAN INFORMASI

SEKSI PENANGKAPAN

SEKSI EKSPLOITASI

SEKSI MONITORING EVALUASI DAN

SEKSI BINA MUTU

SEKSI PERLINDUNGAN DAN KONSERVASI

SEKSI PEMBINAAN USAHA DAN AQUABISNIS

SEKSI PENGAWASAN SARANA DAN PRASARANA PENANGKAPAN

Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan UPTD CAB. DINAS Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

34

Gambar : 2.14 Struktur Organisasi Dinas Perikanan Dan Kelautan Kabupaten Labuhan Batu

BAB 3

ANALISA DAN PERANCANGAN SISTEM

3.1 Analisa Sistem Yang Sedang Berjalan

3.1.1 Analisa Sistem Penggolahan Data

Bentuk dari sistem jaringan kerja serta peralatan pendukung yang diterapkan suatau perusahaan merupakan faktor yang mempengaruhi bentuk dan kecepatan pengolahan data dan menggunakan komputer umumnya terbagi atas tiga (3) tipe yaitu digolongkan atas : 1.

Manual Dalam metode manual semua operasi data dilakukan dengan tanggan manusia dan bantuan alat-alat penting sepeti, kertas, pensil, dan lain-lain.

2.

Elektronikal


35

Merupakan gabungan dari manusia dan mesin, dan misalnya seorang pegawai yang kerja yang menggunakan mesin pencetak barang. 3.

Peralatan kerja berlubang Metode ini menggunakan semua alat yang diperlukan, yang biasa disebut dengan dengan suatu sistem warkat unit ( unit record system).

3.1.2 Pengertian Sistem Pengolahan Data

Adapun pengertian-pengertian dasar dari judul Tugas Akhir ini adalah sebagai berikut a. Pengertian Sistem Sistem adalah suatu jaringan yang saling berhubungan berkumpul bersamasama untuk melakukan suatu kegiatan atau untuk menyelesaikan suatu sarana tertentu. Suatu system mempunyai komponen-komponen batasan system, lingkugan system,penghubung, masukan,pengolahan data, sasaran serta tujuan. b. Pengertian Data Dan Pengolahan Data Data adalah bentuk jamak dari fakta. Dengan demikian pengolahan data dapat diartikan sebagai suatu proses yang dilakukan untuk memanipulasi dalam pemakaian data. Menurut Drs.Jhon J.Longkutoy data adalah suatu istilah majemuk dari fakta yang mengandung arti yang dihubungkan dengan kenyataan symbol, gambar, angka, huruf yang menunjukkan suatu ide, kondisi, atau situasi dan lainnya. Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

36

Pengolahan data yang ditangani dengan baik akan membuahkan hasil yag dangat berarti bagi dunia usaha. Adapun tujuan pengolahan data adalah untuk menghasilkan suatu output yang segera dapat dipergunakakan, yaitu sebagai dasar untuk penggambilan keputusan atau informasi. Hasil pengolahan data atau output biasanya disebut informasi atau kesimpulan. Argumentasi atau sebagai dasar peramalan atau pengambilan keputusan.

3.1.3 Evaluasi Sistem Yang Sedang Berjalan

Selama berlangsungnya penelitian penulis terhadap sistem pengolahan data gaji pegawai pada Kantor Dinas Perikanan dan Kelautan Labuhan Batu bahwa sistem pengolahan data gaji masih secara manual denggan menggunakan aplikasi Exel. Di samping itu untuk mengetahui jumlah tunjangan dan potongan setiap bulanya para pegawai harus membuka lembaran kerja yang lama.

3.2 Perancangan Bentuk Sistem Yang Sedang Berjalan

Contoh laporan data gaji pegawai Dinas Perikanan dan Kelautan Labuhan Batu yang sedang berjalan saat ini, terlihat pada tabel 3.1.

3.2.1 Aliran Sistem Informasi


37

Aliran sistem informasi bertujuan untuk mengetahui bagaimana terjadinya proses pengolahan data karyawan dan juga untuk mengetahui masalah-masalah yang ada serta kelemahan-kelemahan pada sistem yang sedang dipakai pada saat ini. Jika pada sistem lama terdapat kekurangan maka dapat disempurnakan dengan menggunakan sistem baru.

Aliran sistem informasi (ASI) data Gaji Pegawai pada Dinas Perikanan dan Kelautan Kab. Labuhan Batu. Dapat dilihat pada gambar dibawah ini:

PEGAWAI

ADMINISTRASI

PIMPINAN

Data pegawai

+uang

+uang


38

+uang

Gambar 3.1 Aliran Sistem Informasi Data Gaji


Tabel 3.1 Laporan Gaji Pegawai

39


40

3.2.2 Alat Bantu Perancangan Sistem

Untuk dapat melakukan langkah-langkah pengembangan sistem sesuai dengan metode pembangunan yang tersektruktur maka dibutuhkan alat dan teknik untuk melaksanakannya. Alat-alat yang digunakan dalam perancangan sistem pada umumnya berupa diagram.

Adapun alat bantu yang digunakan dalam perancangan pengembagan sistem yang digunakan dalam research adalah : a.

Data Flow Diagram

Data Flow Diagram (DFD) adalah gambaran sistem secara logika. Gambaran ini t idak tergantung pada perangkat keras, lunak, struktur data atau organisasi. Pada tahap analisa, penanganan notasi simbo l lingkaran dan anak panah mewakili / menggambarkan arus data dalam perancangan sistem sangat membantu sekali didala m komunikasi dengan pemakaian sistem menggunakan notasi-notasi ini untuk menggambarkan arus dari data sistem.

Ada beberapa symbol DFD yang digunakan untuk menggambarkan data beserta proses transformasi data, antara lain : 1.

Terminal

2.

Proses


41

b.

3.

Aliran data

4.

File

Diagram Contek ( Context Diagram )

Diagram context adalah sebuah diagram sederhana yang menggambarkan hubungan antara entity luar, masukan dan keluaran dari sistem. Diagram konteks dipresentasikan dengan lingkaran tunggal yang mewakili keseluruhan sistem. Symbol-symbol yang digunakan dalam Diagram Context antara lain :

1.

Terminal

2.

Proses

3.

Aliran

4.

File


42

Bagian Keuangan

Pegawai Data Pegawai

Gaji Pegawai

Daftar Slip Gaji

SISTEM INFORMASI PENGOLAHAN DATA GAJI PEGAWAI

Laporan Daftar Pegawai Laporan Daftar Gaji Pegawai Laporan Daftar Gaji Pegawai Pebulan Laporan Daftar Slip Gaji Pegawai

PIMPINAN

Gambar 3.2 Diagram Konteks


43

Pegawai

Data Pegawai

Data Pegawai

Daftar Gaji Slip

Bagian Keuangan

1

Input Data

F1 Petugas

F3 Pegawai

F2 Jabatan 2

Penggajian F4 Tunj Anak

F5 Penggajian 3

Pembuatan Laporan

Laporan Daftar Pegawai Laporan Daftar Gaji Pegawai Laporan Daftar Gaji Pegawai Pebulan Laporan Daftar Slip Gaji Pegawai

PIMPINAN

Gambar 3.3 Level Nol


44

c.

Daftar Kejadian

Daftar kejadian digambarkan dalam bentuk kalimat sederhana dan berfungsi untuk memodelkan yang tejadi dalam lingkungan sehari hari dan membutuhkan tanggapan dari system. Misalnya : konsumen memesan barang kesistem, konsumen membatalkan barang dari system, manajeman meminta laporan barang dari system dan sebagainya.

Suatu kejadian mewakili aliran data atau proses dalam diagram konteks serta deskripsi penyimpanan yang digunakan untuk memodelkan data harus diperhatikan dalam kaitannya dengan daftar kejadian.

Adapun cara mendeskripsikan daftar kejadian adalah sebagai berikut: 1. Pelaku adalah entity luar, jadi bukan system contohnya adalan sebagai berikut: PENGGAJIAN DITERIMA OLEH SISTEM Pernyatan diatas adalah keliru, karena system sebagai pelaku, yang betul adalah sebagai berikut : KONSUMEN MEMESAN 2. Menguji setiap entity luar dan mencoba mengevaluasi setiaap entity luar yang terjadi pada system. 3. Hal hal dengan kejadian yang spesfik, yang tak sengaja menyatu dalam paket yang sama.


45

4. Harus dingat bahwa kejadian yang dimodelkan bukan hanya interaksi normal antara system dengan entity lua, karena itu harus diefaluasi kebutuhan system ntuk menanggapi kejadian yang gagal. 5. Setiap aliran keluaran sebaiknya merupakan respon dari kejadian. 6. Setiap kejadian yang tidak berorirntasi pada waktu dalam daftar kejadian sebaiknya mempunyai masikan sehigga system dapat mendeteksi kejadian yag berlangsung. 7. Setiap kejadian sebaiknya menghasilkan keluaran langsung sebagai respon atau disimpan dalam berkas.


46

3.2.3 FLOW CHART

Menandakan dokumen, biasa dalam bentuk surat formulir, biku atau cetakan

Multi dokumen

Proses manual

Proses yang dlakukan komputer

Transmisi yang mewakili symbol tertentu untuk dignakan pada aliran lain pada halaman lain


47

Data penyimpanan

Proses apa saja yang tidak terdefenisi

Menandakan dokumen yang diarsipkan

Terminasi yang mewakili symbol tertentu untuk digunakan pada aliran lain pada halaman yang sama

Terminasi yang menandakan awal dan akhir dari suatu aliran


48

Pengambilan keputusan

Masukan data secara manual

Layar peraga (monitor)


49

Disini penulis menggunakan algoritma dengan flowchart. Adapun flowchart yang akan dibahas antara lain yaitu : 1. Flowchart Menu Utama

Mulai X Menu Utama

Y

File

Menu File

A

Menu Laporan

B

T

Laporan

Y

T

T

Exit

Y

Keluar

Gambar 3.4 Flowchart Menu Utama Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

50

2. Flowchart Menu File

A

Menu File

Petugas

Y

Petugas

A1

Jabatan

A2

Pegawai

A3

Penggajian

A4

T

Jabatan

Y

T

Pegawai

Y

T T

Penggajian

Y

Gambar 3.5 Flowchart Menu File


51

3. Flowchart Menu Laporan

B

Menu Laporan

Pil : 1

Tampil Pil : 1

y

Cetak

y

Cetak Pil 1

y

Cetak Pil 2

y

Cetak Pil 3

y

Cetak Pil 4

t

t

Pil : 2

Tampil Pil : 2

y

Cetak

t

t

y

Pil : 3

Isi Bln

Tampil Pil : 3

Cetak

t

t

Pil : 4

y

Isi Thn

Tampil Pil : 4

Cetak

t

t

t

Exit

y

X

Pil 1 = Lap. Daftar Pegawai Pil 2 = Lap. Daftar Gaji Pegawai Pil 3 = Lap. Daftar Gaji Pegawai Perbulan Pil 4 = Lap. Daftar Gaji Pegawai Pertahun

Gambar 3.6 Flowchart Menu Laporan


52

4. Flowchart Petugas

A1

Pesan Data sdh ada

Petugas

S

Y Y

Tambah

Isi Kd Ptgs

T

Isi Data

Ketemu

Simpan

T

T

K X

Simpan Data Petugas

T

Y

Cari

Y

Isi Ptgs

Ketemu

Y

Y

Tampil Data Petugas

T

Hapus

T

Y

Pesan Hapus

Koreksi

T

Batal

Y

T

K

Y

Pesan Koreksi S

Gambar 3.7 Flowchart Petugas


53

5. Flowchart Jabatan

A2

Pesan Data sdh ada

Jabatan

S

Y Y

Tambah

Isi Kd Jb

T

Isi Data

Ketemu

Simpan

T

T

K X

Simpan Data Jabatan

T

Y

Cari

Y

Isi Kd Jb

Ketemu

Y

Y

Tampil Data Jabatan

T

Hapus

T

Y

Pesan Hapus

Koreksi

T

Batal

Y

T

K

Y

Pesan Koreksi S

Gambar 3.8 Flowchart Jabatan


54

6. Flowchart Pegawai

A3

Pesan Data sdh ada

Pegawai

S

Y Y

Tambah

T

Isi NIP

Isi Data

Ketemu

Simpan

T

T

K X

Simpan Data Pegawai

T

Y

Cari

Y

Isi NIP

Ketemu

Y

Y

Tampil Data Pegawai

T

Hapus

T

Y

Pesan Hapus

Koreksi

T

Batal

Y

T

K

Y

Pesan Koreksi S

Gambar 3.9 Flowchart Pegawai


55

8. Flowchart Penggajian

A4

Pesan Data tdk ada

Penggajia n

S

T

Y

Isi NIP

Tambah

Ketemu

Y

Isi Data

Simpan

Y

Simpan Data Penggajian

T

T

Y

Cari T

K X

Isi NIP

Ketemu

Y

Y

Tampil Data Penggajian

T

Hapus

T

Koreksi

Y

Pesan Hapus

T

Batal

Y

T

K

Y

Pesan Koreksi S

Gambar 3.10 Flowchart Penggajian

3.3 Database

Database (Basis Data) adalah kumpulan dari data yang berhubungan antara satu dengan yang lainnya, tersimpan di perangkat keras komputer dan menggunakan Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

56

perangkat lunak untuk memanipulasinya. Database merupakan salah satu komponen yang pent ing dalam sistem ko mputerisasi, karena merupakan basis data dala m menyediakan informasi bagi para pengguna.

Tabel 3.2 Petugas Field Name Kode_Ptgs Nama_Ptgs

Type Data

Size

Text Text

4 20

Description Kode Petugas Nama Petugas

Tabel 3.3 Jabatan Field Name Kode_Jab Nama_Jab Gapok

Type Data

Size

Text Text Currency

4 20 8

Description Kode Jabatan Nama Jabatan Gaji Pokok

Tabel 3.4 Pegawai Field Name NIP Nama Alamat Jenkel Agama Tgl_Lahir Status Jlh_Anak

Type Data

Size

Text Text Text Text Text Date Text Integer

9 30 35 15 15 8 15 2

Description Nomor Induk Pegawai Nama Alamat Jenis Kelamin Agama Tanggal Lahir Status Diri(Kwn/Tdk) Jumlah Anak

Tabel 3.5 Penggajian Field Name NIP Tunj_Istri

Type Data

Size

Text Currency

9 8

Description Nomor Indup Pegawai Tunjangan Istri


57

Tunj_Ank Tunj_Makan Tunj_Fungsional Gaji_Kotor Pot_Hutang Pot_Pajak Gaji_Bersih Kode_Ptgs

Currency Currency Currency Currency Currency Currency Currency Text

8 8 8 8 8 8 8 4

Tunjangan Anak Tunjangan Makan Tunjangan Fungsional Gaji Kotor Potongan Hutang Potongan Pajak Gaji Bersih Kode Petugas

3.4 Relasi Antar Tabel

Pegawai

Penggajian NIP Tunj_Istri Tunj_Ank Tunj_Makan Tunj_Fungsional Gaji Kotor Pot_Hutang Pot_Pajak Gaji Bersih Kode_Ptgs

NIP Nama Alamat Jenkel Agama Tgl_Lahir Status Jlh_Anak Kode_Jab

Jabatan Kode_Jab Nama_Jab Gapok

Petugas Kode_Ptgs Nama_Ptgs

Gambar 3.11 Relasi Antar Tabel


58

BAB 4

IMPLEMENTASI SISTEM

4.1 Definisi Implementasi Sistem

Definisi implementasi sistem merupakan tahapan pembagun sistem secara lengkap agar siap untuk dioperasikan.

4.1.1 Komponen-komponen Utama Dalam Iplementasi Sistem

Komponen-komponen yang paling utama dalam mengimlementasikan suatu sistem yaitu: 1. Pembagunan Perangkat Keras a. Micro processor minimal pentium II b. Hardisk untuk tempat sistem beroperasi sebagai media penyimpanan data c. Memory minimal 32 MB d. Monitor suoer VGA e. Keyboard Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

59

f. Printer g. Disk Drive 3.5 Foloppy, Disket 1.44 MB

2. Pembangunan Instalasi Perangkat Lunak (Softwer) a. Sistem operasi windows 98/XP b. Anti virus untuk mengurangi kemungkinan untuk terjadinya kerusakan sistem c. Prongram yang dirancang dengan megunakan pemrograman Visual Basic 6.0 3. Perangkat Manusia (Brainware) pegawai yang megerti komputer untuk menjadi operator.

4.1.2 Tujuan Implementasi Sistem

Adapun tujuan dari implemen sistem adalah sebagai berikut: a. Menyelesaikan sistem yang ada didalam dokumentasi desain sistem yang telah disetuui. b. Menulis, menguji dan mendokumentasikan program-program dan prosedurprosedur yang diperlukan oleh desain sistem yang disetujui. c. Memastikan bahwa personil dapat mengoperasikan sistem yang baru d. Memperhitungkan bahwa sistem memenuhi permintaan pemakean yaitu menguji sistem secara menyeluruh.


60

e. Memastikan bahwa konwersi kesistem baru berjalan secara benar, yaitu dengan merencanakan, mengontrol dan melakukan instalasi sistem baru secara benar.

4.2 Desain Sistem

Dari penjelasan yang diutarakan pada bab sebelumnya, dapat kita ketahui bahwa sistem yang ada sekarang ini mengalami beberapa kendala yang dihadapai untuk mendapatkan suatu data yang dibutuhkan oleh kantor Dinas Perikanan dan Kelautan Labuhn Batu. Untuk menghadapi masalah-masalah yang ada maka dibuatlah suatu perancangan sistem.

Perancangan sistem baru (desain sistem baru) adalah suatu perancangan atau desain yang menerangkan elemen-elemen apa saja yang mendukung untuk terwujudnya suatu sistem yang baru. Adapun tujuan dari sistem adalah untuk mempercepat pengambilan keputusan, perincian yang muda sehingga tidak terjadi kesalahan-kesalahan dalam menjalankannya.


61

4.2.1 Desain Terinci

Dari hasil rancangan program dapat dilihat tampilan hasil program sebagi berikut ini:

Gambar 4.1 Tampilan awal Program Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

62

Gambar 4.2 Tampilan Input Data Petugas


63

Gambar 4.3 Tampilan Input Data Jabatan


64

Gambar 4.4 Tampilan Input Data Pegawai


65


Gambar 4.5 Tampilan Data Penggajian

66


67

Gambar 4.6 Tampilan Cetak Laporan

Gambar 4.7 Hasil Cetak Laporan Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

68

BAB 5

KESIMPULAN DAN SARAN

5.1 Kesimpulan

Berdasarkan hasil penelitian dan pengamatan selama melakukan pengumpulan data yang berhubungan Pengolahn data gaji. Pengumpulan data ini dilakukan di Dinas Perikanan dan Kelautan Labuhan Batu Maka demikian dapat dibuat sistem baru dan dapat diambil beberapa kesimpulan antara lain : 1. Dengan

mnenggunakan

komputer

dan

program

aplikasinya

akan

meningkatkan efisiensi kerja dari Dinas Perikanan Dan Kelautan Labuhan Batu. 2. Proses pengolahan data data gaji dirancang dengan bahasa pemograman, sehingga hasil yang diperoleh berupa informasi yang dapat disajikan secara cepat dan dapat menghemat dalam penyimpanan data. 3. Dengan menggunakan program aplikasi pengolahan data gaji maka kesalahan pada nomor urut dan kode tidak akan terjadi. 4. Penggunaan komputer dengan menggunakan bahas pemograman Visual Basic 6.0, sangat membantu dalam penyimpanan atau pun pengolahan data dengan baik 5. Sistem baru ini akan mempermudah dalam pengolahan data, melakukan penambahan, pengubahan, pengapusan data dengan ini akan menyediakan informasi kapan saja diperlukan


69

5.2 Saran

Dengan adanya kesimpulan atas penelitian yang telah dilakukan maka dari itu dapat dikemukakan beberapa saran yang dapat menjadi bahan atau data untuk mempertimbangkan lebih lanjut dalam usaha meningkatkan pemrosesan data gaji yang ada pada Dinas Perikanan dan Kelautan Labuhan Batu.

Adapun beberapa saran yang dianggap berguna antara lain dibawah ini : 1. Penggantian dari sistem yang lama kesistem yang baru yang memakan waktu yang lama untuk penyesuaian. Penggantian sistem lama kesistem baru harus bertahap hal ini dikarenakan sistem lama dengan sistem baru dapat juga dipakai secara bersamaan. Hal ini tidak akan mengganggu pengolahan data sampai sistem yang baru dapat dikuasai oleh pemakai sistem. 2. Penerapan sistem yang baru ini harus dilakukan perbandingan dengan sistem yang lama sehingga sistem yang baru akan kelihatan kelebihannya jika dibandingkan dengan sisten yang lama. 3. Untuk pelaksanaan sistem yang baru seharusnya berkomunikasi antara pemimpin dan anggota pemrosesan data, dapat ditingkatkan. Dengan jalan seorang pemimpin seharusnya memberikan kebijakan kepada anggota tentang hal apa saja yang harus dirancang dalam setiap pemecahan suatu masalah.


70

DAFTAR PUSTAKA

Agung Gregorius. 2002. Belajar Sendiri Macromedia Dreamweaver MX. Jakarta: PT. Elex Media Komputindo , Kelompok Gramedia, Anggota IKAPI. Abdul Kadir. 2002. Dasar Yogyakarta: Andi.

Pemrograman

Web Dinamis Menggunakan PHP.

Fahansyah. 1999. Basis Data, hal. 9 Hakim Lukmanul dan Uus Musalini. 2004. Cara Cerdas Menguasai Layout, Desain dan Aplikasi Web. Jakarta: PT. Elex Media Komputindo. Jogiyanto. 2005. Analisis & Desain Sistem Informasi. Edisi III. Yogyakarta: Penerbit ANDI Onong, E, U. 1981. Sistem Informasi Manajemen. Jakarta : Penerbit CV. Mandar Maju Yuswanto. 2003. Pemograman client-server Microsoft visual basic 6.0. Prestasi Pustaka


71

LAMPIRAN


72

Listing Program dbModule

Public cn As New ADODB.Connection Public rsPegawai As New ADODB.Recordset Public rsRs As New ADODB.Recordset Public rsPenggajian As New ADODB.Recordset Public rsQryGajiPegawai As New ADODB.Recordset Public rsPetugas As New ADODB.Recordset Public rsJabatan As New ADODB.Recordset Public tme As String Public ladd As Boolean Public ledit As Boolean Public Isitext As String Public cTgl, cBln, cThn As String Public strSQL As String Public SQlSimpan As String Public SQLHapus As String Public SQLUpdate As String Public Sub Connect() Set cn = New ADODB.Connection cn.ConnectionString = "Provider =Microsoft.Jet.OLEDB.3.51.0;" & _ "Data Source=" & App.Path & "\GAJI.mdb" cn.Open End Sub Public Sub PesanSudahAda(frm As Form) MsgBox "Data sudah ada!", vbCritical, "Data Suda Ada" End Sub Public Sub PesanKosong(frm As Form) MsgBox "Data tidak boleh kosong!", vbCritical, "Data Kosong" End Sub Public Sub PesanSimpan(frm As Form) MsgBox "Data sudah disimpan!", vbInformation, "Simpan Data" End Sub Public Sub PesanUpdate(frm As Form) MsgBox "Data sudah di-update!", vbInformation, "Update Data" End Sub Public Sub IsiDataText1() Isitext = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz.," End Sub Public Sub IsiDataText2() Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

73

Isitext = "0123456789" End Sub Public Sub IsiDataText3() Isitext = "()-0123456789" End Sub

Listing Program MDIForm1

Private Sub JUDUL1_Click() On Error GoTo salah Kode = InputBox("Masukkan Kode Yang Akan Di Laporkan !!!", "KANTOR DINAS PERIKANAN DAN KELAUTAN LABUHAN BATU") If DataEnvironment1.rsCommand7.State = adStateOpen Then DataEnvironment1.rsCommand7.Close End If DataEnvironment1.Command7 (Kode) CetTranPerKode.Show salah: End Sub Private Sub ctklprn_Click() FrmLaporan.Show End Sub Private Sub Gaji_Click() frmPenggajian.Show End Sub

Private Sub Jab_Click() frmJabatan.Show End Sub Private Sub Lap_Click() FrmLaporan.Show End Sub Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu mnuMastStitch End If Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

74

End Sub Private Sub MnuPtgs_Click() frmPetugas.Show End Sub Private Sub Peg_Click() frmPegawai.Show End Sub Private Sub qsys_Click() ans = MsgBox("Are you sure you want to quit the system?", vbYesNo + vbExclamation, "Quit System?") If ans = vbYes Then End Else Exit Sub End If End Sub Private Sub Timer1_Timer() MDIForm1.Caption = Right(MDIForm1.Caption, Len(MDIForm1.Caption) - 1) + Left(MDIForm1.Caption, 1) End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case Is = "Peg" frmPegawai.Show Case Is = "Gaji" frmPenggajian.Show Case Is = "Rpt" FrmLaporan.Show Case "Quit" ans = MsgBox("Are you sure you want to quit the system?", vbYesNo + vbExclamation, "Quit System?") If ans = vbYes Then End Else Exit Sub End If End Select End Sub


75

Listing Program Status

Option Explicit Private Sub Timer1_Timer() On Error Resume Next Bar1.Value = Bar1.Value + 5 Label1.Caption = Bar1.Value If Bar1.Value = 100 Then Animation1.Close Timer1.Enabled = False Unload Me Timer2.Enabled = False End If End Sub Private Sub Timer2_Timer() Timer2.Enabled = False End Sub Private Sub Timer3_Timer() Bar1.Value = Bar1.Value + 5 Label1.Caption = Bar1.Value If Bar1.Value = 100 Then Animation1.Close Timer1.Enabled = False Unload Me End If End Sub Private Sub Timer4_Timer() Timer4.Enabled = False End Sub


76

Listing Program frmPetugas

Dim txt As Control Dim ESC As Byte Private Sub cmdAdd_Click() Frame1.Enabled = True cmdDelete.Enabled = False cmdupdate.Enabled = False Me.cmdAdd.Enabled = False Me.cmdSave.Enabled = True Me.cmdcancel.Enabled = True Frame2.Enabled = False lv1.Enabled = False Call clrTxt Me.txtKode_Ptgs.SetFocus ladd = True End Sub Private Sub cmdcancel_Click() Me.txtKode_Ptgs.Enabled = True Me.cmdAdd.Enabled = True Me.cmdcancel.Enabled = False Me.cmdSave.Enabled = False Me.cmdupdate.Enabled = False Me.cmdSave.Enabled = False Me.cmdDelete.Enabled = False lv1.Enabled = True Me.txtSearch.Text = "" Call clrTxt Frame1.Enabled = False Frame2.Enabled = True Me.cmdAdd.SetFocus ladd = False ledit = False End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDelete_Click() Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

77

If rsPetugas.State = adStateOpen Then Set rsPetugas = Nothing Set rsPetugas = New ADODB.Recordset rsPetugas.Open "Select * from Petugas ", cn, adOpenDynamic, adLockOptimistic With rsPetugas If Not .EOF Then reply = MsgBox("Benar akan menghapus data?", vbQuestion + vbYesNo, "Konfirmasi Hapus Data") If reply = vbYes Then SQLHapus = "delete from Petugas where Kode_Ptgs='" & Me.txtKode_Ptgs.Text & "'" cn.Execute SQLHapus MsgBox "Data sudah dihapus!", vbInformation, "Hapus Data" End If End If End With Set rsPetugas = New ADODB.Recordset rsPetugas.Open "Select * from Petugas", cn, adOpenDynamic, adLockOptimistic Call loadLV cmdcancel_Click Me.txtSearch.Text = "" End Sub

Private Sub cmdrefresh_Click() Set rsPetugas = New ADODB.Recordset If rsPetugas.State = adStateOpen Then Set rsPetugas = Nothing rsPetugas.Open "Select * from Petugas", cn, adOpenDynamic, adLockOptimistic Call loadLV Me.txtSearch.Text = "" Call clrTxt Me.cmdDelete.Enabled = False Me.cmdupdate.Enabled = False Me.cmdcancel.Enabled = False End Sub Private Sub cmdSave_Click() Dim strsqlsave, strsqlupdate Dim X If ladd Then If Me.txtKode_Ptgs.Text <> "" And _ Me.txtNama_Ptgs.Text <> "" Then X = Len(Me.txtKode_Ptgs.Text) If X < 4 Then Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

78

MsgBox "Kode Bidang Studi Harus 4 Karakter!!", vbCritical, Me.Caption Me.txtKode_Ptgs.SetFocus Exit Sub Else Connect Set rsPetugas = New ADODB.Recordset If rsPetugas.State = adStateOpen Then Set rsPetugas = Nothing rsPetugas.Open "Select * from Petugas where Kode_Ptgs='" & Me.txtKode_Ptgs.Text & "'", cn, adOpenDynamic, adLockOptimistic With rsPetugas If Not .EOF Then PesanSudahAda frmPetugas Me.txtKode_Ptgs.SetFocus SendKeys "{home}+{End}" Exit Sub End If End With Call SaveData '-------Frame3.Visible = True Timer1.Enabled = True Me.cmdcancel.Enabled = False Me.cmdSave.Enabled = False Me.lv1.Enabled = True Me.Frame2.Enabled = True Me.txtSearch.Text = "" Me.cmdAdd.Enabled = True Me.cmdAdd.SetFocus '---------------End If Else PesanKosong frmPetugas Exit Sub End If ElseIf ledit Then If Me.txtKode_Ptgs.Text <> "" And _ Me.txtNama_Ptgs.Text <> "" Then Call UpdateData PesanUpdate frmPetugas Else PesanKosong frmPetugas Exit Sub End If End If cmdcancel_Click Set rsPetugas = New ADODB.Recordset rsPetugas.Open "Select * from Petugas", cn, adOpenDynamic, adLockOptimistic loadLV Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

79

Set rsPetugas = Nothing End Sub Sub UpdateData() strsqlupdate = "update Petugas set Nama_Ptgs ='" & Trim$(Me.txtNama_Ptgs.Text) & "' where Kode_Ptgs='" & Me.txtKode_Ptgs.Text & "'" cn.Execute strsqlupdate End Sub Private Sub cmdUpdate_Click() Me.txtKode_Ptgs.Enabled = False Me.cmdupdate.Enabled = False Me.cmdSave.Enabled = True Me.cmdcancel.Enabled = True Me.cmdDelete.Enabled = False cmdAdd.Enabled = False cmdAdd.Enabled = False Frame1.Enabled = True Frame2.Enabled = False lv1.Enabled = False Me.txtNama_Ptgs.SetFocus SendKeys "{home}+{end}" ledit = True End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub Private Sub Form_Load() Me.Top = 500 Me.Left = 3000 Me.WindowState = 0 Connect Set rsPetugas = New ADODB.Recordset rsPetugas.Open "Select * from Petugas ", cn, adOpenDynamic, adLockOptimistic Call loadLV ledit = False ladd = False Me.cmdcancel.Enabled = False Me.cmdDelete.Enabled = False Me.cmdupdate.Enabled = False Me.cmdSave.Enabled = False Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

80

End Sub Private Sub clrTxt() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next End Sub Private Sub RetFields() On Error Resume Next Set rsPetugas = New ADODB.Recordset rsPetugas.Open "Select * from Petugas where Kode_Ptgs='" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "'", cn, adOpenDynamic, adLockOptimistic With rsPetugas Me.txtKode_Ptgs.Text = .Fields!Kode_Ptgs Me.txtNama_Ptgs.Text = .Fields!Nama_Ptgs End With End Sub Private Sub loadLV() 'On Error Resume Next lv1.ListItems.Clear With rsPetugas Do While Not .EOF Set j = lv1.ListItems.Add(, , .Fields!Kode_Ptgs) j.SubItems(1) = .Fields!Nama_Ptgs .MoveNext Loop End With

End Sub Private Sub lv1_Click() If lv1.ListItems.Count <> 0 Then Set rsPetugas = New ADODB.Recordset rsPetugas.Open "Select * from Petugas where Kode_Ptgs='" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "'", cn, adOpenDynamic, adLockOptimistic With rsPetugas If Not .EOF Then Call RetFields End If End With Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

81

Me.cmdDelete.Enabled = True Me.cmdupdate.Enabled = True Me.cmdcancel.Enabled = True Me.txtSearch.Text = "" End If End Sub Private Sub Timer1_Timer() Bar1.Value = Bar1.Value + 10 Me.Label9.Caption = Bar1.Value If Bar1.Value = 100 Then Timer1.Enabled = False Frame3.Visible = False Bar1.Value = 0 PesanSimpan frmPetugas End If End Sub Private Sub txtSearch_Change() Set rsPetugas = New ADODB.Recordset If rsPetugas.State = adStateOpen Then Set rsPetugas = Nothing rsPetugas.Open "Select * from Petugas where Kode_Ptgs like'%" & Me.txtSearch.Text & "%'", cn, adOpenDynamic, adLockOptimistic Call loadLV Set rsPetugas = Nothing Set rsPetugas = New ADODB.Recordset rsPetugas.Open "Select * from Petugas where Kode_Ptgs='" & Me.txtSearch.Text & "'", cn, adOpenDynamic, adLockOptimistic With rsPetugas If Not .EOF Then Call RetFields Me.cmdDelete.Enabled = True Me.cmdupdate.Enabled = True Me.cmdcancel.Enabled = True Else 'Call clrTxt End If End With End Sub Private Sub SaveData() strsqlsave = "insert into Petugas(Kode_Ptgs,Nama_Ptgs)" & _ "values('" & Me.txtKode_Ptgs.Text & "'," & _ "'" & Me.txtNama_Ptgs.Text & "');" cn.Execute strsqlsave End Sub Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

82

Listing Program frmJabatan

Dim txt As Control Dim ESC As Byte Private Sub cmdAdd_Click() Frame1.Enabled = True cmdDelete.Enabled = False cmdupdate.Enabled = False Me.cmdAdd.Enabled = False Me.cmdSave.Enabled = True Me.cmdcancel.Enabled = True Frame2.Enabled = False lv1.Enabled = False Call clrTxt Me.txtKode_Jab.SetFocus ladd = True End Sub Private Sub cmdcancel_Click() Me.txtKode_Jab.Enabled = True Me.cmdAdd.Enabled = True Me.cmdcancel.Enabled = False Me.cmdSave.Enabled = False Me.cmdupdate.Enabled = False Me.cmdSave.Enabled = False Me.cmdDelete.Enabled = False lv1.Enabled = True Me.txtSearch.Text = "" Call clrTxt Frame1.Enabled = False Frame2.Enabled = True Me.cmdAdd.SetFocus ladd = False ledit = False End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDelete_Click() Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

83

If rsJabatan.State = adStateOpen Then Set rsJabatan = Nothing Set rsJabatan = New ADODB.Recordset rsJabatan.Open "Select * from Jabatan ", cn, adOpenDynamic, adLockOptimistic With rsJabatan If Not .EOF Then reply = MsgBox("Benar akan menghapus data?", vbQuestion + vbYesNo, "Konfirmasi Hapus Data") If reply = vbYes Then SQLHapus = "delete from Jabatan where Kode_Jab='" & Me.txtKode_Jab.Text & "'" cn.Execute SQLHapus MsgBox "Data sudah dihapus!", vbInformation, "Hapus Data" End If End If End With Set rsJabatan = New ADODB.Recordset rsJabatan.Open "Select * from Jabatan", cn, adOpenDynamic, adLockOptimistic Call loadLV cmdcancel_Click Me.txtSearch.Text = "" End Sub

Private Sub cmdrefresh_Click() Set rsJabatan = New ADODB.Recordset If rsJabatan.State = adStateOpen Then Set rsJabatan = Nothing rsJabatan.Open "Select * from Jabatan", cn, adOpenDynamic, adLockOptimistic Call loadLV Me.txtSearch.Text = "" Call clrTxt Me.cmdDelete.Enabled = False Me.cmdupdate.Enabled = False Me.cmdcancel.Enabled = False End Sub Private Sub cmdSave_Click() Dim strsqlsave, strsqlupdate Dim X If ladd Then If Me.txtKode_Jab.Text <> "" And _ Me.txtNama_Jab.Text <> "" Then X = Len(Me.txtKode_Jab.Text) If X < 4 Then MsgBox "Kode Bidang Studi Harus 4 Karakter!!", vbCritical, Me.Caption Me.txtKode_Jab.SetFocus Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

84

Exit Sub Else Connect Set rsJabatan = New ADODB.Recordset If rsJabatan.State = adStateOpen Then Set rsJabatan = Nothing rsJabatan.Open "Select * from Jabatan where Kode_Jab='" & Me.txtKode_Jab.Text & "'", cn, adOpenDynamic, adLockOptimistic With rsJabatan If Not .EOF Then PesanSudahAda frmJabatan Me.txtKode_Jab.SetFocus SendKeys "{home}+{End}" Exit Sub End If End With Call SaveData '-------Frame3.Visible = True Timer1.Enabled = True Me.cmdcancel.Enabled = False Me.cmdSave.Enabled = False Me.lv1.Enabled = True Me.Frame2.Enabled = True Me.txtSearch.Text = "" Me.cmdAdd.Enabled = True Me.cmdAdd.SetFocus '---------------End If Else PesanKosong frmJabatan Exit Sub End If ElseIf ledit Then If Me.txtKode_Jab.Text <> "" And _ Me.txtNama_Jab.Text <> "" Then Call UpdateData PesanUpdate frmJabatan Else PesanKosong frmJabatan Exit Sub End If End If cmdcancel_Click Set rsJabatan = New ADODB.Recordset rsJabatan.Open "Select * from Jabatan", cn, adOpenDynamic, adLockOptimistic loadLV Set rsJabatan = Nothing End Sub Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

85

Sub UpdateData() strsqlupdate = "update Jabatan set Nama_Jab ='" & Trim$(Me.txtNama_Jab.Text) & "', Gapok ='" & Trim$(Me.txtGapok.Text) & "' where Kode_Jab='" & Me.txtKode_Jab.Text & "'" cn.Execute strsqlupdate End Sub Private Sub cmdUpdate_Click() Me.txtKode_Jab.Enabled = False Me.cmdupdate.Enabled = False Me.cmdSave.Enabled = True Me.cmdcancel.Enabled = True Me.cmdDelete.Enabled = False cmdAdd.Enabled = False cmdAdd.Enabled = False Frame1.Enabled = True Frame2.Enabled = False lv1.Enabled = False Me.txtNama_Jab.SetFocus SendKeys "{home}+{end}" ledit = True End Sub

Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub Private Sub Form_Load() Me.Top = 500 Me.Left = 3000 Me.WindowState = 0 Connect Set rsJabatan = New ADODB.Recordset rsJabatan.Open "Select * from Jabatan ", cn, adOpenDynamic, adLockOptimistic Call loadLV ledit = False ladd = False Me.cmdcancel.Enabled = False Me.cmdDelete.Enabled = False Me.cmdupdate.Enabled = False Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

86

Me.cmdSave.Enabled = False End Sub Private Sub clrTxt() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next End Sub Private Sub RetFields() On Error Resume Next Set rsJabatan = New ADODB.Recordset rsJabatan.Open "Select * from Jabatan where Kode_Jab='" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "'", cn, adOpenDynamic, adLockOptimistic With rsJabatan Me.txtKode_Jab.Text = .Fields!Kode_Jab Me.txtNama_Jab.Text = .Fields!Nama_Jab Me.txtGapok.Text = .Fields!Gapok End With End Sub Private Sub loadLV() 'On Error Resume Next lv1.ListItems.Clear With rsJabatan Do While Not .EOF Set j = lv1.ListItems.Add(, , .Fields!Kode_Jab) j.SubItems(1) = .Fields!Nama_Jab j.SubItems(2) = .Fields!Gapok .MoveNext Loop End With

End Sub Private Sub lv1_Click() If lv1.ListItems.Count <> 0 Then Set rsJabatan = New ADODB.Recordset rsJabatan.Open "Select * from Jabatan where Kode_Jab='" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "'", cn, adOpenDynamic, adLockOptimistic With rsJabatan Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

87

If Not .EOF Then Call RetFields End If End With Me.cmdDelete.Enabled = True Me.cmdupdate.Enabled = True Me.cmdcancel.Enabled = True Me.txtSearch.Text = "" End If End Sub Private Sub Timer1_Timer() Bar1.Value = Bar1.Value + 10 Me.Label9.Caption = Bar1.Value If Bar1.Value = 100 Then Timer1.Enabled = False Frame3.Visible = False Bar1.Value = 0 PesanSimpan frmJabatan End If End Sub Private Sub txtSearch_Change() Set rsJabatan = New ADODB.Recordset If rsJabatan.State = adStateOpen Then Set rsJabatan = Nothing rsJabatan.Open "Select * from Jabatan where Kode_Jab like'%" & Me.txtSearch.Text & "%'", cn, adOpenDynamic, adLockOptimistic Call loadLV Set rsJabatan = Nothing Set rsJabatan = New ADODB.Recordset rsJabatan.Open "Select * from Jabatan where Kode_Jab='" & Me.txtSearch.Text & "'", cn, adOpenDynamic, adLockOptimistic With rsJabatan If Not .EOF Then Call RetFields Me.cmdDelete.Enabled = True Me.cmdupdate.Enabled = True Me.cmdcancel.Enabled = True Else 'Call clrTxt End If End With End Sub Private Sub SaveData() strsqlsave = "insert into Jabatan(Kode_Jab,Nama_Jab,Gapok)" & _ "values('" & Me.txtKode_Jab.Text & "'," & _ Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

88

"'" & Me.txtNama_Jab.Text & "'," & _ "'" & Me.txtGapok.Text & "');" cn.Execute strsqlsave End Sub

Listing Program frmPegawai

Dim txt As Control Dim ESC As Byte Private Sub cmbKode_Jab_Click() Set rsJabatan = New ADODB.Recordset rsJabatan.Open "select * from Jabatan where Kode_Jab='" & Me.cmbKode_Jab.Text & "'", cn, adOpenDynamic, adLockOptimistic If Not rsJabatan.EOF Then Me.txtNama_Jab.Text = rsJabatan.Fields!Nama_Jab End If End Sub Private Sub cmbKode_Jab_KeyPress(KeyAscii As Integer) 'If KeyAscii = 13 Then ' SendKeys "{tab}" 'End If End Sub Private Sub cmbStatus_Diri_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Me.cmbStatus_Diri = "Kawin" Then Me.txtJlh_Anak.Enabled = True Else Me.txtJlh_Anak.Text = 0 Me.txtJlh_Anak.Enabled = False End If End If End Sub Private Sub cmdAdd_Click() Frame1.Enabled = True cmdDelete.Enabled = False cmdupdate.Enabled = False Me.cmdAdd.Enabled = False Me.cmdSave.Enabled = True Me.cmdcancel.Enabled = True Frame2.Enabled = False Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

89

lv1.Enabled = False Call clrTxt Me.txtNIP.SetFocus ladd = True End Sub Private Sub cmdcancel_Click() Me.txtNIP.Enabled = True Me.cmdAdd.Enabled = True Me.cmdcancel.Enabled = False Me.cmdSave.Enabled = False Me.cmdupdate.Enabled = False Me.cmdSave.Enabled = False Me.cmdDelete.Enabled = False lv1.Enabled = True Me.txtSearch.Text = "" Call clrTxt Frame1.Enabled = False Frame2.Enabled = True Me.cmdAdd.SetFocus ladd = False ledit = False End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDelete_Click() Dim reply If rsPegawai.State = adStateOpen Then Set rsPegawai = Nothing Set rsPegawai = New ADODB.Recordset strSQL = "SELECT * FROM Pegawai WHERE NIP='" & Me.txtNIP.Text & "'" rsPegawai.Open strSQL, cn, adOpenDynamic, adLockOptimistic With rsPegawai If Not .EOF Then reply = MsgBox("Benar akan menhapus data?", vbQuestion + vbYesNo, Me.Caption) If reply = vbYes Then SQLHapus = "DELETE FROM Pegawai WHERE NIP='" & Me.txtNIP.Text & "'" cn.Execute SQLHapus MsgBox "Data sudah dihapus!", vbInformation, Me.Caption cmdcancel_Click End If End If End With Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

90

If rsPegawai.State = adStateOpen Then Set rsPegawai = Nothing Set rsPegawai = New ADODB.Recordset strSQL = "Select * from Pegawai" rsPegawai.Open strSQL, cn, adOpenDynamic, adLockOptimistic loadLV Set rsPegawai = Nothing Me.txtSearch.Text = ""

End Sub

Private Sub cmdrefresh_Click() If rsPegawai.State = adStateOpen Then Set rsPegawai = Nothing Set rsPegawai = New ADODB.Recordset strSQL = "Select * from Pegawai" rsPegawai.Open strSQL, cn, adOpenDynamic, adLockOptimistic loadLV Set rsPegawai = Nothing Me.txtSearch.Text = "" Call clrTxt Me.cmdDelete.Enabled = False Me.cmdupdate.Enabled = False Me.cmdcancel.Enabled = False End Sub Private Sub cmdSave_Click() Dim strsqlsave, strsqlupdate Dim X If ladd Then If Me.txtNIP.Text <> "" And _ Me.txtNama.Text <> "" And _ Me.txtAlamat.Text <> "" And _ Me.cmbJenkel.Text <> "" And _ Me.cmb_Agama.Text <> "" And _ Me.DtpTglLahir.Value <> "" And _ Me.txtJlh_Anak.Text <> "" And _ Me.cmbStatus_Diri.Text <> "" And _ Me.cmbKode_Jab.Text <> "" Then X = Len(Me.txtNIP.Text) If X <> 9 Then MsgBox "NIP Harus 9 Karakter!!", vbCritical, "Kode Staf Pengajar" Me.txtNIP.SetFocus Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

91

Exit Sub Else Connect Set rsPegawai = New ADODB.Recordset If rsPegawai.State = adStateOpen Then Set rsPegawai = Nothing rsPegawai.Open "Select * from Pegawai where NIP='" & Me.txtNIP.Text & "'", cn, adOpenDynamic, adLockOptimistic With rsPegawai If Not .EOF Then PesanSudahAda frmPegawai Me.txtNIP.SetFocus SendKeys "{home}+{End}" Exit Sub End If End With Call SaveData '-------Frame3.Visible = True Timer1.Enabled = True Me.cmdcancel.Enabled = False Me.cmdSave.Enabled = False Me.lv1.Enabled = True Me.Frame2.Enabled = True Me.txtSearch.Text = "" Me.cmdAdd.Enabled = True Me.cmdAdd.SetFocus '---------------End If Else PesanKosong frmPegawai Exit Sub End If ElseIf ledit Then If Me.txtNama.Text <> "" And _ Me.txtJlh_Anak.Text <> "" And _ Me.cmbStatus_Diri.Text <> "" Then Call UpdateData PesanUpdate frmPegawai Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

92

Else PesanKosong frmPegawai Exit Sub End If End If cmdcancel_Click

If rsPegawai.State = adStateOpen Then Set rsPegawai = Nothing Set rsPegawai = New ADODB.Recordset strSQL = "Select * from Pegawai" rsPegawai.Open strSQL, cn, adOpenDynamic, adLockOptimistic loadLV Set rsPegawai = Nothing End Sub Sub UpdateData() SQLUpdate = "update Pegawai set Nama ='" & Trim$(Me.txtNama.Text) & "'," & _ "Alamat='" & Trim$(Me.txtAlamat.Text) & "'," & _ "Jenkel='" & Trim$(Me.cmbJenkel.Text) & "'," & _ "Agama='" & Trim$(Me.cmb_Agama.Text) & "'," & _ "Tgl_Lahir='" & Me.DtpTglLahir & "'," & _ "Status_Diri='" & Me.cmbStatus_Diri.Text & "'," & _ "Jlh_Anak='" & Me.txtJlh_Anak.Text & "'," & _ "Kode_Jab='" & Me.cmbKode_Jab.Text & "'" & _ "where NIP='" & Me.txtNIP.Text & "'" cn.Execute SQLUpdate End Sub Private Sub cmdUpdate_Click() Me.txtNIP.Enabled = False Me.cmdupdate.Enabled = False Me.cmdSave.Enabled = True Me.cmdcancel.Enabled = True Me.cmdDelete.Enabled = False cmdAdd.Enabled = False cmdAdd.Enabled = False Frame1.Enabled = True Frame2.Enabled = False lv1.Enabled = False Me.txtNama.SetFocus SendKeys "{home}+{end}" ledit = True End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

93

Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub Private Sub Form_Load() Me.Top = 500 Me.Left = 200 Me.WindowState = 0 Connect Set rsPegawai = New ADODB.Recordset rsPegawai.Open "Select * from Pegawai ", cn, adOpenDynamic, adLockOptimistic Me.cmb_Agama.AddItem "Islam" Me.cmb_Agama.AddItem "Kristen" Me.cmb_Agama.AddItem "Budha" Me.cmb_Agama.AddItem "Hindu" Me.cmbStatus_Diri.AddItem "Kawin" Me.cmbStatus_Diri.AddItem "Tidak Kawin" Me.cmbJenkel.AddItem "Laki-Laki" Me.cmbJenkel.AddItem "Perempuan" Set rsJabatan = New ADODB.Recordset rsJabatan.Open "select * from Jabatan", cn, adOpenDynamic, adLockOptimistic With rsJabatan Me.cmbKode_Jab.Clear Do While Not .EOF Me.cmbKode_Jab.AddItem .Fields!Kode_Jab .MoveNext Loop End With Call loadLV ledit = False ladd = False Me.cmdcancel.Enabled = False Me.cmdDelete.Enabled = False Me.cmdupdate.Enabled = False Me.cmdSave.Enabled = False End Sub Private Sub clrTxt() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

94

txt.ListIndex = -1 End If Next Me.txtNIP.Text = "" End Sub Private Sub RetFields() On Error Resume Next With rsPegawai Me.txtNIP.Text = .Fields!NIP Me.txtNama.Text = .Fields!Nama Me.txtAlamat.Text = .Fields!Alamat Me.cmbJenkel.Text = .Fields!Jenkel Me.cmb_Agama.Text = .Fields!Agama Me.DtpTglLahir = .Fields!Tgl_Lahir Me.cmbStatus_Diri.Text = .Fields!Status_Diri Me.txtJlh_Anak.Text = .Fields!Jlh_Anak Me.cmbKode_Jab.Text = .Fields!Kode_Jab End With End Sub Private Sub loadLV() On Error Resume Next With rsPegawai lv1.ListItems.Clear Do While Not .EOF Set j = lv1.ListItems.Add(, , .Fields!NIP) j.SubItems(1) = .Fields!Nama j.SubItems(2) = .Fields!Alamat j.SubItems(3) = .Fields!Jenkel j.SubItems(4) = .Fields!Agama j.SubItems(5) = .Fields!Tgl_Lahir j.SubItems(6) = .Fields!Status_Diri j.SubItems(7) = .Fields!Jlh_Anak j.SubItems(8) = .Fields!Kode_Jab .MoveNext Loop End With End Sub Private Sub lv1_Click() If lv1.ListItems.Count <> 0 Then Set rPegawai = New ADODB.Recordset If rsPegawai.State = adStateOpen Then Set rsPegawai = Nothing strSQL = "Select * from Pegawai where NIP='" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "'" rsPegawai.Open strSQL, cn, adOpenDynamic, adLockOptimistic If Not rsPegawai.EOF Then Call RetFields Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

95

End If Me.cmdDelete.Enabled = True Me.cmdupdate.Enabled = True Me.cmdcancel.Enabled = True Me.txtSearch.Text = "" End If End Sub Private Sub txtNama_KeyPress(KeyAscii As Integer) IsiDataText1 If InStr(Isitext, Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete And KeyAscii <> vbKeySpace Then KeyAscii = 0 End If End Sub Private Sub Timer1_Timer() Bar1.Value = Bar1.Value + 10 Me.Label9.Caption = Bar1.Value If Bar1.Value = 100 Then Timer1.Enabled = False Frame3.Visible = False Bar1.Value = 0 PesanSimpan frmPegawai End If End Sub

Private Sub txtSearch_Change() If rsPegawai.State = adStateOpen Then Set rsPegawai = Nothing Set rsPegawai = New ADODB.Recordset strSQL = "Select * from Pegawai where NIP like '%" & Me.txtSearch.Text & "%'" rsPegawai.Open strSQL, cn, adOpenDynamic, adLockOptimistic loadLV Set rsPegawai = Nothing Set rPegawai = New ADODB.Recordset If rsPegawai.State = adStateOpen Then Set rsPegawai = Nothing strSQL = "Select * from Pegawai where NIP='" & Me.txtSearch.Text & "'" rsPegawai.Open strSQL, cn, adOpenDynamic, adLockOptimistic If Not rsPegawai.EOF Then Call RetFields Me.cmdDelete.Enabled = True Me.cmdupdate.Enabled = True Me.cmdcancel.Enabled = True Else Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

96

'Call clrTxt End If End Sub Private Sub SaveData() SQlSimpan = "insert into Pegawai(NIP,Nama,Alamat," & _ "Jenkel,Agama,Tgl_Lahir," & _ "Status_Diri,Jlh_Anak,Kode_Jab)" & _ "values('" & Me.txtNIP.Text & "'," & _ "'" & Me.txtNama.Text & "'," & _ "'" & Me.txtAlamat.Text & "'," & _ "'" & Me.cmbJenkel.Text & "'," & _ "'" & Me.cmb_Agama.Text & "'," & _ "'" & Me.DtpTglLahir & "'," & _ "'" & Me.cmbStatus_Diri.Text & "'," & _ "'" & Me.txtJlh_Anak.Text & "'," & _ "'" & Me.cmbKode_Jab.Text & "');" cn.Execute SQlSimpan End Sub

Listing Program frmPenggajian

Dim txt As Control Dim ESC As Byte Private Sub CmbKode_Ptgs_Click() Set rsPetugas = New ADODB.Recordset rsPetugas.Open "select * from Petugas where Kode_Ptgs='" & Me.CmbKode_Ptgs.Text & "'", cn, adOpenDynamic, adLockOptimistic If Not rsPetugas.EOF Then Me.txtNama_Ptgs.Text = rsPetugas.Fields!Nama_Ptgs End If End Sub Private Sub cmdAdd_Click() Frame1.Enabled = True Me.cmdAdd.Enabled = False Me.cmdSave.Enabled = True Me.cmdcancel.Enabled = True Frame4.Enabled = True 'lv1.Enabled = False Call clrTxt 'Me.txtNIP.SetFocus ladd = True Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

97

End Sub Private Sub cmdcancel_Click() Me.txtNIP.Enabled = True Me.cmdAdd.Enabled = True Me.cmdcancel.Enabled = False Me.cmdSave.Enabled = False Call clrTxt Frame1.Enabled = False Frame4.Enabled = False Me.cmdAdd.SetFocus ladd = False ledit = False End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdDelete_Click() Dim reply Set rsPenggajian = New ADODB.Recordset rsPenggajian.Open "Select * from Penggajian ", cn, adOpenDynamic, adLockOptimistic With rsPenggajian If Not .EOF Then reply = MsgBox("Benar akan menghapus data?", vbQuestion + vbYesNo, Me.Caption) If reply = vbYes Then SQLHapus = "delete from Penggajian where NIP='" & Me.txtNIP.Text & "'" cn.Execute SQLHapus clrTxt loadLV MsgBox "Data sudah dihapus!", vbInformation, Me.Caption End If End If End With cmdcancel_Click End Sub Private Sub cmdSave_Click() If ladd Then Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

98

If Me.txtJlh_Pghsln.Text <> "0" Or Me.txtNIP = " " Then Set rsRs = New ADODB.Recordset strSQL = "Select * from Penggajian where NIP='" & Me.txtNIP.Text & "' and cBulan='" & Me.cmbBln.Text & "' and cTahun='" & Me.cmbThn.Text & "'" rsRs.Open strSQL, cn, adOpenDynamic, adLockOptimistic With rsRs If Not .EOF Then PesanSudahAda frmPenggajian Me.txtNIP.SetFocus SendKeys "{home}+{End}" Exit Sub Else Call SaveData Frame3.Visible = True Timer1.Enabled = True Me.cmdcancel.Enabled = False Me.cmdSave.Enabled = False Me.lv1.Enabled = True Me.Frame2.Enabled = True Me.cmdAdd.Enabled = True Me.cmdAdd.SetFocus

Set rsPenggajian = New ADODB.Recordset strSQL = "Select * from Penggajian" rsPenggajian.Open strSQL, cn, adOpenDynamic, adLockOptimistic loadLV cmdcancel_Click End If End With Else PesanKosong frmPenggajian Exit Sub End If ElseIf ledit Then Set rsPenggajian = New ADODB.Recordset strSQL = "Select * from Penggajian" rsPenggajian.Open strSQL, cn, adOpenDynamic, adLockOptimistic Call UpdateData Call clrTxt Call loadLV PesanUpdate frmPenggajian lv1.Enabled = True End If Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

99

End Sub Sub UpdateData() strsqlupdate = "update Penggajian set Tunj_Istri ='" & Me.txtTunj_Istri.Text & "'," &_ "Tunj_Anak='" & Me.txtTunj_Anak.Text & "'," & _ "Tunj_Makan='" & Me.txtTunj_Makan.Text & "'," & _ "Tunj_Fungsional='" & Me.txtTunj_Fungsional.Text & "'," & _ "Jlh_PgslnKotor='" & Me.txtJlh_PgslnKotor.Text & "'," & _ "Pot_Hutang='" & Me.txtPot_Hutang.Text & "'," & _ "Pot_PjkPgsln='" & Me.txtPot_PjkPgsln.Text & "'," & _ "Jlh_Pot='" & Me.txtJlh_Pot.Text & "'," & _ "JlhPgsln='" & Me.txtJlh_Pghsln.Text & "'," & _ "Kode_Ptgs='" & Me.CmbKode_Ptgs.Text & "'," & _ "cBulan='" & Me.cmbBln.Text & "'," & _ "cTahun='" & Me.cmbThn.Text & "'" & _ "where NIP='" & Me.txtNIP.Text & "'" cn.Execute strsqlupdate

End Sub

Private Sub cmdUpdate_Click() Me.txtNIP.Enabled = False Me.cmdupdate.Enabled = False Me.cmdSave.Enabled = True Me.cmdcancel.Enabled = True Me.cmdDelete.Enabled = False cmdAdd.Enabled = False cmdAdd.Enabled = False Frame1.Enabled = True Frame2.Enabled = True Frame4.Enabled = True Frame5.Enabled = True lv1.Enabled = False SendKeys "{home}+{end}" ledit = True

End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

100

Private Sub Form_Load() Me.Top = 0 Me.Left = 0 Me.WindowState = 0 Connect Set rsPenggajian = New ADODB.Recordset strSQL = "Select*from Penggajian" rsPenggajian.Open strSQL, cn, adOpenDynamic, adLockOptimistic loadLV ladd = False For i = 1 To 12 Me.cmbBln.AddItem Format(i, "0#") Next i For j = 2000 To 2010 Me.cmbThn.AddItem j Next j Me.cmdcancel.Enabled = False Me.cmdDelete.Enabled = False Me.cmdupdate.Enabled = False Me.cmdSave.Enabled = False Set rsPetugas = New ADODB.Recordset rsPetugas.Open "select * from Petugas", cn, adOpenDynamic, adLockOptimistic With rsPetugas Me.CmbKode_Ptgs.Clear Do While Not .EOF Me.CmbKode_Ptgs.AddItem .Fields!Kode_Ptgs .MoveNext Loop End With End Sub Private Sub clrTxt() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" 'ElseIf TypeOf txt Is ComboBox Then 'txt.ListIndex = -1 End If Next Me.txtTunj_Istri.Text = 0 Me.txtTunj_Anak.Text = 0 Me.txtTunj_Makan.Text = 0 Me.txtTunj_Fungsional.Text = 0 Me.txtJlh_PgslnKotor.Text = 0 Me.txtPot_Hutang.Text = 0 Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

101

Me.txtPot_PjkPgsln.Text = 0 Me.txtJlh_Pot.Text = 0 Me.txtJlh_Pghsln.Text = 0 Me.CmbKode_Ptgs.Text = "" End Sub Private Sub loadLV() lv1.ListItems.Clear Do While Not rsPenggajian.EOF Set j = lv1.ListItems.Add(, , rsPenggajian.Fields!NIP) Set rsPegawai = New ADODB.Recordset rsPegawai.Open "Select * from Pegawai where NIP='" & rsPenggajian.Fields!NIP & "'", cn, adOpenDynamic, adLockOptimistic If Not rsPegawai.EOF Then j.SubItems(1) = rsPegawai.Fields!Nama j.SubItems(2) = rsPegawai.Fields!Jenkel Dim aa As String aa = rsPegawai.Fields!Kode_Jab Set rsJabatan = New ADODB.Recordset rsJabatan.Open "select * from Jabatan where Kode_Jab='" & aa & "'", cn, adOpenDynamic, adLockOptimistic If Not rsJabatan.EOF Then j.SubItems(3) = rsJabatan.Fields!Nama_Jab j.SubItems(4) = rsJabatan.Fields!Gapok End If End If j.SubItems(5) = rsPenggajian.Fields!Tunj_Istri j.SubItems(6) = rsPenggajian.Fields!Tunj_Anak j.SubItems(7) = rsPenggajian.Fields!Tunj_Makan j.SubItems(8) = rsPenggajian.Fields!Tunj_Fungsional j.SubItems(9) = rsPenggajian.Fields!Jlh_PgslnKotor j.SubItems(10) = rsPenggajian.Fields!Pot_Hutang j.SubItems(11) = rsPenggajian.Fields!Pot_PjkPgsln j.SubItems(12) = rsPenggajian.Fields!Jlh_Pot j.SubItems(13) = rsPenggajian.Fields!JlhPgsln rsPenggajian.MoveNext Loop End Sub Private Sub RetFields() On Error Resume Next With rsPegawai Me.txtNIP.Text = .Fields!NIP Me.txtNama.Text = .Fields!Nama Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

102

Me.txtJenKel.Text = .Fields!Jenkel Me.txtJab.Text = .Fields!Jab 'Me.cmbKode_Jab.Text = .Fields!Kode_Jab End With End Sub Private Sub RetFields1() On Error Resume Next ' Set rsPetugas = New ADODB.Recordset ' rsJabatan.Open "select * from Petugas where Kode_Ptgs='" & Me.CmbKode_Ptgs.Text & "'", cn, adOpenDynamic, adLockOptimistic ' With rsPetugas ' If Not .EOF Then ' Me.txtNama_Ptgs.Text = .Fields!Nama_Ptgs ' End If 'End With End Sub Private Sub RetFields2() On Error Resume Next Set rsPenggajian = New ADODB.Recordset rsPenggajian.Open "select * from Penggajian where NIP='" & Me.txtNIP.Text & "'", cn, adOpenDynamic, adLockOptimistic With rsPenggajian If Not .EOF Then Me.txtTunj_Istri.Text = .Fields!Tunj_Istri Me.txtTunj_Anak.Text = .Fields!Tunj_Anak Me.txtTunj_Makan.Text = .Fields!Tunj_Makan Me.txtTunj_Fungsional.Text = .Fields!Tunj_Fungsional Me.txtJlh_PgslnKotor.Text = .Fields!Jlh_PgslnKotor Me.txtPot_Hutang.Text = .Fields!Pot_Hutang Me.txtPot_PjkPgsln.Text = .Fields!Pot_PjkPgsln Me.txtJlh_Pot.Text = .Fields!Jlh_Pot Me.txtJlh_Pghsln.Text = .Fields!JlhPgsln Me.CmbKode_Ptgs.Text = .Fields!Kode_Ptgs Me.cmbBln.Text = .Fields!cBulan Me.cmbThn.Text = .Fields!cTahun End If End With Set rsPetugas = New ADODB.Recordset rsPetugas.Open "select * from Petugas where Kode_Ptgs='" & Me.CmbKode_Ptgs.Text & "'", cn, adOpenDynamic, adLockOptimistic If Not rsPetugas.EOF Then Me.txtNama_Ptgs.Text = rsPetugas.Fields!Nama_Ptgs End If End Sub

Private Sub lv1_Click() Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

103

If lv1.ListItems.Count <> 0 Then Set rPegawai = New ADODB.Recordset If rsPegawai.State = adStateOpen Then Set rsPegawai = Nothing strSQL = "Select * from Pegawai where NIP='" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "'" rsPegawai.Open strSQL, cn, adOpenDynamic, adLockOptimistic If Not rsPegawai.EOF Then Call RetFields End If Call RetFields1 Call RetFields2 Me.cmdDelete.Enabled = True Me.cmdupdate.Enabled = True Me.cmdcancel.Enabled = True End If End Sub

Private Sub txtJlh_PgslnKotor_Change() txtJlh_Pghsln = Val(Me.txtJlh_PgslnKotor) - Val(Me.txtJlh_Pot) End Sub Private Sub txtJlh_Pot_Change() txtJlh_Pghsln = Val(Me.txtJlh_PgslnKotor) - Val(Me.txtJlh_Pot) End Sub Private Sub txtNIP_Change() Set rsPegawai = New ADODB.Recordset strSQL = "Select * from Pegawai where NIP='" & Me.txtNIP.Text & "'" rsPegawai.Open strSQL, cn, adOpenDynamic, adLockOptimistic If Not rsPegawai.EOF Then Me.txtNama.Text = rsPegawai.Fields!Nama Me.txtJenKel.Text = rsPegawai.Fields!Jenkel Dim xx As String xx = rsPegawai.Fields!Kode_Jab Set rsJabatan = New ADODB.Recordset rsJabatan.Open "select * from Jabatan where Kode_Jab='" & xx & "'", cn, adOpenDynamic, adLockOptimistic If Not rsJabatan.EOF Then Me.txtJab.Text = rsJabatan.Fields!Nama_Jab Me.txtGajiPokok.Text = rsJabatan.Fields!Gapok End If End If Frame2.Enabled = True End Sub Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

104

Private Sub txtNama_KeyPress(KeyAscii As Integer) IsiDataText1 If InStr(Isitext, Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete And KeyAscii <> vbKeySpace Then KeyAscii = 0 End If End Sub Private Sub Timer1_Timer() Bar1.Value = Bar1.Value + 10 Me.Label9.Caption = Bar1.Value If Bar1.Value = 100 Then Timer1.Enabled = False Frame3.Visible = False Bar1.Value = 0 'PesanSimpan frmStafPengajar End If End Sub

Private Sub SaveData() SQlSimpan = "insert into Penggajian(NIP,Tunj_Istri,Tunj_Anak,Tunj_Makan,Tunj_Fungsional," & _ "Jlh_PgslnKotor,Pot_Hutang,Pot_PjkPgsln,Jlh_Pot,JlhPgsln,Kode_Ptgs,cBulan,cTahu n)" & _ "values('" & Me.txtNIP.Text & "'," & _ "'" & Me.txtTunj_Istri.Text & "'," & _ "'" & Me.txtTunj_Anak.Text & "'," & _ "'" & Me.txtTunj_Makan.Text & "'," & _ "'" & Me.txtTunj_Fung.sionalText & "'," & _ "'" & Me.txtJlh_PgslnKotor.Text & "'," & _ "'" & Me.txtPot_Hutang.Text & "'," & _ "'" & Me.txtPot_PjkPgsln.Text & "'," & _ "'" & Me.txtJlh_Pot.Text & "'," & _ "'" & Me.txtJlh_Pghsln.Text & "'," & _ "'" & Me.CmbKode_Ptgs.Text & "'," & _ "'" & Me.cmbBln.Text & "'," & _ "'" & Me.cmbThn.Text & "');" cn.Execute SQlSimpan End Sub Private Sub txtNIP_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Len(Me.txtNIP.Text) <> 9 Then MsgBox "Data tidak 9 digit ?.", vbInformation, "Pesan" Else Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

105

Set rsPegawai = New ADODB.Recordset rsPegawai.Open "select * from Pegawai where NIP='" & Me.txtNIP.Text & "' and Status_Diri='" & "Tidak Kawin" & "'", cn, adOpenDynamic, adLockOptimistic If Not rsPegawai.EOF Then Me.txtTunj_Istri.Text = 0 Me.txtTunj_Anak.Text = 0 Else If Me.txtJenKel.Text = "Laki-Laki" Then Me.txtTunj_Istri.Text = Me.txtGajiPokok.Text * 2.5 / 100 Me.txtTunj_Anak.Text = Me.txtGajiPokok.Text * 1 / 100 Else Me.txtTunj_Istri.Text = 0 Me.txtTunj_Anak.Text = Me.txtGajiPokok.Text * 1 / 100 End If End If End If End If End Sub

Private Sub txtPot_Hutang_Change() txtJlh_Pot = 0 txtJlh_Pot = Val(Me.txtPot_Hutang) + Val(Me.txtPot_PjkPgsln) End Sub Private Sub txtPot_PjkPgsln_Change() txtJlh_Pot = 0 txtJlh_Pot = Val(Me.txtPot_Hutang) + Val(Me.txtPot_PjkPgsln) End Sub Private Sub txtTunj_Anak_Change() txtJlh_PgslnKotor = 0 txtJlh_PgslnKotor = Val(Me.txtTunj_Istri) + Val(Me.txtTunj_Anak) + Val(Me.txtTunj_Makan) + Val(Me.txtTunj_Fungsional) + Val(Me.txtGajiPokok.Text) End Sub

Private Sub txtTunj_Makan_Change() txtJlh_PgslnKotor = 0 txtJlh_PgslnKotor = Val(Me.txtTunj_Istri) + Val(Me.txtTunj_Anak) + Val(Me.txtTunj_Makan) + Val(Me.txtTunj_Fungsional) + Val(Me.txtGajiPokok.Text) End Sub Private Sub txtTunj_Fungsioal_Change() Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

106

txtJlh_PgslnKotor = 0 txtJlh_PgslnKotor = Val(Me.txtTunj_Istri) + Val(Me.txtTunj_Anak) + Val(Me.txtTunj_Makan) + Val(Me.txtTunj_Fungsional) + Val(Me.txtGajiPokok.Text) End Sub Private Sub txtTunj_Fungsional_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Frame5.Enabled = True End If End Sub Private Sub txtTunj_Istri_Change() txtJlh_PgslnKotor = 0 txtJlh_PgslnKotor = Val(Me.txtTunj_Istri) + Val(Me.txtTunj_Anak) + Val(Me.txtTunj_Makan) + Val(Me.txtTunj_Fungsional) + Val(Me.txtGajiPokok.Text) End Sub

Listing Program frmLaporan

Dim Criteria Public rsPegawai As ADODB.Recordset Dim X As Control Private Sub cboKriteriaLap_Click() Select Case Me.cboKriteriaLap.ListIndex Case Is = 0 CrystalReport1.DataFiles(0) = App.Path & "\Penggajian_PN.Mdb" CrystalReport1.ReportFileName = "D:\SHANTI\Laporan\dafpegawai.rpt" CrystalReport1.WindowParentHandle = MDIForm1.hWnd CrystalReport1.RetrieveDataFiles CrystalReport1.WindowState = crptMaximized CrystalReport1.Action = 2 Case Is = 1 CrystalReport1.DataFiles(0) = App.Path & "\Penggajian_PN.Mdb" CrystalReport1.ReportFileName = "D:\SHANTI\Laporan\dafgaji.rpt" CrystalReport1.WindowParentHandle = MDIForm1.hWnd CrystalReport1.RetrieveDataFiles CrystalReport1.WindowState = crptMaximized CrystalReport1.Action = 2 Case Is = 2 Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

107

Me.TglLaporan.Enabled = True Me.cmbNIP.Enabled = False Case Is = 3 Me.TglLaporan.Enabled = True Me.cmbNIP.Enabled = True End Select End Sub Private Sub cmbNIP_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Me.cmdcetak.SetFocus End If End Sub Private Sub cmdcetak_Click() If Me.cboKriteriaLap.ListIndex = -1 Then MsgBox "Pilih kriteria cetak laporan!", vbCritical, "Pilih Kriteria Laporan" Me.cboKriteriaLap.SetFocus Exit Sub Else Select Case Me.cboKriteriaLap.ListIndex Case Is = 2 CrystalReport1.DataFiles(0) = App.Path & "\Penggajian_PN.Mdb" CrystalReport1.ReportFileName = "D:\SHANTI\Laporan\dafgaji_bln.rpt" CrystalReport1.SelectionFormula = "{Penggajian.cBulan}= '" & Format(Month(Me.TglLaporan.Value), "0#") & "'and {Penggajian.cTahun}= '" & Year(Me.TglLaporan.Value) & "'" CrystalReport1.WindowParentHandle = MDIForm1.hWnd CrystalReport1.RetrieveDataFiles CrystalReport1.WindowState = crptMaximized CrystalReport1.Action = 2 Case Is = 3 CrystalReport1.DataFiles(0) = App.Path & "\Penggajian_PN.Mdb" CrystalReport1.ReportFileName = "D:\SHANTI\Laporan\slipgaji.rpt" CrystalReport1.SelectionFormula = "{Pegawai.NIP}= '" & cmbNIP & "'and {Penggajian.cBulan}= '" & Format(Month(Me.TglLaporan.Value), "0#") & "'" CrystalReport1.WindowParentHandle = MDIForm1.hWnd CrystalReport1.RetrieveDataFiles CrystalReport1.WindowState = crptMaximized CrystalReport1.Action = 2 End Select End If End Sub Private Sub cmdkeluar_Click() Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

108

Unload Me End Sub Private Sub Command1_Click() Me.cboLunasBelum.ListIndex = -1 End Sub Private Sub exit_Click() Unload Me End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me End If End Sub Private Sub Form_Load() With Me.cboKriteriaLap .AddItem "Laporan Daftar Pegawai" .AddItem "Laporan Daftar Gaji Pegawai" .AddItem "Laporan Daftar Gaji Pegawai Perbulan" .AddItem "Laporan Data Slip Gaji Pegawai" End With TglLaporan.Value = Format(Date, "MM/yyyy") Me.Top = 800 Me.Left = 3500 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then PopupMenu mnuexit End If End Sub Private Sub MnuExit_Click() Unload Me End Sub


109

SURAT KETERANGAN HASIL UJI PROGRAM TUGAS AKHIR

Yang bertanda tangan dibawah ini, menerangkan bahwa mahasiswa tugas akhir Program Studi D-3 Ilmu Komputer : Nama

: SANTI NASUTION

Nim

: 052406114

Program Studi

: D-3 ILMU KOMPUTER

Judul Tugas Akhir

: SISTEM INFORMASI PENGOLAHAN DATA GAJI PEGAWAI PADA KANROR DINAS PERIKANAN DAN KELAUTAN

LABUHAN

BATU

DENGAN

MENGGUNAKAN VISUAL BASIC 6.0

Telah melakukan uji program tugas akhir dari mahasiswa tersebut diatas pada tanggal ....................................... Dengan hasil : Sukses / Gagal

Demikianlah diterangkan untuk melengkapi syarat pendaftaran Ujian Meja Hijau Tugas Akhir mahasiswa yang bersangkutan di Jurusan Matematika FMIPA USU MEDAN.

Medan, 31 Mei 2008 Dosen Pembimbing

Dra. Rahmawati Pane, Msi NIP. 131474682 Santi Nasution : Sistem Informasi Pengolahan Data Gaji Pegawai Pada Kantor Dinas Perikanan Dan Kelautan Labuhan Batu Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

110


SISTEM INFORMASI PENGOLAHAN DATA GAJI PEGAWAI PADA KANTOR DINAS PERIKANAN DAN KELAUTAN LABUHAN BATU DENGAN MENGGUNAKAN VISUAL BASIC 6

Recommend Documents