SISTEM INFORMASI DATA GAJI PEGAWAI PADA KANTOR BADAN KEPEGAWAIAN DAERAH KABUPATEN ACEH TENGAH TUGAS AKHIR ABRAGUS SABRA

1

SISTEM INFORMASI DATA GAJI PEGAWAI PADA KANTOR BADAN KEPEGAWAIAN DAERAH KABUPATEN ACEH TENGAH

TUGAS AKHIR

ABRAGUS SABRA 062406071

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

Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

2

SISTEM INFORMASI DATA GAJI PEGAWAI PADA KANTOR BADAN KEPEGAWAIAN DAERAH KABUPATEN ACEH TENGAH TUGAS AKHIR

Diajukan untuk melengkapi tugas dan memenuhi syarat memperoleh Ahli Madya


DEPARTEMAEN METEMATIKA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2009


3

PERSETUJUAN

Judul

Kategori Nama Nomor Induk Mahasiswa Program Studi Departemen Fakultas

: SISTEM INFORMASI DATA GAJI PEGAWAI PADA KANTOR BADAN KEPEGAWAIAN DAERAH KABUPATEN ACEH TENGAH : TUGAS AKHIR : ABRAGUS SABRA : 062406071 : D3 ILMU KOMPUTER : MATEMATIKA : MATEMATIKA DAN ILMU PENGETAHUAN ALAM (FMIPA) UNIVERSITAS SUMATERA UTARA

Diluluskan di Medan, Mei 2009

Diketahui / Disetujui oleh Departemen Matematika FMIPA USU Ketua,

Pembimbing

Dr. Saib Suwilo, M.Sc NIP 131796149

Dr. Partano Siagian, M.Sc NIP 130877994


4

PERNYATAAN

SISTEM INFORMASI DATA GAJI PEGAWAI PADA KANTOR BADAN KEPEGAWAIAN DAERAH KABUPATEN ACEH TENGAH

TUGAS AKHIR

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

Medan, Juni 2009



5

PENGHARGAAN

Bismillahirrahmanirrahim

Puji dan syukur penulis panjatkan kehadirat Allah SWT, karena dengan limpah rahmat dan karuniaNya penulis berhasil menyelesaikan tugas akhir ini yang berjudul ”Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah“pada waktu yang telah ditetapkan. Adapun Tugas Akhir ini. Tak lupa shalawat serta salam kepada junjungan Nabi Besar Muhammad SAW dan para sahabatNya yang telah membawa kita dari kegelapan kealam terang benderang yang penuh ilmu pengetahuan.

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

1. Bapak Prof. Dr. Eddy Marlianto, M.Sc selaku Dekan Fakultas MIPA Universitas Sumatera Utara. 2. Bapak Dr. Saib Suwilo, M.Sc selaku Ketua Jurusan Program Studi D-3 Ilmu Komputer. 3. Bapak Dr. Partano Siagian, M.Sc selaku Dosen Pembimbing Tugas Akhir Program Studi D-3 Ilmu Komputer Fakultas MIPA Universitas Sumatera


6

Utara yang telah memberikan bimbingan dan arahan selama ini kepada penulis dalam penyelesaian tugas akhir. 4. Seluruh Staf Pengajar Program Studi D-3 Ilmu Komputer Faklutas MIPA Universitas Sumatera Utara yang telah memberikan ilmu dan pengetahuannya kepada penulis selama masa perkuliahan. 5. Bapak Drs. Amir Hamzah, MM selaku Kepala Badan Kepegawaian Daerah Kabupaten Aceh Tengah yang telah memberikan kesempatan kepada penulis untuk melakukan riset sebagai data dalam pembuatan tugas akhir. 6. Seluruh Staf dan Pegawai Badan Kepegawaian Daerah Kabupaten Aceh Tengah yang telah banyak membantu penulis dalam mengumpulkan data dalam pembuatan tugas akhir. 7. Teristimewa kepada Ibunda Ruhaida dan Ayanda Samsuar serta abangku Zikrul Alim dan Fauzan Azima yang senantiasa memberikan kasih sayang, dukungan dan selalu mendoakan penulis agar lancar dalam segala urusan dan adikku Idham Chalid semoga lancar terus sekolahnya ya, Amin. 8. Seluruh Keluarga besarku yang telah banyak memberikan dorongan dan doa kepada penulis selama ini. 9. Buat sahabat-sahabat kuliahku Arif, Dedi, Hendra, Fadlan, Atoy, Bayu, Yamin, Naldi, Azwar, Zali, Fitri, Aan dst…dan Sahabat sekosku Sahrifin, Alpin walau kita terkadang ada permusuhan ataupun perdebatan, tapi itulah persahabatan yang tidak selalu berjalan dengan baik dan tidak lupa terima kasihku atas doa, nasehat, bantuan, serta curahan hati kalian semua, terutama pengertian dan kesabaran kalian selama berteman denganku.


7

10. Seluruh rekan-rekan jurusan Komputer, terutama angkatan Komputer B 2006 yang telah banyak membantu dan mendukung penulis selama menjalani Pendidikan di D3 Ilmu Komputer USU. 11. Pihak-pihak yang telah banyak membantu penulis, yang tidak dapat penulis sebutkan namanya satu-persatu.

Selama penulisan tugas akhir ini, penulis menyadari akan hal kesalahankesalahan yang mungkin terjadi, baik itu dari segi teknik tata penyajian ataupun dari segi tata bahasa. Oleh karena itu penulis bersedia menerima kritik dan saran dari pembaca dalam upaya perbaikan tugas akhir ini.

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

Medan,

Mei 2009

Penulis

Abragus Sabra


8

ABSTRAK

Kajian ini bertujuan untuk membangun suatu Sistem Informasi Data Gaji Pegawai. Sistem ini bertujuan untuk menginformasikan data pegawai dan data gaji pegawai kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah. Sistem ini menyajikan data dan informasi mengenai data pegawai dan data gaji pegawai dan pencetakan laporan yang dapat dilakukan dengan lebih cepat dan efisien. Pada proses pembuatan sistem ini perangkat lunak yang digunakan adalah Visual Basic 6.0, Crystal Reports 8.5,dan Active Skin.


9

DAFTAR ISI

Persetujuan Pernyataan Penghargaan Abstrak Daftar Isi Daftar Tabel Daftar Gambar

Halaman ii iii iv vii viii x xi

BAB 1 PENDAHULUAN 1.1 Latar Belakang 1.2 Identifikasi Masalah 1.3 Tujuan Penelitian 1.4 Batasan Masalah 1.5 Metode Penelitian 1.6 Sistematika Penulisan

1 2 2 2 3 3

BAB 2 LANDASAN TEORI 2.1 Sistem 2.2 Informasi 2.3 Sistem Informasi 2.4 Data 2.5 Database 2.6 Visual Basic 6.0 2.6.1 Struktur Aplikasi Visual Basic 2.6.1.1 Menu Bar 2.6.1.2 Main Toolbar 2.6.1.3 Jendela Toolbox 2.6.1.4 Jendela Form Designer 2.6.1.5 Jendela Project 2.6.1.6 Jendela Properties 2.6.1.7 Jendela Form Layout 2.6.1.8 Jendela Kode 2.6.1.9 Jendela Module 2.7 Flow Chart 2.7.1 Simbol-Simbol Flow Chart

5 6 6 6 7 8 9 9 9 10 12 12 13 13 13 14 15 15

BAB 3 PERANCANGAN SISTEM 3.1 Perancangan Sistem 3.2 Perancangan Database 3.3 Perancangan Tampilan

18 18 22


10

3.3.1 Menu File 3.3.1.1 Input Data Pegawai 3.3.1.2 Hitung Gaji Pegawai 3.3.1.3 Input Gaji Pokok 3.3.2 Menu Edit 3.3.2.1 Edit Data Pegawai 3.3.2.2 Edit Gaji Pokok 3.3.3 Menu Cari 3.3.3.1 Cari Data Pegawai 3.3.3.2 Cari Data Gaji Pegawai 3.3.4 Menu Laporan 3.3.4.1 Laporan Data Pegawai 3.3.4.2 Laporan Data Gaji Pegawai 3.3.4.3 Laporan Gaji Pokok Pegawai 3.3.5 Menu Tentang 3.3.6 Menu Keluar 3.4 Flowchart 3.5 Algoritma Program

22 22 23 24 25 25 26 27 27 28 29 29 31 35 36 36 37 48

BAB 4 IMPLEMENTASI SISTEM 4.1 Pengertian Implementasi Sistem 4.2 Tujuan Implementasi Sistem 4.3 Komponen-Komponen Kebutuhan Sistem 4.3.1 Perangkat Keras (Hardware) 4.3.2 Perangkat Lunak (Software) 4.3.3 Sumber Daya Manusia (Brainware)

55 55 56 56 57 57

BAB 5 KESIMPULAN DAN SARAN 5.1 Kesimpulan 5.2 Saran

58 58

DAFTAR PUSTAKA

60

LAMPIRAN


11

DAFTAR TABEL

Halaman Tabel 3.1 Pegawai

19

Tabel 3.2 Gaji pegawai

20

Tabel 3.3 Gajipokok

20


12

DAFTAR GAMBAR

Halaman Gambar 2.1

Tampilan Visual Basic 6.0

6

Gambar 2.2

Tampilan Menu Bar

9

Gambar 2.3

Tampilan Toolbar

10

Gambar 2.4

Tampilan ToolBox Standard

10

Gambar 2.5

Tampilan Form Designer

12

Gambar 2.6

Tampilan Project

12

Gambar 2.7

Tampilan Properties

13

Gambar 2.8

Tampilan Form Layout

13

Gambar 2.9

Jendela Kode

14

Gambar 2.10 Jendela Module

15

Gambar 3.1

Input Data Pegawai

22

Gambar 3.2

Hitung Gaji Pegawai

23

Gambar 3.3

Input Gaji Pokok

24

Gambar 3.4

Edit Data Pegawai

25

Gambar 3.5

Edit Gaji Pokok

26

Gambar 3.6

Cari Data Pegawai

27

Gambar 3.7

Output Cari Data Pegawai

27

Gambar 3.8

Cari Data Gaji Pegawai

28

Gambar 3.9

Output Cari Data Gaji Pegawai

28

Gambar 3.10 Cetak Data Pegawai

29


13

Gambar 3.11 Output Cetak Data Pegawai

29

Gambar 3.12 Cetak Seluruh Data Pegawai

30

Gambar 3.13 Output Cetak Seluruh Data Pegawai

30

Gambar 3.14 Cetak Data Gaji Pegawai Menurut Nip

31

Gambar 3.15 Output Cetak Data Gaji Pegawai Menurut Nip

31

Gambar 3.16 Cetak Data Gaji Pegawai Menurut Golongan

32

Gambar 3.17 Output Cetak Data Gaji Pegawai Menurut Golongan

32

Gambar 3.18 Cetak Data Gaji Pegawai Menurut Tanggal Gaji

33

Gambar 3.19 Output Cetak Data Gaji Pegawai Menurut Tanggal Gaji

33

Gambar 3.20 Cetak Semua Data Gaji Pegawai

34

Gambar 3.21 Output Cetak Semua Data Gaji Pegawai

34

Gambar 3.22 Cetak Gaji Pokok

35

Gambar 3.23 Output Cetak Gaji Pokok

35

Gambar 3.24 Menu Tentang

36

Gambar 3.25 Menu Keluar

36

Gambar 3.26 Flowchart Menu Utama

39

Gambar 3.27 Flowchart Input Data Pegawai

40

Gambar 3.28 Flowchart Hitung Gaji Pegawai

41

Gambar 3.29 Flowchart Input Gaji Pokok

42

Gambar 3.30 Flowchart Edit Data Pegawai

43

Gambar 3.31 Flowchart Edit Gaji Pokok

44

Gambar 3.32 Flowchart Cari Data Pegawai

45

Gambar 3.33 Flowchart Cari Data Gaji Pegawai

46

Gambar 3.34 Flowchart Menu Laporan

47


14

BAB 1 PENDAHULUAN

1.1 Latar Belakang

Kebutuhan komputer dalam menyelesaikan pekerjaan sangat dibutuhkan untuk memudahkan mengelola dan memanfaatkan data secara efektif dan efesien. Badan Kepegawaian Daerah Kabupaten Aceh Tengah adalah salah satu kantor yang menangani setiap urusan kepegawaian yang menggunakan komputer sebagai alat untuk membantu menyelesaikan pekerjaan para staf pegawai dalam mengelola data/informasi pegawai. Mulai dari hal penerimaan gaji, kenaikkan pangkat atau golongan, sampai kepada akhir masa jabatan pegawai tersebut. Berdasarkan hal tersebut penulis melihat betapa pentingnya sebuah aplikasi Pengolahan Data Gaji Pegawai. sehingga penulis tertarik untuk memilih judul “Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah“. Menurut penulis, judul tersebut sudah sesuai dengan aplikasi yang dirancang berdasarkan

informasi/data

yang

penulis

kumpulkan

dari

tempat

penulis

melaksanakan penelitian, yaitu pada bidang Pengembangan Sumber Daya dan Informasi Pegawai. Dimana dalam bidang tersebut, penulis dapat mempelajari dan mengetahui informasi tentang pegawai yang ada pada Badan Kepaegawaian Daerah. 1.2 Identifikasi Masalah Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

15

Masalah yang akan dipecahkan adalah bagaimana kantor badan kepegawaian daerah kabupaten aceh tengah dalam menggunakan alat bantu komputer, agar pemberian laporan dapat dilakukan dengan lebih cepat dan efisien karena penyajian data yang kompleks secara manual tidak dapat dijamin ketelitian dan kebenarannya.

1.3 Tujuan Penelitian

Tujuan penelitian ini adalah merancang sistem informasi data gaji pegawai pada kantor badan kepegawaian daerah kabupaten aceh tengah agar komputer dapat menginformasikan data pegawai dan data gaji pegawai dengan menggunakan visual basic 6.0.

1.4 Batasan Masalah

Untuk mewujudkan tujuan dari penelitian penulis membatasi masalah yang akan dibahas sebagai berikut:

a. Dengan membuat masukkan (input data), Pencarian data, Pengeditan dan Penghapusan data gaji pegawai dengan menggunakan tampilan form dari Visual basic dan menghubungkannya dengan database Access. b. Data gaji pegawai adalah data pegawai negeri sipil dan calon pegawai negeri sipil. c. Data yang dikumpulkan tahun 2008/2009. 1.5 Metode Penelitian Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

16

