SISTEM INFORMASI DATA KARYAWAN PADA PT. ASURANSI PURNA ARTHANUGRAHA (ASPAN) MENGGUNAKAN VISUAL BASIC DAN MICROSOFT ACCESS SKRIPSI
Di ajukan untuk melengkapi tugas dan memenuhi syarat-syarat guna memperoleh gelar Sarjana Komputer STMIK U’Budiyah Indonesia
Oleh Nama Nim
: Meri Widyawati : 09111048
PROGRAM STUDI S1 TEKNIK INFORMATIKA SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER STMIK U’BUDIYAH INDONESIA BANDA ACEH 2013
SISTEM INFORMASI DATA KARYAWAN PADA PT. ASURANSI PURNA ARTHANUGRAHA MENGGUNAKAN MICROSOFT VISUAL BASIC DAN MICROSOFT ACCESS
SKRIPSI
Di ajukan untuk melengkapi tugas dan memenuhi syarat-syarat guna memperoleh gelar Sarjana Komputer STMIK U’Budiyah Indonesia
Nama Nim
Oleh : Meri Widyawati : 09111048
Disetujui, 17 September 2013
Penguji I
Penguji II
( Fathiah, ST.,M.Eng )
( Sayed Fakhrurrazi, M.Kom )
Ka. Prodi Teknik Informatika
Pembimbing,
( Fathiah, ST.,M.Eng )
( Jurnalis, J.Hius, MBA )
Mengetahui, Ka. STMIK U‟Budiyah Indonesia
( Dr. Amin Haris, M.Pd )
ii
LEMBAR PENGESAHAN SIDANG
SISTEM INFORMASI DATA KARYAWAN PADA PT. ASURANSI PURNA ARTHANUGRAHA MENGGUNAKAN MICROSOFT VISUAL BASIC DAN MICROSOFT ACCESS
Tugas Akhir/KTI oleh Meri Widyawati ini telah dipertahankan didepan dewan penguji pada 14 September 2013.
Dewan Penguji:
1. Ketua
Jurnalis, J.Hius, MBA
2. Anggota
Fathiah, ST.,M.Eng
3. Anggota
Sayed Fakhrurrazi, S.Kom
iii
LEMBAR PERNYATAAN
Saya menyatakan bahwa skripsi yang saya susun, sebagai syarat memperoleh gelar sarjana merupakan hasil karya tulis saya sendiri. Adapun bagian - bagian tertentu dalam penulisan skripsi ini yang saya kutip dari hasil karya orang lain telah dituliskan sumbernya secara jelas sesuai dengan norma, kaidah, dan etika penulisan ilmiah. Saya bersedia menerima sanksi pencabutan gelar akademik yang saya peroleh dan sanksi-sanksi lainnya sesuai dengan peraturan yang berlaku, apabila dikemudian hari ditemukan adanya plagiat dalam skripsi ini.
Banda Aceh, 17 September 2013
Meri Widyawati NIM.0911104
iv
KATA PENGANTAR
Assalamu‟alaikum. Wr. Wb Segala puji bagi Allah SWT, atas rahmat dan hidayah-Nya sehingga penulis dapat menyusun proposal skripsi dengan judul Sistem Informasi Karyawan pada PT. Asuransi Purna Arthanugraha (ASPAN) Menggunakan Microsoft Visual Basic 6.0 dan Microsoft Access 2007. Adapun penyusunan proposal skripsi ini dilakukan Sebagai Salah Satu Syarat Penyusunan Skripsi Program Teknik Informatika Pada STMIK U‟Budiyah Indonesia Banda Aceh dan selanjutnya proposal ini sebagai pertimbangan pihak terkait untuk dilanjutkan kebentuk skripsi. Penulis menyadari akan kekurangan dalam penyusunan proposal skripsi ini, oleh karena itu bimbingan dan arahan dari berbagai pihak sangat peneliti harapkan demi hasil penelitian yang lebih baik. Pada kesempatan ini pula penulis mengucapkan terima kasih kepada semua pihak yang telah memberikan masukan-masukan sehingga buku pedoman ini dapat di selesaikan dengan baik. 1. 2. 3. 4. 5. 6.
Kepada ketua STMIK U‟Budiyah Indonesia Kepada Ketua Program Studi Teknik Informatika Kepada Dosen Pembimbing ( yang telah membimbing penulis sehingga penulis dapat menyelesaikan tugas akhir ). Kepada Instansi Kampus STMIK U‟Budiyah Indonesia Kepada Staf Dosen ( yang telah membantu penulis dalam melengkapi berkas - berkas yang berhubungan dengan tugas akhir ). Kepada Orang Tua ( yang telah mendukung penulis dari awal hingga akhir pembuata tugas akhir ). Banda Aceh, 17 September 2013
Meri Widyawati
v
ABSTRAK PT. Asuransi Purna Arthanugraha adalah sebuah instansi yang bergerak di bidang asuransi kecelakaan yang berada di Banda Aceh. Dalam pengolahan data karyawan selama ini masih dilakukan secara manual dan belum terkomputerisasi, sehingga dalam pembuatan laporanlaporan sangat kurang efektif dan efesien dan membutuhkan waktu yang sangat lama. Penulis menggunakan desain penelitian deskriptif analisis, metode penelitian deskriptif, jenis data kuantitatif, struktur pengembangan system menggunakan waterfall dan metodelogi pengembangan sistem menggunakan keluaran, karena dalam penyusunan tugas akhir ini peneliti menghasilkan sebuah laporan karyawan dan laporan penggajian. Pada Sistem Informasi Data Karyawan, penulis menggunakan diagram arus data, ERD, dan laporan dengan menggunakan pemograman Microsoft Visual Basic 6.0 dan Microsoft Access 2007. Setelah peneliti membuat Sistem Informasi Data Karyawan, penulis berharap agar prosedur kerja dapat lebih mudah bagi pihak-pihak terkait di PT. Asuransi Purna Arthanugraha.
Kata Kunci : Waterfall, Entity Relantionship Diagram, Data Flow Diagram, Visual Basic, dan Database
vi
DAFTAR ISI
HALAMAN JUDUL ......................................................................................
I
HALAMAN PENGESAHAN ........................................................................
ii
LEMBAR PERSETUJUAN ..........................................................................
iii
LEMBAR PERNYATAAN ...........................................................................
iv
KATA PENGANTAR ....................................................................................
v
ABSTRAK
vi
..................................................................................................
DAFTAR ISI .................................................................................................. vii DAFTAR GAMBAR ......................................................................................
ix
DAFTAR TABEL ..........................................................................................
x
DAFTAR LAMPIRAN ..................................................................................
xi
BAB I.
PENDAHULUAN ..........................................................................
1
1.1 Latar Belakang .........................................................................
1
1.2 Rumusan Masalah ....................................................................
2
1.3 Batasan Masalah .......................................................................
2
1.4 Maksud dan Tujuan Penelitian .................................................
3
1.5 Manfaat Penelitian....................................................................
3
1.6 Metode Penelitian .....................................................................
3
1.7 Sistematika Penulisan ...............................................................
4
BAB II. TINJAUAN PUSTAKA ................................................................
5
2.1 Pengertian Sistem Informasi ....................................................
5
2.2 Data ........................................................................................
6
2.2.1 Penertian Data ................................................................. 2.2.2 Pengolahan Data .............................................................. 2.3 Sekilas Tentang Database ........................................................
6 7 7
2.4 Sekilas Tentang Database Management System (DBMS) .......
8
2.5 Sekilas Tentang Microsoft Visual Basic 6.0 ...............................
8
2.6 Sekilas Tentang Microsoft Access ............................................ 11 2.7 Data Flow Diagram (DFD)...................................................... 12 2.7.1 Diagram Konteks............................................................ 12 vii
2.7.2 DFD Level 1 ................................................................... 12 2.8 Entity Relationship Diagram (ERD) ........................................ 13 2.8 Flowchart ................................................................................. 14 BAB III. METODE PENELITIAN ............................................................. 16 3.1 Lokasi Waktu Penelitian .......................................................... 16 3.1.1 Lokasi Penelitian............................................................. 16 3.1.2. Waktu Penelitian ............................................................ 16 3.2 Metode Pengumpulan Data ...................................................... 16 3.3 Kebutuhan yang digunakan Penulis ......................................... 17 3.4 Perancangan Sistem Informasi Karyawa pada PT. Asuransi Purna Arthanugraha (ASPAN) menggunakan Microsoft Visual Basic 6.0 dan Microsoft Access ............................................................... 18 3.4.1 Diagram Konteks ............................................................ 18 3.4.2 Entity Relationship Diagram (ERD)............................... 18 3.4.2.1 Hasil Mapping ....................................................... 20 3.4.3 Struktur Tabel ................................................................. 20 3.4.4 Flowchart ........................................................................ 22 BAB IV. HASIL DAN PEMBAHASAN ..................................................... 26 4.1 Rancanga Input ......................................................................... 26 4.1.1 Rancangan Form Login .................................................. 4.1.2 Rancangan Menu Utama ................................................. 4.1.3 Rancangan Form Data Karyawan ................................... 4.1.4 Rancangan Form Data Jabatan ....................................... 4.1.5 Rancangan Form Data Penggajian ................................. 4.2 Rancanga Output ......................................................................
26 27 28 28 39 30
4.2.1 Rancangan Laporan Data Karyawan .............................. 30 4.2.1 Rancangan Laporan Data Gaji ........................................ 31 BAB V. KESIMPULAN DAN SARAN ..................................................... 32 5.1 Kesimpulan............................................................................... 32 5.2 Saran ........................................................................................ 32 DAFTAR PUSTAKA ..................................................................................... 33
viii
DAFTAR GAMBAR
Gambar 2.1 Siklus Pengolahan Data .............................................................
7
Gambar 2.2 Tampilan Menu Bar ...................................................................
9
Gambar 2.3 Tampilan Toolbar .......................................................................
10
Gambar 2.4 Tampilan Form Windows ...........................................................
10
Gambar 2.5 Tampilan Code Windows ...........................................................
10
Gambar 2.6 Tampilan Properties Windows ...................................................
11
Gambar 3.1 Diagram Konteks ........................................................................
18
Gambar 3.2 Entity Relationship Diagram (ERD) ..........................................
19
Gambar 3.3 Flowchart Menu Login ...............................................................
23
Gambar 3.4 Flowchart Menu Utama .............................................................
23
Gambar 3.5 Flowchart Menu Data Karyawan ...............................................
24
Gambar 3.6 Flowchart Menu Data Jabatan....................................................
24
Gambar 3.7 Flowchart Menu Data Penggajian ..............................................
25
Gambar 3.8 Flowchart Menu Laporan ...........................................................
25
Gambar 4.1 Form Login .................................................................................
26
Gambar 4.2 Tampilan Menu Utama ...............................................................
27
Gambar 4.3 Peringatan ...................................................................................
27
Gambar 4.4 Tampilan Form Data Karyawan .................................................
28
Gambar 4.5 Tampilan Form Data Jabatan .....................................................
29
Gambar 4.6 Tampilan Form Data Penggajian...............................................
29
Gambar 4.7 Tampilan Laporan Data Karyawan ............................................
30
Gambar 4.8 Tampilan Laporan Data Gaji ......................................................
31
ix
DAFTAR TABEL
Tabel 2.1 Definisi Sistem Informasi .................................................................. 6 Tabel 2.2 Simbol Simbol Data Flow Diagram .................................................. 13 Tabel 2.3 Simbol Simbol ERD ........................................................................... 13 Tabel 2.4 Simbol Simbol Flowchart .................................................................. 15 Tabel 3.1 Tabel karyawan .................................................................................. 21 Tabel 3.2 Tabel Jabatan...................................................................................... 21 Tabel 3.3 Tabel Penggajian ................................................................................ 22 Tabel 3.4 Tabel Login ........................................................................................ 22
x
DAFTAR LAMPIRAN
Lampiran 1. Source code Login ........................................................................ 34 Lampiran 2. Source code Input Data Karyawan ............................................... 36 Lampiran 3. Source code Edit Data Karyawan ................................................. 40 Lampiran 4. Source code Hapus Data Karyawan ............................................. 50
xi
BAB I PENDAHULUAN
1.1
Latar Belakang Perkembangan teknologi yang semakin pesat khususnya di bidang komputerisasi
mendorong banyak instansi dan perusahaan-perusahaan milik negara maupun swasta untuk dapat memanfaatkan teknologi komputer agar mampu bersaing dalam era globalisai seperti sekarang ini. Begitu pula dengan PT. Asuransi
Purna Arhtanugraha yang mana sangat
membutuhkan bantuan teknologi yang disebut dengan komputer. Kehadiran komputer dirasakan sangat penting di dalam kehidupan manusia agar mempermudah dan mempercepat suatu pekerjaan. Pada PT. Asuransi Purna Arhtanugraha merupakan salah satu instansi yang telah memanfaatkan komputer sebagai media dalam melaksanakan kegiatannya. Namun jenis sistem yang digunakan sangat memungkinkan timbulnya berbagai kerumitan untuk menyajikan suatu informasi cepat dan mudah, khususnya untuk mendata suatu informasi data karyawan, informasi dan data penggajian pada Instansi ini. Hal ini tentu saja dapat dicegah dengan membuat suatu program sistem informasi yang handal sebagai pemroses dan penyimpan data. Dengan mempertimbangkan hal tersebut, penulis tertarik untuk merancang sebuah sistem informasi data karyawan pada PT. Asuransi Purna Arhtanugraha, dimana sebelumnya pendataan karyawan masih dilakukan dengan secara manual yang sama sekali tidak menyentuh dengan suatu sistem pemograman, sehingga menyebabkan ke tidak efisienan informasi dan banyak membuang waktu untuk menyajikan suatu informasi pada PT. Asuransi Purna Arhtanugraha.
1
Untuk itu penulis ingin mengubah sistem yang lama sehingga menjadi sistem informasi yang terkomputerisasi oleh suatu program dan menyajikannya dalam bentuk tugas akhir yang berjudul “Sistem Informasi Data Karyawan pada PT. Asuransi Purna Arthanugraha (ASPAN) menggunakan Microsoft Visual Basic dan Microsoft Access”
1.2
Rumusan Masalah Dari uraian di atas, dapat dirumuskan permasalahan yang terdapat pada PT. Asuransi
Purna Arthanugraha sebagai berikut : 1. Bagaimana Cara mengelola data karyawan secara komputerisasi. 2. Bagaimana cara mendapatkan informasi mengenai data karyawan dan data penggajian dengan cepat dan akurat 3. Bagaimana cara membuat laporan mengenai data karyawan dan data penggajian dengan cepat
1.3
Batasan Masalah Agar pembahasan lebih terarah dan tidak menyimpang dari permasalahan, maka penulis
membatasi masalah sebagai berikut: 1. Sistem Informasi data karyawan menggunakan bahasa pemograman visual basic 6.0 dan databasenya menggunakan Microsoft Access 2007. 2. Sistem yang akan dibangun mencakup pendataan karyawan dan data penggajian untuk karyawan. 3. Pada sistem data penggajian penulis memuat proses input jumlah hadir agar dapat memperoleh laporan mengenai gaji karyawan. 4. Pada sistem data jabatan penulis memuat proses input data jabatan, tunjangan jabatan dan gaji pokok agar mempermudah dalam pengelolaan data penggajian.
2
1.4
Maksud dan Tujuan Penelitian. Adapun maksud penelitian tugas akhir ini adalah:
1. Untuk mengetahui bagaimana sistem yang dibutuhkan oleh pihak Instansi. 2. Membangun suatu sistem informasi yang dapat dimanfaatkan untuk menyajikan informasi yang baik dengan cepat dan mudah.
Sedangkan tujuan dari penelitian Tugas Akhir ini adalah: 1. Untuk mengganti sistem lama dengan sistem yang di usulkan. 2. Agar dapat mempercepat proses kinerja para karyawan PT. Asuransi
Purna
Arhtanugraha.
1.5
Manfaat Penelitian Adapun manfaat penelitian Tugas Akhir ini adalah sebagai berikut :
1. Agar dapat mengembangkan keterampilan, kemampuan dan ilmu pengetahuan guna untuk memperoleh wawasan dalam dunia kerja yang sesungguhnya. 2. Agar dapat digunakan sebagai bahan masukkan, supaya mempermudah dan mempercepat dalam kinerja agar dapat mengambil keputusan yang akurat mengenai pendataan para karyawan di instansi tersebut.
1.6
Metode Penelitian
1. Survei lapangan, yaitu melihat dan mengamati secara langsung proses pengolahan data yang ada. 2. Wawancara, yaitu dengan bertanya tentang sesuatu hal kepada yang berkepentingan. 3. Studi pustaka, yaitu membaca buku – buku yang terkait secara langsung maupun tidak langsung untuk mengetahui secara teoritis permasalahan yang sedang dihadapi dan juga melalui internet. 3
1.7
Sistematika Penulisan
1. BAB I PENDAHULUAN Dalam bab ini menjelaskan tentang latar belakang, identifikasi masalah, batasan masalah, tujuan, manfaat, metode penelitian dan sistematika penulisan. 2. BAB II TINJAUAN PUSTAKA Berisikan tentang teori-teori, definisi, konsep dasar sistem informasi, serta komponenkomponen penyusunan Sistem Informasi Data Karyawan Pada PT. Asuransi Purna Artha Nugraha (ASPAN) dengan menggunakan Visual Basic 6.0 dan Microsoft Acces 2007. 3. BAB III PERANCANGAN SISTEM Pada bab ini berisikan tentang kebutuhan sistem, rancangan prosedural, mencakup diagram konteks dan data flow diagram (DFD), analisis database, serta perancangan struktur Interface. 4. BAB IV HASIL DAN PEMBAHASAN Bab ini dijelaskan tentang perancangan Sistem Informasi Data Karyawan Pada PT. Asuransi Purna ArthaNugraha (ASPAN) dengan menggunakan Visual Basic 6.0 dan Microsoft Acces 2007. 5. BAB V PENUTUP Dalam bab ini menjelaskan tentang kesimpulan dan saran dari penulisan dan hasil penulisan Perancangan Sistem Informasi Data Karyawan Pada PT. Asuransi Purna ArthaNugraha (ASPAN) dengan menggunakan Visual Basic 6.0 dan Microsoft Acces 2007.
4
BAB II TINJAUAN PUSTAKA
2.1
Pengertian Sistem Informasi Sesungguhnya yang dimaksud sistem informasi tidak harus melibatkan komputer.
Sistem informasi yang menggunakan komputer disebut sistem informasi berbasis komputer. Dalam prakteknya, istilah sistem informasi lebih sering dipakai tanpa embel-embel berbasis komputer walaupun dalam kenyataannya komputer merupakan bagian yang penting. Dalam penulisan tugas akhir ini, yang dimaksud dengan sistem informasi adalah sistem informasi yang berbasis komputer. Ada beragam definisi sitem informasi, sebagaimana tercantum pada table 2.1. Dari berbagai definisi tersebut. Menurut Kadir (2003:10) “Sistem informasi mencakup sejumlah komponen (manusia, komputer, teknologi informasi dan prosedur kerja), ada sesuatu yang diproses (data menjadi informasi), dan dimaksudkan untuk mencapai suatu sasaran atau suatu tujuan”. Tabel 2.1. Definisi Sistem Informasi Sumber Alter (1992)
Definisi Sistem informasi adalah kombinasi antara prosedur kerja, informasi, orang dan teknologi informasi yang diorganisasikan untuk mencapai tujuan dalam organisasi.
Bodnar dan Hopwood Sistem informasi adalah kumpulan perangkat keras dan perangkat (1993)
lunak yang dirancang untuk mentransformasikan data ke dalam bentuk yang berguna.
Gelinas, Oram dan Sistem informasi adalah suatu system buatan manusia yang secara
5
Wiggins (1990)
umum terdiri atas kumpulan komponen berbasis computer dan manual yang dibuat untuk menghinpun, menyimpan dan mengelola data serta menyediakan informasi keluar-an kepada para pemakai.
Hall (2001)
Sistem informasi adalah sebuah rangkaian prosedur formal dimana data dikelompokkan, diproses menjadi informasi dan didistribusikan kepada pemakai.
Turban, Mclean dan Sebuah Wetherbe (1999)
sistem
informasi
mengumpulkan,
memproses,
menyimpan, menganalisa dan menyebarkan informasi untuk tujuan yang spesifik.
Wilkinson (1992)
Sistem informasi adalah kerangka yang mengkoordinasikan sumber daya (manusia, komputer ) untuk mengubah masukan (input) menjadi keluaran (informasi), guna mencapai sasaransasaran perusahaan.
2.2
Data
2.2.1 Pengertian Data Sumber dari suatu informasi adalah data. Data berasal dari kata datum yang berarti fakta yang mengandung arti yang dihubungkan dengan kenyataan, simbol-smbol, gambargambar, kata-kata, huruf-huruf atau simbol-simbol yang menunjukkan suatu ide objek, kondisi atau tujuan yang lain. (Winanda. 2008 : 19) Data adalah sekumpulan fakta tentang peristiwa atau operasi tanpa dipengaruhi oleh pertimbangan atau hasil analisis. Data dapat berupa apa saja dan dapat ditemui dimana saja. Dalam suatu organisasi, data merupakan sumber daya yang sangat vital dan harus dikelola dan diproses sebaik-baiknya (Jogiyanto H. M., 2001: 4). 6
Data adalah representasi fakta yang mewakili suatu objek seperti manusia (pegawai, siswa, pembeli, pelanggan), barang, peristiwa, konsep, keadaan, dan sebagainya yang direkam dalam bentuk angka, huruf, simbol, teks, gambar, bunyi, atau kombinasinya (Kristanto Harianto, 2001: 3).
2.2.2 Pengolahan Data Salah satu komponen dalam pengolahan data yang diperlukan adalah program aplikasi (program komputer) yang berisikan sederetan instruksi yang disusun dan dapat diterima oleh komputer. Menurut Primasari (2008:8) ”Pengolahan data adalah proses untuk melakukan manipulasi dari pemakaian data agar menghasilkan informasi yang diperlukan”. Secara umum pengolahan data terdiri dari tiga langkah yaitu: Input (pemasukkan data), Proses (pengolahan data) dan Output (hasil keluaran berupa informasi). Berikut gambaran siklus Pengolahan data pada gambar 2.2.
INPUT
PROCESSING
OUTPUT
Gambar 2.1. Siklus Pengolahan Data
2.3
Sekilas Tentang Database Database merupakan Kumpulan data yang pada umumnya menggambarkan aktivitas-
aktivitas dan pelakunya dalam suatu organisasi, misalkan database Universitas yang berisi mahasiswa, dosen, kuliah dan lain-lain. Sistem database adalah sistem komputer yang digunakan untuk menyimpan dan mengelola data tersebut (Utami, E dan Sukrisno. 2005:1). Database adalah kumpulan seluruh sumber daya berbasis komputer milik organisasi dan sistem. Database yang dikendalikan oleh sistem manajemen database adalah satu set catatan data yang berhubungan dan saling menjelaskan. (Raymon. 2004 : 196).
7
Dari beberapa pengertian diatas, penulis dapat menyimpulkan bahwa Database merupakan kumpulan data dan informasi dalam jumlah yang tidak sedikit. Oleh karena itu, database harus disusun sebagai kriteria terpola dengan jelas sejak dari awalnya. Database akan diubah dalam bentuk tabel dalam Microsoft Access dengan memperhatikan: File Table, Field, Primary Key, dan sebagaimana yang merupakan bagian dari database.
2.4
Sekilas Tentang Database Management System (DBMS) Database Management System (DBMS) merupakan suatu alat berbasis komputer yang
digunakan untuk menyimpan dan mengolah data yang bertujuan untuk menciptakan keadaan yang mudah dan efisien dalam pemakaian dan penyimpanan data (Ayuni, W. 2009 : 18). Database Management System (DBMS) merupakan perangkat lunak yang dirancang untuk dapat melakukan utilisasi dan mengelola koleksi data dalam jumlah yang besar. Database Management System (DBMS) juga dirancang untuk dapat memanipulasi data secara lebih mudah (Utami, E dan Sukrisno. 2005:2). Suatu Database Management System berisi suatu koleksi data yang saling berelasi dalam satu kesatuan program yang berfungsi untuk mengakses data tersebut. Jadi Database Management System terdiri dari suatu database dan set program untuk menambah data, menghapus data, mengambil dan membaca data.
2.5
Sekilas Tentang Microsoft Visual Basic 6.0 Visual Basic dibuat oleh Microsoft, merupakan salah satu bahasa pemograman
berorientasi objek yang mudah dipelajari. Selain menawarkan kemudahan, Visual Basic juga cukup andal untuk digunakan dalam pembuatan berbagai aplikasi, terutama aplikasi database (Utami, E dan Sukrisno. 2005 : 83).
8
Visual Basic adalah pengembangan dari bahasa komputer BASIC (Beginner‟s Allpurpose Symbolic Instruction Code). Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Kurtz dari Kampus Darmouth pada pertengahan tahun 1960-an. Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer. Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer. Beberapa versinya seperti Microsoft QBASIC, QUICKBASIC, GWBASIC ,IBM BASICA, Apple BASIC dan lain-lain. Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2008. Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak memory komputer. Microsoft Visual Basic merupakan sebuah pemrograman komputer yang berjalan pada sistem operasi Windows. Bahasa Pemrograman adalah sekumpulan perintah/intruksi yang dimengerti oleh komputer untuk mengerjakan tugas-tugas tertentu. Microsoft Visual Basic selain disebut sebagai sarana Bahasa Pemrograman (language program), juga sering disebut juga sarana (tool) untuk menghasilkan program-program aplikasi berbasis windows. Berikut ini adalah beberapa istilah umum yang digunakan untuk membuat program aplikasi dalam Microsoft Visual Basic yaitu : 1. Menu Bar, merupakan kumpulan perintah-perintah yang dikelompokkan dalam kriteria operasinya.
Gambar 2.2. Tampilan Menu Bar
9
2. Tool Bar, merupakan sekumpulan tombo yang mewakili suatu perintah tertentu pada Microsoft Visual Basic. Kehadiran tombol-tombol speed atau toolbar akan sangat membantu dalam mempercepat akses perintah.
Gambar 2.3. Tampilan Toolbar
3. Form Windows , merupakan area kerja dimana kita akan merancang suatu program aplikasi Microsoft Visual Basic. Pada jendela form ini kita bisa meletakkan tombol (objek) seperti command buttom, textbox, label, checkbox dan lain-lain.
Gambar 2.4. Tampilan Form Windows 4. Code Windows, merupakan area dimana kita dapat menuliskan kode-kode program Microsoft Visual Basic.
Gambar 2.5. Tampilan code Windows 10
5. Properties Windows, ini berisi semua informasi mengenai kontrol (objek) yang dibuat dan bertugas menyiapkan segala properti dari kontrol yang diperlukan dalam perancangan user interface maupun pemrograman.
Gambar 2.6. Tampilan Properties Windows
2.6
Sekilas Tentang Microsoft Access Microsoft Access merupakan salah satu program aplikasi database paling lengkap dan
canggih saat ini. Access memungkinkan untuk mengumpulkan, menyimpan dan mengatur informasi seperti halnya membuat laporan yang mengarah kepada kesimpulan akhir (Apriani, Y. 2008:33). Fungsi Microsoft Access ialah :
Untuk membuat program aplikasi persediaan barang.
Untuk membuat program aplikasi gaji karyawan/pegawai.
Untuk membuat program aplikasi penjualan dan pembelian.
Untuk membuat program aplikasi kehadiran.
Untuk membuat program aplikasi administrasi pendidikan.
11
Dengan Microsoft Access kita dapat merancang dan mengiolah database yang saling terkait antara pembuatan Tabel, Form, Query, Report, Macro, Modul sehingga dapat dikoordi-nasikan dalam pembuatan: Tombol Macro, Menu Drop Down dan Switchboard.
2.7
Data Flow Diagram (DFD)
2.7.1 Diagram Konteks Menurut Primasari (2008:48) “Diagram konteks merupakan alat bantu dalam perancangan global bagi program aplikasi yang akan dibuat, dengan tujuan untuk mencerminkan keadaan sistem yang akan dibangun secara umum”. Diagram konteks berisi gambaran umum (secara garis besar) sistem yang akan dibuat. Secara kalimat, dapat dikatakan bahwa diagram konteks ini berisi “siapa saja yang memberi data (dan data apa saja) ke sistem, serta kepada siapa saja informasi (dan informasi apa saja) yang harus dihasilkan sistem”.
2.7.2 DFD Level 1 Menurut Primasari (2008:49) “DFD level 1 merupakan perincian dari diagram konteks yang telah dibuat untuk sistem yang akan dirancang”. Berikut ini adalah keterangan mengenai simbol-simbol yang digunakan dalam Data Flow Diagram. Tabel 2.2 Simbol-simbol Data Flow Diagram. No
Nama komponen
Simbol
Keterangan
1
Proses
Proses menunjukkan transformasi dari masukan menjadi keluaran.
2
Aliran
3
Penyimpan
Aliran menggambarkan aliran paket data atau informasi dari satu bagian ke bagian lain dari sistem dimana penyimpanan mewakili lokasi penyimpanan data. Komponen ini digunakan untuk 12
memodelkan kumpulan data atau paket data. 4
Terminator
2.8
Simbol ini mewakili entity luar dimana sistem berkomunikasi. Biasanya notasi ini Melambangkan orang atau kelompok orang.
Entity Relationship Diagram (ERD) ERD merupakan diagram hubungan antar entitas dan digunakan untuk mengetahui
hubungan dari setiap tabel dalam database. Hubungan dalam ERD umum terbagi menjadi 3 tipe, yaitu one to one, one to many dan many to many. Hubungan ini ditentukan oleh primary key, foreign key dan candidate key yang ada pada tabel database (Ayuni, W. 2009. 41). Berikut ini adalah beberapa simbol dari ER-Diagram : Tabel 2.3. Simbol-simbol ERD No
Notasi
Arti
1
Entity
2
Relationship
3
Atribut
4
Atribut Primary Key
13
2.9
Flowchart Flowchart adalah suatu diagram yang menggunakan symbol-simbol dan garis-garis
yang saling berhubungan untuk menggambarkan urutan operasi program tertentu atau urutan proses kerja suatu system untuk mendapatkan hasil tertentu (Ayuni, W. 2009. 38). Adapun symbol-simbol flowchart adalah sebagai berikut : Tabel 2.4 Simbol-simbol Flowchart. No
Simbol
Nama
Fungsi
Terminator
Pemula/ akhir program.
Garis Alir (Flow Line)
Arah Aliran Program.
2
Proses Input/Output Data.
3
Input/ Output Data
4
Proses
Proses Pengolahan Data.
1
Perbandinagn Pernyataan, Penyeleksian Data Yang Memberikanpilihan Untuk Langkah Selanjutnya.
5
Decision
6
On Page Connector
Penghubung BagianBagian Flowcart Pada Halaman Yang Sama.
7
Off Page Connector
Penghubung BagianBagian Flowcart Pada Halaman Yang Berbeda.
8
Document
14
Merupakan Symbol Untuk Data Yang Berbentuk Kertas Maupun Informasi
9
Magnetic disk
15
Simbol Untuk Database Yang di gunakan Dalam Program.
BAB III METODE PENELITIAN
3.1
Lokasi dan Waktu Penelitian
3.1.1 Lokasi Penelitian Penulis melakukan penelitian di lokasi PT. Asuransi Purna Arhtanugraha, yang beralamat di Jl. Tgk. Imum Lueng Bata , Lamsepeng No. 7E Banda Aceh. 3.1.2 Waktu Penelitian Penulis memprediksikan Lamanya waktu penelitian selama 4 bulan terhintung dari tanggal 18 maret sampai dengan tanggal 18 juni 2013, agar memperoleh data-data yang diperlukan untuk pembuatan Sistem Informasi Data Karyawan pada Instansi tersebut.
3.2
Metode Pengumpulan Data Untuk menyelesaikan penelitian Tugas Akhir ini, tentunya penulis memerlukan data-
data yang didapat dari berbagai sumber. Oleh karena itu untuk mendapatkan bahan atau datadata tersebut, penulis menggunakan beberapa metode atau cara sebagai berikut : 1. Metode Pengamatan ( Observasi ) Observasi adalah suatu metode pengumpulan data yang diperoleh dengan cara mengadakan pengamatan dan peninjauan secara langsung ke PT. Asuransi
Purna
Arhtanugraha. 2. Metode Wawancara ( Interview ) Metode wawancara adalah suatu metode pengumpulan data yang penulis lakukan, dengan mengadakan Tanya jawab secara langsung kepada Karyawan PT. Asuransi Arhtanugraha. Yang berhubungan langsung dengan masalah yang diteliti.
16
Purna
3. Metode Perpustakaan (Library Research) Metode Perpustakaana dalah suatu metode yang digunakan penulis untuk memperoleh data-data dan teori-teori yang berkaitan dengan penyusunan tugas akhir.
3.3
Kebutuhan Yang Digunakan Penulis Untuk menjalankan sistem, perlu kita ketahui perangkat apa yang akan mendukung
dalam proses pembuatan program. Perangkat yang dibutuhkan adalah: a. Perangkat Keras (Hardware) Perangkat Keras (Hardware) adalah seluruh komponen-komponen peralatan yang membentuk suatu sistem komputer sebagai penyimpan data, alat-alat komunikasi termasuk mesin pembantu hitung dan peralatan lainnya yang memungkinkan komputer dapat melaksanakan tugasnya. Adapun spesifikasi minimal hardware yang dibutuhkan adalah sebagai berikut: 1. AMD Dual Core Processor 2. Harddisk 320 GB 3. Memori 1 GB 4. Printer Epson r230
b. Perangkat Lunak (Software) Perangkat Lunak (Software) adalah sistem prosedur dalam bentuk program yang dapat digunakan dalam komputer dan memberikan fungsi serta menampilkan hasil yang diinginkan. Untuk membantu menjalankan hardware yang ada, maka software yang diperlukan adalah sebagai berikut: 1. Microsoft Office 2007 2. Microsoft Visual Basic 6.0
17
3.4
Perancangan Sistem Informasi Karyawan pada PT. Asuransi Purna Arthanugraha ( ASPAN ) menggunakan Visual Basic 6.0 dan Microsoft Access. Dalam pembuatan perancangan sistem informasi pemesanan kamar online terdiri dari
beberapa tahapan, yaitu : 3.4.1 Diagram Konteks Gambar diagram konteks Sistem Informasi Data karyawan Pada PT. Asuransi Purna Arhtanugraha ialah sebagai berikut:
Data Karyawan Data Jabatan Data Penggajian
Karyawan
ADMIN Data Karyawan
Lap. Data Karyawan Lap. Data Penggajian
Sistem Informasi karyawan
Mengakses Sistem
Lap. Data Karyawan Lap. Data Penggajian Pimpinan
Gambar 3.1 Diagram Konteks
3.4.2 Entity Relationship Diagram (ERD) Gambar entity Relationship Diagram Sistem Informasi Data karyawan Pada PT. Asuransi Purna Arhtanugraha ialah sebagai berikut:
18
T_Lahir
Alamat
Status
Tgl_Lahir
Jenkel
Nama
Pend_Akhir Nip
Kd_Jabatan
Tgl_Masuk
No_Slip
Jabatan
KARYAWAN 1
1
Memiliki Memiliki 1 1
JABATAN GAJI
Gj_bersih
Jlh_hadir
No_Slip Tj_Jabatan
Nip
Gj_Pokok Tunj_Jabatan
Kd_Jabatan Jabatan
Tgl_Penggajian
Gj_Pokok
Gambar 3.2 Entity Relationship Diagram (ERD) Keterangan : Satu karyawan memiliki beberapa data (1 to N ) satu ke banyak. Seorang karyawan hanya memiliki 1 data jabatan (1 to 1 ) satu ke satu. Seorang karyawan hanya memiliki 1 data gaji (1 to1 ) satu ke satu.
19
3.4.2.1 Hasil Mapping Adapun hasil akhir dari proses mapping tersebut yang membentuk tabel adalah sebagai berikut : 1. Karyawan ( NIP, Nama, Tgl_Lahir, T_Lahir, Alamat, Jenkel, Status, Kd_jabatan, Jabatan, No_Slip, Tgl_Masuk, Pend_Akhir). 2. Penggajian
(No_Slip,
NIP,
Tanggal,
Gj_Pokok,
Tunj_Jabatan,
Jumlah_Hadir,
Gaji_Bersih ). 3. Jabatan ( Kd_Jabatan, Jabatan, Tunj_Jabatan, Gj_Bersih ) 4. Login (Id, Nm_Lengkap, User, Password ). 3.4.3 Struktur Tabel Perancangan struktur database adalah untuk menentukan file database yang digunakan, yaitu field, tipe data, dan ukuran. Dari sistem ini terdapat enam table struktur database, yaitu: 1. Tabel Karyawan 2. Tabel Jabatan 3. Tabel Penggajian 4. Tabel Login Berikut adalah daftar format database untuk setiap tabel data: 1. Tabel Karyawan. Tabel Karyawan ini digunakan untuk menampung data karyawan. Primary key dari Tabel karyawan ini adalah Nip. Informasi mengenai tabel karyawan dapat di lihat pada tabel 3.1
20
Tabel 3.1 Tabel Karyawan Field
Type
Size
Text
20
Nama
Text
30
Tgl_Lahir
Date
-
T_Lahir
Text
20
Alamat
Text
30
Jenkel
Text
12
Status
Text
12
Kd_jabatan
Text
5
Jabatan
Text
15
No_Slip
Text
10
Tgl_Masuk
Date
-
Pend_Akhir
Text
10
* Nip
2. Tabel Jabatan Tabel Jabatan digunakan untuk menyimpan data jabatan seorang karyawan. Primary key dari Tabel Jabatan adalah Kd_Jabatan. Informasi mengenai tabel jabatan dapat di lihat pada tabel 3.2 Tabel 3.2 Tabel Jabatan Field *Kd_Jabatan
Type
Size
Text
5
Jabatan
Text
15
Tunj_Jabatan
Currency
20
Gj_Pokok
Text
20
3. Tabel Penggajian Tabel Penggajian digunakan untuk menampung data gaji karyawan. Primary key dari Tabel Penggajian ini adalah No_Slip. Informasi mengenai tabel penggajian dapat di lihat pada tabel 3.3 21
Tabel 3.3 Tabel Penggajian Field * No_Slip Nip Tanggal Gj_Pokok Tunj_Jabatan Jumlah_Hadir Gaji_Bersih
Type Text Text Date Currency Currency Text Currency
Size 7 20 20 20 2 20
4. Tabel Login Tabel Login merupakan pengguna dari aplikasi yang memiliki hak akses penuh dalam mengolah data, menambah, mengedit dan menghapus data. Rincian tabel dapat dilihat pada tabel 3.4
Tabel 3.4 Tabel Login Field *Id Nm_Lengkap Username Password
Type Text Text Text Text
Size 10 20 20 20
3.4.4 Flowchart Flowchart dibawah ini menggambarkan urutan kerja dari masing-masing menu yang tersedia pada program.
22
1. Flowchart menu login.
Gambar 3.3 Flowchart Menu Login.
2. Flowchart menu utama. A D Menu Utama
File
Data Karyawan Data Jabatan
Penggajian
Laporan
Log out
Y/T
Data Karyawan
F1
Data Jabatan
F2
Data Gaji
Laporan
F3
F4
Gambar 3.4 Flowchart Menu Utama.
23
D
3. Flowchart menu Data Karyawan. F1 T Data Karyawan
Tambah
Simpan
Edit
Simpan
Y Database Y
T Hapus
Menghapus
Cari
Tampil Data
Keluar
E
Gambar 3.5 Flowchart Menu Data Karyawan.
4. Flowchart menu Data Jabatan. F2 T Data Jabatan
Tambah
Simpan
Edit
Simpan T
Hapus
Menghapus
Keluar
E
Gambar 3.6 Flowchart Menu Data Jabatan.
24
Y Database Y
5. Flowchart menu Data Penggajian. F3 T Data Penggajian
Tambah
Simpan
Edit
Simpan
Y Database Y
T Hapus
Menghapus
Cari
Tampil Data
Keluar
E
Gambar 3.7 Flowchart Menu Data Penggajian.
6. Flowchart menu Laporan. F4
Laporan Lp. Karyawan
Tampil Laporan
Y
Cetak
Lp. Karyawan
T T Lp. Gaji
Tampil Laporan
Cetak
Gambar 3.8 Flowchart Menu Laporan.
25
Y
Lp. Gaji
BAB IV HASIL DAN PEMBAHASAN PT. Asuransi Purna Arthanugraha merupakan instansi yang bergerak di bidang asuransi kecelakaan. Namun, dalam pengelolaan data karyawan dan data penggajian masih sangat manual, yaitu dengan menuliskan data pada buku besar dan di simpan dalam lemari arsip. Untuk itu penulis ingin mengubah sistem yang manual sehingga menjadi sistem yang terkomputerisasi oleh suatu program. Dan berikut ini adalah rancangan dari sistem yang telah penulis buat antara llain sebagai beikut: 4.1
Rancangan Input
4.1.1 Rancangan Form Login
Gambar 4.1. Form Login Rancangan form pada gambar 4.1 digunakan untuk proses login kedalam Sistem Informasi Data Karyawan, dimana admin harus memasukkan user name dan password dengan benar untuk dapat masuk kedalam Sistem Informasi tersebut.
26
4.1.2 Rancangan Menu Utama
Gambar 4.2 Tampilan Menu Utama
Didalam form Menu Utama ini terdapat beberapa pilihan diantaranya File, Karyawan, dan Laporan seperti pada gambar 4.2 diatas. Apabila admin hendak keluar dari sistem maka admin harus menekan tombol exit dan akan tampil peringatan seperti gambar dibawah ini.
Gambar 4.3 Peringatan Apabila admin memilih tombol yes maka sistem akan menutup dengan sendirinya, namun apabila admin memilih tombol no maka sistem tetap pada menu utama sesuai gambar 4.2.
27
4.1.3 Rancangan Form Data Karyawan Pilihan menu Karyawan pada menu utama ini berfungsi sebagai langkah awal dalam melakukan penambahan, pengeditan, serta penghapusan karyawan seperti pada gambar 4.4 dibawah ini.
Gambar 4.4 Tampilan Form Data Karyawan
Form data karyawan ini merupakan form yang digunakan untuk menambah data karyawan, mengedit data karyawan, menghapus data karyawan, seta mencari data karyawan yang terdapat pada data karyawan.
4.1.4 Rancangan Form Data Jabatan Pilihan menu data jabatan pada menu karyawan ini berfungsi untuk menambahan data jabatan, tunjangan jabatan, serta gaji pokok seperti pada gambar 4.5 di bawah ini.
28
Gambar 4.5 Tampilan Form Data Jabatan
Dimana admin dapat melakukan penambahan data jabatan, pengeditan data jabatan, serta penghapusan data jabatan pada form data jabatan.
4.1.5 Rancangan Form Data Penggajian Pilihan menu data penggajian pada menu karyawan ini berfungsi untuk menambahan data gaji, mengedit data gaji, menghapus data gaji, serta mencari data gaji seperti pada gambar 4.6 di bawah ini.
Gambar 4.6 Tampilan Form Data Penggajian
29
Form data penggajian ini merupakan form yang digunakan untuk menambah data gaji, mengedit data gaji, menghapus data gaji, seta mencari data gaji yang terdapat pada data penggajian.
4.2 4.2.1
Rancangan Output Rancangan Laporan Data Karyawan
Gambar 4.7 Tampilan Laporan Data Karyawan
Gambar 4.7 merupakan form rancangan output laporan data karyawan yang digunakan untuk melihat jumlah karyawan yang bekerja di PT. ASPAN.
30
4.2.2 Rancangan Laporan Gaji
Gambar 4.8 Form Laporan Data Gaji
Gambar 4.8 merupakan form rancangan output laporan data gaji yang digunakan untuk melihat gaji para karyawan yang bekerja di PT. ASPAN.
31
BAB V KESIMPULAN DAN SARAN
5.1
Kesimpulan Dari hasil pembahasan mengenai sistem informasi data karyawan, penulis mengambil
kesimpulan yaitu: 1. Sistem informasi yang diusulkan dapat membuat laporan secara cepat dan efisien sesuai dengan data yang ada. Sehingga pimpinan instansi dapat memperoleh laporan dari setiap transaksi yang ada tepat pada waktunya. 2. Dengan menggunakan sistem informasi yang diusulkan, maka dapat meningkatkan efisiensi kerja pada karyawan. Misalnya, dapat melakukan perubahan (update) data secara cepat pada saat dibutuhkan. 3. Pengolahan data yang berubah dari sistem manual ke sistem berbasis komputer lebih efisien dan efektif dalam hal melakukan pekerjaan yang ada mengenai pendataan karyawan pada instansi.
5.2 Saran Adapun saran yang diusulkan oleh penulis setelah membuat sistem informasi yang diusulkan adalah sebagai berikut: 1. Dengan adanya sistem informasi data karyawan, maka disarankan adanya pengembangan lebih lanjut untuk merancang sistem yang lebih kompleks dan dapat melakukan pengolahan data yang lebih besar. 2. Dengan adanya sistem yang diusulkan, maka diharapkan agar pimpinan instansi melakukan pelatihan kepada operator-operator yang ditunjuk agar dapat menggunakan sistem sesuai dengan kebutuhan instansi. 3. Disarankan agar pimpinan menginstruksikan kepada setiap operator yang ditunjuk untuk melakukan back-up data (penyimpanan cadangan) untuk menghindari kehilangan data. 32
DAFTAR PUSTAKA
Apriani, Y . 2008. Sistem Informasi Pengolahan Data Absensi Pegawai Pada Kantor Satuan Pamong Praja Kabupaten Lampung Utara. Kota Bumi. Ayuni, W. 2009. Sistem Informasi Data Pegawai Pada pt. Arun Menggunakan Visual Basic6.0. [Online] Tersedia: http://repository.amikom.ac.id. [10 Mei 2012]. Ema , U dan Sukrisno.2005.konsep Dasar Pengolahan dan Pemograman Database dengan SQL Server, Ms. Access, dan Ms. Visual Basic. Yogyakarta : Pernebit ANDI. Kadir, A. 2003. Pengenalan System Informasi. Yogyakarta: Penerbit ANDI. Kroenke, S.2003. Dasar-Dasar, Desain dan Implementasi Database Processing. Jakarta: Erlangga Maulani, G. 2008. Modul Perkulihahan Sistem Informasi Manajemen. Tangerang : Perguruan Tinggi Raharja. Primasari, B. 2008. Sistem Informasi Data Pegawai Pada Kantor Dinas Pertambangan Dan Energi Propinsi Sumatera Utara. [Online] Tersedia: http://repository.amikom.ac.id. [23 mei 2012]. Widigdo, A. 2003. Dasar Pemrograman Visual Basic 6.0. 10 November 2011.www.ilmukomputer.com Winanda, T. 2008. Sistem Informasi Data Pegawai Pada Dinas Perhubungan Dan Pariwisata Kota Langsa. [Online] Tersedia: : http://repository.amikom.ac.id. [20 mei 2012].
33
LAMPIRAN 1
Source code Login Option Explicit Dim MaxLogin As Integer Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click() „set the global var to false „to denote a failed login LoginSucceeded = False Me.Hide End End Sub
Private Sub cmdOK_Click() If txtUser.Text = “” Then MsgBox “USER ID MASIH KOSONG !”, vbCritical + vbOKOnly, “Error” txtUser.SetFocus ElseIf txtPwd.Text = “” Then MsgBox “PASSWORD MASIH KOSONG !”, vbCritical + vbOKOnly, “Error” txtPwd.SetFocus Else SQL = “” SQL = “SELECT * FROM login “ _ & “WHERE user=‟” & txtUser.Text & “‟” _ & “ AND password=‟” & txtPwd.Text & “‟” Set login = KonekDb.Execute(SQL) If Not login.BOF Then
34
Unload Me frmUtama.Show Else „ Periksa, login hanya 3 kali „ 3x gagal pesan error ditampilkan If MaxLogin < 3 Then MsgBox “Maaf, Kombinasi Username dan Password Salah”, vbCritical + vbOKOnly, “Error” txtPwd.Text = “” txtPwd.SetFocus MaxLogin = MaxLogin + 1 If MaxLogin >= 3 Then MsgBox “Anda bukan pengguna yang berhak!”, vbCritical + vbOKOnly, “Error” Unload Me End If
End If End If End If End Sub
Private Sub Form_Load() Call BukaDatabase End Sub
Private Sub txtPwd_Click() txtPwd.Text = “” End Sub
35
LAMPIRAN 2
Source code Input Data Karyawan Private Sub mati() txtNip.Enabled = False txtNama.Enabled = False TxtTmp_lahir.Enabled = False tgl_lahir.Enabled = False cmbJenkel.Enabled = False cmbAgama.Enabled = False txtAlamat.Enabled = False cmbPdd.Enabled = False cmbKdjab.Enabled = False TxtJab.Enabled = False txtstatus_kerja.Enabled = False End Sub
Private Sub kosong() txtNip.Text = "" txtNama.Text = "" TxtTmp_lahir.Text = "" tgl_lahir.Refresh cmbJenkel.Text = "" cmbAgama.Text = "" txtAlamat.Text = "" cmbPdd.Text = "" cmbKdjab.Text = "" TxtJab.Text = "" End Sub
36
Private Sub cmbKdjab_Click() Set jabatan = New ADODB.Recordset jabatan.Open " SELECT * FROM jabatan " _ & " WHERE kd_jabatan='" _ & cmbKdjab.Text & "' " _ , KonekDb, adOpenDynamic, adLockOptimistic If jabatan.BOF Then MsgBox "Data Tidak Ditemukan!", _ vbOKOnly + vbInformation, "Error" Exit Sub Else TxtJab.Text = jabatan!nm_jabatan End If End Sub
Private Sub cmdKeluar_Click() Unload Me frmkaryawan.Show End Sub
Private Sub cmdSimpan_Click() If txtNip.Text = "" Then MsgBox "NIP TIDAK BOLEH KOSONG!", _ vbInformation + vbOKOnly, "Error" txtNip.SetFocus ElseIf txtNama.Text = "" Then MsgBox "NAMA TIDAK BOLEH KOSONG", _ vbInformation + vbOKOnly, "Error" txtNama.SetFocus ElseIf TxtTmp_lahir.Text = "" Then
37
MsgBox "TEMPAT LAHIR TIDAK BOLEH KOSONG", _ vbInformation + vbOKOnly, "Error" TxtTmp_lahir.SetFocus ElseIf txtAlamat.Text = "" Then MsgBox " ALAMAT TIDAK BOLEH KOSONG", _ vbInformation + vbOKOnly, "Error" txtAlamat.SetFocus Else SQL = "" SQL = "SELECT * FROM karyawan WHERE nip = '" & txtNip.Text & "'" Set karyawan = New ADODB.Recordset karyawan.Open SQL, KonekDb, adOpenDynamic, adLockOptimistic If karyawan.BOF Then With karyawan .AddNew .Fields!nip = Trim(txtNip.Text) .Fields!nama = Trim(txtNama.Text) .Fields!tmp_lahir = Trim(TxtTmp_lahir.Text) .Fields!tgl_lahir = Trim(tgl_lahir.Value) .Fields!jenkel = Trim(cmbJenkel.Text) .Fields!agama = Trim(cmbAgama.Text) .Fields!alamat = Trim(txtAlamat.Text) .Fields!pdd_terakhir = Trim(cmbPdd.Text) .Fields!kd_jabatan = Trim(cmbKdjab.Text) .Fields!jabatan = Trim(TxtJab.Text) .Fields!status_ker = Trim(txtstatus_kerja.Text) .Update End With MsgBox "Data baru telah tersimpan", vbOKOnly + vbInformation, "INFO" Else
38
With karyawan MsgBox "Maaf, NIK yang anda masukan sudah ada.", vbOKOnly + vbInformation, "INFO" End With End If karyawan.Requery Call kosong Call mati End If End Sub
Private Sub Form_Load() Call BukaDatabase Call kosong Dim jabatan As New ADODB.Recordset jabatan.Open "select * from jabatan", _ KonekDb, adOpenDynamic, adLockOptimistic Do While Not jabatan.EOF cmbKdjab.AddItem jabatan!kd_jabatan jabatan.MoveNext Loop End Sub
39
LAMPIRAN 3
Source code Edit Data Karyawan Option Explicit Dim GridBaris As Byte Private Sub cmbKdjab_Click() Set jabatan = New ADODB.Recordset jabatan.Open " SELECT * FROM jabatan " _ & " WHERE kd_jabatan='" _ & cmbKdjab.Text & "' " _ , KonekDb, adOpenDynamic, adLockOptimistic
If jabatan.BOF Then MsgBox "Data Tidak Ditemukan!", _ vbOKOnly + vbInformation, "Error" Exit Sub Else txtJab.Text = jabatan!nm_jabatan End If End Sub Private Sub hidup() txtNip.Enabled = True TxtNama.Enabled = True TxtTmp_lahir.Enabled = True tgl_lahir.Enabled = True cmbJenkel.Enabled = True cmbAgama.Enabled = True txtAlamat.Enabled = True cmbPdd.Enabled = True cmbKdjab.Enabled = True
40
txtJab.Enabled = True txtstatus_kerja.Enabled = True End Sub Sub Tampilgkaryawan() Dim Baris As Integer Dim GridBaris As Byte gkaryawan.Clear Call Aktifgkaryawan gkaryawan.Row = 1 Baris = 0 Set karyawan = New ADODB.Recordset karyawan.Open "SELECT * FROM karyawan ", _ KonekDb, adOpenDynamic, adLockOptimistic If karyawan.BOF Then MsgBox "Tabel karyawan masih kosong!", _ vbOKOnly + vbInformation, "Perhatian" Exit Sub Else With karyawan .MoveFirst Do While Not .EOF On Error Resume Next Baris = Baris + 1 gkaryawan.Row = Baris + 1 gkaryawan.TextMatrix(Baris, 0) = Baris gkaryawan.TextMatrix(Baris, 1) = !nip gkaryawan.TextMatrix(Baris, 2) = !nama gkaryawan.TextMatrix(Baris, 3) = !alamat gkaryawan.TextMatrix(Baris, 4) = !jabatan gkaryawan.TextMatrix(Baris, 5) = !status_ker
41
.MoveNext Loop End With End If End Sub Sub Aktifgkaryawan() With gkaryawan .Cols = 6 .RowHeightMin = 300 .Col = 0 .Row = 0 .Text = "NO" .CellFontBold = True .ColWidth(0) = 500 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter .RowHeightMin = 300 .Col = 1 .Row = 0 .Text = "NIP" .CellFontBold = True .ColWidth(1) = 1200 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter .RowHeightMin = 300 .Col = 2 .Row = 0 .Text = "NAMA LENGKAP" .CellFontBold = True .ColWidth(2) = 2500
42
.AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter .Col = 3 .Row = 0 .Text = "ALAMAT" .CellFontBold = True .ColWidth(3) = 3340 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter .Col = 4 .Row = 0 .Text = "JABATAN" .CellFontBold = True .ColWidth(4) = 1900 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter .Col = 5 .Row = 0 .Text = "STATUS KERJA" .CellFontBold = True .ColWidth(5) = 1500 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter End With End Sub Private Sub mati() txtNip.Enabled = False TxtNama.Enabled = False TxtTmp_lahir.Enabled = False tgl_lahir.Enabled = False
43
cmbJenkel.Enabled = False cmbAgama.Enabled = False txtAlamat.Enabled = False cmbPdd.Enabled = False cmbKdjab.Enabled = False txtJab.Enabled = False txtstatus_kerja.Enabled = False End Sub Private Sub kosong() txtNip.Text = "" TxtNama.Text = "" TxtTmp_lahir.Text = "" tgl_lahir.Refresh cmbJenkel.Text = "" cmbAgama.Text = "" txtAlamat.Text = "" cmbPdd.Text = "" cmbKdjab.Text = "" txtJab.Text = "" End Sub
Private Sub cmdBatal_Click() Call kosong Call mati cmdEdit.Enabled = False cmdKeluar.Enabled = True cmdSimpan.Enabled = False cmdBatal.Enabled = False End Sub
44
Private Sub cmdEdit_Click() cmdEdit.Enabled = False cmdKeluar.Enabled = False cmdSimpan.Enabled = True cmdBatal.Enabled = True Call hidup End Sub
Private Sub cmdKeluar_Click() Unload Me frmkaryawan.Show End Sub
Private Sub cmdSimpan_Click() If txtNip.Text = "" Then MsgBox "NIP TIDAK BOLEH KOSONG!", _ vbInformation + vbOKOnly, "Error" txtNip.SetFocus ElseIf TxtNama.Text = "" Then MsgBox "NAMA TIDAK BOLEH KOSONG", _ vbInformation + vbOKOnly, "Error" TxtNama.SetFocus ElseIf TxtTmp_lahir.Text = "" Then MsgBox "TEMPAT LAHIR TIDAK BOLEH KOSONG", _ vbInformation + vbOKOnly, "Error" TxtTmp_lahir.SetFocus ElseIf txtAlamat.Text = "" Then MsgBox " ALAMAT TIDAK BOLEH KOSONG", _ vbInformation + vbOKOnly, "Error" txtAlamat.SetFocus
45
Else SQL = "" SQL = "SELECT * FROM karyawan WHERE nip = '" & txtNip.Text & "'" Set karyawan = New ADODB.Recordset karyawan.Open SQL, KonekDb, adOpenDynamic, adLockOptimistic
If karyawan.BOF Then With karyawan .AddNew .Fields!nip = Trim(txtNip.Text) .Fields!nama = Trim(TxtNama.Text) .Fields!tmp_lahir = Trim(TxtTmp_lahir.Text) .Fields!tgl_lahir = Trim(tgl_lahir.Value) .Fields!jenkel = Trim(cmbJenkel.Text) .Fields!agama = Trim(cmbAgama.Text) .Fields!alamat = Trim(txtAlamat.Text) .Fields!pdd_terakhir = Trim(cmbPdd.Text) .Fields!kd_jabatan = Trim(cmbKdjab.Text) .Fields!jabatan = Trim(txtJab.Text) .Fields!status_ker = Trim(txtstatus_kerja.Text) .Update End With MsgBox "DATA BARU TELAH TERSIMPAN", vbOKOnly + vbInformation, "INFO" Else With karyawan
.Fields!nip = Trim(txtNip.Text) .Fields!nama = Trim(TxtNama.Text) .Fields!tmp_lahir = Trim(TxtTmp_lahir.Text) .Fields!tgl_lahir = Trim(tgl_lahir.Value)
46
.Fields!jenkel = Trim(cmbJenkel.Text) .Fields!agama = Trim(cmbAgama.Text) .Fields!alamat = Trim(txtAlamat.Text) .Fields!pdd_terakhir = Trim(cmbPdd.Text) .Fields!kd_jabatan = Trim(cmbKdjab.Text) .Fields!jabatan = Trim(txtJab.Text) .Fields!status_ker = Trim(txtstatus_kerja.Text) .Update End With MsgBox "DATA KARYAWAN TELAH DIUBAH", vbOKOnly + vbInformation, "INFO" End If
karyawan.Requery Call kosong Call mati cmdEdit.Enabled = False cmdKeluar.Enabled = True cmdSimpan.Enabled = False cmdBatal.Enabled = False Call Tampilgkaryawan End If End Sub
Private Sub Form_Load() Call BukaDatabase Call Tampilgkaryawan Call kosong Call mati cmdEdit.Enabled = False cmdKeluar.Enabled = True
47
cmdSimpan.Enabled = False cmdBatal.Enabled = False Dim jabatan As New ADODB.Recordset jabatan.Open "select * from jabatan", _ KonekDb, adOpenDynamic, adLockOptimistic Do While Not jabatan.EOF cmbKdjab.AddItem jabatan!kd_jabatan jabatan.MoveNext Loop End Sub
Private Sub gkaryawan_DblClick() cmdEdit.Enabled = True cmdKeluar.Enabled = False cmdSimpan.Enabled = False cmdBatal.Enabled = True 'Call FormHidup 'txtKode.Enabled = False 'txtNama.SetFocus GridBaris = gkaryawan.Row Set karyawan = New ADODB.Recordset karyawan.Open " SELECT * FROM karyawan " _ & " WHERE nip='" _ & gkaryawan.TextMatrix(GridBaris, 1) & "' " _ , KonekDb, adOpenDynamic, adLockOptimistic If karyawan.BOF Then MsgBox "TABEL MASIH KOSONG!", _ vbOKOnly + vbInformation, "Error" Exit Sub
48
Else karyawan.MoveFirst Do While Not karyawan.EOF On Error Resume Next txtNip.Text = karyawan!nip TxtNama.Text = karyawan!nama TxtTmp_lahir.Text = karyawan!tmp_lahir tgl_lahir.Value = karyawan!tgl_lahir cmbJenkel.Text = karyawan!jenkel cmbAgama.Text = karyawan!agama txtAlamat.Text = karyawan!alamat cmbPdd.Text = karyawan!pdd_terakhir cmbKdjab.Text = karyawan!kd_jabatan txtJab.Text = karyawan!jabatan txtstatus_kerja.Text = karyawan!status_ker karyawan.MoveNext Loop End If End Sub
49
LAMPIRAN 4
Source code Hapus Data Karyawan Sub Tampilgkaryawan() Dim Baris As Integer Dim GridBaris As Byte gkaryawan.Clear Call Aktifgkaryawan gkaryawan.Row = 1 Baris = 0 Set karyawan = New ADODB.Recordset karyawan.Open "SELECT * FROM karyawan ", _ KonekDb, adOpenDynamic, adLockOptimistic If karyawan.BOF Then MsgBox "Tabel karyawan masih kosong!", _ vbOKOnly + vbInformation, "Perhatian" Exit Sub Else With karyawan .MoveFirst Do While Not .EOF On Error Resume Next Baris = Baris + 1 gkaryawan.Row = Baris + 1 gkaryawan.TextMatrix(Baris, 0) = Baris gkaryawan.TextMatrix(Baris, 1) = !nip gkaryawan.TextMatrix(Baris, 2) = !nama gkaryawan.TextMatrix(Baris, 3) = !alamat gkaryawan.TextMatrix(Baris, 4) = !jabatan
50
gkaryawan.TextMatrix(Baris, 5) = !status_ker .MoveNext Loop End With End If End Sub Sub Aktifgkaryawan() With gkaryawan .Cols = 6 .RowHeightMin = 300 .Col = 0 .Row = 0 .Text = "NO" .CellFontBold = True .ColWidth(0) = 500 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter .RowHeightMin = 300 .Col = 1 .Row = 0 .Text = "NIP" .CellFontBold = True .ColWidth(1) = 1200 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter .RowHeightMin = 300 .Col = 2 .Row = 0 .Text = "NAMA LENGKAP" .CellFontBold = True
51
.ColWidth(2) = 2500 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter .Col = 3 .Row = 0 .Text = "ALAMAT" .CellFontBold = True .ColWidth(3) = 3340 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter .Col = 4 .Row = 0 .Text = "JABATAN" .CellFontBold = True .ColWidth(4) = 1900 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter .Col = 5 .Row = 0 .Text = "STATUS KERJA" .CellFontBold = True .ColWidth(5) = 1500 .AllowUserResizing = flexResizeColumns .CellAlignment = flexAlignCenterCenter End With End Sub Private Sub mati() txtNip.Enabled = False TxtNama.Enabled = False TxtTmp_lahir.Enabled = False
52
tgl_lahir.Enabled = False cmbJenkel.Enabled = False cmbAgama.Enabled = False txtAlamat.Enabled = False cmbPdd.Enabled = False cmbKdjab.Enabled = False txtJab.Enabled = False txtstatus_kerja.Enabled = False End Sub Private Sub kosong() txtNip.Text = "" TxtNama.Text = "" TxtTmp_lahir.Text = "" tgl_lahir.Refresh cmbJenkel.Text = "" cmbAgama.Text = "" txtAlamat.Text = "" cmbPdd.Text = "" cmbKdjab.Text = "" txtJab.Text = "" End Sub
Private Sub cmbKdjab_Click() Set jabatan = New ADODB.Recordset jabatan.Open " SELECT * FROM jabatan " _ & " WHERE kd_jabatan='" _ & cmbKdjab.Text & "' " _ , KonekDb, adOpenDynamic, adLockOptimistic If jabatan.BOF Then MsgBox "Data Tidak Ditemukan!", _
53
vbOKOnly + vbInformation, "Error" Exit Sub Else txtJab.Text = jabatan!nm_jabatan End If End Sub
Private Sub CmdHapus_Click() Tanya = MsgBox("YAKIN AKAN MENGHAPUS DATA INI?" & vbCrLf & "" _ & "NIP : " & txtNip.Text + vbCrLf & "" _ & "NAMA : " & TxtNama.Text + vbCrLf & "", _ vbYesNo + vbQuestion, "Waspada") If Tanya = vbYes Then SQL = "DELETE FROM karyawan WHERE " _ & " nip='" & txtNip.Text & "'" KonekDb.Execute SQL, , adCmdText karyawan.Requery Call kosong Call mati Call Tampilgkaryawan Else Call kosong End If CmdHapus.Enabled = False cmdKeluar.Enabled = True End Sub
Private Sub cmdKeluar_Click() Unload Me frmkaryawan.Show
54
End Sub
Private Sub Form_Load() Call BukaDatabase Call Tampilgkaryawan Call kosong Call mati CmdHapus.Enabled = False cmdKeluar.Enabled = True Dim jabatan As New ADODB.Recordset jabatan.Open "select * from jabatan", _ KonekDb, adOpenDynamic, adLockOptimistic Do While Not jabatan.EOF cmbKdjab.AddItem jabatan!kd_jabatan jabatan.MoveNext Loop End Sub
Private Sub gkaryawan_DblClick() CmdHapus.Enabled = True cmdKeluar.Enabled = False 'Call FormHidup 'txtKode.Enabled = False 'txtNama.SetFocus GridBaris = gkaryawan.Row Set karyawan = New ADODB.Recordset karyawan.Open " SELECT * FROM karyawan " _ & " WHERE nip='" _ & gkaryawan.TextMatrix(GridBaris, 1) & "' " _ , KonekDb, adOpenDynamic, adLockOptimistic
55
If karyawan.BOF Then MsgBox "TABEL MASIH KOSONG!", _ vbOKOnly + vbInformation, "Error" Exit Sub Else karyawan.MoveFirst Do While Not karyawan.EOF On Error Resume Next txtNip.Text = karyawan!nip TxtNama.Text = karyawan!nama TxtTmp_lahir.Text = karyawan!tmp_lahir tgl_lahir.Value = karyawan!tgl_lahir cmbJenkel.Text = karyawan!jenkel cmbAgama.Text = karyawan!agama txtAlamat.Text = karyawan!alamat cmbPdd.Text = karyawan!pdd_terakhir cmbKdjab.Text = karyawan!kd_jabatan txtJab.Text = karyawan!jabatan txtstatus_kerja.Text = karyawan!status_ker karyawan.MoveNext Loop End If End Sub
56