Untuk mendapatkan data yang dibutuhkan penulis menggunakan metode peneltian sebagai berikut: 1. Penelitian Kepustakaan (Library Research) Penulis menggunakan buku yang memuat tentang sistem informasi dan visual basic 6.0. 2. Penelitian lapangan (field Research) a. Pengambilan data Pengambilan data dilakukan langsung ke kantor Badan Kepegawaian Daerah

Kabupaten

Aceh

Tengah

dimana

penulis

melakukan

pengumpulan data dengan cara bertanya langsung kepada pihak yang terkait. b. Pengolahan data Data-data yang telah diperoleh kemudian diolah untuk dianalisa..

1.6 Sistematika Penulisan

Sistematika penulisan tugas akhir adalah sebagai berikut:

BAB 1

PENDAHULUAN Bab ini diuraikan mengenai latar belakang masalah, identifikasi masalah, tujuan penelitian, batasan masalah, metode penelitian dan sistematika penulisan.


17

BAB 2

LANDASAN TEORI Bab ini diuraikan teori yang mendukung perancangan aplikasi ini.

BAB 3

PERANCANGAN SISTEM Bab ini akan dijelaskan penulis menerangkan rancangan form, penerapan sistemnya berupa rancangan input dan output program dan algoritma dari program tersebut.

BAB 4

IMPLEMENTASI SISTEM Bab ini menguraikan tentang definisi, tujuan, dan langkah-langkah dalam implementasi sistem juga disertai dengan komponen-komponen kebutuhan sistem.

BAB 5

KESIMPULAN DAN SARAN Berisi pencapaian tujuan dari aplikasi yang dibuat. Saran berisi halhal yang dirasakan masih belum sempurna.


18

BAB 2

LANDASAN TEORI

2.1 Sistem

Istilah sistem berasal dari bahasa Yunani yaitu “systema”. Ditinjau dari sudut katanya sistem berarti sekumpulan objek yang bekerja bersama-sama untuk menghasilkan suatu kesatuan metode, prosedur, teknik yang digabungkan dan diatur sedemikian rupa sehingga menjadi satu kesatuan yang berfungsi untuk mencapai tujuan.

(Jogiyanto H.M, 2000), “Sistem adalah suatu kesatuan yang terdiri dari dua atau lebih komponen atau subsistem yang saling berinteraksi untuk mencapai tujuan”.

(Fathansyah, 1999), “Sistem merupakan suatu tatanan yang terdiri atas sejumlah komponen fungsional (dengan satuan fungsi atau tugas khusus) yang saling behubungan secara bersama-sama yang bertujuan untuk memenuhi suatu proses atau pekerjaan tertentu”.


19

2.2 Informasi

Informasi dapat didefinisikan sebagai hasil dari pengolahan dalam suatu bentuk yang lebih berguna dan lebih berarti bagi penerimanya yang menggambarkan suatu kejadian (event) yang nyata dan dapat digunakan untuk mengambil suatu keputusan.

(Jogiyanto H.M, 1989), “Informasi adalah data yang diolah menjadi bentuk yang lebih berguna dan lebih berarti bagi yang menerimanya”.

2.3 Sistem Informasi

Sistem informasi adalah suatu sistem yang dibuat oleh manusia yang terdiri dari komponen-komponen dalam organisasi untuk mencapai suatu tujuan yaitu menyajikan informasi atau suatu sistem di dalam suatu organisasi yang mempertemukan kebutuhan pengolahan transaksi, mendukung operasi, bersifat manajerial dan kegiatan strategi dari suatu organisasi dan menyediakan pihak luar tertentu dengan laporanlaporan yang diperlukan

2.4 Data


20

(Kristanto Andri, 2003), “Data adalah penggambaran dari sesuatu dan kejadian yang dihadapi atau kenyataan yang menggambarkan suatu kejadian-kejadian dan kesatuan nyata.

Proses pengolahan data ada 3 (tiga), yaitu: a. Pada Tahap Input. Yaitu dilakukan proses pemasukan data ke dalam proses komputer lewat alat input (input device). b. Pada Tahapan Processing. Yaitu dilakukan proses pengolahan data yang sudah dimasukkan, yang dilakukan oleh alat pemroses (process device) yang dapat berupa proses perhitungan,

perbandingan,

pengendalian

atau

pencarian

di

storage

(penyimpanan). c. Pada Tahapan Output. Yaitu dilakukan proses menghasilkan output dari hasil pengolahan data ke alat output (output device) yaitu berupa informasi.

2.5 Database

Database merupakan kumpulan dari data yang saling berhubungan satu dengan yang lainnya, tersimpan di dalam perangkat komputer dan untuk memanipulasinya digunakan perangkat lunak (software) . Database merupakan salah satu komponen yang penting dalam sistem informasi, karena merupakan dasar dalam menyediakan Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

21

informasi bagi para pemakai. Penerapan dalam sistem informasi disebut database sistem.

Sistem Database adalah suatu informasi yang mengintegrasikan kumpulan dari data yang saling berrhubungan satu dengan yang lainnya dan membuatnya tersedia untuk beberapa aplikasi yang bermacam-macam didalam suatu organisasi. 2.6 Visual Basic 6.0

Visual basic merupan bahasa pemrograman tercepat dan termudah untuk membuat suatu aplikasi Microsoft Windows dengan menggunakan metode Grafical User Interface (GUI) visual vbasic merupakan pemrograman untuk berinteraksi langsung dengan elemen-elemen dalam setiap bentuk pemrograman.

Visual basic dibuat sebagai langkah pengembangan untuk menyesuaikan BASIC (Beginner All – Purpose Symbolic Instruction Code) yang berbasis DOS yang tidak mempunyai kemampuan menggunakan metode GUI dalam basis Windows. Sebagai program yang berbasis Windows, Visual Basic mempunyai kemampuan untuk berinteraksi dengan seluruh aplikasi Windows, seperti Microsoft Word, Ms Excel, Ms Acces , Visual C++, Dbase dan sebagainya.

Lingkungan pemrograman visual basic mengandung semua sarana yang dibutuhkan untuk membangun program-program yang hebat untuk sistem Operasi Windows dengan cepat dan efisien. Baris menu menyediakan akses kepada sebagian besar perintah yang mengendalikan lingkungan pemrograman ini. Menu dan perintah sama fungsinya seperti pada program-program berbasis windows lainnya, dan anda Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

22

bisa mengaksesnya menggunakan keyboard atau mouse. Dibawah baris menu terdapat toolbar, yaitu sekumpulan tombol yang berfungsi sebagai tombol cepat untuk menjalankan perintah dan mengendalikan lingkungan pemrograman Visual Basic. Sarana lain yang ada pada Visual Basic adalah : Toolbox, Jendela Project Container, Jendela Form, Jendela Project, Jendela Immediate, Jendela Properties, dan Jendela Form Layout. Dibawah ini akan diperlihatkan gambar dari Lingkungan Pemrograman dari Microsoft Visual Basic 6.0 2.6.1 Struktur Aplikasi Visual Basic

Gambar 2.1 Tampilan Visual Basic 6.0

2.6.1.1 Menu Bar

Menu bar berfungsi untuk memilih tugas-tugas tertentu seperti menjalankan, membuka, menyimpan project, mengkompilasi project menjadi executable (EXE) dan lain-lain Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

23

Gambar 2.2 Tampilan Menu Bar

2.6.1.2 Main Toolbar

Toolbar mempunyai fungsi yang sama dengan menu bar, tetapi lebih praktis digunakan sebagai jalan pintas dalam menjalankan, membuka, dan menyimpan project.

Gambar 2.3 Tampilan Toolbar

2.6.1.3 Jendela Toolbox

Toolbox standar adalah berisi komponen-komponen yang merupakan sarana untuk membentuk user interface.


24

Gambar 2.4 Tampilan ToolBox Standard

Kegunaan dari masing-masing kontrol pada toolbox standar adalah; a. PictureBox

: digunakan untuk menampilkan gambar.

b. Label

: digunakan untuk menampilkan teks yang tidak dapat diubah oleh pengguna jika project sudah di compile menjadi executable.

c. TextBox

: digunakan untuk menampilkan teks yang bisa diubah oleh pengguna.

d. Frame

: digunakan untuk mengelompokkan kontrol-kontrol yang dianggap memiliki fungsi sejenis.

e. Command Button : digunakan untuk memulai proses tertentu pada saat pengguna melakukan klik. f. CheckBox

: digunakan untuk memberikan pilihan kepada pengguna.

g. OptionButton

: mempunyai fungsi yang hampir sama dengan CheckBox, bedanya, pada option button biasanya pengguna hanya dapat memilih satu pilihan.

h. ListBox

: digunakan untuk memberikan pilihan dalam bentuk daftar.

i.

: mempunyai fungsi yang hampir sama dengan ListBox,

ComboBox

bedanya pada ComboBox pengguna dapat memasukkan pilihan lain. j.

HscrollBar

k. VscrollBar

: digunakan untuk menggeser layar secara horizontal. : digunakan untuk menggeser layar secara vertical..


25

l.

Timer

: digunakan untuk mengatur proses pada program dalam interval waktu tertentu.

m. DriveListBox

: digunakan untuk menampilkan drive yang ada.

n. DirListBox

: digunakan untuk menampilkan direktori pada drive.

o. FileListBox

: digunakan untuk menampilkan file pada direktori.

p. Shape

: digunakan untuk menampilkan bentuk-bentuk tertentu.

q. Line

: digunakan untuk menampilkan garis.

r. Image

: digunakan untuk menampilkan image, tetapi tidak bisa berfungsi sebagai kontainer.

s. Data

: digunakan untuk menghubungkan program ke database.

t. Ole

: digunakan untuk menghubungkan form dengan program lain.

2.6.1.4 Jendela Form Designer

Form Designer merupakan tempat untuk merancang user interface. Disinilah para perancang program bisa meletakkan kontrol-kontrol yang dibutuhkan.

Gambar 2.5 Tampilan Form Designer Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

26

2.6.1.5 Jendela Project

Jendela Project merupakan jendela yang menampilkan semua file yang berhubungan dengan aplikasi/project.

Gambar 2.6 Tampilan Project 2.6.1.6 Jendela Properties

Jendela ini berisi daftar properti untuk objek(Form atau control) yang dipilih dan berfungsi untuk mengatur karakteristiknya, seperti warna, ukuran, dan lain-lain.

Gambar 2.7 Tampilan Properties

2.6.1.7 Jendela Form Layout


27

Jendela ini akan menunjukkan tampilan/posisi form pada saat dijalankan.

Gambar 2.8 Tampilan Form Layout

2.6.1.8 Jendela Kode

Jendela ini merupakan tempat untuk menuliskan kode-kode bagi objek yang di buat. Dengan menggunakan jendela ini, kita dapat mengatur karakteristik dari form yang telah kita buat. Jendela ini bisa dimunculkan dengan menekan menu View, lalu pilih Code pada menu bar atau melakukan klik ganda pada form atau dengan menekan tombol F7 pada saat pointer terfokus pada jendela form designer.

Gambar 2.9 Jendela Kode

2.6.1.9 Jendela Module Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

28

Jendela ini merupakan tempat untuk menuliskan kode-kode yang lebih bersifat global. Pada jendela modul ini kita bisa mendeklarasikan variabel dan fungsi dengan awalan PRIVATE maupun PUBLIC. Jika diberi awalan PRIVATE, variabel atau fungsi tersebut hanya berlaku untuk pemakaian modul yang bersangkutan. Sedangkan awalan PUBLIC akan mengakibatkan variabel atau fungsi tersebut bersifat global. Jendela modul ini bisa ditampilkan dengan mengklik menu Project pada menu bar, kemudian pilih Add Module.

Gambar 2.10 Jendela Module

2.7 Flow Chart


29

Flowchart adalah sekumpulan simbol-simbol yang menunjukan atau menggambarkan rangkaian kegiatan-kegiatan program dari awal hingga ahkir, jadi flowchart ini digunakan untuk menggambarkan urutan langkah-langkah suatu algoritma.

2.7.1. Simbol-Simbol Flow Chart 1. Flow Direction Simbols Simbol Simbol Arus/Flow

Kegunaannya Untuk menghubungkan antara simbol yang satu dengan yang lain

Simbol off-Line Connector

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

Simbol Connector

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

2. Processing Symbol Simbol

Kegunaannya

Simbol Process

Simbol yang menunjukkan pengolahan yang dilakukan oleh komputer

Simbol Communication Link

Simbol yang menunjukkan pengolahan yang tidak dilakukan oleh komputer

Simbol Decision

Simbol

untuk

kondisi

yang

akan

menghasilkan beberapa kemungkinan jawaban/aksi


30

Simbol off-Line Connector

Simbol

untuk

penyimpanan

yang

mempersiapkan akan digunakan

sebagai tempat pengolahan didalam stroge Simbol Terminator

Simbol untuk permulaan atau akhir dari suatu program

3. Input-Output Symbol Simbol Simbol Input Output

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

Simbol Punched Card

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

Simbol Magnetic Tape Unit

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

Simbol Disk and On-Line Stroge Simbol untuk menyatakan input berasal dari disk atau output disimpan ke disk

Simbol Transmittal Tape

Simbol untuk menyatakan input berasal dari mesin jumlah/hitung.

Simbol Display

Simbol

yang

menyatakan peralatan

output yang digunakan yaitu layar, plotter, printer, dan sebagainya


31

BAB 3

PERANCANGAN SISTEM

3.1 Perancangan Sistem

Perancangan sistem adalah gambaran, perencanaan dan pembuatan sketsa atau pangaturan dari beberapa elemen yang terpisah ke dalam satu kesatuan yang utuh dan Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

32

berfungsi. Tahapan perancangan memiliki tujuan untuk merancang sistem baru yang dapat menyelesaikan masalah-masalah yang dihadapi oleh suatu instansi atau lembaga yang diperoleh dari pemilihan alternatif sistem yang terbaik.

3.2 Perancangan Database

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

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

Dibawah ini merupakan gambaran isi masing-masing tabel : Tabel 3.1 Pegawai NO

NAMA FIELD

1

Nip

2

*

TYPE

SIZE

KETERANGAN

Text

9

Nomor Induk Pegawai

Nama

Text

20

Nama Pegawai

3

TpLahir

Text

20

Tempat Lahir Pegawai

4

TglLahir

Date/Time 8

Tanggal Lahir Pegawai

5

Jk

Text

Jenis Kelamin

10


33

6

Alamat

Text

30

Alamat Pegawai

7

Agama

Text

10

Agama

8

StNikah

Text

15

Status Nikah

9

JlhAnak

Integer

2

Jumlah Anak

10

StPegawai

Text

4

Status Pegawai

11

NoTelp

Text

15

Nomor Telepon

12

Pendidikan

Text

20

Pendidikan Terakhir

13

Jurusan

Text

30

Jurusan/Program Studi

14

TmtCpns

Date/Time 8

Terhitung Mulai Tanggal Kerja

15

Gol

Text

5

Golongan

16

Pangkat

Text

20

Pangkat

17

Jabatan

Text

20

Jabatan Pegawai

18

Eselon

Text

5

Eselon

19

Mk

Integer

2

Masa Kerja

Tabel 3.2 gaji pegawai NO

NAMA FIELD

1

Nip

2

*

TYPE

SIZE

KETERANGAN

Text

9

Nomor Induk Pegawai

Nama

Text

20

Nama Pegawai

3

Gol

Text

5

Golongan

4

T_Istri_Suami

Currency

8

Tunjangan Istri / Suami

5

T_Anak

Currency

8

Tunjangan Anak

6

T_Jabatan

Currency

8

Tunjangan Jabatan


34

7

T_Beras

Currency

8

Tunjangan Beras

8

T_Lain2

Currency

8

Tunjangan Lain-Lain

9

P_Beras

Currency

8

Potongan beras

10

P_Iwp

Currency

8

Potongan(Iuran Wajib Pajak)

11

P_Pph

Currency

8

Potongan (Pajak Penghasilan)

12

P_Rumah

Currency

8

Potongan Perumahan

13

P_Lain2

Currency

8

Potongan Lain-Lain

14

Gapok

Currency

8

Gaji Pokok

15

Gaji_Bersih

Currency

8

Gaji Bersih

16

TglGaji

Date/Time 8

Tanggal Gajian

Tabel 3.2 gajipokok NO 1

NAMA FIELD Mkg

*

TYPE

SIZE

KETERANGAN

Integer

2

Masa Kerja Pegawai

2

Ia

Currency

8

Golongan I/a

3

Ib

Currency

8

Golongan I/b

4

Ic

Currency

8

Golongan I/c

5

Id

Currency

8

Golongan I/d

6

IIa

Currency

8

Golongan II/a

7

IIb

Currency

8

Golongan II/b

8

IIc

Currency

8

Golongan II/c

9

IId

Currency

8

Golongan II/d

10

IIIa

Currency

8

Golongan III/a


35

11

IIIb

Currency

8

Golongan III/b

12

IIIc

Currency

8

Golongan III/c

13

IIId

Currency

8

Golongan III/d

14

IVa

Currency

8

Golongan IV/a

15

IVb

Currency

8

Golongan IV/b

16

IVc

Currency

8

Golongan IV/c

17

IVd

Currency

8

Golongan IV/d

18

IVe

Currency

8

Golongan IV/e

3.3 Perancangan Tampilan

3.3.1 Menu File 3.3.1.1 Input Data Pegawai


36

Gambar 3.1 Input Data Pegawai

Pada Form Input Data Pegawai terdapat bebrapa control label dan textbox sebagai keterangan dan sebagai tempat untuk mengisi/menginput data mengenai pegawai, dan juga terdapat beberapa tombol yaitu: a. Tombol Simpan yang berfungsi untuk menyimpan data yang telah diinput sebelumnya b. Tombol Bersih yang berfungsi untuk mengosongkan textbox yang ada pada Form Input Data Pegawai c. Tombol Kemenu yang berfungsi untuk menutup Form Input Data Pegawai dan kembali ke menu utama 3.3.1.2 Hitung Gaji Pegawai


37

Gambar 3.2 Hitung Gaji Pegawai

Dalam Form Hitung Gaji Pegawai akan menampilkan gaji pegawai dengan cara mengisikan nip yang sesuai dengan data yang telah diinput terlebih dahulu pada form input data pegawai dan kemudian menekan tombol hitung untuk menghitung gaji pegawai. Dalam Form Hitung Gaji Pegawai terdapat beberapa tombol yaitu: a. Tombol Hitung yang berfungsi untuk menghitung gaji pegawai termasuk tunjangan dan potongan penghasilan dari masing-masing pegawai b. Tombol Simpan yang berfungsi untuk menyimpan gaji pegawai yang telah dihitung sebelumnya c. Tombol Bersih berfungsi untuk mengosongkan textbox yang ada pada Form Hitung Gaji Pegawai d. Tombol Kemenu yang berfungsi untuk menutup Form Hitung Gaji Pegawai dan kembali ke menu utama

3.3.1.3 Input Gaji Pokok


38

Gambar 3.3 Input Gaji Pokok

Form ini hanya dapat dibuka dengan menggunakan password dan jika pengguna tidak mengetahui password yang benar maka Form Input Gaji Pokok tidak dapat dibuka. Form ini digunakan untuk menginput gaji pokok mulai dari golongan I/a sampai IV/e berdasarkan masa kerja pegawai. Pada Form Input Gaji Pokok terdapat beberapa tombol yaitu; a. Tombol Simpan berfungsi untuk menyimpan data gaji dan masa kerja yang telah diinput sebelumnya b. Tombol Bersih berfungsi untuk mengosongkan textbox yang ada pada Form Gaji Pokok c. Tombol Kemenu yang berfungsi untuk menutup Form Gaji Pokok dan kembali ke menu utama

3.3.2 Menu Edit 3.3.2.1 Edit Data Pegawai


39

Gambar 3.4 Edit Data Pegawai

Form Edit Data Pegawai digunakan untuk mengedit data yang telah ada dalam database pegawai. Untuk mengedit data tersebut, kita harus memasukan nip pegawai yang sudah di input sebelumnya pada textbox Nip (txtnip) dan menekan enter untuk menampilkan data mengenai pegawai dengan nip yang telah diinput tadi, kemudian menekan tombol Edit untuk dapat mengedit data tersebut kemudian menekan tombol Simpan untuk menyimpan perubahan data yang telah kita lakukan pada data tersebut.

3.3.2.2 Edit Gaji Pokok


40

Gambar 3.5 Edit Gaji Pokok

Form Edit Gaji Pokok digunakan untuk mengedit atau untuk menghapus gaji pokok pegawai. Untuk mengedit atau menghapus sebuah data gaji pokok pegawai, kita harus memasukan masa kerja pada textbox masa kerja yang agar data yang ingin diedit atau dihapus ditampilkan kemudian kita diperbolehkan untuk mengedit atau menghapus data tersebut dan jika masa kerja yang diinput tidak ada dalam database gaji pokok maka akan menampilkan pesan “Maaf data belum ada! Silahkan input data tersebut pada menu file -> Input gaji pokok.”

3.3.3 Menu Cari 3.3.3.1 Cari Data Pegawai


41

Gambar 3.6 Cari Data Pegawai Pada form cari data pegawai, kita dapat melakukan pencarian berdasarkan kreteria yang ada seperti; Nip dan Nama. Untuk melakukan pencarian data pertama-tama kita harus memilih kreteria yang ada seperti Nip dan memasukan Nip pegawai yang akan dicari pada textbox di bawahnya, kemudian menekan tombol cari atau Enter pada keyboard, jika data yang dicari tidak ada maka akan keluar kotak pesan “Maaf data tidak ada !”, jika data yang di cari ada maka hanya data tersebut yang akan ditampilkan pada Tabel Dbgrid di bawahnya, dan untuk memudahkan kita melihat data tersebut klik ganda data yang ada pada Dbgrid tersebut dan akan menampilkan gambar seperti berikut ini.

Gambar 3.7 Output Cari Data Pegawai 3.3.3.2 Cari Data Gaji Pegawai


42

Gambar 3.8 Cari Data Gaji Pegawai Pada form cari Data Gaji Pegawai, kita dapat melakukan pencarian berdasarkan kreteria yang ada seperti; Nip, Nama dan golongan. Untuk melakukan pencarian data kita harus memilih kreteria yang ada seperti Nip dan memasukan Nip pegawai yang akan dicari pada textbox di bawahnya, begitu juga dengan kriteria Nama dan golongan. Kemudian setelah menekan tombol cari atau Enter pada keyboard, jika data yang dicari tidak ada maka akan keluar kotak pesan “Maaf data tidak ada !”, jika data yang di cari ada maka hanya data tersebut yang akan ditampilkan pada Tabel Dbgrid di bawahnya, dan untuk melihat data yang lebih lengkap klik ganda data yang ada pada Dbgrid tersebut dan akan menampilkan gambar seperti berikut ini.

Gambar 3.9 Output Cari Data Gaji Pegawai 3.3.4 Menu Laporan 3.3.4.1 Laporan Data pegawai 1. PerOrangan (Per-Pegawai)


43

Gambar 3.10 Cetak Data Pegawai Pada form ini terdapat dua tombol yaitu tombol Proses dan tombol Kemenu. Tombol Kemenu berfungsi untuk kembali Kemenu Utama dan Tombol Proses berfungsi untuk menampilkan data pegawai Per Orangan Seperti gambar berikut ini.

Gambar 3.11 Output Cetak Data Pegawai 2. Seluruh data


44

Gambar 3.12 Cetak Seluruh Data Pegawai

Pada form ini terdapat dua tombol yaitu tombol proses dan tombol Kemenu. Tombol Kemenu berfungsi untuk kembali Kemenu Utama dan Tombol proses berfungsi untuk menampilkan data pegawai secara keseluruhan Seperti gambar berikut ini.

Gambar 3.13 Output Cetak Seluruh Data Pegawai Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

45

3.3.4.2

Laporan Data Gaji Pegawai 1. Menurut Nip

Gambar 3.14 Cetak Data Gaji Pegawai Menurut Nip

Pada program ini kita dapat menampilkan data berdasarkan nip yang diinput pada kotak Nip, dan dibawahnya terdapat dua tombol yaitu tombol Proses dan tombol Kemenu. Tombol Kemenu berfungsi untuk kembali Kemenu Utama dan Tombol Proses berfungsi untuk menampilkan data pegawai berdasarkan Nip yang telah dipilih pada kotak Nip, dan akan menampilkan Data Gaji Pegawai Berdasarkan Nip yang telah diinput sebelumnya, seperti gambar berikut ini.


46

Gambar 3.15 Output Cetak Data Gaji Pegawai Menurut Nip

2. Menurut Golongan

Gambar 3.16 Cetak Data Gaji Pegawai Menurut Golongan

Pada Form ini kita dapat menampilkan Data Gaji Pegawai berdasarkan golongan. apabila kita telah memilih golongan yang ada pada kotak golongan maka kita dapat menampilkan data gaji pegawai berdasarkan golongan dengan mengklik Tombol Proses, dan jika kita mengklik Tombol Kemenu maka akan kembali ke menu utama. Berikut ini adalah contoh tampilan data gaji pegawai berdasarkan golongan.

Gambar 3.17 Output Cetak Data Gaji Pegawai Menurut Golongan Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

47

3. Menurut Tanggal Gaji

Gambar 3.18 Cetak Data Gaji Pegawai Menurut Tanggal Gaji

Pada form ini terdapat dua tombol yaitu Tombol Proses danTombol Kemenu. Tombol Kemenu berfungsi untuk Kembali kemenu utama dan tombol Proses berfungsi untuk menampilkan Data Gaji Pegawai berdasarkan Tanggal gaji. Yang telah kita inputkan sebelumya. Berikut ini adalah contoh tampilan data gaji pegawai berdasarkan tanggal gaji.

Gambar 3.19 Output Cetak Data Gaji Pegawai Menurut Tanggal Gaji Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

48

4. Seluruh Data

Gambar 3.20 Cetak Semua Data Gaji Pegawai

Pada form ini terdapat dua tombol yaitu tombol Proses dan tombol Kemenu. Tombol Kemenu berfungsi untuk kembali Kemenu Utama dan Tombol Proses berfungsi untuk menampilkan Data Gaji Pegawai secara keseluruhan, Seperti gambar berikut ini.


49

Gambar 3.21 Output Cetak Semua Data Gaji Pegawai

3.3.4.3 Laporan Gaji Pokok Pegawai

Gambar 3.22 Cetak Gaji Pokok

Pada form ini terdapat dua tombol yaitu tombol Proses dan tombol Kemenu. Tombol Kemenu berfungsi untuk kembali Kemenu Utama dan Tombol Proses berfungsi untuk menampilkan Gaji Pokok pegawai, Seperti gambar berikut ini.


50

Gambar 3.23 Output Cetak Gaji Pokok

3.3.5 Menu Tentang


51

Gambar 3.24 Menu Tentang Menu ini akan menampilkan informasi tentang pembuat program (Programmer) dan informasi lainnya.

3.3.6 Menu Keluar

Gambar 3.25 Menu Keluar Menu ini di gunakan untuk keluar dari program Pengolahan Data Gaji Pegawai


52

3.4 Flowchart 3.4.1 Flowchart Menu Utama

Start

Tampilan Menu Utama

File

Y

Input Data Pegawai

Y

Frm Input Data Pegawai

Y

Frm Hitung Gaji Pegawai

T

T

Hitung Gaji

Pegawai T Input Gaji Pokok

Y

Y

Edit Data Pegawai

Y

Frm Input Gaji Pokok

T

T

Edit

Password

Y

Frm Edit Data Pegawai

T Edit Gaji Pokok

T

Y

Password

Y

Frm Edit Gaji Pokok

T

A


B

53

A

Pencarian

B

Y

Y

Cari Data Pegawai

Frm Cari Data Pegawai

T Y

Cari data Gaji Pegawai

T

Frm Cari Data Gaji Pegawai

T

Laporan

Y

Laporan Data Pegawai

Y

Per Orangan

Y

Lap. Data PerOrangan

T Y

Seluruh Data

T

Lap. Seluruh Data

T

T

Laporan Data Gaji Pegawai

Y

Menurut Nip

Y

Lap. Data Menurut Nip

T Menurut Gol.

T

Y

Lap. Data Menurut Gol.

T Menurut Tgl Gaji

Y

Lap. Data Mnrt. Tgl. Gaji

T C

D

E


F

54

C

D

F

E

Y

Menurut Tgl Gaji

Lap. Seluruh Data

T

Laporan Gaji Pokok Pegawai

Y

Lap. Gaji Pokok Pegawai

T

Tentang

Y

Frm Tentang

T

Keluar Program

T

Y End

Gambar 3.26 Flowchart Menu Utama


55

3.4.2 Flowchart Input Data Pegawai

Frm. Input Data Pegawai

Input Data Pegawai

If Data Sudah ada

Y Pesan “Maaf Data Tersebut Sudah ada”

T Simpan

Database Pegawai

Input Data Lain

Y

T Keluar

Gambar 3.27 Flowchart Input Data Pegawai


56

3.4.3 Flowchart Hitung Gaji Pegawai

Frm. Hitung Gaji Pegawai

Input Nip

If Data ada

T Pesan “Maaf Data Tersebut Belum ada”

Y Klik Tombol Hitung Y Data Ditampilkan Simpan Y Database Gaji Pegawai

Input Data Lain

Y

T Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Keluar Tengah, 2009. USU Repository © 2009

57

Gambar 3.28 Flowchart Hitung Gaji Pegawai

3.4.4 Flowchart Input Gaji Pokok

Frm. Input Gaji Pokok

Input Masa Kerja

If Data Tidak ada

T

Pesan “Maaf Data Y Tersebut Sudah ada”

Data Ditampilkan

Y Simpan Y Database Gaji Pokok

Input Data Lain

Y

T Keluar

Gambar 3.29 Flowchart Input Gaji Pokok Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

58

3.4.5 Flowchart Edit Data Pegawai

Frm. Edit Data Pegawai Input Nip

If Data ada


Y Data Ditampilkan

Edit

Y

Simpan

T Database Pegawai

Hapus T

Y

Edit/Hapus Data Lain

Y

T

Keluar Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

59

Gambar 3.30 Flowchart Edit Data Pegawai

3.4.6 Flowchart Edit Gaji Pokok

Frm. Edit Gaji Pokok

Input Masa Kerja

If Data ada


Y Data Ditampilkan Edit

Y

Simpan

T Database Gaji Pokok

Hapus T

Y

Edit/Hapus Data Lain

Y

T

Keluar Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

60

Gambar 3.31 Flowchart Edit Gaji Pokok

3.4.7 Flowchart Cari Data Pegawai

Frm. Cari Data Pegawai

Input Kriteria dan Kata Kunci

Y

Tekan Enter atau Tombol Cari

If Data Ketemu

T

Data yang anda cari tidak ada

Y Data Ditampilkan

Cari Data Lain

Y

T Keluar


61

Gambar 3.32 Flowchart Cari Data Pegawai

3.4.8 Flowchart Cari Data Gaji Pegawai

Frm. Cari Data Gaji Pegawai

Input Kriteria dan Kata Kunci

Y

Tekan Enter atau Tombol Cari

If Data Ketemu

T

Data yang anda cari tidak ada

Y Data Ditampilkan

Cari Data Lain

Y

T Keluar Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

62

Gambar 3.33 Flowchart Cari Data Gaji Pegawai

3.4.9 Flowchart Menu Laporan Menu Laporan

Data Pegawai

Y

PerOrangan

T

T

Seluruh Data

Y Proses

Y Proses

Lap. Data Perorangan

Lap. Seluruh Data

T

Data Gaji Pegawai

T

Gaji Pokok

Y

Menurut Nip

T

Menurut Golongan

Y

Y

Proses Lap. Gaji Mnrt. Nip

Y

Proses

T

Menurut Tanggal

T

Seluruh Data

Proses

Y Proses

Y Proses

Lap. Gaji Mnrt. Gol

Lap. Gaji Mnrt. Tgl.

Lap. Seluruh Data

Lap. Gaji Pokok


T

Keluar

T

63

Gambar 3.34 Flowchart Menu Laporan

3.5 Algoritma Program

Algoritma merupakan salah satu langkah dalam pelaksanaan program. Secara global algoritma dalam sistem informasi kepegawaian ini adalah : 1. Algoritma untuk menampilkan menu utama Langkah 1

: Start

Langkah 2

: Tampilkan terlebih dahulu pembuka atau splash

Langkah 3

: Tampilkan menu utama Menu ini berisikan lima submenu, yaitu : 1.

File

2.

Edit

3.

Pencarian

4.

Laporan

5.

Tentang

6.

Keluar Program

Langkah 4

: Pilih sub menu yang ada pada menu utama

Langkah 5

: Jika pilihan = 1 Tampilkan menu file


64

Jika pilihan = 2 Tampilkan menu edit Jika pilihan = 3 Tampilkan menu pencarian Jika pilihan = 4 Tampilkan menu laporan Jika pilihan = 5 Tampilkan menu tentang Jika pilihan = 6 Keluar Program

2. Algoritma untuk menampilkan menu File Langkah 1

Langkah 2

: Tampilkan menu File, yang terdapat tiga submenu yaitu : 1.

Input Data Pegawai

2.

Hitung Gaji Pegawai

3.

Input Gaji Pokok

: Program akan jalan apabila : Pilihan = 1 jalankan submenu Input Data Pegawai Masukan data pegawai, jika data sudah terisi maka simpan, klik tombol bersih jika ingin mengosongkan teks, jika ingin menambah maka isilah ulang data, jika tidak klik tombol keluar dan kembali ke menu utama

Pilihan = 2 jalankan submenu Hitung Gaji Pegawai Pilih nip pegawai yang ingin di proses, klik tombol hitung untuk menghitung data penghasilan, data potongan dan gaji,,


65

klik tombol bersih jika ingin mengosongkan teks, klik tombol keluar untuk kembali ke menu utama.

Pilihan = 3 jalankan submenu Input Gaji Pokok Masukan password untuk masuk ke form Input Gaji Pokok. Jika sudah masuk isilah data-data gaji klik tombol simpan untuk menyimpan data gaji, klik tombol bersih jika ingin mengosongkan teks. Untuk melihat daftar gaji pokok masukan masa kerja dan tekan enter untuk menampilkan data yang sudah dimasukan. klik tombol keluar untuk kembali ke menu utama. 3. Algoritma untuk menampilkan menu Edit Langkah 1

: Tampilkan menu Edit, yang terdapat dua submenu yaitu : 1. Edit Data Pegawai 2. Edit Gaji Pokok

Langkah 2

: Program akan jalan apabila : Pilihan = 1 jalankan submenu Edit Data Pegawai Pilih nip pegawai yang ingin di proses, setelah nip sudah dimasukan klik tombol edit untuk mengubah data pegawai, klik tombol simpan jika ingin menyimpan data yang dirubah, klik tombol batal jika tidak ingin merubah data, klik tombol hapus jika ingin menghapus data pegawai, klik tombol bersih jika ingin mengosongkan teks, klik tombol keluar untuk kembali ke menu utama.


66

Pilihan = 2 jalankan submenu Edit Gaji Pokok Masukan password untuk masuk ke form Edit Gaji Pokok. Jika sudah masuk klik tombol edit jika ingin mangubah daftar gaji pokok pegawai, klik tombol simpan jika ingin menyimpan data yang sudah dirubah, jika ingin menghapus daftar gaji pokok pegawai klik tombol hapus, klik tombol bersih jika ingin mengosongkan teks, klik tombol keluar untuk kembali ke menu utama.

4. Algoritma untuk menampilkan menu Pencarian Langkah 1

: Tampilkan menu Pencarian, terdapat dua submenu yaitu : 1. Cari Data Pegawai 2. Cari Data Gaji Pegawai

Langkah 2

: Program akan jalan apabila : Pilihan = 1 jalankan submenu Cari Data Pegawai Masukan kriteria nama atau nip. Setelah nip atau nama dimasukan klik tombol cari untuk mencari data pegawai yang diinginkan, klik tombol keluar untuk kembali ke menu utama.

Pilihan = 2 jalankan submenu Edit Gaji Pokok Masukan kriteria nip, nama atau golongan. Setelah nip, nama atau golongan dimasukan klik tombol cari untuk mencari data Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

67

gaji pegawai, klik tombol keluar untuk kembali ke menu utama.

5. Algoritma untuk menampilkan menu Laporan Langkah 1

: Tampilkan menu Laporan, yang terdiri dari : I. Laporan Data Pegawai II. Laporan Data Gaji Pegawai III. Daftar Gaji Pokok

Langkah 2

: Pilihan = I tampilkan pilihan yang ada pada laporan data pegawai, yang terdiri atas : . 1. Per Pegawai 2. Seluruhnya

Langkah 3

: Program akan jalan apabila : Pilihan = 1 jalankan submenu Per Pegawai Klik tombol proses untuk mencetak laporan data pegawai, jika tidak klik tombol batal untuk keluar dan kembali kemenu untama.

Pilihan = 2 jalankan submenu Seluruhnya Klik tombol proses untuk mencetak laporan data pegawai seluruhnya, jika tidak klik tombol batal untuk keluar dan kembali kemenu untama.

Langkah 4

: Pilihan = II tampilkan pilihan yang ada pada laporan data gaji pegawai, yang terdiri atas :


68

1. Menurut Nip 2. Menurut Golongan 3. Menurut Tanggal Gaji 4. Seluruhnya

Langkah 5

: Program akan jalan apabila : Pilihan = 1 jalankan submenu Menurut Nip Pilih nip yang ingin diproses, jika sudah dipilih klik tombol proses untuk mencetak laporan data gaji pegawai menurut nip yang dimasukan, jika tidak klik tombol batal untuk keluar dan kembali kemenu untama.

Pilihan = 2 jalankan submenu Menurut Golongan Pilih golongan klik tombol proses untuk mencetak laporan data gaji pegawai menurut golongan, jika tidak klik tombol batal untuk keluar dan kembali kemenu untama.

Pilihan = 3 jalankan submenu Menurut Tanggal Gaji Masukan tanggal gaji kemudian klik tombol proses untuk mencetak laporan data gaji pegawai menurut tanggal gaji, jika tidak klik tombol batal untuk keluar dan kembali kemenu untama.

Pilihan = 4 jalankan submenu Seluruhnya Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

69

Klik tombol proses untuk mencetak laporan data gaji pegawai seluruhnya, jika tidak klik tombol batal untuk keluar dan kembali kemenu untama.

Langkah 6

: Pilihan = III jalankan submenu Daftar Gaji Pokok Klik tombol proses untuk mencetak daftar gaji pokok pegawai, jika tidak klik tombol batal untuk keluar dan kembali kemenu untama.

6. AlgoritmaTentang Langkah 1

: Tampilkan animasi tulisan nama penulis Klik tombol keluar untuk kembali kemenu utama.

7. AlgoritmaKeluar Program Langkah 1

: Tampilkan menu exit

Langkah 2

: Jika klik yes keluar dari menu utama, jika no kembali ke menu utama


70

BAB 4

IMPLEMENTASI SISTEM

4.1 Pengertian Implementasi Sistem


71

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

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

4.2 Tujuan Implementasi Sistem

Tujuan dari implementasi sistem ini adalah sebagai berikut: 1. Menyelesaikan desain sistem yang ada dalam dokumen sistem yang disetujui. Menyusun dokumen-dokumen baru atau dokumen yang diperbaiki. 2. Menulis, menguji dan mendokumentasikan program-program dan prosedurprosedur yang dilakukan oleh dokumen desain sistem yang disetujui. 3. Memastikan bahwa pemakai (user) dapat mengoperasikan sistem baru dan melatih pemakai. 4. Memperhitungkan bahwa sistem memenuhi permintaan yaitu dengan menguji sistem secara menyeluruh. 5. Memastikan bahwa konversi ke sistem baru berjalan, yaitu dengan membuat rencana, mengontrol dan melakukan instalasi baru secara benar.

4.3 Spesifikasi Sitem Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

72

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

4.3.1 Perangkat Keras (Hardware)

Penggunaan perangkat keras yang baik akan mempengaruhi cepat lambatnya proses program dijalankan dan dihasilkan. Adapun spesifikasi perangkat keras yang dianjurkan adalah : 1. PC Celeron 667 Mhz 2. Memori 64 Mb 3. Monitor super VGA 4. Hardisk minimal 10 GB 5. Keyboard 6. Mouse 7. Printer 4.3.2 Perangkat Lunak (Software)

Untuk mendukung sistem kerja dari hardware maka diperlukan juga software didalamnya. Untuk sistem ini diperlukan spesifikasi perangkat lunak, yaitu : 1. Sistem Operasi Windows XP. 2. Aplikasi bahasa pemograman Microsoft Visual Basic 6.0. 3. Microsoft Acces 2003 4. Seagate Crystal Report Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

73

4.3.3 Sumber Daya Manusia (Brainware)

Dalam mengolah sebuah program diperlukan tenaga sumber daya manusia yang akan menjadikan program tersebut dapat berjalan dengan baik dan efisien. Tenaga sumber daya manusia yang dibutuhkan adalah : 1. Sistem Analis, yaitu orang yang menganalisa sistem dengan mempelajari masalahmasalah yang timbul dan menentukan kebutuhan-kebutuhan pemakai dan mengidentifikasi pemecahan yang beralasan. 2. Programmer, yaitu orang yang akan menyusun instruksi bagi komputer agar dapat digunakan oleh pemakai (user) serta merancang antar muka pemakai (interface) pada program. 3. Operator, yaitu orang yang akan menangani secara langsung pengolahan data pada sistem yang telah dibuat atau bisa dikatakan pengguna sistem.

BAB 5

KESIMPULAN DAN SARAN


74

5.1 Kesimpulan

Selama penulis melakukan penelitian di

kantor Badan Kepegawaian Daerah

Kabupaten Aceh Tengah hingga dalam perancangan sistem, maka penulis dapat mengambil kesimpulan : 1. Pengolahan data dengan berbantukan komputer dapat meringankan pekerjaan, lebih efektif dan efesien dan tentunya dapat mempersingkat waktu kerja dan mendapatkan hasil yang akurat.. 2. Penggunaan perangkat komputer yang baik dapat menghasilkan hasil yang lebih maksimal dan dapat juga mempersingkat waktu dalam pengoperasian program.

5.2 Saran

Beberapa saran yang dapat disampaikan, yaitu: 1. Diharapkan sebagai kelanjutan dari pengolahan data gaji pegawai yang akan datang, kiranya dapat dikembangkan atau lebih disempurnakan lagi mengikuti sistem yang ada pada Badan Kepegawaian Daerah Kabupaten Aceh Tengah. 2. Untuk melakukan pekerjaan yang membutuhkan banyak data sebaiknya diolah menggunakan komputer agar dapat meningkatkan efisiensi dalam penggunaan waktu dan tenaga. 3. Perlu dilakukan perbaikan dan pengembangan terhadap program ini agar dapat memberikan hasil yang lebih maksimal.


75

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

DAFTAR PUSTAKA

Kurniadi, Adi. 2000. Pemrograman Microsoft Visual Basic 6. Jakarta.PT Elex Media Komputindo. Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

76

Yuswanto. 2004. Pemrograman Client-Server Microsoft Visual Basic 6.0. Jilid 1. Jakarta. Prestasi Pustakaraya. Prasetyo, Dwi. D. 2004. Aplikasi Bisnis dan Perkantoran Menggunakan Visual Basic. Jakarta. PT Elex Media Komputindo. Sanjaya, R. dan Helmy. 2004. Mempercantik Desain Form pada Visual Basic 6.0. Jakarta. PT Elex Media Komputindo.


77

LAMPIRAN A LISTING PROGRAM


78

Listing Program 1. Listing Program Menu Utama Private Sub MnCariData_Click() Form6.Show End Sub Private Sub MnCariMnrtGol_Click() Form7.Show End Sub Private Sub MnEditData_Click() Form3.Show End Sub Private Sub MnEditGapok_Click() frmpassword2.Show End Sub Private Sub MnGajiSeluruhnya_Click() RptGapeg.Show RptGapeg.SetFocus End Sub Private Sub MnGaPegGol_Click() RptGapegGol.Show End Sub Private Sub MnGapegNip_Click() RptGapegNip.Show End Sub Private Sub MnGapok_Click() frmpassword1.Show End Sub Private Sub MnInputData_Click() Form1.Show End Sub Private Sub MnInputGaji_Click() Form2.Show End Sub Private Sub MnKeluar_Click() pesan = MsgBox("Anda Yakin Ingin Keluar ?", vbYesNo + vbQuestion, _ "Pesan Keluar") If pesan = vbYes Then End End If End Sub Private Sub MnPegPerOrang_Click() RptPerPegawai.Show Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

79

End Sub Private Sub MnPegSeluruhnya_Click() RptAllPegawai.Show End Sub Private Sub MnTentang_Click() Form8.Show End Sub Private Sub MnTglGaji_Click() RptGapegPerTgl.Show End Sub Private Sub mnugapok_Click() RptGApok.Show End Sub Private Sub Timer1_Timer() Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1) + _ Left(Label1.Caption, 1) End Sub

2. Listing Program Input Data Pegawai Private Sub cbonikah_Change() If cbonikah = "BELUM NIKAH" Then Me.TXTJLHANAK = 0 Me.TXTJLHANAK.Enabled = False Else Me.TXTJLHANAK.Enabled = True End If End Sub Private Sub cbonikah_Click() cbonikah_Change End Sub Private Sub Form_Activate() TMTCPNS.Value = Date TMTCPNS.MaxDate = Date TXTMASAKERJA = 0 TXTJLHANAK = 0 txtnip.MaxLength = 9 txtnama.MaxLength = 20 txttplahir.MaxLength = 20 txtalamat.MaxLength = 30 TXTJLHANAK.MaxLength = 2 txttelp.MaxLength = 15 txtjurusan.MaxLength = 30 TXTJAB.MaxLength = 20 End Sub Private Sub Form_Load() Skin1.LoadSkin App.Path & "\SKIN\Winaqua.skn" Skin1.ApplySkin hWnd Data1.DatabaseName = App.Path + "\PegawaiDbs.mdb" Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

80

Data1.RecordSource = "pegawai" cbogol.AddItem "I/a" cbogol.AddItem "I/b" cbogol.AddItem "I/c" cbogol.AddItem "I/d" cbogol.AddItem "II/a" cbogol.AddItem "II/b" cbogol.AddItem "II/c" cbogol.AddItem "II/d" cbogol.AddItem "III/a" cbogol.AddItem "III/b" cbogol.AddItem "III/c" cbogol.AddItem "III/d" cbogol.AddItem "IV/a" cbogol.AddItem "IV/b" cbogol.AddItem "IV/c" cbogol.AddItem "IV/d" cbogol.AddItem "IV/e" cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem

"I.a" "I.b" "II.a" "II.b" "III.a" "III.b" "IV.a" "IV.b" "V.a" "V.b" ""

CboStpeg.AddItem "CPNS" CboStpeg.AddItem "PNS" cbonikah.AddItem cbonikah.AddItem cbonikah.AddItem cbonikah.AddItem

"NIKAH" "BELUM NIKAH" "JANDA" "DUDA"

cboagama.AddItem cboagama.AddItem cboagama.AddItem cboagama.AddItem cboagama.AddItem cboagama.AddItem

"ISLAM" "PROTESTAN" "KATOLIK" "HINDU" "BUDDHA" "KONGUCHU"

cbokelamin.AddItem "LAKI-LAKI" cbokelamin.AddItem "PEREMPUAN" cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem

"SD" "SLTP" "SLTA" "DIPLOMA I (D-1)" "DIPLOMA II (D-2)" "DIPLOMA III (D-3)" "DIPLOMA IV (D-4)" "STRATA I (S-1)" "STRATA II (S-2)"


81

cbopendidikan.AddItem "STRATA III (S-3)" End Sub Private Sub cbogol_Change() If cbogol = "I/a" Then txtpangkat = "JURU MUDA" ElseIf cbogol = "I/b" Then txtpangkat = "JURU MUDA TK I" ElseIf cbogol = "I/c" Then txtpangkat = "JURU" ElseIf cbogol = "I/d" Then txtpangkat = "JURU TK I" ElseIf cbogol = "II/a" Then txtpangkat = "PENGATUR MUDA" ElseIf cbogol = "II/b" Then txtpangkat = "PENGATUR MUDA TK I" ElseIf cbogol = "II/c" Then txtpangkat = "PENGATUR" ElseIf cbogol = "II/d" Then txtpangkat = "PENGATUR TK I" ElseIf cbogol = "III/a" Then txtpangkat = "PENATA MUDA" ElseIf cbogol = "III/b" Then txtpangkat = "PENATA MUDA TK I" ElseIf cbogol = "III/c" Then txtpangkat = "PENATA" ElseIf cbogol = "III/d" Then txtpangkat = "PENATA TK I" ElseIf cbogol = "IV/a" Then txtpangkat = "PEMBINA" ElseIf cbogol = "IV/b" Then txtpangkat = "PEMBINA TK I" ElseIf cbogol = "IV/c" Then txtpangkat = "PEMBINA UTAMA MUDA" ElseIf cbogol = "IV/d" Then txtpangkat = "PEMBINA UTAMA MADYA" ElseIf cbogol = "IV/e" Then txtpangkat = "PEMBINA UTAMA" End If End Sub

Private Sub cmdsimpan_Click() If txtnip = Empty Or txtnama = Empty Or txtalamat = Empty Or _ cboagama = Empty Or cbogol = Empty Then MsgBox "Silahkan Lengkapi Datanya...!!!", 0, "Konfirmasi" Else With Data1.Recordset .Index = "PEGAWAIIDX" .Seek "=", txtnip.Text If Not Data1.Recordset.NoMatch Then PESAN = MsgBox("MAAF NIP TERSEBUT SUDAH ADA ...!!!", 0, _ "INFORMASI") txtnip.Text = "" txtnip.SetFocus Else .AddNew !Nip = Me.txtnip Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

82

!nama = Me.txtnama !tplahir = Me.txttplahir !tgllahir = Me.tgllahir !jk = Me.cbokelamin !alamat = Me.txtalamat !agama = Me.cboagama !stnikah = Me.cbonikah If TXTJLHANAK = "" Then !JLHANAK = 0 Else !JLHANAK = Me.TXTJLHANAK End If !stpegawai = Me.CboStpeg !notelp = Me.txttelp !pendidikan = Me.cbopendidikan !jurusan = Me.txtjurusan !TMTCPNS = Me.TMTCPNS !gol = Me.cbogol !pangkat = Me.txtpangkat !jabatan = Me.TXTJAB !eselon = Me.cboEselon !mk = Me.TXTMASAKERJA .Update End If kosong End With End If End Sub Private Sub cbogol_Click() cbogol_Change End Sub Private Sub cmdbatal_Click() kosong End Sub Private Sub cmdselesai_Click() Unload Me End Sub Private Sub Form_Resize() Frame1.Left = (Me.ScaleWidth - Frame1.Width) / 2 End Sub Private Sub tgllahir_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cbokelamin.SetFocus End If End Sub Private Sub Timer1_Timer() lblalamat.Caption = Right(lblalamat.Caption, _ Len(lblalamat.Caption) - 1) + Left(lblalamat.Caption, 1) End Sub Private Sub Timer2_Timer() picbutton.BackColor = RGB(255, 255, 255) * Rnd End Sub Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

83

Private Sub TMTCPNS_Change() selisih = Year(Date) - Year(TMTCPNS.Value) TXTMASAKERJA.Text = selisih End Sub Private Sub kosong() txtnip = "" txtnama = "" txttplahir = "" cbokelamin = "" txtalamat = "" cboagama = "" cbonikah = "" TXTJLHANAK = "" CboStpeg = "" txttelp = "" cbopendidikan = "" txtjurusan = "" cbogol = "" txtpangkat = "" cboEselon = "" TXTJAB = "" TXTMASAKERJA = "" TXTMASAKERJA = 0 TXTJLHANAK = 0 TMTCPNS.Value = Date End Sub Private Sub TMTCPNS_Click() TMTCPNS_Change End Sub Private Sub txtnip_KeyPress(KEYASCII As Integer) If (KEYASCII >= Asc("0") And KEYASCII <= Asc("9") Or _ KEYASCII = vbKeyBack) Then ElseIf KEYASCII = vbKeyReturn Then Data1.Recordset.Index = "PEGAWAIIDX" Data1.Recordset.Seek "=", txtnip.Text If Data1.Recordset.NoMatch Then txtnama.SetFocus Else PESAN = MsgBox("MAAF NIP TERSEBUT SUDAH ADA ...!!!", 0, _ "INFORMASI") txtnip.Text = "" txtnip.SetFocus End If Else KEYASCII = 0 MsgBox "INPUT ANGKA", vbCritical, "Pesan" End If End Sub

Private Sub txttelp_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cbopendidikan.SetFocus End If Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

84

End Sub Private Sub txttplahir_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then tgllahir.SetFocus End If End Sub Private Sub cboagama_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cbonikah.SetFocus End If End Sub Private Sub cboEselon_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then TXTJAB.SetFocus End If End Sub Private Sub txtalamat_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cboagama.SetFocus End If End Sub Private Sub TXTJLHANAK_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then CboStpeg.SetFocus End If End Sub Private Sub txtjurusan_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then TMTCPNS.SetFocus End If End Sub Private Sub txtnama_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then txttplahir.SetFocus End If End Sub Private Sub cbogol_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cboEselon.SetFocus End If End Sub Private Sub cbokelamin_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then txtalamat.SetFocus End If End Sub Private Sub cbonikah_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

85

If cbonikah = "BELUM NIKAH" Then Me.TXTJLHANAK = 0 Me.TXTJLHANAK.Enabled = False Me.CboStpeg.SetFocus Else Me.TXTJLHANAK.Enabled = True TXTJLHANAK.SetFocus End If End If End Sub Private Sub cbopendidikan_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then txtjurusan.SetFocus End If End Sub Private Sub CboStpeg_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then txttelp.SetFocus End If End Sub Private Sub TMTCPNS_KeyPress(KEYASCII As Integer) If KEYASCI = 13 Then TMTCPNS_Change cbogol.SetFocus End If End Sub

3. Listing Program Hitung Gaji Pegwai Private Sub Form_Activate() Me.TXTNAMA.Enabled = False Me.TXTJK.Enabled = False Me.TXTJABATAN.Enabled = False Me.TXTSTPEG.Enabled = False Me.TXTJLHANAK.Enabled = False Me.TXTESELON.Enabled = False Me.TXTSTNIKAH.Enabled = False Me.TXTPANGKAT.Enabled = False Me.TXTGOL.Enabled = False Me.TXTMK.Enabled = False Me.txtgapok.Enabled = False Me.txttunjIstriSuami.Enabled = False Me.txttunjanak.Enabled = False Me.txttunjJab.Enabled = False Me.txttunjBeras.Enabled = False Me.txtIWP.Enabled = False Me.txtpotpph.Enabled = False Me.txtrumah.Enabled = False Me.txtgajibersih.Enabled = False kosong End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path + "\PegawaiDbs.mdb" Data1.RecordSource = "pegawai" Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

86

Data2.DatabaseName = Data2.RecordSource = Data3.DatabaseName = RSGAPOK.DatabaseName RSGAPOK.RecordSource End Sub

App.Path + "\PegawaiDbs.mdb" "penggajian" App.Path + "\PegawaiDbs.mdb" = App.Path + "\gajipokok.mdb" = "gaji"

Private Sub CMDHITUNG_Click() If txtnip.Text = Empty Then MsgBox "Silahkan isi Nip Pegawai yang ingin di hitung _ gajinya !", , "Konfirmasi" txtnip.SetFocus ElseIf txtTunjLain2 = Empty Then txtTunjLain2 = 0 ElseIf txtpotBeras = Empty Then txtpotBeras = 0 ElseIf txtpotlain2 = Empty Then txtpotlain2 = 0 Else txttglgaji = Date GAJIPOKOK TUNJANGAN potongan totalgaji End If End Sub Private Sub cmdsimpan_Click() If txtnip = Empty Then MsgBox "Silahkan isi Nip Pegawai Yang Ingin di hitung _ gajinya !", , "Konfirmasi" txtnip.Text = "" txtnip.SetFocus ElseIf txttglgaji = Empty Then MsgBox "Silahkan isi tgl gaji pegawai !", , "Konfirmasi" txttglgaji.Text = "" Else With Data2.Recordset .Index = "nipidx" .Seek "=", txtnip.Text If Not .NoMatch Then .Edit simpan .Update Else .AddNew simpan .Update End If End With End If End Sub Private Sub cmdKeluar_Click() Unload Me End Sub Private Sub simpan() Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

87

With Data2.Recordset !Nip = Me.txtnip.Text !nama = Me.TXTNAMA !gol = Me.TXTGOL !T_istri_suami = Me.txttunjIstriSuami !T_anak = Me.txttunjanak !T_jabatan = Me.txttunjJab !T_beras = Me.txttunjBeras !T_lain2 = Me.txtTunjLain2 !P_beras = Me.txtpotBeras !P_iwp = Me.txtIWP !pph = Me.txtpotpph !P_rumah = Me.txtrumah !P_lain2 = Me.txtpotlain2 !gapok = Me.txtgapok !gaji_bersih = Me.txtgajibersih !tglgaji = Me.txttglgaji End With End Sub Private Sub kosong() Me.txtnip = "" Me.TXTNAMA = "" Me.TXTJK = "" Me.TXTJABATAN = "" Me.TXTSTPEG = "" Me.TXTSTNIKAH = "" Me.TXTGOL = "" Me.TXTESELON = "" Me.TXTMK = "" Me.TXTPANGKAT = "" Me.TXTJLHANAK = "" End Sub 'perhitungan untuk tunjangan Private Sub TUNJANGAN() If Trim(TXTESELON) = "I.a" Then Me.txttunjJab = 4500000 ElseIf Trim(TXTESELON) = "I.b" Then Me.txttunjJab = 3500000 ElseIf Trim(TXTESELON) = "II.a" Then Me.txttunjJab = 2500000 ElseIf Trim(TXTESELON) = "II.b" Then Me.txttunjJab = 1500000 ElseIf Trim(TXTESELON) = "III.a" Then Me.txttunjJab = 600000 ElseIf Trim(TXTESELON) = "III.b" Then Me.txttunjJab = 450000 ElseIf Trim(TXTESELON) = "IV.a" Then Me.txttunjJab = 240000 ElseIf Trim(TXTESELON) = "IV.b" Then Me.txttunjJab = 210000 ElseIf Trim(TXTESELON) = "V.a" Then Me.txttunjJab = 150000 ElseIf Trim(TXTESELON) = "V.b" Then Me.txttunjJab = 120000 Else Me.txttunjJab = 0 Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

88

End If If Trim(!stnikah) = "BELUM NIKAH" Then txttunjIstriSuami.Text = 0 txttunjanak = 0 txttunjBeras.Text = 30090 Else If !JLHANAK = 1 Then txttunjanak.Text = 0.02 * Val(txtgapok.Text) txttunjBeras.Text = 3 * 30090 ElseIf !JLHANAK >= 2 Then txttunjanak.Text = 0.04 * Val(txtgapok.Text) txttunjBeras.Text = 4 * Val(30090) Else txttunjanak = 0 End If txttunjIstriSuami.Text = 0.1 * Val(txtgapok.Text) End If End With End Sub

Private Sub potongan() If Trim(TXTGOL) = "I/a" Then txtrumah = 3000 ElseIf Trim(TXTGOL) = "I/b" Then txtrumah = 3000 ElseIf Trim(TXTGOL) = "I/c" Then txtrumah = 3000 ElseIf Trim(TXTGOL) = "I/d" Then txtrumah = 3000 ElseIf Trim(TXTGOL) = "II/a" Then txtrumah = 5000 ElseIf Trim(TXTGOL) = "II/b" Then txtrumah = 5000 ElseIf Trim(TXTGOL) = "II/c" Then txtrumah = 5000 ElseIf Trim(TXTGOL) = "II/d" Then txtrumah = 5000 ElseIf Trim(TXTGOL) = "III/a" Then txtrumah = 7000 ElseIf Trim(TXTGOL) = "III/b" Then txtrumah = 7000 ElseIf Trim(TXTGOL) = "III/c" Then txtrumah = 7000 ElseIf Trim(TXTGOL) = "III/d" Then txtrumah = 7000 ElseIf Trim(TXTGOL) = "IV/a" Then txtrumah = 10000 ElseIf Trim(TXTGOL) = "IV/b" Then txtrumah = 10000 ElseIf Trim(TXTGOL) = "IV/c" Then txtrumah = 10000 ElseIf Trim(TXTGOL) = "IV/d" Then txtrumah = 10000 ElseIf Trim(TXTGOL) = "IV/e" Then txtrumah = 10000 End If Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

89

jlhkotor = Val(txttunjIstriSuami) + Val(txttunjanak) + _ Val(txtgapok) txtIWP.Text = 0.1 * jlhkotor txtpotpph.Text = txtIWP End Sub Private Sub cari() Data1.Recordset.Index = "PegawaiIdx" Data1.Recordset.Seek "=", txtnip.Text With Data1.Recordset If Data1.Recordset.EOF Then kosong Data3.Refresh PESAN = MsgBox("Data Tidak Di Temukan...!!", 0 + _ vbExclamation, "Informasi") Data1.Refresh Else Data3.RecordSource = "SELECT * FROM penggajian _ WHERE nip='" & txtnip.Text & "'" Data3.Refresh tampilkan End If End With End Sub

Private Sub txtnip_Change() cari End Sub Private Sub txtnip_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then txttglgaji.SetFocus End If End Sub Private Sub GAJIPOKOK() gapok = 0 On Error Resume Next MAXDATA = RSGAPOK.Recordset.RecordCount Text1 = TXTMK If TXTMK > MAXDATA Then mk = MAXDATA Else mk = TXTMK End If With RSGAPOK.Recordset .Index = "mkgidx" .Seek "=", mk If Not .NoMatch Then If Trim(txtgol.Text) = "I/a" Then gapok = !Ia ElseIf Trim(txtgol.Text) = "I/b" Then gapok = !Ib ElseIf Trim(txtgol.Text) = "I/c" Then gapok = !Ic ElseIf Trim(txtgol.Text) = "I/d" Then gapok = !Id Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

90

ElseIf Trim(txtgol.Text) = "II/a" Then gapok = !IIa ElseIf Trim(txtgol.Text) = "II/b" Then gapok = !IIb ElseIf Trim(txtgol.Text) = "II/c" Then gapok = !IIc ElseIf Trim(txtgol.Text) = "II/d" Then gapok = !IId ElseIf Trim(txtgol.Text) = "III/a" Then gapok = !IIIa ElseIf Trim(txtgol.Text) = "III/b" Then gapok = !IIIb ElseIf Trim(txtgol.Text) = "III/c" Then gapok = !IIIc ElseIf Trim(txtgol.Text) = "III/d" Then gapok = !IIId ElseIf Trim(txtgol.Text) = "IV/a" Then gapok = !IVa ElseIf Trim(txtgol.Text) = "IV/b" Then gapok = !IVb ElseIf Trim(txtgol.Text) = "IV/c" Then gapok = !IVc ElseIf Trim(txtgol.Text) = "IV/d" Then gapok = !IVd ElseIf Trim(txtgol.Text) = "IV/e" Then gapok = !IVe End If If txtstpeg.Text = "CPNS" Then TXTGAPOK.Text = gapok - (0.2 * gapok) Else TXTGAPOK.Text = gapok End If End If End With RSGAPOK.Refresh End Sub Private Sub totalgaji() jlhpenghasilan = Val(txttunjIstriSuami) + Val(txttunjanak) + _ Val(txttunjJab) + Val(txttunjBeras) + Val(txtTunjLain2) + _ Val(TXTGAPOK) jlhpotongan = Val(txtpotBeras) + Val(txtIWP) + Val(txtpotpph) + _ Val(txtrumah) + Val(txtpotlain2) jlhbersih = Val(jlhpenghasilan) - Val(jlhpotongan) txtgajibersih.Text = Round(jlhbersih) End Sub Private Sub txtpotBeras_Change() totalgaji End Sub Private Sub txtpotlain2_Change() totalgaji End Sub Private Sub txtTunjLain2_Change() totalgaji End Sub Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

91

Private Sub tampilkan() With Data1.Recordset If Not .NoMatch Then Me.txtnama = !nama Me.TXTJK = !jk Me.TXTJABATAN = !jabatan Me.txtstpeg = !stpegawai Me.TXTJLHANAK = !JLHANAK Me.txteselon = !eselon Me.txtstnikah = !stnikah Me.txtpangkat = !pangkat Me.txtgol = !gol Me.TXTMK = !mk Else kosong End If End With Data1.Refresh End Sub

4. Listing Program Input Gaji Pokok Private Sub Form_Activate() JLHDATA.Caption = Data1.Recordset.RecordCount TXTMK.SetFocus End Sub Private Sub Form_Load() BUKAKONEKSI Skin1.LoadSkin App.Path & "\SKIN\Winaqua.skn" Skin1.ApplySkin hWnd Data1.DatabaseName = App.Path + "\gajipokok.mdb" Data1.RecordSource = "select *from gaji Order by mkg asc" End Sub Private Sub cmdbatal_Click() kosong TXTMK = "" End Sub

Private Sub cmdselesai_Click() Unload Me End Sub Private Sub cmdsimpan_Click() If TXTMK = Empty Or txt1a = Empty Or txt1b = Empty Or _ txt1c = Empty Or txt1d = Empty Or txt2a = Empty Or _ txt2b = Empty Or txt2c = Empty Or txt2d = Empty Or _ txt3a = Empty Or txt3b = Empty Or txt3c = Empty Or _ txt3d = Empty Or txt4a = Empty Or txt4b = Empty Or _ txt4c = Empty Or txt4d = Empty Or txt4e = Empty Then MsgBox "Maaf data belum lengkap...!!", 0, "Peringatan" Else With Data1.Recordset .AddNew Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

92

!MKG = Me.TXTMK !Ia = Me.txt1a !Ib = Me.txt1b !Ic = Me.txt1c !Id = Me.txt1d !IIa = Me.txt2a !IIb = Me.txt2b !IIc = Me.txt2c !IId = Me.txt2d !IIIa = Me.txt3a !IIIb = Me.txt3b !IIIc = Me.txt3c !IIId = Me.txt3d !IVa = Me.txt4a !IVb = Me.txt4b !IVc = Me.txt4c !IVd = Me.txt4d !IVe = Me.txt4e .Update End With Me.TXTMK = "" kosong Me.TXTMK.SetFocus End If End Sub Private Sub kosong() Me.txt1a = "" Me.txt1b = "" Me.txt1c = "" Me.txt1d = "" Me.txt2a = "" Me.txt2b = "" Me.txt2c = "" Me.txt2d = "" Me.txt3a = "" Me.txt3b = "" Me.txt3c = "" Me.txt3d = "" Me.txt4a = "" Me.txt4b = "" Me.txt4c = "" Me.txt4d = "" Me.txt4e = "" End Sub Private Sub TXTMK_KeyPress(KEYASCII As Integer) If (KEYASCII >= Asc("0") And KEYASCII <= Asc("9") Or _ KEYASCII = vbKeyBack) Then ElseIf KEYASCII = 13 Then If Left(TXTMK, 1) = "0" And Len(TXTMK) > 1 Then MsgBox "Angka Tidak boleh diawali dengan Nol." TXTMK = "" Else With RSGAPOK .Index = "MKGIDX" .Seek "=", RTrim(TXTMK.Text) If Not .NoMatch Then Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

93

cmdsimpan.Enabled = False PESAN = MsgBox("DATA TERSEBUT SUDAH ADA ...!!! ANDA INGIN _ DATA TERSEBUT DITAMPILKAN ?", vbYesNo + vbQuestion, "PESAN") If PESAN = vbYes Then Me.TXTMK = !MKG Me.txt1a = !Ia Me.txt1b = !Ib Me.txt1c = !Ic Me.txt1d = !Id Me.txt2a = !IIa Me.txt2b = !IIb Me.txt2c = !IIc Me.txt2d = !IId Me.txt3a = !IIIa Me.txt3b = !IIIb Me.txt3c = !IIIc Me.txt3d = !IIId Me.txt4a = !IVa Me.txt4b = !IVb Me.txt4c = !IVc Me.txt4d = !IVd Me.txt4e = !IVe Else kosong End If Else cmdsimpan.Enabled = True kosong Me.txt1a.SetFocus End If End With End If Else KEYASCII = 0 TXTMK = "" MsgBox "INPUT ANGKA", vbCritical End If End Sub Private Sub txt1a_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt1b.SetFocus End If End Sub Private Sub txt1b_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt1c.SetFocus End If End Sub Private Sub txt1c_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt1d.SetFocus End If End Sub Private Sub txt1d_KeyPress(KEYASCII As Integer) Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

94

If KEYASCII = 13 Then Me.txt2a.SetFocus End If End Sub Private Sub txt2a_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt2b.SetFocus End If End Sub Private Sub txt2b_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt2c.SetFocus End If End Sub Private Sub txt2c_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt2d.SetFocus End If End Sub Private Sub txt2d_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt3a.SetFocus End If End Sub Private Sub txt3a_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt3b.SetFocus End If End Sub Private Sub txt3b_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt3c.SetFocus End If End Sub Private Sub txt3c_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt3d.SetFocus End If End Sub Private Sub txt3d_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt4a.SetFocus End If End Sub Private Sub txt4a_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt4b.SetFocus End If End Sub Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

95

Private Sub txt4b_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt4c.SetFocus End If End Sub Private Sub txt4c_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt4d.SetFocus End If End Sub Private Sub txt4d_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt4e.SetFocus End If End Sub Private Sub txt4e_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cmdsimpan.SetFocus End If End Sub

5. Listing Program Edit Data Pegawai Private Sub cari() With rspegawai .Index = "PEGAWAIIDX" .Seek "=", txtnip.Text If Not .NoMatch Then Me.txtnama = !nama Me.txttplahir = !tplahir Me.tgllahir = !tgllahir Me.cbokelamin = !jk Me.txtalamat = !alamat Me.cboagama = !agama Me.cbonikah = !stnikah Me.TXTJLHANAK = !JLHANAK Me.CboStpeg = !stpegawai Me.txttelp = !notelp Me.cbopendidikan = !pendidikan Me.txtjurusan = !jurusan Me.TMTCPNS = !TMTCPNS Me.cbogol = !gol Me.txtpangkat = !pangkat Me.cboEselon = !eselon Me.TXTJAB = !jabatan Me.TXTMASAKERJA = !mk Else kosong End If End With End Sub Private Sub cbonikah_Change() Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

96

If cbonikah = "BELUM NIKAH" Then Me.TXTJLHANAK = 0 Me.TXTJLHANAK.Enabled = False Else Me.TXTJLHANAK.Enabled = True End If End Sub Private Sub cmdbersih_Click() kosong End Sub Private Sub Form_Activate() TXTJLHANAK = 0 txtnama.MaxLength = 20 txttplahir.MaxLength = 20 TXTJLHANAK.MaxLength = 2 txttelp.MaxLength = 15 txtjurusan.MaxLength = 30 TXTJAB.MaxLength = 20 txtalamat.MaxLength = 50 End Sub Private Sub Form_Load() BUKAKONEKSI Skin1.LoadSkin App.Path & "\SKIN\Winaqua.skn" Skin1.ApplySkin hWnd Data1.DatabaseName = App.Path + "\PegawaiDbs.mdb" Data1.RecordSource = "pegawai" RSGAPOK.DatabaseName = App.Path + "\gajipokok.mdb" RSGAPOK.RecordSource = "gaji" setbutton False cbogol.AddItem "I/a" cbogol.AddItem "I/b" cbogol.AddItem "I/c" cbogol.AddItem "I/d" cbogol.AddItem "II/a" cbogol.AddItem "II/b" cbogol.AddItem "II/c" cbogol.AddItem "II/d" cbogol.AddItem "III/a" cbogol.AddItem "III/b" cbogol.AddItem "III/c" cbogol.AddItem "III/d" cbogol.AddItem "IV/a" cbogol.AddItem "IV/b" cbogol.AddItem "IV/c" cbogol.AddItem "IV/d" cbogol.AddItem "IV/e" cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem

"I.a" "I.b" "II.a" "II.b" "III.a" "III.b" "IV.a"


97

cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem cboEselon.AddItem

"IV.b" "V.a" "V.b" ""

CboStpeg.AddItem "CPNS" CboStpeg.AddItem "PNS" cbonikah.AddItem cbonikah.AddItem cbonikah.AddItem cbonikah.AddItem

"NIKAH" "BELUM NIKAH" "JANDA" "DUDA"

cboagama.AddItem cboagama.AddItem cboagama.AddItem cboagama.AddItem cboagama.AddItem cboagama.AddItem

"ISLAM" "PROTESTAN" "KATOLIK" "HINDU" "BUDDHA" "KONGUCHU"

cbokelamin.AddItem "LAKI-LAKI" cbokelamin.AddItem "PEREMPUAN" cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem cbopendidikan.AddItem End Sub

"SD" "SLTP" "SLTA" "DIPLOMA I (D-1)" "DIPLOMA II (D-2)" "DIPLOMA III (D-3)" "DIPLOMA IV (D-4)" "STRATA I (S-1)" "STRATA II (S-2)" "STRATA III (S-3)"

Private Sub cmdedit_Click() If txtnip.Text = Empty Then PESAN = MsgBox("pilih data yang akan diedit terlebih dahulu _ dengan mengisi nip") txtnip.SetFocus Else setbutton True End If End Sub Private Sub CMDHAPUS_Click() If txtnip.Text = Empty Then MsgBox "pilih data yang akan dihapus terlebih dahulu dengan _ mengisi nip" txtnip.SetFocus Else Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

98

PESAN = MsgBox("Anda Yakin Ingin Menghapus Data", vbYesNo + _ vbQuestion, "Hapus Data") If PESAN = vbYes Then rspegawai.Delete With rsgaji .Index = "nipidx" .Seek "=", txtnip.Text If Not .NoMatch Then rsgaji.Delete End If End With kosong End If End If Data1.Refresh End Sub Private Sub cmdsimpan_Click() If txtnip = Empty Or txtnama = Empty Or txtalamat = Empty Or _ cboagama = Empty Or cbogol = Empty Then MsgBox "Silahkan Lengkapi Datanya...!!!", 0, "Konfirmasi" Else With rspegawai .Edit !nama = Me.txtnama !tplahir = Me.txttplahir !tgllahir = Me.tgllahir !jk = Me.cbokelamin !alamat = Me.txtalamat !agama = Me.cboagama !stnikah = Me.cbonikah !JLHANAK = Me.TXTJLHANAK !stpegawai = Me.CboStpeg !notelp = Me.txttelp !pendidikan = Me.cbopendidikan !jurusan = Me.txtjurusan !TMTCPNS = Me.TMTCPNS !gol = Me.cbogol !pangkat = Me.txtpangkat !jabatan = Me.TXTJAB !eselon = Me.cboEselon !mk = Me.TXTMASAKERJA .Update End With kosong setbutton False End If End Sub Private Sub cmdselesai_Click() Unload Me End Sub Private Sub cbogol_Click() cbogol_Change End Sub Private Sub cmdbatal_Click() Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

99

kosong setbutton False End Sub Private Sub cbogol_Change() If cbogol = "I/a" Then txtpangkat = "JURU MUDA" ElseIf cbogol = "I/b" Then txtpangkat = "JURU MUDA TK I" ElseIf cbogol = "I/c" Then txtpangkat = "JURU" ElseIf cbogol = "I/d" Then txtpangkat = "JURU TK I" ElseIf cbogol = "II/a" Then txtpangkat = "PENGATUR MUDA" ElseIf cbogol = "II/b" Then txtpangkat = "PENGATUR MUDA TK I" ElseIf cbogol = "II/c" Then txtpangkat = "PENGATUR" ElseIf cbogol = "II/d" Then txtpangkat = "PENGATUR TK I" ElseIf cbogol = "III/a" Then txtpangkat = "PENATA MUDA" ElseIf cbogol = "III/b" Then txtpangkat = "PENATA MUDA TK I" ElseIf cbogol = "III/c" Then txtpangkat = "PENATA" ElseIf cbogol = "III/d" Then txtpangkat = "PENATA TK I" ElseIf cbogol = "IV/a" Then txtpangkat = "PEMBINA" ElseIf cbogol = "IV/b" Then txtpangkat = "PEMBINA TK I" ElseIf cbogol = "IV/c" Then txtpangkat = "PEMBINA UTAMA MUDA" ElseIf cbogol = "IV/d" Then txtpangkat = "PEMBINA UTAMA MADYA" ElseIf cbogol = "IV/e" Then txtpangkat = "PEMBINA UTAMA" End If End Sub Private Sub TMTCPNS_Change() selisih = Year(Date) - Year(TMTCPNS.Value) TXTMASAKERJA.Text = selisih End Sub Private Sub TMTCPNS_Click() TMTCPNS_Change End Sub Private Sub txtnip_Change() cari End Sub Private Sub tgllahir_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cbokelamin.SetFocus Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

100

End If End Sub Private Sub txttelp_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cbopendidikan.SetFocus End If End Sub Private Sub txttplahir_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then tgllahir.SetFocus End If End Sub Private Sub cboagama_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cbonikah.SetFocus End If End Sub Private Sub cboEselon_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then TXTJAB.SetFocus End If End Sub Private Sub txtalamat_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cboagama.SetFocus End If End Sub Private Sub TXTJLHANAK_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then CboStpeg.SetFocus End If End Sub Private Sub txtjurusan_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then TMTCPNS.SetFocus End If End Sub Private Sub txtnama_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then txttplahir.SetFocus End If End Sub Private Sub cbogol_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cboEselon.SetFocus End If End Sub Private Sub cbokelamin_KeyPress(KEYASCII As Integer) Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

101

If KEYASCII = 13 Then txtalamat.SetFocus End If End Sub Private Sub cbonikah_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then If cbonikah = "BELUM NIKAH" Then Me.TXTJLHANAK = 0 Me.TXTJLHANAK.Enabled = False Me.CboStpeg.SetFocus Else Me.TXTJLHANAK.Enabled = True TXTJLHANAK.SetFocus End If End If End Sub Private Sub cbopendidikan_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then txtjurusan.SetFocus End If End Sub Private Sub CboStpeg_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then txttelp.SetFocus End If End Sub Private Sub TMTCPNS_KeyPress(KEYASCII As Integer) If KEYASCI = 13 Then TMTCPNS_Change cbogol.SetFocus End If End Sub

Private Sub kosong() txtnip = "" txtnama = "" txttplahir = "" cbokelamin = "" txtalamat = "" cboagama = "" cbonikah = "" TXTJLHANAK = "" CboStpeg = "" txttelp = "" cbopendidikan = "" txtjurusan = "" cbogol = "" txtpangkat = "" cboEselon = "" TXTJAB = "" TXTMASAKERJA = "" TXTGAPOK = "" End Sub Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

102

Private Sub setbutton(T As Boolean) txtnama.Enabled = T txttplahir.Enabled = T tgllahir.Enabled = T cbokelamin.Enabled = T txtalamat.Enabled = T cboagama.Enabled = T cbonikah.Enabled = T TXTJLHANAK.Enabled = T CboStpeg.Enabled = T txttelp.Enabled = T cbopendidikan.Enabled = T txtjurusan.Enabled = T TMTCPNS.Enabled = T cbogol.Enabled = T txtpangkat.Enabled = T cboEselon.Enabled = T TXTJAB.Enabled = T TXTMASAKERJA.Enabled = T cmdedit.Visible = Not T CMDHAPUS.Visible = Not T cmdsimpan.Visible = T cmdbatal.Visible = T cmdselesai.Visible = Not T cmdbersih.Visible = Not T End Sub

6. Listing Program Edit Gaji Pokok Private Sub cmdbatal_Click() setbutton False kosong End Sub Private Sub cmdbersih_Click() kosong End Sub Private Sub CmdCari_Click() If TXTMK = Empty Then pesan = MsgBox("pilih data yang akan diedit, dengan mengisi MASA _ KERJA ") TXTMK.SetFocus Else 'Mengecek angka yang dimasukkan pemakai If Left(TXTMK, 1) = "0" And Len(TXTMK) > 1 Then MsgBox "Angka tidak boleh diawali dengan nol." TXTMK = "" TXTMK.SetFocus ElseIf IsNumeric(TXTMK) = False Then MsgBox "Anda telah memasukkan huruf atau karakter _ bukan angka lainnya." TXTMK = "" TXTMK.SetFocus Else With Data1.Recordset Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

103

CARI = "MKG=" & TXTMK.Text .FindFirst CARI If Not .NoMatch Then With Data1.Recordset Me.TXTMK = !MKG Me.txt1a = !Ia Me.txt1b = !Ib Me.txt1c = !Ic Me.txt1d = !Id Me.txt2a = !IIa Me.txt2b = !IIb Me.txt2c = !IIc Me.txt2d = !IId Me.txt3a = !IIIa Me.txt3b = !IIIb Me.txt3c = !IIIc Me.txt3d = !IIId Me.txt4a = !IVa Me.txt4b = !IVb Me.txt4c = !IVc Me.txt4d = !IVd Me.txt4e = !IVe End With Else pesan = MsgBox("Maaf data belum ada...!!! Silahkan _ input data tersebut pada menu file > Input gaji pokok. ", 0, "PESAN") TXTMK = "" kosong TXTMK.SetFocus End If End With End If End If Data1.Refresh End Sub Private Sub cmdedit_Click() If TXTMK.Text = Empty Then pesan = MsgBox("pilih data yang akan diedit, dengan mengisi MASA _ KERJA ") TXTMK.SetFocus Else setbutton True End If End Sub Private Sub CMDHAPUS_Click() On Error Resume Next If TXTMK = Empty Then MsgBox "Pilih data yang ingin dihapus...!!!", 0, "konfirmasi" TXTMK.SetFocus Else If Not Data1.Recordset.NoMatch Then Data1.RecordSource = "SELECT *FROM GAJI" pesan = MsgBox("Anda yakin ingin menghapus data..?", _ vbQuestion + vbYesNo, "Peringatan") If pesan = vbYes Then Data1.Recordset.Delete Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

104

kosong End If Else MsgBox "Maaf data sudah tidak ada" End If End If On Error GoTo 0 End Sub Private Sub cmdsimpan_Click() If TXTMK = Empty Or txt1a = Empty Or txt1b = Empty Or _ txt1c = Empty Or txt1d = Empty Or txt2a = Empty Or _ txt2b = Empty Or txt2c = Empty Or txt2d = Empty Or _ txt3a = Empty Or txt3b = Empty Or txt3c = Empty Or _ txt3d = Empty Or txt4a = Empty Or txt4b = Empty Or _ txt4c = Empty Or txt4d = Empty Or txt4e = Empty Then MsgBox "Maaf data belum lengkap... !!!", 0, "Peringatan" Else With Data1.Recordset .Edit !MKG = Me.TXTMK !Ia = Me.txt1a !Ib = Me.txt1b !Ic = Me.txt1c !Id = Me.txt1d !IIa = Me.txt2a !IIb = Me.txt2b !IIc = Me.txt2c !IId = Me.txt2d !IIIa = Me.txt3a !IIIb = Me.txt3b !IIIc = Me.txt3c !IIId = Me.txt3d !IVa = Me.txt4a !IVb = Me.txt4b !IVc = Me.txt4c !IVd = Me.txt4d !IVe = Me.txt4e .Update End With End If kosong setbutton False End Sub Private Sub Command2_Click() If Not Data1.Recordset.NoMatch Then Data1.Recordset.MoveFirst End If End Sub Private Sub Command3_Click() With Data1.Recordset If Not .NoMatch Then .MovePrevious If .BOF Then .MoveLast Data1.Refresh End If Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

105

End If End With End Sub Private Sub Command4_Click() With Data1.Recordset If Not .NoMatch Then .MoveNext If .EOF Then .MoveFirst Data1.Refresh End If End If End With End Sub Private Sub Command5_Click() If Not Data1.Recordset.NoMatch Then Data1.Recordset.MoveLast End If End Sub Private Sub DBGrid1_DblClick() tampilkan End Sub Private Sub Form_Activate() setbutton False TXTMK.SetFocus End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path + "\gajipokok.mdb" Data1.RecordSource = "select *from gaji Order by mkg asc" End Sub Private Sub setbutton(T As Boolean) Me.txt1a.Enabled = T Me.txt1b.Enabled = T Me.txt1c.Enabled = T Me.txt1d.Enabled = T Me.txt2a.Enabled = T Me.txt2b.Enabled = T Me.txt2c.Enabled = T Me.txt2d.Enabled = T Me.txt3a.Enabled = T Me.txt3b.Enabled = T Me.txt3c.Enabled = T Me.txt3d.Enabled = T Me.txt4a.Enabled = T Me.txt4b.Enabled = T Me.txt4c.Enabled = T Me.txt4d.Enabled = T Me.txt4e.Enabled = T cmdedit.Visible = Not T CMDHAPUS.Visible = Not T cmdsimpan.Visible = T cmdbatal.Visible = T cmdbersih.Visible = Not T KEMENU.Visible = Not T End Sub Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

106

Private Sub kemenu_Click() Unload Me End Sub Private Sub TXTMK_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then CmdCari_Click End If End Sub Private Sub tampilkan() With Data1.Recordset Me.TXTMK = !MKG Me.txt1a = !Ia Me.txt1b = !Ib Me.txt1c = !Ic Me.txt1d = !Id Me.txt2a = !IIa Me.txt2b = !IIb Me.txt2c = !IIc Me.txt2d = !IId Me.txt3a = !IIIa Me.txt3b = !IIIb Me.txt3c = !IIIc Me.txt3d = !IIId Me.txt4a = !IVa Me.txt4b = !IVb Me.txt4c = !IVc Me.txt4d = !IVd Me.txt4e = !IVe End With End Sub Private Sub kosong() Me.TXTMK = "" Me.txt1a = "" Me.txt1b = "" Me.txt1c = "" Me.txt1d = "" Me.txt2a = "" Me.txt2b = "" Me.txt2c = "" Me.txt2d = "" Me.txt3a = "" Me.txt3b = "" Me.txt3c = "" Me.txt3d = "" Me.txt4a = "" Me.txt4b = "" Me.txt4c = "" Me.txt4d = "" Me.txt4e = "" End Sub Private Sub txt1a_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt1b.SetFocus End If End Sub Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

107

Private Sub txt1b_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt1c.SetFocus End If End Sub Private Sub txt1c_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt1d.SetFocus End If End Sub Private Sub txt1d_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt2a.SetFocus End If End Sub Private Sub txt2a_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt2b.SetFocus End If End Sub Private Sub txt2b_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt2c.SetFocus End If End Sub Private Sub txt2c_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt2d.SetFocus End If End Sub Private Sub txt2d_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt3a.SetFocus End If End Sub Private Sub txt3a_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt3b.SetFocus End If End Sub Private Sub txt3b_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt3c.SetFocus End If End Sub Private Sub txt3c_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt3d.SetFocus Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

108

End If End Sub Private Sub txt3d_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt4a.SetFocus End If End Sub Private Sub txt4a_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt4b.SetFocus End If End Sub Private Sub txt4b_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt4c.SetFocus End If End Sub Private Sub txt4c_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt4d.SetFocus End If End Sub Private Sub txt4d_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then Me.txt4e.SetFocus End If End Sub Private Sub txt4e_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then cmdsimpan.SetFocus End If End Sub

7. Listing Program Pencarian Data Pegawai Private Sub Form_Activate() jlhdata = Data1.Recordset.RecordCount End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path + "\PegawaiDbs.mdb" Data1.RecordSource = "pegawai" Data2.DatabaseName = App.Path + "\PegawaiDbs.mdb" Data2.RecordSource = "penggajian" CboKriteria.AddItem "Nip" CboKriteria.AddItem "Nama" Frame4.Visible = False DBGrid1.Visible = True Command1.Visible = False End Sub Private Sub CboKriteria_Click() Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

109

txtcari.SetFocus End Sub Private Sub cmdakhir_Click() If Not Data1.Recordset.NoMatch Then Data1.Recordset.MoveLast End If End Sub Private Sub cmdawal_Click() If Not Data1.Recordset.NoMatch Then Data1.Recordset.MoveFirst End If End Sub Private Sub CmdCari_Click() If CboKriteria.Text = Empty Or txtcari.Text = Empty Then pesan = MsgBox("Masukkan Kriteria dan Kunci Pencarian...", _ 0, "Konfirmasi") Else Data1.RecordSource = "SELECT * FROM Pegawai WHERE _ " & CboKriteria.Text & "='" & txtcari.Text & "'" Data1.Refresh Command1.Visible = True With Data1.Recordset If Data1.Recordset.EOF Then pesan = MsgBox("Data Tidak Di Temukan...!!", 0 + vbExclamation, _ "Informasi") Data1.RecordSource = "SELECT * FROM Pegawai" Command1.Visible = False Else tampilkan End If End With End If End Sub Private Sub cmdkembali_Click() Frame4.Visible = False DBGrid1.Visible = True End Sub Private Sub cmdsebelum_Click() With Data1.Recordset If Not .NoMatch Then .MovePrevious If .BOF Then .MoveLast End If End If End With End Sub Private Sub cmdsesudah_Click() With Data1.Recordset If Not .NoMatch Then .MoveNext If .EOF Then .MoveFirst Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

110

End If End If End With End Sub Private Sub Command1_Click() Data1.RecordSource = "select * from pegawai" Data1.Refresh End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub DBGrid1_DblClick() Frame4.Visible = True tampilkan DBGrid1.Visible = False End Sub Private Sub tampilkan() With Data1.Recordset Me.txtnip = !Nip Me.txtnama = !nama Me.txttplahir = !tplahir Me.txttgllahir = !tgllahir Me.txtkelamin = !jk Me.txtalamat = !alamat Me.txtagama = !agama Me.txtstnikah = !stnikah Me.TXTJLHANAK = !JLHANAK Me.txtstpeg = !stpegawai Me.txttelp = !notelp Me.txtpendidikan = !pendidikan Me.txtjurusan = !jurusan Me.txttmtcpns = !TMTCPNS Me.txtgol = !gol Me.txtpangkat = !pangkat Me.txteselon = !eselon Me.TXTJAB = !jabatan Me.TXTMASAKERJA = !mk End With Data2.Recordset.Index = "nipidx" Data2.Recordset.Seek "=", txtnip.Text If Not Data2.Recordset.NoMatch Then With Data2.Recordset Me.txttunjIstriSuami = !T_istri_suami Me.txttunjanak = !T_anak Me.txttunjJab = !T_jabatan Me.txttunjBeras = !T_beras Me.txtTunjLain2 = !T_lain2 Me.txtpotBeras = !P_beras Me.txtIWP = !P_iwp Me.txtpotpph = !pph Me.txtrumah = !P_rumah Me.txtpotlain2 = !P_lain2 Me.TXTGAPOK = !gapok Me.txtgajibersih = !gaji_bersih End With Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

111

Else Me.txttunjIstriSuami = "" Me.txttunjanak = "" Me.txttunjJab = "" Me.txttunjBeras = "" Me.txtTunjLain2 = "" Me.txtpotBeras = "" Me.txtIWP = "" Me.txtpotpph = "" Me.txtrumah = "" Me.txtpotlain2 = "" Me.TXTGAPOK = "" Me.txtgajibersih = "" End If Data2.Refresh Data1.Refresh End Sub Private Sub txtcari_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then CmdCari_Click End If End Sub

8. Listing Program Pencarian Data Gaji Pegawai Private Sub Form_Load() Data1.DatabaseName = App.Path + "\PegawaiDbs.mdb" Data1.RecordSource = "penggajian" Data2.DatabaseName = App.Path + "\PegawaiDbs.mdb" Data2.RecordSource = "pegawai" Combo1.AddItem ("nip") Combo1.AddItem ("nama") Combo1.AddItem ("gol") Frame4.Visible = False DBGrid1.Visible = True End Sub Private Sub CmdCari_Click() If Combo1.Text = Empty Or Combo2.Text = Empty Then pesan = MsgBox("Masukkan Kriteria dan Kunci Pencarian...", _ 0, "Konfirmasi") Else Data1.RecordSource = "SELECT * FROM Penggajian WHERE " _ & Combo1.Text & " ='" & Combo2.Text & "'" Data2.RecordSource = "SELECT * FROM pegawai WHERE " _ & Combo1.Text & " ='" & Combo2.Text & "'" Data1.Refresh Data2.Refresh With Data1.Recordset If Data1.Recordset.EOF Then pesan = MsgBox("Data Tidak Di Temukan...!!", 0, "Informasi") Data1.RecordSource = "SELECT * FROM Penggajian" Data1.Refresh Else tampilkan End If Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

112

End With End If End Sub Private Sub cmdkembali_Click() Frame4.Visible = False DBGrid1.Visible = True End Sub Private Sub Combo1_Click() If Combo1.Text = "nip" Then Combo2.Clear ElseIf Combo1.Text = "nama" Then Combo2.Clear ElseIf Combo1.Text = "gol" Then Combo2.Clear Combo2.AddItem "I/a" Combo2.AddItem "I/b" Combo2.AddItem "I/c" Combo2.AddItem "I/d" Combo2.AddItem "II/a" Combo2.AddItem "II/b" Combo2.AddItem "II/c" Combo2.AddItem "II/d" Combo2.AddItem "III/a" Combo2.AddItem "III/b" Combo2.AddItem "III/c" Combo2.AddItem "III/d" Combo2.AddItem "IV/a" Combo2.AddItem "IV/b" Combo2.AddItem "IV/c" Combo2.AddItem "IV/d" Combo2.AddItem "IV/e" Combo2.ListIndex = 0 End If End Sub Private Sub Combo2_KeyPress(KEYASCII As Integer) If KEYASCII = 13 Then CmdCari_Click End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() Data1.RecordSource = "select * from penggajian" Data1.Refresh End Sub Private Sub DBGrid1_DblClick() Frame4.Visible = True tampilkan DBGrid1.Visible = False End Sub Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

113

Private Sub tampilkan() With Data2.Recordset Me.txtnip = !Nip Me.txtnama = !nama Me.txttplahir = !tplahir Me.txttgllahir = !tgllahir Me.txtkelamin = !jk Me.txtalamat = !alamat Me.txtagama = !agama Me.txtstnikah = !stnikah Me.TXTJLHANAK = !JLHANAK Me.txtstpeg = !stpegawai Me.txttelp = !notelp Me.txtpendidikan = !pendidikan Me.txtjurusan = !jurusan Me.txttmtcpns = !TMTCPNS Me.txtgol = !gol Me.txtpangkat = !pangkat Me.txteselon = !eselon Me.TXTJAB = !jabatan Me.TXTMASAKERJA = !mk End With With Data1.Recordset Me.txttunjIstriSuami = !T_istri_suami Me.txttunjanak = !T_anak Me.txttunjJab = !T_jabatan Me.txttunjBeras = !T_beras Me.txtTunjLain2 = !T_lain2 Me.txtpotBeras = !P_beras Me.txtIWP = !P_iwp Me.txtpotpph = !pph Me.txtrumah = !P_rumah Me.txtpotlain2 = !P_lain2 Me.TXTGAPOK = !gapok Me.txtgajibersih = !gaji_bersih End With Data1.Refresh Data2.Refresh End Sub Private Sub Form_Resize() Frame5.Left = (Me.ScaleWidth - Frame5.Width) / 2 Frame1.Left = (Me.ScaleWidth - Frame1.Width) / 2 End Sub

9. Listing Program Laporan Data Pegawai Per Orangan Private Sub Command1_Click() CrpPegawai.ReportFileName = App.Path & "\PerPegawai.rpt" CrpPegawai.DataFiles(0) = App.Path & "\PegawaiDbs.mdb" CrpPegawai.WindowState = crptMaximized CrpPegawai.Action = 1 End Sub Private Sub Command2_Click() Unload Me End Sub Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

114

Private Sub Form_Load() Skin1.LoadSkin App.Path & "\SKIN\Winaqua.skn" Skin1.ApplySkin hWnd End Sub

10. Listing Program Laporan Data Pegawai Seluruhnya Private Sub Command1_Click() CrpPegawai.ReportFileName = App.Path & "\AllPegawai.rpt" CrpPegawai.DataFiles(0) = App.Path & "\PegawaiDbs.mdb" CrpPegawai.WindowState = crptMaximized CrpPegawai.Action = 1 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Skin1.LoadSkin App.Path & "\SKIN\Winaqua.skn" Skin1.ApplySkin hWnd End Sub

11. Listing Program Laporan Data Gaji Pegawai Menurut Nip Private Sub Command1_Click() If DBCombo1 = Empty Then MsgBox "Silahkan isi Nip Pegawai" Else CrpGApegNip.SelectionFormula = _ "{penggajian.Nip}='" & DBCombo1.Text & "'" CrpGApegNip.ReportFileName = App.Path & "\Gapeg.rpt" CrpGApegNip.DataFiles(0) = App.Path & "\PegawaiDbs.mdb" CrpGApegNip.WindowState = crptMaximized CrpGApegNip.Action = 1 End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Skin1.LoadSkin App.Path & "\SKIN\Winaqua.skn" Skin1.ApplySkin hWnd Data1.DatabaseName = App.Path + "\PegawaiDbs.mdb" Data1.RecordSource = "penggajian" End Sub

12. Listing Program Laporan Data Gaji Pegawai Menurut Golongan CrpGapegGol.ReportFileName = App.Path & "\Gapeg.rpt" CrpGapegGol.DataFiles(0) = App.Path & "\PegawaiDbs.mdb" CrpGapegGol.WindowState = crptMaximized CrpGapegGol.Action = 1 End Sub Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

115

Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Skin1.LoadSkin App.Path & "\SKIN\Winaqua.skn" Skin1.ApplySkin hWnd Combo1.Clear Combo1.AddItem "I/a" Combo1.AddItem "I/b" Combo1.AddItem "I/c" Combo1.AddItem "I/d" Combo1.AddItem "II/a" Combo1.AddItem "II/b" Combo1.AddItem "II/c" Combo1.AddItem "II/d" Combo1.AddItem "III/a" Combo1.AddItem "III/b" Combo1.AddItem "III/c" Combo1.AddItem "III/d" Combo1.AddItem "IV/a" Combo1.AddItem "IV/b" Combo1.AddItem "IV/c" Combo1.AddItem "IV/d" Combo1.AddItem "IV/e" Combo1.ListIndex = 0 End Sub

13. Listing Program Laporan Data Gaji Pegawai Menurut Tanggal Gaji Private Sub Command1_Click() If DTSampai.Value < DTMulai.Value Then MsgBox "Anda salah memasukkan tanggal", , "informasi" Else CrpGapegTgl.ReportFileName = App.Path & "\Gapeg.rpt" CrpGapegTgl.DataFiles(0) = App.Path & "\PegawaiDbs.mdb" CrpGapegTgl.SelectionFormula = _ "{Penggajian.TglGaji} >=#" & DTMulai.Value & "# and _ {Penggajian.TglGaji}<=#" & DTSampai.Value & "#" CrpGapegTgl.WindowState = crptMaximized CrpGapegTgl.Action = 1 End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Skin1.LoadSkin App.Path & "\SKIN\Winaqua.skn" Skin1.ApplySkin hWnd End Sub

14. Listing Program Laporan Data Gaji Pegawai Seluruhnya Private Sub Command1_Click() Abragus Sabra : Sistem Informasi Data Gaji Pegawai Pada Kantor Badan Kepegawaian Daerah Kabupaten Aceh Tengah, 2009. USU Repository © 2009

116

CrpGapeg.ReportFileName = App.Path & "\Gapeg.rpt" CrpGapeg.DataFiles(0) = App.Path & "\PegawaiDbs.mdb" CrpGapeg.WindowState = crptMaximized CrpGapeg.Action = 1 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Skin1.LoadSkin App.Path & "\SKIN\Winaqua.skn" Skin1.ApplySkin hWnd End Sub

15. Listing Program Laporan Data Gaji Pokok Pegawai Private Sub Command1_Click() CrpGapok.ReportFileName = App.Path & "\Gapok.rpt" CrpGapok.DataFiles(0) = App.Path & "\gajipokok.mdb" CrpGapok.WindowState = crptMaximized CrpGapok.Action = 1 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Skin1.LoadSkin App.Path & "\SKIN\Winaqua.skn" Skin1.ApplySkin hWnd End Sub


117


SISTEM INFORMASI DATA GAJI PEGAWAI PADA KANTOR BADAN KEPEGAWAIAN DAERAH KABUPATEN ACEH TENGAH TUGAS AKHIR ABRAGUS SABRA

Recommend Documents