PERANCANGAN DATABASE PEMBAYARAN NON DAFTAR PEMBAYARAN DENGAN MENGGUNAKAN VISUAL BASIC PADA PT. TASPEN (PERSERO) CABANG BANDA ACEH
SKRIPSI Di ajukan untuk melengkapi tugas dan memenuhi syarat-syarat guna memperoleh gelar Sarjana Komputer STMIK U’Budiyah Indonesia
Diajukan Oleh Ade Rizqa Rivana 121020220018
PROGRAM STUDI S1 SISTEM INFORMASI SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER STMIK U’BUDIYAH INDONESIA BANDA ACEH 2013
LEMBAR PERNYATAAN
Saya menyatakan bahwa skripsi yang saya susun, sebagian 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 berlaku, apabila dikemudian hari ditemukan adanya plagiat dalam skripsi ini.
Banda Aceh, September 2013
Ade Rizqa Rivana 121020220018
KATA PENGANTAR Alhamdulillah dengan rahmat dan karunia serta pertolongan Allah SWT. Shalawat dan salam penulis sanjungkan kepada Nabi Besar Muhammad SAW, yang telah membawa kita dari alam jahiliyah ke alam yang penuh berilmu kepengetahuan, sehingga penulis telah mampu menyelesaikan proposal seminar judul skripsi ini dengan judul “PERANCANGAN DATABASE
PEMBAYARAN NON
DAFTAR PEMBAYARAN DENGAN MENGGUNAKAN VISUAL BASIC PADA PT. TASPEN (PERSERO) CABANG BANDA ACEH” Dan dalam penyelesaian penulisan proposal ini tidak lupa penulis menyampaikan terima kasih kepada banyak pihak yang telah membantu memberikan dorongan baik secara moral maupun spiritual. Terima kasih dan penghargaan yang sebesarbesarnya penulis ucapkan kepada: 1. Dosen Pembimbing I yaitu Bapak Dedi satria,M.Sc yang telah memberikan pengarahan dan semangat kepada saya disaat pengajuan proposal ini. 2. Orang tua saya yaitu Ibu kandung yang sangat banyak memberikan perhatian untuk saya bisa melanjutkan program studi gelar sarjana ini. 3. Teman-teman seleting dan seangkatan di kampus U’Budiayah juga berperan memberikan informasi penting dalam pengajuan proposal skripsi ini. 4. Seluruh dosen nonreg U’Budiyah 2012-2013 serta seluruh staf U’Budiyah. Lebih dan kurang dalam penulisan ini mungkin masih jauh dari kesempurnaan, maka dengan segala kerendahan hati, penulis mengharapkan saran dan kritikan yang bersifat membangun dari semua semua pihak demi kesempurnaan proposal skripsi ini. Semoga Allah SWT membalas jasa baik yang telah disumbangkan oleh semua pihak . Amin yaa Rabbal’alamin… Banda Aceh 24 April 2013
Ade Rizqa Rivana
ABSTRAK Perkembangan teknologi informasi saat ini sangat cepat, sehingga berpengaruh terhadap tata cara kerja diperkantoran dalam suatu perusahaan. Pada waktu pengolahan data dengan cepat, tepat dan akurat. Oleh karena itu tertarik membahas masalah dengan laporan ini tentang Pembuatan Database Pembayaran NonDapem dengan menggunakan Visual Basic pada PT. TASPEN (PERSERO) KANTOR CABANG BANDA ACEH. Dalam memperkuat penulisan laporan ini, penulis megumpulkan data melalui buku-buku, literatur dan sumber dari internet sekaligus observasi dan wawancara langsung selama praktek kerja lapangan. Hasil dari penulisan laporan ini adalah dapat mempermudah menginput data, menghemat waktu, tenaga, biaya dan tempat penyimpanan berkas.
Kata Kunci : Taspen, Daftar Pembayaran.
DAFTAR ISI Halaman HALAMAN JUDUL...............................................................................................i HALAMAN PENGESAHAN...............................................................................ii LEMBAR PERSETUJUAN.................................................................................iii LEMBAR PERNYATAAN..................................................................................iv KATA PENGANTAR............................................................................................v ABSTRAK.............................................................................................................vi DAFTAR ISI.........................................................................................................vii DAFTAR GAMBAR...........................................................................................viii DAFTAR TABEL.................................................................................................ix
BAB I PENDAHULUAN 1.1 Latar Belakang.............................................................................................1 1.2 Batasan Masalah..........................................................................................2 1.3 Perumusan Masalah.....................................................................................2 1.4 Tujuan Pembahasan.....................................................................................3 1.5 Sistematika Penulisan..................................................................................3 BAB II LANDASAN TEORITIS 2.1 Sejarah Singkat PT. TASPEN (PERSERO) Cabang Banda Aceh............4 2.2 Bidang Usaha..............................................................................................5 2.3 Struktur Organisasi......................................................................................6 2.4 Landasan Teori..........................................................................................12 2.5 Data Flow Diagram...................................................................................16 2.6 Entity Relation Diagram ...........................................................................17 2.7 Pengertian Non Daftar Pembayaran..........................................................18
BAB III METODOLOGI PENELITIAN 3.1 Latar Belakang Penelitian.........................................................................19 3.2 Ruang Lingkup Penelitian.........................................................................19 3.3 Waktu Dan Tempat Penelitian..................................................................19 3.4 Metode Pengumpulan Data......................................................................20 3.5 Usulan Perancangan Sistem......................................................................21 3.6 Tujuan Perancangan Sistem......................................................................21 3.7 Perancangan Prosedur...............................................................................22 3.8 Flow Map..................................................................................................23 3.9 Perancangan Basis Data............................................................................25 3.10 Aliran Informasi......................................................................................26 BAB IV PENELITIAN DAN PEMBAHASAN 4.1 Tampilan Form Login.............................................................................29 4.2 Tampilan Form Menu Utama.................................................................29 4.3 Tampilan Form Tambah User Baru........................................................30 4.4 Tampilan Form Tabungan Hari Tua (THT) ...........................................31 4.5 Tampilan Form Edit Tabungan Hari Tua (THT)....................................31 4.6 Tampilan Form Pensiun..........................................................................32 4.7 Tampilan Edit Form Pensiun..................................................................33 4.8 Tampilan Form Kartu Identitas Pegawai (KARIP)................................33 4.9 Tampilan Form Edit Kartu Identitas Pegawai (KARIP)........................34 4.10 Tampilan Form Pencarian Data Pensiun................................................35 4.11 Tampilan Form Laporan Data Tabungan Hari Tua (THT).....................35 4.12 Tampilan Form Laporan Data Pensiun...................................................36 4.13 Tampilan Form Laporan DataKartu Identitas Pegawai (KARIP)..........36 BAB V PENUTUP 5.1 Kesimpulan................................................................................................37 5.2 Saran..........................................................................................................37 DAFTAR PUSTAKA.........................................................................................38 BIODATA PENULIS.........................................................................................39
DAFTAR GAMBAR Halaman Gambar 2.1. Komponen DFD Menurut Yourdan dan DeMarco...........................17 Gambar 2.2. Simbol Entity Relation Diagram (Diagram ER)...............................18 Gambar 3.1. Flow Map Berkas Masuk..................................................................24 Gambar 3.2. Entity Relationship Diagram (ERD).................................................25 Gambar 3.3. Diagram Konteks..............................................................................26 Gambar 3.4. DFD Level 1.....................................................................................27 Gambar 3.5. DFD Level 2 Proses Berkas Masuk..................................................28 Gambar 4.1. Tampilan Form Login.......................................................................29 Gambar 4.2. Tampilan Form Menu Utama............................................................30 Gambar 4.3. Tampilan Form Tambah User dan Passwoord Baru.........................30 Gambar 4.4. Tampilan Form Tabungan Hari Tua (THT)......................................31 Gambar 4.5. Tampilan Form Edit Tabungan Hari Tua (THT)..............................32 Gambar 4.6. Tampilan Form Pensiun....................................................................32 Gambar 4.7. Tampilan Form Edit Pensiun.............................................................33 Gambar 4.8. Tampilan Form Kartu Identitas Pegawai (Karip)..............................34 Gambar 4.9. Tampilan Form Edit Kartu Identitas Pegawai (Karip)......................34 Gambar 4.10. Tampilan Form Pencarian Data Pensiun.........................................35 Gambar 4.11. Tampilan Form Hasil Laporan Data Tabungan Hari Tua (THT)....35 Gambar 4.12. Tampilan Form Hasil Laporan Data Pensiun..................................36 Gambar 4.13. Tampilan Form Hasil Laporan Data Kartu Tanda Pensiun (KARIP) .............................................................................................................................. 36
DAFTAR TABEL Halaman Tabel 3.1 Waktu Pelaksanaan Penelitian................................................................20
BAB 1 PENDAHULUAN
1.1 Latar Belakang Komputer memegang pengaruh yang penting untuk mengolah data dan informasi, sehingga berpengaruh terhadap tata cara kerja di perkantoran dalam suatu perusahaan. Dalam pemanfaat teknologi komputer merupakan suatu keharusan oleh setiap perusahaan untuk mencapai tujuan bisnisnya, tanpa ada pemanfaat teknologi dalam suatu perusahaan atau organisasi maka setiap aktivitas ataupun hal-hal yang berkaitan dengan operasional sebuah perusahaan akan sangat tidak efisien. Pada dasarnya setiap instansi Swasta atau Pemerintah yang melakukan kegiatan pengolahan data memerlukan sebuah sistem aplikasi, dalam hal ini pada PT TASPEN (PERSERO) KANTOR CABANG BANDA ACEH sudah menggunakan fasilitas komputer yang dimaksudkan untuk mengurangi tingkat kesalahan dalam proses pengolahan data. Sehingga dalam melakukan proses pengolahan data dapat berlangsung tepat dan akurat, namun hal tersebut sangat tergantung pada pimpinan dalam mengatur sebuah sistem aplikasi. Oleh karena itu diperlukan pengaturan dan aktivitas secara baik dalam menerapkan suatu sistem aplikasi alat bantu untuk menjalankan sebuah sistem aplikasi dalam pengolahan data adalah sangat efektif baik dari pengolahan data, menambah data maupun mengambil data yang disimpan untuk sebuah rancangan dari sebuah sistem aplikasi.
Berdasarkan uraian di atas, penulis tertarik untuk membahas permasalahan tersebut dalam bentuk penulisan laporan dengan judul
“PERANCANGAN
DATABASE PEMBAYARAN NON DAFTAR PEMBAYARAN DENGAN MENGGUNAKAN VISUAL BASIC PADA PT. TASPEN (PERSERO) CABANG BANDA ACEH”. Non Daftar Pembayaran adalah daftar bukan penerima pensiun bulanan rutin. Semua pembayara yang dilakukan oleh Taspen kepada setiap pensiun disebut Non Daftar Pembayaran.
1.2 Batasan Masalah Pembahasan yang telalu umum akan membuat permasalahan semakin tidak jelas dan tidak terarah, dalam pembahasan ini yang menjadi pembahasan bagaimana
pembuatan
database
pembayaran
Non
Daftar
Pembayaran
menggunakan Visual Basic pada PT. TASPEN (PERSERO) CABANG BANDA ACEH.
1.3 Perumusan Penulisan Adapun Perumusan Masalah dari Tugas Akhir ini adalah :. Bagaimana prosedur Non Daftar Pembayaran dapat dituangkan dalam membangun
Sistem
Aplikasi
Menggunakan Visua Basic.
Database
Non
Daftar
Pembayaran
1.4 Tujuan Pembahasan Adapun tujuan penulisan laporan ini adalah untuk merancang aplikasi Database untuk pembayaran Non Daftar Pembayaran pada PT. TASPEN (Persero) Cabang Banda Aceh.
1.5 Sistematika Penulisan Berikut sistematika penyusunan tugas akhir yang akan disusun : BAB I PENDAHULUAN Pada bab ini memuat tentang latar belakang masalah, batasan masalah, perumusan masalah, tujuan dan manfaat penulisan, serta sistematika penulisan. BAB II TINJAUAN KEPUSTAKAAN Pada bab ini dibahas tentang gambaran umum instansi, mencakup sejarah dan struktur organisasi, kajian kepustakaan, mekanisme pengolahan data secara manual. BAB III METODE PENELITIAN Dalam
bab
ini
dibahas
tentang
metodelogi
penelitian,
tahapan
pengumpulan data, alat – alat yang digunakan dalam analisa data. BAB IV MEMBANGUN SISTEM APLIKASI DAN PEMBAHASAN Pembahasan pada bab ini tentang membangun sistem aplikasi pencatatan surat meliputi diagram konteks, diagram fungsional dan flowcart sistem serta tampilan aplikasi pencatatan berkas masuk. BAB V PENUTUP Membahas tentang kesimpulan berdasarkan pembahasan sebelumnya serta saran untuk pengembangan program, lembaga maupun untuk instansi
BAB II
LANDASAN TEORITIS 2.1 Sejarah Singkat TASPEN (PERSERO) Cabang Banda Aceh Berdasarkan Peraturan Pemerintah Nomor : 15 / 1963 didirikan sebuah Badan Usaha Milik Negara untuk mengelola kesejahteraan Pegawai Negeri Sipil, pada tanggal 17 April 1963 dengan bentuk Perusahaan Negara yang disebut PN TASPEN. Pada tahun 1970 status hukum PN TASPEN disesuaikan, yang berdasarkan
Keputusan
Menteri
Keuangan
Republik
Indonesia
Nomor
749/KM/IV/1970 tanggal 18 November 1970 disebut dengan PERUM TASPEN. Selanjutnya berdasarkan Peraturan Pemerintah Nomor 26//1981 tanggal 30 Juli 1981 diubah lagi statusnya menjadi Perseroan yaitu PT TASPEN (PERSERO). Sementara itu, sesuai dengan Surat Keputusan Menteri Keuangan Nomor : 702/KMK.03/1987 tanggal 31 Oktober 1987 dan SK Menteri Dalam Negeri Nomor : 842.1-1402 tanggal 14 November 1987 tentang penugasan TASPEN untuk menyelenggarakan Pembayaran Pensiun Pusat dan Daerah di Wilayah Sumatera, maka dibukalah Kantor Cabang TASPEN di Banda Aceh,
dengan
wilayah kerja se - Provinsi Nanggroe Aceh Darussalam. TASPEN Kantor Cabang Banda Aceh beroperasi awal Desember 1987 di Jl. Majid Ibrahim II nomor 8, kemudian pindah dan menempati gedung baru pada awal Januari 1993 dengan alamat Jl. Tgk. Abdullah Ujong Rimba No.22 Banda Aceh. Saat terjadinya peristiwa gempa dan tsunami pada tanggal 26 Desember 2004, maka segala aktivitas ketaspenan pun terhenti. Untuk menjaga kekosongan
dalam hal pelayanan pasca gempa dan tsunami, maka kurang lebih selama satu bulan pelayanan dialihkan di Kantor Cabang Utama Medan. Jauhnya jarak Banda Aceh dengan Medan mengakibatkan kendala dalam memberikan pelayanan kepada peserta dengan banyaknya peserta yang mengalami musibah sehingaa jumlah pengajuan klim meningkat. Oleh karena itu, mulai bulan Februari 2005 pelayanan dilakukan dengan menyewa gedung di Jl. Residen Danubroto No.34 Banda Aceh sampai proses pembangunan gedung baru selesai di Jl. Tgk.Abdullah Ujong Rimba No.22 Banda Aceh.
2.2 Bidang Usaha Program yang dikelola oleh PT. TASPEN ( Persero ) Cabang Banda Aceh adalah: 1. Program Tabungan Hari Tua (THT) suatu program asuransi terdiri dari Tabungan Dwiguna yang berkaitan dengan usia pensiun ditambah dengan Asuransi Kematian. Tujuannya untuk meningkatkan kesejahteraan Pegawai Negeri Sipil dan keluarganya dengan memberikan jaminan keuangan bagi peserta pada waktu mencapai usia pension atau bagi ahli warisnya (suami/ istri/ anak/ orang tua) pada waktu peserta meninggal dunia sebelum usia pension (pesert meninggal dunia dimasa aktif bekerja) 2. Program Pensiun Tujuannya untuk memberikan jaminan hari tua bagi Pegawai Negeri/ Peserta Taspen pada saat mencapai usia pension dan sebagai penghargan
atas jasa-jasa Pegawai Negeri/ Peserta kepada Negara setelah yang bersangkutan memberikan pengabdiannya kepada Negara.
2.3 Struktur Organisasi Banyak orang percaya, bahwa seorang manager atau seorang pegawai yang baik, haruslah mampu melaksanakan tugas dengan baik, dengan memandang struktur organisasi dan lingkungan karena dengan adanya struktur organisasi yang baik tentu akan menolong untuk mencapai pelaksanaan tugas yang baik dalam organisasi, yaitu berguna dalam pembagian tugas, wewenang dan tanggung jawab yang terpisah. Dalam hal ini penulis terlebih dahulu membahas beberapa pendapat para ahli tentang batasan / pengertian organisasi sebagai landasan teoritis dalam pembahasan ini. Menurut Stoner pengertian tentang organisasi yaitu: “Organisasi adalah suatu pola hubungan-hubungan yang melalui mana orangorang di bawah pengarahan manajer mengejar tujuan bersama.”. Adapun pengertian organisasi menurut James D. Mooney yaitu “Organisasi adalah bentuk setiap perserikatan manusia untuk mencapai tujuan bersama.”. Menurut Chester I. Bernard mendefinisikan organisasi sebagai berikut : “Organisasi merupakan suatu sistem aktivitas kerja sama yang dilakukan oleh dua orang atau lebih. ”. Struktur organisasi yang ada pada PT. Taspen (persero) Cabang Banda Aceh adalah struktur organisasi segaris. Dalam organisasi digambarkan secara jelas tugas dan tanggung jawab masing-masing bagian dan sangat sesuai dengan
PT. Taspen Cabang Banda Aceh ini. Sehingga dalam mengambil keputusan dapat dilakukan dengan tepat karena adanya suatu kesederhanaan yang tercipta pada struktur organisasi tersebut. Dari struktur organisasi kantor Cabang Banda Aceh tersebut dapat dilihat bahwa pinjaman perusahaan dibantu oleh Kepala Bidang Pelayanan, Kepala Bidang Keuangan, Kepala Bidang Personalia dan Umum serta ditunjang oleh Kasie-Kasie yang bertanggung jawab terhadap pekerjaan masing – masing yaitu : Kasie Klim, Kasie Administrasi Peserta dan Pemasaran, Kasie Administrasi Keuangan, Kasie Keuangan, Kasie Personalia, Kasie Umum, Kasie SI (Sentral Informasi). Struktur organisasi PT. Taspen (Persero) kantor cabang Banda Aceh terdiri atas : Kepala Cabang Kepala Bidang Pelayanan, membawahi Seksi Penetapan Klim dan Seksi Data Peserta dan Pemasaran Kepala Bidang Keuangan, membawahi Seksi Keuangan dan Seksi Administrasi Keuangan Kepala Bidang Personalia dan Umum, membawahi Seksi Umum dan Seksi Personalia Kepala Bidang Sistem Informasi
Berikut ini di jelaskan tugas dan tanggung jawab mereka masing – masing :
a. Kepala Kantor Cabang kepala kantor cabang merupakan pemimpin tertinggi dicabangnya yang mempunyai tugas pokok membantu Dewan Direksi serta bertanggung jawab atas pelaksanaan seluruh kegiatan operasional kantor cabang. -
Bertindak untuk dan atas nama dewan direksi serta mengikat cabang dengan pihak lain atas persetujuan dari dewan direksi PT. Taspen (Persero)
-
Membantu menjabarkan pelaksanaan perusahaan yang menyangkut kegiatan kantor cabang.
-
Memberikan arahan serta pembinaan jajaran dibawahnya yang menjadi tanggung jawabnya.
-
Bertanggung jawab terhadap pembinaan usaha kecil dan koprasi dalam unit kerjanya.
-
Bertanggung jawab atas penilaian, pembinaan dan peningkatan mutu karyawan di unit kerjanya.
-
Bertanggung jawab terhadap penyelesaian catatan identifikasi masalah yang berkaitan dengan mutu.
-
Melaksanakan kebijakan lain yang dibebankan oleh Dewan Direksi.
b. Kepala Bidang Pelayanan Bidang pelayanan dengan nama jabatan kepala bidang pelayanan mempunyai tugas pokok membantu kepala kantor cabang serta bertanggung jawab atas seluruh kegiatan dibidang pelayanan.
Uraian tugas dari kepala bidang pelayanan adalah sebagai berikut : -
Merencanakan dan mengkoordinasikan pelaksanaan kegiatan pelayanan dan pemasaran.
-
Mengkoordinasikan kegiatan pengumpulan, pengelolaan dan penyajian data peserta program Taspen.
-
Menyetujui besarnya tagihan premi peserta program Taspen.
-
Menyetujui keabsahan dan klim yang diajukan.
-
Bertanggung jawab atas terselenggaranya kegiatan bidang pelayanan. Bidang pelayanan ini mempunyai kasie yang membawahinya yaitu Kasie
Penetapan Klim, dan Kasie Data Peserta dan Pemasaran Program Taspen.
a. Kepala Seksi Penetapan Klim kepala seksi ini mempunyai tugas pokok membantu kepala bidang pelayanan serta bertanggung jawab atas pelaksanaan seluruh kegiatan seksi penetapan klim. Secara rinci uraian tugas dari kepala seksi ini adalah : -
Mengesahkan kebenaran pengajuan klim manfaat program Taspen.
-
Menetapkan besarnya klim manfaat program Taspen.
-
Bertanggung jawab atas terselenggaranya kegiatan seksi penetapan klim.
-
Bertanggung jawab atas pelaksanaan pimpinan dan peningkatan mutu karyawan yang dibawahinya.
b. Kepala Seksi Data Peserta Dan Karyawan Kepala seksi ini mempunyai tugas pokok membantu kepala bidang pelayanan serta bertanggung jawab atas pelaksanaan seluruh kegiata seksi data peserta dan pemasaran. Secara rinci uraian tugas seksi ini adalah: -
Mengkoordinasikan kegiatan pengadministrasian dan pemeliharaan data peserta program Taspen.
-
Melakukan kegiatan pertanggungan dari calon peserta program Taspen.
-
Menetapkan besarnya tagihan premi peserta program Taspen.
-
Menganalisa dan mengendalikan data peserta program Taspen.
-
Bertanggung jawab atas terselenggaranya kegiatan administrasi data peserta dan pemasaran.
-
Bertanggung jawab atas pelaksanaan dan peningkatan mutu karyawan yang dibawahinya.
c. Kepala Bidang Keuangan Kepala bidang ini mempunyai tugas pokok membantu kepala kantor cabang serta bertanggung jawab atas seluruh kegiatan keuangan. Uraian tugas dari kepala bidang keuangan sebagai berikut : -
Merencanakan dan mengkoordinasikan penyelenggaraan fungsi – fungsi keuangan kantor cabang.
-
Merencanakan dan mengendalikan keuangan kantor cabang.
-
Menyelenggarakan kegiatan akutansi dan penyusunan laporan keuangan kantor cabang.
-
Menyelenggarakan kegiatan perbendaharaan kantor cabang.
-
Bertanggung jawab atas pelayanan kualitas terhadap peserta.
-
Melaksanakan pelayanan sesuai prosedur
yang
telah ditetapkan,
menverifikasi dan melaporkan kepada menejemen kantor cabang. -
Bertanggung jawab atas pelaksanaan pembinaan dan peningkatan mutu karyawan yang dibawahnya.
Bidang keuangan mempunyai dua Kasie yang membawahinya yaitu Kasie Keuangan dan Kasie Administrasi Keuangan.
a.
Kepala Seksi Keuangan Kepala seksi ini mempunyai tugas pokok membantu kepala bidang
keuangan serta bertanggung jawab pelaksanaan kegiatan seksi keuangan. Uraian tugas kepala seksi ini secara rinci adalah : -
Menyiapkan dan mengendalikan penerimaan dan pengeluaran (cash flow) kantor cabang.
-
Menerima dan mengeluarkan pembayaran atas perintah kepala bidang keuangan.
-
Melakukan tugas verifikasi sebagai langkah pre-audit transaksi keuangan di kantor cabang. Melakukan penagihan premi kantor cabang.
-
Bertanggung jawab atas terselenggaranya kegiatan seksi keuangan.
-
Bertanggung jawab atas pelaksanaan pembinaan dan peningkatan mutu karyawan yang dibawahinya.
b. Kepala Seksi Administrasi Keuangan kepala seksi ini mempuyai tugas pokok pembantu kepala bidang keuangan serta bertanggung jawab atas seluruh kegiatan seksi administrasi keuangan. Uraian tugas secara rinci dari kepala seksi administrasi adalah: -
Mengkoordinasikan kegiatan bidang personalia dan umum.
-
Menyelenggarakan administrasi aktiva tetap kantor cabang.
-
Melakukan rekonsiliasi bank dan pengecekan terhadap catatan pembukuan program taspen.
-
Bertanggung jawab atas terlaksananya dan peningkatan mutu karyawan yang dibawahinya.
2.4 Landasan Teori 2.4.1
Pengertian Pemograman Pemograman adalah proses menulis, menguji dan memperbaiki (debug),
dan memelihara kode yang membangun sebuah program komputer. Kode ini ditulis dalam berbagai bahasa pemrograman. Tujuan dari pemrogram adalah untuk memuat suatu program yang dapat melakukan suatu perhitungan atau 'pekerjaan' sesuai dengan keinginan programer. Bahasa pemrograman yang berbeda mendukung gaya pemrograman yang berbeda pula. Gaya pemrograman ini biasa disebut paradigma pemrograman. Apakah memprogram perangkat lunak lebih merupakan seni, ilmu, atau teknik telah lama diperdebatkan. Pemrogram yang baik biasanya mengkombinasikan tiga hal tersebut, agar dapat menciptakan program yang efisien, baik dari sisi waktu berjalan (running time), atau memori. (Jeni, 2012). Instruksi (statement) adalah
syntax (cara penulisan) sesuai dengan bahasa pemrograman yang digunakan yang mempunyai komponen-komponen : Input, Output, Proses, Percabangan dan Perulangan. Bahasa Pemrograman adalah alat untuk membuat program. Contoh: C, C++, C#, Pascal, Basic, Perl, PHP, ASP, JHP, Java, dll. Perbedaan: cara memberikan instruksi. Persamaan: bertujuan menghasilkan output yang sama.
2.4.2 Pengertian Sistem Informasi Sistem Informasi (SI) adalah kombinasi dari teknologi informasi dan aktivitas orang yang menggunakan teknologi itu untuk mendukung operasi dan manajemen. Dalam arti yang sangat luas, istilah sistem informasi yang sering digunakan merujuk kepada interaksi antara orang, proses algoritmik, data, dan teknologi. Sistem informasi adalah suatu sistem dalam suatu organisasi yang mempertemukan kebutuhan pengolahan transaksi harian yang mendukung fungsi operasi organisasi yang bersifat manajerial dengan kegiatan strategi dari suatu organisasi untuk dapat menyediakan kepada pihak luar tertentu dengan informasi yang diperlukan untuk pengambilan keputusan. Sistem informasi dalam suatu organisasi dapat dikatakan sebagai suatu sistem yang menyediakan informasi bagi semua tingkatan dalam organisasi tersebut kapan saja diperlukan. Sistem ini menyimpan, mengambil, mengubah, mengolah
dan
mengkomunikasikan
informasi
yang
diterima
dengan
menggunakan sistem informasi atau peralatan sistem lainnya. (Ferdinand, 2012: Sistem Informasi).
2.4.3 Pengertian Arsip Menurut
(Armasyah,
2005)
menyatakan
“Arsip
adalah
setiap
catatan/record/warkat yang tertulis, tercetak atau ketikan dalam bentuk huruf, angka atau gambar, yang mempunyai arti dan tujuan tertentu sebagai bahan komunikasi dan informasi yang terekam pada kertas, media komputer piringan dan kertas fotocopy. Berdasarkan uraian diatas dapat didefinisikan bahwa arsip adalah naskah-naskah atau dokumen-dokumen sebagai pusat ingatan dari berbagai kegiatan atau organisasi dimana naskah-naskah tersebut disimpan sebaik mungkin secara sistematis ditempat yang telah disediakan agar lebih mudah dicari apabila diperlukan kembali.
2.4.4 Pengertian Data Data adalah suatu istilah majemuk dari kata Datum yang berarti fakta atau bagian fakta yang mengandung arti yang di hubungakan dengan kenyataan, gambaran, kata-kata, huruf-huruf atau yang menunjukkan suatu ide. Baridwan, (1993) menyatakan bahwa “data dalah sebagai kumpulan karakter, fakta atau jumlah yang merupakan masukan bagi suatu system informasi”, sedangkan Menurut Kadir, (1999) “Data adalah fakta mengenai objek orang dan lain-lain”. Selanjutnya menurut Vincent, (1988) menerangkan data adalah “Faktafakta terpisah yang harus digabung terlebih dahulu dengan cara tersendiri agar data-data tersebut mempunyai arti”.
Dari pengertian diatas penulis dapat menyimpulkan bahwa data adalah fakta mengenai objek atau orang lain, yang kemudian diproses sehingga menghasilkan suatu informasi yang lebih berguna.
2.4.5 Pengertian Komputer Istilah komputer berasal dari bahasa latin yaitu “Compute” yang artinya alat hitung, akan tetapi komputer sendiri mempunyai arti sebagai suatu alat elektronika yang berfungsi untuk mengolah data dengan bantuan operator system untuk menghasilkan informasi. Rusmadi, (2000) mengemukakan bahwa “komputer adalah suatu alat yang dapat mengolah data dengan perantaraan program dan memberikan hasil informasi yang di inginkan”. Baridwan, (1990) komputer adalah “alat bantu yang bermanfaat dalam pengolahan data dan informasi, hal ini dapat terjadi karena kemampuan untuk mengolah data lebih jauh dibanding dengan kecepatan manusia”. Berdasarkan definisi diatas penulis menyimpulkan bahwa komputer sebagai sekumpulan alat logic yang dapat menerima data, mengolah data dan menyimpan data dengan menggunakan program yang terdapat pada memori system komputer kemudian memberikan hasil pengolahan tersebut dalam bentuk output setelah itu untuk keluaran dalam bentuk informasi.
2.4.6 Pengertian Database Database adalah kumpulan informasi yang disusun berdasarkan cara tertentu dan merupakan satu kesatuan yang utuh. Dengan system tersebut data
yang terhimpun dalam suatu database dapat menghasilkan
informasi yang
berguna. Menurut Budi, (2004) mengatakan bahwa Database adalah sekumpulan data atau informasi yang terdiri atas satu atau lebih tabel yang saling berhubungan antara satu dengan yang lainnya, dan kita dapat ,mengakses data tersebut, baik menambah, mengganti, menghapus dan mengedit data dalam tabel-tabel tersebut. Menurut Elmasari, (1994) Database adalah kumpulan informasi yang menyangkut suatu topic tertentu. Database dapat diartikan sebagai kumpulan data tentang suatu benda atau kejadian yang saling berhubungan satu sama lain. Definisi tentang database basis data mempunyai berbagai sumber data dalam pengumpulan data, bervariasi interaksi kejadian dari dunia nyata, dirancang dan dibangun agar dapat digunakan oleh beberapa pemakai untuk berbagai kepentingan.
2.5 Data Flow Diagram (DFD) Data flow diagram adalah suatu diagram yang menggunakan notasi-notasi untuk menggambarkan arus dari data system yang penggunaanya sangat membantu untuk memahami secara logika, terstruktur dan jelas. DFD merupakan salah satu alat pembuatan model yang sering digunakan, khsusnya bila fungsifungsi system yang merupakan bagian yang lebih penting dan kompleks dari pada data yang dimanipulasi oleh system. Dengan kata lain,
DFD adalah alat
pembuatan model yang memberikan penekanan hanya pada fungsi system.
Komponen DFD menurut Yourdan dan DeMarco : Simbol
Arti Satuan luar, satuan kesatuan atau entitas terlibat Proses : simbol proses atau kegiatan yang dilaksanakan oleh orang atau mesin komputer. Arah Arus Data, Arus informasi yang masuk dan keluaran antar bagian dan antar pemyimpanan Simpanan data symbol baru media penyimpanan data.
Gambar 2.1. Komponen DFD Menurut Yourdan dan DeMarco
2.6 Entity Relation Diagram (Diagram ER) Entity Relation Diagram adalah salah satu tehnik pemodelan data dengan cara menentukan data apa saja yang terdapat dalam suatu entity dan hubungan antar entity. Berikut simbol yang ada pada ERD
Simbol
Keterangan Entitas terlibat Relasi antar entitas
Atribut Penghubung Entitas dengan relasi, Entitas dengan atribut Atribut turunan
Atribut Key (kunci)
Atribut Komposisi
Gambar 2.2. Simbol Entity Relation Diagram (Diagram ER) 2.7 Pengertian Non Daftar Pembayaran Non Daftar Pembayaran adalah pembayaran pensiun yang bukan Dapem induk. Yang termasuk Pembayaran Non Daftar Pembayaran adalah 1 Dana Pensiun 2 Tabungan Hari Tua (THT) Daftar Pembayaran Non Daftar Pembayaran adalah daftar bukan penerima pensiun bulanan rutin .
BAB III METODELOGI PENELITIAN
3.1 Latar Belakang Penelitian PT. Taspen Persero) Cabang Banda Aceh, bertempat tepatnya di Jl. Teuku Abdullah Ujong Rimba No.22, Telp (0651) 33382
3.2 Ruang Lingkup Penelitian Penelitian ini dilakukan untuk membuat suatu program aplikasi Sistem Informasi Non Daftar Pembayaran. Fokus dalam penelitian ini adalah pembuatan aplikasi dengan menggunakan bahasa pemograman yang telah banyak digunakan yaitu Visual Basic.
3.3 Waktu dan Tempat Penelitian Penelitian ini dilaksanakan mulai April 2013 sampai Agustus 2013 dan bertempat di kantor PT.TASPEN (PERSERO) Kantor Cabang Banda Aceh. Proses pembuatan perancangan database Non Daftar Pembayaran ini dimulai dari April hingga Agustus 2013.
Tabel 3.1 Waktu Pelaksanaan Penelitian
No
Kegiatan
April III IV
1
Pengumpulan Data
2 3 4 5 6 7 8 9
Analisa Data Perancangan Database Perancangan Sistem Desain Sistem Pembuatan Sistem Pengujian Sistem Penyusunan Laporan Sidang Akhir 3.4 Metode Pengumpulan Data
I
Mei II III
IV
Juni I II III
Juli III IV
Agustus III IV
Dalam rangka menyusun pelaporan ini penulis memperpoleh data dengan cara melakukan penelitian yang menggunakan 2 (dua) metode penelitia yaitu:
1. Field Research (penelitian lapangan) Dengan penelitian lapangan ini penulis memperoleh data secara langsung, sehubungan praktek kerja (Job Training) yang penulis laksanakan pada PT. Taspen (Persero) Cabang Banda Aceh, dengan cara : a. Mengadakan wawancara langsung dengan karyawan PT. Taspen (Persero) cabang
Banda Aceh, dengan cara tanya jawab untuk mendapatkan
informasi. b. Mengadakan observasi langsung pada objek (data) yang ada hubungannya dengan penulisan karya ilmiah ini.
2. Library Research (penelitian perpustakaan) Mengumpulkan data bersifat teoritis dan ada hubungannya dengan penulisan karya ini, sumber yang digunakan antara lain buku-buku perpustakaan, literature bahan kuliah dan karya ilmiah lainnya sehingga dapat membantu jika terdapat kendala yang dihadapi dalam penulisan laporan ini.
3.5 Usulan Perancangan Sistem Dari kendala yang ada setelah di evaluasi, maka penulis mengajukan untuk membuat Perancangan Database Pembayaran Non Daftar Pembayaran untuk menanggulangi kendala yang sering terjadi, Agar proses lebih cepat, tepat, efektif, dan efisien.
3.6 Tujuan Perancangan Sistem Tujuan dari perancangan Pembayaran Non Daftar Pembayaran adalah sebagai berikut : 1.
Untuk mempermudah Pembayaran Non Daftar Pembayaran.
2.
Untuk
mempermudah
Pembayaran.
pengelolaan
Pembayaran
Non
Daftar
3.7 Perancangan Prosedur Gambaran umum sistem yang diusulkan dalam proses perancangan sistem ini, penulisan membangun sebuah Aplikasi Pembayaran Non Daftar Pembayaran yang nantinya aplikasi tersebut dikelola oleh seorang user (salah satu pegawai Taspen). Berikut adalah prosedur Pembayaran Non Daftar Pembayaran yang diusulkan : a.
Syarat Pembayaran Pensiun dan THT yang diusulkan : 1. Formulir Surat Pembayaran Permohonan (SPP). 2. Asli dan Tembusan Surat Keputusan (SK) Pensiun. 3. Salinan Pertimbangan Teknis (PerTek) dari Badan Kepegawaian Negara bagi Pegawai Negri Sipil dengan Pangkat/Golongan 4C Ke atas (Khusus untuk pembayaran THT) sebelum Surat Keputusan Pensiun diterbitkan oleh Sekneg. 4. Asli dan Tebusan/Lembar ke-2 Surat Keterangan Penghentian Pembayaran (SKPP) Gaji dari Pemda (PNS Daerah). 5.
Pas Photo 3 X 4 sebanyak 2 lembar & 4 X 6 sebenyak 2 lembar (tanpa kacamata).
6. Pas Photo Istri/Suami 3 X 4 sebanyak 2 lembar (tanpa kacamata). 7. Salinan Nomor Pokok Wajib Pajak (NPWP) 2 lembar. 8. Salinan KTP yang masih berlaku 2 lembar. 9. Salinan Buku Rekening 2 lembar (BRI, BTN, BNI, BSM, Bukopin, BPD & BTPN).
10. Salinan SK Pengangkatan Pertama Calon Pegawai (Capeg) sebanyak 1 lembar. 11. Salinan Kartu Pegawai (Karpeg) dan Kartu TASPEN sebanyak 1 lembar. 3.8 Flow Map Dalam pembuatan sistem informasi pengarsipan berkas ini mempunyai flowmap yaitu flow map berkas masuk. Dimana flow map ini menndefinisikan dari sebuah sistem pengarsipan berkas dimulai dari datangnya berkas.
3.8.1 Flow Map Berkas Masuk Pada flow map proses berkas masuk ini mempunyai fungsinya masingmasing dan terdiri 3 fungsi yaitu : 1.
User, dalam fungsi pertama yaitu user mempunyai dokumen berupa berkas masuk yang didalamnya berupa data berkas masuk kemudian akan melalui proses penyimpanan berkas masuk kemudian proses edit jika ada kesalahan input.
2.
Berkas masuk, setelah mendapatkan dokumen berupa berkas maka dilakukan proses tambah yang didalamnya berupa penginputan data isi berkas kemudian data disimpan. Proses selanjutnya adalah pengeditan data berkas masuk jika ada kesalahan penginputan pada poses tambah lalu setelah semua proses telah selasai data berkas dapat ditampilkan lewat proses laporan.
3.
Sistem Database, dalam fungsi sistem database operator ini mempunyai tugas menyimpan data dari proses isi data berkas masuk kemudian menjadi dokumen data yang telah di olah.
4.
Flow map berkas masuk dapat dilihat pada gambar 3.1
Pensiun Data
Proses Berkas Masuk Petugas Sistem
Pimpinan
Memsuki Berkas
Isi Data Berkas
Simpan Data Berkas
Data Berkas Masuk Terisi
Database
Proses Edit Berkas Masuk
Data Berkas Masuk
Proses
Laporan
Gambar 3.1 Flow Map Berkas Masuk
Laporan
3.9
Perancangan Basis Data 3.9.1
Entity Relationship Diagram (ERD) Penjelasan singkat tentang ERD database pembayaran
NonDapem
User
Password
Nip
Nama_Pst
Nama_Pst
Nip
Gaji_Pokok
Tgl_Lahir
Pelayanan 1
1
Pangkat
No_Dosir N
N Input
Input
THT
SP4A Tgl_Lahir
Kode_Jiw 1
Sex
Pangkat Alamat
Tmt_Pen
No_Voucher
Renc_Ba Penerima Nip
Alama
Kode_Jiwa Nama_Pst
Tmt_Kerja Sisa_Asuransi
Tgl_Lahir N Renc_Bayar
Karip
Input
Tmt_Pensiun
Alamat 1
N
Pencarian
Nama_Pst
Proses
Lihat laporan
N
Laporan_THT
Laporan_Kar Nip
Laporan_SP4A
Gambar 3.2 Entity Relationship Diagram (ERD)
3.10
Aliran Informasi Diagram konteks atau disebut juga dengan model sistem fundamental
merepresentasikan seluruh elemen sistem tunggal dengan data input output yang ditunjukkan oleh anak panah yang masuk secara berurutan. Berkas_masuk
Tambah_Berkas Sistem informasi nondapem pada PT. Taspen (persero)
Edit_Berkas Cari_Berkas
bafPelayanan
Pensiun
Laporan
Pembayaran Laporan
Pimpinan
Gambar 3.3 Diagram Konteks 3.11 .1 Data Flow Diagram (DFD) Terdapat 1 proses utama yaitu: proses daftar hadir masuk. 1.
DFD Level 1 1. Berkas Masuk Proses ini adalah proses pendataan yang dilakukan oleh user dengan data dari berkas yang masuk untuk diarsipkan untuk keperluan tertentu
Tambah berkas Tambah berkas Edit Berkas
Berkas Masuk
Cari Berkas
Edit Berkas Cari Berkas
Berkas Masuk
Pelayanan Laporan
Gambar 3.4 DFD Level 1
2. DFD Level 2 Proses Berkas Masuk 1.1 Tambah User menginputkan data isi Berkas masuk berupa no berkas, asal berkas, tanggal berkas. 1.2 Edit Proses ini merupakan proses pengeditan data berkas masuk jika ada kesalahan input data pada proses tambah. 1.3 Cari Proses ini merupakan proses pencarian data berkas masuk yang sudah di input dan tersimpan di database. 1.4 Laporan Proses ini merupakan proses pencarian untuk menampilkan berkas yang sudah masuk dalam jangka waktu tertentu dalam bentuk laporan.
Input no Berkas Input asal berkas Input tanggal berkas
Simpan Data Berkas Masuk
1.1 Tambah
Edit Data berkas Masuk
1.2 Edit
Simpan berkas Masuk
Data berkas Masuk
Pelayanan
berkas Masuk Input Pencarian no berkas
Input pencarian asal berkas
Cari berkas Masuk
1.3 Cari
Input tanggal berkas
Lihat Preview Laporan
Info Data berkas Masuk
1.4 Laporan
Info Laporan berkas Masuk
Gambar 3.5 DFD Level 2 Proses Berkas Masuk
BAB IV HASIL PENELITIAN DAN PEMBAHASAN 4.1
Tampilan Form Login Form Login ini berfungsi sebagai media Antarmuka yang
berinteraksi dengan pengguna sebelum mengoperasikan keseluruh fitur yang dimiliki oleh program untuk proses masuk ke menu utama.
Gambar 4.1 Tampilan Form Login 4.2
Tampilan Form Menu Utama Form ini berfungsi sebagai menu utama yang terdapat beberapa
menu editor yang bisa digunakan untuk menjalan kan program Seperti Input data, Cari Data, Laporan Data, Pengaturan yang didalamnya terdapat tambah User untuk mengubah password, About, dan Keluar.
Gambar 4.2 Tampilan Form Menu Utama
4.3
Tampilan Form Tambah User Baru Form ini berfungsi sebagai media antarmuka user untuk proses
penggantian user dan password yang sesuai dihendakinya, demi alasan fitur kenyamanan user sebagai pengguna tetap aplikasi.
Gambar 4.3 Tampilan Form Tambah User dan Password Baru
4.4
Tampilan Form Tabungan Hari Tua (THT) Form ini berfungsi untuk menambah, menghapus data-data Berkas
yang ada didalam database. Data-data yang di input meliputi Nip, nama pst, tgl lahir, pangkat, no voucher, kode jiwa, sisa asuransi, renc bayar, TMT kerja, penerima, alamat serta data-data opsional lainnya yang mewakili keseluruhan dari identitas berkas tersebut.
Gambar 4.4 Tampilan Form Tabungan Hari Tua (THT)
4.5
Tampilan Form Edit Tabungan Hari Tua (THT) Form ini berfungsi untuk mengedit data-data Berkas yang ada
didalam database. Data-data yang di input meliputi Nip, nama pst, tgl lahir, pangkat, no voucher, kode jiwa, sisa asuransi, renc bayar, TMT
kerja, penerima, alamat serta data-data opsional lainnya yang mewakili keseluruhan dari identitas berkas tersebut.
Gambar 4.5 Tampilan Form Edit Tabungan Hari Tua (THT)
4.6
Tampilan Form Pensiun Form ini berfungsi untuk menambah, menghapus data-data Berkas
yang ada didalam database. Data-data yang di input meliputi NIP, nama pst, gaji pokok, pangkat, no dosir, tgl lahir, kode jiwa, jenis kelamin, TMT pensiun, renc bayar, TMT kerja, alamat serta data-data opsional lainnya yang mewakili keseluruhan dari identitas berkas tersebut.
Gambar 4.6 Tampilan Form Pensiun
4.7
Tampilan Form Edit Pensiun Form ini berfungsi untuk mengedit data-data Berkas yang ada
didalam database. Data-data yang di input meliputi NIP, nama pst, gaji pokok, pangkat, no dosir, tgl lahir, kode jiwa, jenis kelamin, TMT pensiun, renc bayar, TMT kerja, alamat serta data-data opsional lainnya yang mewakili keseluruhan dari identitas berkas tersebut.
Gambar 4.7 Tampilan Form Pensiun
4.8
Tampilam Form Kartu Identitas Pegawai (Karip) Form ini berfungsi untuk menambah, menghapus data-data Berkas
yang ada didalam database. Data-data yang di input meliputi NIP, nama pst, tgl lahir, TMT Pensiun, alamat serta data-data opsional lainnya yang mewakili keseluruhan dari identitas berkas tersebut.
Gambar 4.8 Tampilan Form Karip
4.9
Tampilam Form Edit Kartu Identitas Pegawai (Karip) Form ini berfungsi untuk mengedit data-data Berkas yang ada
didalam database. Data-data yang di input meliputi NIP, nama pst, tgl lahir, TMT Pensiun, alamat serta data-data opsional lainnya yang mewakili keseluruhan dari identitas berkas tersebut.
Gambar 4.9 Tampilan Form Karip
4.10
Tampilan Form Pencarian Data Pensiun Form ini berfungsi untuk memudahkan Pencarian data-data
Pensiun yang tersimpan didalam database.
Gambar 4.10 Tampilan Form Pencarian Data Pensiun
4.11
Tampilan Form Laporan Data Tabungan Hari Tua (THT) Form ini berfungsi untuk melihat hasil Laporan Data THT.
Gambar 4.11 Tampilan Form hasil Laporan Data THT
4.12
Tampilan Form Laporan Data Pensiun Form ini berfungsi untuk melihat hasil Laporan Data Pensiun.
Gambar 4.12 Tampilan Form hasil Laporan Data Pensiun
4.13
Tampilan Form Laporan Data Kartu Identitas Pegawai
(Karip) Form ini berfungsi untuk melihat hasil Laporan Data Karip.
Gambar 4.13 Tampilan Form hasil Laporan Data Karip
BAB V PENUTUP 5.1 Kesimpulan Simpulan yang penulis dapatkan dari permasalahan diatas, adalah : -
Aplikasi
database
untuk
pembayaran
Non
Daftar
Pembayaran
menyediakan sejumlah fasilitas yang dapat membantu layanan non-dapem bagi pensiunan. -
Aplikasi pembayaran Non Daftar Pembayaran memberikan dampak positif dari sisi penggunaan waktu, dimana waktu yang diperlukan untuk melayani nasabah menjadi lebih cepat.
5.2 Saran Saran yang diberikan penulis antara lain : -
Aplikasi pembayaran Non Daftar Pembayaran ini belum memiliki kemampuan yang baik dalam hal mencari data nasabah berbasis NIP sehingga diperlukan pengembangan lebih lanjut, dimana pencarian data dapt dilakukan berdasarkan nama dan juga NIP.
DAFTAR PUSTAKA Armansyah. 2005. Mengenai Arsip. CV. Indo Media, Jakarta. Benard I Chester, 2008. Pengenalan Organisasi. Graha Ilmu, Yogyakarta. Money Baridwan, 1993. Sistem Basis Data. PT Elex Media. Jakarta. Budi. 2004. Database. Andi Ofset. Yogyakarta. Elmasari. 1994. Rancangan Database. Andi Ofset. Yogyakarta. Ferdinand. 2012. Sistem Informasi. CV Indra Grafika. Bandung. Kadir. 1999. Basis Data. Informatika Bandung. Mooney D. James. 2004. Tujuan Organisasi. CV. Andi Ofset. Yogyakarta. Rusmadi. 2000. Pengnalan Komputer. Andi Ofset. Yogyakarta. Vincent. 1988. Database Regional. PT Erlangga. Bandung.
BIODATA PENULIS
Nama
: Ade Rizqa Rivana, A. Md
Tempat/Tanggal Lahir
: Banda Aceh / 22 Agustus 1991
Jenis Kelamin
: Laki-Laki
Agama
: Islam
Email
:
[email protected]
Alamat
: Perum. Mawar Indah No.2 Ds. Punie
RIWAYAT PENDIDIKAN SD 2 Geuceue Aceh Besar
: Tamat Tahun 2003
SMP N 1 Takengon
: Tamat Tahun 2006
SMA N 9 Banda Aceh
: Tamat Tahun 2009
AMIKI Banda Aceh
: 2009 – 2012
STMIK U’Budiyah Indonesi Jurusan Sistem Informasi
: 2012 – 2013
IDENTITAS ORANG TUA 1.
2.
Nama Ayah
: Demoris, ST
Pekerjaan
: Swasta
Alamat
: Perum. Mawar Indah No.2 Ds. Punie
Nama Ibuk
: Puji Rahayu
Pekerjaan
: Karyawan BUMN
Alamat
: Perum. Mawar Indah No.2 Ds. Punie
LISTING PROGRAM Form Menu Utama Private Function Login() With frmLogin .Show vbModal, Me Login = .Result End With End Function Private Sub MDIForm_Load() Me.Show Dim ErrString As String If (Connect(App.Path & "\data.mdb", ErrString)) Then If (Not Login()) Then Unload Me End If Else MsgBox ErrString, vbExclamation, "Error When Reading Database" MsgBox "Application will be closed right now.", vbExclamation, "Error" Unload Me End If End Sub Private Sub Menudaftarama1_Click() Crystal.ReportFileName = App.Path & "\Laporan_daftar_nama_surat_perintah_Perjalanan_dinas.rpt" Crystal.DataFiles(0) = App.Path & "\Input_data_surat_perintah_perjalanan_dinas.mdb" Crystal.WindowState = crptMaximized Crystal.Action = 7 Crystal.Reset End Sub Private Sub Menudaftarnama_Click() Crystal.ReportFileName = App.Path & "\Laporan_daftar_nama_surat_perintah_tugas.rpt" Crystal.DataFiles(0) = App.Path & "\Input_data_surat_perintah_tugas.mdb" Crystal.WindowState = crptMaximized Crystal.Action = 7 Crystal.Reset End Sub Private Sub MenudataPerincianperhitunganbiayaperjalanandinas_Click() Crystal.ReportFileName = App.Path & "\Laporan_perincian_perhitungan_biaya_perjalanan_dinas.rpt" Crystal.DataFiles(0) = App.Path & "\Input_data_surat_perintah_perjalanan_dinas.mdb"
Crystal.WindowState = crptMaximized Crystal.Action = 7 Crystal.Reset End Sub Private Sub Menudataperincianperhitunganbiayaperjalanandinas1_Click() Form7.Show End Sub Private Sub Menudatasuratmasuk1_Click() Form8.Show End Sub Private Sub Menudatasuratmasuk11_Click() Form5.Show End Sub Private Sub Menudatasuratmasuk111_Click() Form9.Show End Sub Private Sub Menudatasuratmasuk2_Click() Form6.Show End Sub Private Sub Menudatasuratperintahperjalanandinas_Click() Crystal.ReportFileName = App.Path & "\Laporan_surat_perintah_Perjalanan_dinas.rpt" Crystal.DataFiles(0) = App.Path & "\Input_data_surat_perintah_perjalanan_dinas.mdb" Crystal.WindowState = crptMaximized Crystal.Action = 7 Crystal.Reset End Sub Private Sub Menudatasuratperintahperjalanandinas1_Click() Form4.Show End Sub Private Sub Menudatasuratperintahtugas2_Click() Crystal.ReportFileName = App.Path & "\Laporan_surat_perintah_tugas.rpt" Crystal.DataFiles(0) = App.Path & "\Input_data_surat_perintah_tugas.mdb" Crystal.WindowState = crptMaximized Crystal.Action = 7 Crystal.Reset End Sub Private Sub Menudatatandaterima_Click() Crystal.ReportFileName = App.Path & "\Laporan_tanda_terima.rpt" Crystal.DataFiles(0) = App.Path & "\Input_data_surat_perintah_perjalanan_dinas.mdb" Crystal.WindowState = crptMaximized
Crystal.Action = 7 Crystal.Reset End Sub Private Sub Menuinputdatasuratperintahtugas_Click() Form1.Show End Sub Private Sub Menukeluar_Click() X = MsgBox("Yakin Mau Keluar dari Applikasi ini ?", vbYesNo + vbInformation, "konfirmasi") If X = vbYes Then Unload Me End If End Sub Private Sub Menuketerangan_Click() Crystal.ReportFileName = App.Path & "\Laporan_keterangan.rpt" Crystal.DataFiles(0) = App.Path & "\Input_data_surat_perintah_perjalanan_dinas.mdb" Crystal.WindowState = crptMaximized Crystal.Action = 7 Crystal.Reset End Sub Private Sub Menusuratperintahperjalanandinas_Click(Index As Integer) Form3.Show End Sub Private Sub MenuSuratPerintahtugas_Click() Form2.Show End Sub Private Sub Menutambahuserbaru_Click() frmuser.Show End Sub Private Sub Tmrjam_Timer() Dim t As String Dim H1 As Integer, H2 As Integer Dim M1 As Integer, M2 As Integer Dim D1 As Integer, D2 As Integer t = Time If Len(Time) = 10 Then t = 0 & t t = Replace(t, ":", "") t = Replace(t, " ", "") t = Replace(t, "PM", "") t = Replace(t, "AM", "") H1 = Mid(t, 1, 1) H2 = Mid(t, 2, 1) M1 = Mid(t, 3, 1) M2 = Mid(t, 4, 1) D1 = Mid(t, 5, 1)
'D2 = Mid(t, 6, 1) jam.Caption = Time lbldate.Caption = Format(Date, "Long Date") Exit Sub End Sub
Form Login Public Result As Boolean Private Sub cmdCancel_Click() Unload Me End Sub 'Prosedure yang dilakukan untuk login Private Sub cmdLogin_Click() If (txtUsername.Text = "") Then MsgBox "Anda belum mengisi username.", 0 + vbExclamation, "Login Failed" ElseIf (txtPassword.Text = "") Then MsgBox "Anda belum mengisi password.", 0 + vbExclamation, "Login Failed" Else StrSQL = "SELECT * FROM tbluser " & _ "WHERE username='" & txtUsername.Text & "'" Set RS = CN.Execute(StrSQL) If (RS.RecordCount <= 0) Then MsgBox "Username tidak terdaftar.", 0 + vbExclamation, "Login Failed" Else If (RS("password").Value = txtPassword.Text) Then Result = True Unload Me Else MsgBox "Password yang Anda masukkan salah.", 0 + vbExclamation, "Login Failed" End If End If End If End Sub 'cmdLogin_Click Private Sub txtpassword_KeyPress(KeyAscii As Integer) 'Jika enter ditekan If (KeyAscii = 13) Then KeyAscii = 0 cmdLogin_Click
End If End Sub Private Sub txtUsername_KeyPress(KeyAscii As Integer) 'Jika enter ditekan If (KeyAscii = 13) Then KeyAscii = 0 txtPassword.SetFocus End If End Sub Form Tambah User dan Password Private Sub BersihLAyar() 'kosongkan form txtuser.Text = "" txtPassword.Text = "" Exit Sub Salah: X = MsgBox("gagal koneksi pada tbluser.mdb!", vbOKOnly) End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub cmdhapus_Click() With dbuser.Recordset UserName = !UserName Password = !Password End With 'hapus record With dbuser dbuser.ConnectionString = dbuser.ConnectionString dbuser.CommandType = adCmdText dbuser.RecordSource = "select*from tbluser where Username='" & _ Mnip & "' and Password='" dbuser.Refresh End With dbuser.Recordset.delete End Sub Private Sub cmdsimpan_Click() Dim X As Integer 'Simpan isi form ke record baru On Error GoTo Salah With dbuser.Recordset .AddNew !UserName = txtuser.Text !Password = txtPassword.Text .Update
On Error GoTo 0 End With BersihLAyar Exit Sub Salah: X = MsgBox("Ada Kesalahan Saat Menyimpan Data!" + Chr(13) + _ "Penyimpanan Dibatalkan....", vbOKOnly) End Sub Private Sub cmdtutup_Click() Unload Me End Sub Private Sub Command1_Click() Dim delete delete = MsgBox("Anda yakin data ini akan dihapus?", vbQuestion + vbYesNo, "Hapus Data") If delete = vbYes Then dbuser.Recordset.delete dbuser.Recordset.MoveNext Else MsgBox "Data tidak jadi dihapus!", vbOKOnly + vbInformation, "Batal Menghapus" End If End Sub Private Sub Form_Activate() On Error Resume Next dbuser.Refresh DataGrid1.Refresh End Sub Private Sub Form_Load() On Error Resume Next Dim lokasi As String With frmuser.dbuser On Error Resume Next If Right(App.Path, 1) = "\" Then lokasi = Left(App.Path, Len(App.Path) - 1) Else lokasi = App.Path End If .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & lokasi & "\data.mdb;Persist Security Info=False" .RecordSource = "select*from tbluser" Text1.DataField = "Username" Text2.DataField = "Password" End With End Sub Private Sub txtpassword_KeyPress(KeyAscii As Integer)
If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If cmdsimpan.SetFocus End Sub Private Sub txtuser_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If txtPassword.SetFocus End Sub
Form Input Data Surat Perintah Tugas Private Sub BersihLAyar() 'MembersihkanLayar Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" 'Non Aktifkan tombol Tab pada saat isikan data Text1.TabStop = False Text2.TabStop = False Text3.TabStop = False Text4.TabStop = False Text5.TabStop = False Text6.TabStop = False Text7.TabStop = False Combo1.TabStop = False Combo2.TabStop = False Combo3.TabStop = False Combo4.TabStop = False Combo5.TabStop = False Combo6.TabStop = False Command1.TabStop = False Text1.SetFocus End Sub Private Sub Combo1_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter
Exit Sub End If Text4.SetFocus End Sub Private Sub Combo2_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Combo3_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Combo4_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Combo5_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Combo6_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Command1_Click() Dim X As Integer 'Simpan Isi Form ke Record Baru On Error GoTo Salah With Adodc1.Recordset .AddNew !No_surat = Text1.Text !Nip = Text2.Text !Nama = Text3.Text !Pangkat = Text4.Text + Combo1.Text !Jabatan = Text5.Text
!Tgl_surat = Combo2.Text + Combo3.Text + Text6.Text + Combo4.Text + Combo5.Text + Combo6.Text !Tujuan = Text7.Text !Perihal = Text8.Text .Update On Error GoTo 0 End With BersihLAyar Exit Sub Salah: X = MsgBox("Anda berhasil menyimpan data!" + Chr(13) + _ "Penyimpanan berhasil dilakukan...", vbOKOnly) End Sub Private Sub Command2_Click() BersihLAyar End Sub Private Sub Command3_Click() Dim delete delete = MsgBox("Anda yakin data ini akan dihapus?", vbQuestion + vbYesNo, "Hapus Data") If delete = vbYes Then Adodc1.Recordset.delete Adodc1.Recordset.MoveNext Else MsgBox "Data tidak jadi dihapus!", vbOKOnly + vbInformation, "Batal Menghapus" End If End Sub Private Sub Command4_Click() X = MsgBox("Yakin Mau Keluar ?", vbYesNo + vbInformation, "konfirmasi") If X = vbYes Then Unload Me End If End Sub Private Sub Command5_Click() X = MsgBox("Yakin Mau Keluar ?", vbYesNo + vbInformation, "konfirmasi") If X = vbYes Then Unload Me End If End Sub Private Sub Command8_Click() Form4.Show End Sub Private Sub Form_Activate()
'Definisi isi Pangkat Combo1.AddItem (" ") 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") 'Definisi isi tanggal Combo2.AddItem (" ") Combo2.AddItem ("01 ") Combo2.AddItem ("02 ") Combo2.AddItem ("03 ") Combo2.AddItem ("04 ") Combo2.AddItem ("05 ") Combo2.AddItem ("06 ") Combo2.AddItem ("07 ") Combo2.AddItem ("08 ") Combo2.AddItem ("09 ") Combo2.AddItem ("10 ") Combo2.AddItem ("11 ") Combo2.AddItem ("12 ") Combo2.AddItem ("13 ") Combo2.AddItem ("14 ") Combo2.AddItem ("15 ") Combo2.AddItem ("16 ") Combo2.AddItem ("17 ") Combo2.AddItem ("18 ") Combo2.AddItem ("19 ") Combo2.AddItem ("20 ") Combo2.AddItem ("21 ") Combo2.AddItem ("22 ") Combo2.AddItem ("23 ") Combo2.AddItem ("24 ") Combo2.AddItem ("25 ") Combo2.AddItem ("26 ") Combo2.AddItem ("27 ") Combo2.AddItem ("28 ") Combo2.AddItem ("29 ") Combo2.AddItem ("30 ")
Combo2.AddItem ("31 ") 'Definisi isi bulan Combo3.AddItem (" ") Combo3.AddItem ("Januari ") Combo3.AddItem ("Februari ") Combo3.AddItem ("Maret ") Combo3.AddItem ("April ") Combo3.AddItem ("Mei ") Combo3.AddItem ("Juni ") Combo3.AddItem ("Juli ") Combo3.AddItem ("Agustus ") Combo3.AddItem ("September ") Combo3.AddItem ("Oktober ") Combo3.AddItem ("November ") Combo3.AddItem ("Desember ") 'Definisi isi tanggal Combo4.AddItem (" ") Combo4.AddItem ("01 ") Combo4.AddItem ("02 ") Combo4.AddItem ("03 ") Combo4.AddItem ("04 ") Combo4.AddItem ("05 ") Combo4.AddItem ("06 ") Combo4.AddItem ("07 ") Combo4.AddItem ("08 ") Combo4.AddItem ("09 ") Combo4.AddItem ("10 ") Combo4.AddItem ("11 ") Combo4.AddItem ("12 ") Combo4.AddItem ("13 ") Combo4.AddItem ("14 ") Combo4.AddItem ("15 ") Combo4.AddItem ("16 ") Combo4.AddItem ("17 ") Combo4.AddItem ("18 ") Combo4.AddItem ("19 ") Combo4.AddItem ("20 ") Combo4.AddItem ("21 ") Combo4.AddItem ("22 ") Combo4.AddItem ("23 ") Combo4.AddItem ("24 ") Combo4.AddItem ("25 ") Combo4.AddItem ("26 ") Combo4.AddItem ("27 ") Combo4.AddItem ("28 ") Combo4.AddItem ("29 ")
Combo4.AddItem ("30 ") Combo4.AddItem ("31 ") 'Definisi isi bulan Combo5.AddItem (" ") Combo5.AddItem ("Januari ") Combo5.AddItem ("Februari ") Combo5.AddItem ("Maret ") Combo5.AddItem ("April ") Combo5.AddItem ("Mei ") Combo5.AddItem ("Juni ") Combo5.AddItem ("Juli ") Combo5.AddItem ("Agustus ") Combo5.AddItem ("September ") Combo5.AddItem ("Oktober ") Combo5.AddItem ("November ") Combo5.AddItem ("Desember ") 'Definisi isi tahun Combo6.AddItem (" ") Combo6.AddItem ("2010") Combo6.AddItem ("2011") Combo6.AddItem ("2012") Combo6.AddItem ("2013") Combo6.AddItem ("2014") Combo6.AddItem ("2015") End Sub Private Sub Form_Load() 'Tentukan koneksi Adodc1.ConnectionString = _ "provider = Microsoft.jet.OLEDB.4.0; " & _ "Data Source = Input_data_surat_perintah_tugas.mdb; " & _ "Persist Security Info= False" Adodc1.CommandType = adCmdText End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim X As Integer If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If With Adodc1 .RecordSource = "Select*from Data_surat_perintah_tugas where No_surat='" & _ Text1.Text & "'" .Refresh End With With Adodc1.Recordset If .RecordCount = 0 Then
Text2.SetFocus Exit Sub End If X = MsgBox("No_surat:" + Text1.Text + ",Nama:" + !Nama + _ Chr(13) + "SUDAH ADA!", vbOKOnly) Text1.SetFocus End With End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text3.SetFocus End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text4.SetFocus End Sub Private Sub Text4_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Combo1.SetFocus End Sub Private Sub Text5_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Text6_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text7.SetFocus End Sub Private Sub Text7_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text8.SetFocus End Sub Private Sub Text8_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter
Exit Sub End If Command1.SetFocus End Sub Input Data Surat Perintah Perjalanan Dinas Private Sub BersihLAyar() 'MembersihkanLayar Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" 'Non Aktifkan tombol Tab pada saat isikan data Text1.TabStop = False Text2.TabStop = False Text3.TabStop = False Text4.TabStop = False Text5.TabStop = False Text6.TabStop = False Text7.TabStop = False Text8.TabStop = False Combo1.TabStop = False Combo2.TabStop = False Combo3.TabStop = False Combo4.TabStop = False Combo5.TabStop = False Command1.TabStop = False Text1.SetFocus End Sub Private Sub Combo1_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text4.SetFocus End Sub Private Sub Combo2_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Combo3_KeyPress(KeyAscii As Integer)
If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Combo4_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Combo5_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Command1_Click() Dim X As Integer 'Simpan Isi Form ke Record Baru On Error GoTo Salah With Adodc1.Recordset .AddNew !Pejabat_yang_memberi_perintah = Text1.Text !Nama_NIP_Pegawai_Yang_Diperintahkan = Text2.Text !Jabatan = Text3.Text !Pangkat_dan_Golongan_Ruang = Text4.Text + Combo1.Text !Perjalanan_Dinas_Yang_Diperintahkan = Text5.Text !Perjalanan_Dinas_Direncanakan = Text6.Text + Combo2.Text + Text7.Text + Combo3.Text + Combo4.Text + Combo5.Text !Maksud_Perjalanan_Dinas = Text8.Text !Pembebanan_Biaya_Perjalanan_Dinas = Text9.Text .Update On Error GoTo 0 End With BersihLAyar Exit Sub Salah: X = MsgBox("Anda berhasil menyimpan data!" + Chr(13) + _ "Penyimpanan berhasil dilakukan...", vbOKOnly) End Sub Private Sub Command2_Click() BersihLAyar End Sub Private Sub Command3_Click() Dim delete
delete = MsgBox("Anda yakin data ini akan dihapus?", vbQuestion + vbYesNo, "Hapus Data") If delete = vbYes Then Adodc1.Recordset.delete Adodc1.Recordset.MoveNext Else MsgBox "Data tidak jadi dihapus!", vbOKOnly + vbInformation, "Batal Menghapus" End If End Sub Private Sub Command4_Click() X = MsgBox("Yakin Mau Keluar ?", vbYesNo + vbInformation, "konfirmasi") If X = vbYes Then Unload Me End If End Sub Private Sub Form_Activate() 'Definisi isi Pangkat Combo1.AddItem (" ") 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") 'Definisi isi tanggal Combo2.AddItem (" ") Combo2.AddItem ("01 ") Combo2.AddItem ("02 ") Combo2.AddItem ("03 ") Combo2.AddItem ("04 ") Combo2.AddItem ("05 ") Combo2.AddItem ("06 ") Combo2.AddItem ("07 ") Combo2.AddItem ("08 ") Combo2.AddItem ("09 ") Combo2.AddItem ("10 ") Combo2.AddItem ("11 ") Combo2.AddItem ("12 ")
Combo2.AddItem ("13 ") Combo2.AddItem ("14 ") Combo2.AddItem ("15 ") Combo2.AddItem ("16 ") Combo2.AddItem ("17 ") Combo2.AddItem ("18 ") Combo2.AddItem ("19 ") Combo2.AddItem ("20 ") Combo2.AddItem ("21 ") Combo2.AddItem ("22 ") Combo2.AddItem ("23 ") Combo2.AddItem ("24 ") Combo2.AddItem ("25 ") Combo2.AddItem ("26 ") Combo2.AddItem ("27 ") Combo2.AddItem ("28 ") Combo2.AddItem ("29 ") Combo2.AddItem ("30 ") Combo2.AddItem ("31 ") 'Definisi isi tanggal Combo3.AddItem (" ") Combo3.AddItem ("01 ") Combo3.AddItem ("02 ") Combo3.AddItem ("03 ") Combo3.AddItem ("04 ") Combo3.AddItem ("05 ") Combo3.AddItem ("06 ") Combo3.AddItem ("07 ") Combo3.AddItem ("08 ") Combo3.AddItem ("09 ") Combo3.AddItem ("10 ") Combo3.AddItem ("11 ") Combo3.AddItem ("12 ") Combo3.AddItem ("13 ") Combo3.AddItem ("14 ") Combo3.AddItem ("15 ") Combo3.AddItem ("16 ") Combo3.AddItem ("17 ") Combo3.AddItem ("18 ") Combo3.AddItem ("19 ") Combo3.AddItem ("20 ") Combo3.AddItem ("21 ") Combo3.AddItem ("22 ") Combo3.AddItem ("23 ") Combo3.AddItem ("24 ") Combo3.AddItem ("25 ")
Combo3.AddItem ("26 ") Combo3.AddItem ("27 ") Combo3.AddItem ("28 ") Combo3.AddItem ("29 ") Combo3.AddItem ("30 ") Combo3.AddItem ("31 ") 'Definisi isi bulan Combo4.AddItem (" ") Combo4.AddItem ("Januari ") Combo4.AddItem ("Februari ") Combo4.AddItem ("Maret ") Combo4.AddItem ("April ") Combo4.AddItem ("Mei ") Combo4.AddItem ("Juni ") Combo4.AddItem ("Juli ") Combo4.AddItem ("Agustus ") Combo4.AddItem ("September ") Combo4.AddItem ("Oktober ") Combo4.AddItem ("November ") Combo4.AddItem ("Desember ") 'Definisi isi tahun Combo5.AddItem (" ") Combo5.AddItem ("2010") Combo5.AddItem ("2011") Combo5.AddItem ("2012") Combo5.AddItem ("2013") Combo5.AddItem ("2014") Combo5.AddItem ("2015") End Sub Private Sub Form_Load() 'Tentukan koneksi Adodc1.ConnectionString = _ "provider = Microsoft.jet.OLEDB.4.0; " & _ "Data Source = Input_data_surat_perintah_perjalanan_dinas.mdb; " & _ "Persist Security Info= False" Adodc1.CommandType = adCmdText End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim X As Integer If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If With Adodc1 .RecordSource = "Select*from Data_surat_perintah_perjalanan_dinas where Jabatan='" & _ Text1.Text & "'"
.Refresh End With With Adodc1.Recordset If .RecordCount = 0 Then Text2.SetFocus Exit Sub End If X = MsgBox("Jabatan:" + Text1.Text + ",Nama_NIP_Pegawai_Yang_Diperintahkan:" + !Nama_NIP_Pegawai_Yang_Diperintahkan + _ Chr(13) + "SUDAH ADA!", vbOKOnly) Text1.SetFocus End With End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text3.SetFocus End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text4.SetFocus End Sub Private Sub Text4_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Combo1.SetFocus End Sub Private Sub Text5_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Text6_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text7.SetFocus End Sub Private Sub Text7_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter
Exit Sub End If Text8.SetFocus End Sub Private Sub Text8_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Command1.SetFocus End Sub Input Data Perincian Perhitungan Biata Perjalanan Dinas Private Sub BersihLAyar() 'MembersihkanLayar Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" 'Non Aktifkan tombol Tab pada saat isikan data Text1.TabStop = False Text2.TabStop = False Text3.TabStop = False Text4.TabStop = False Command1.TabStop = False Text1.SetFocus End Sub Private Sub Combo1_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text4.SetFocus End Sub Private Sub Combo2_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Combo3_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Combo4_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter
Exit Sub End If Text6.SetFocus End Sub Private Sub Combo5_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Combo6_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Command1_Click() Dim X As Integer 'Simpan Isi Form ke Record Baru On Error GoTo Salah With Adodc1.Recordset .AddNew !Perincian_Biaya = Text1.Text !Jumlah = Text2.Text !Ket = Text3.Text !Jumlah_Semua = Text4.Text .Update On Error GoTo 0 End With BersihLAyar Exit Sub Salah: X = MsgBox("Anda berhasil menyimpan data!" + Chr(13) + _ "Penyimpanan berhasil dilakukan...", vbOKOnly) End Sub Private Sub Command2_Click() BersihLAyar End Sub Private Sub Command3_Click() Dim delete delete = MsgBox("Anda yakin data ini akan dihapus?", vbQuestion + vbYesNo, "Hapus Data") If delete = vbYes Then Adodc1.Recordset.delete Adodc1.Recordset.MoveNext Else
MsgBox "Data tidak jadi dihapus!", vbOKOnly + vbInformation, "Batal Menghapus" End If End Sub Private Sub Command4_Click() X = MsgBox("Yakin Mau Keluar ?", vbYesNo + vbInformation, "konfirmasi") If X = vbYes Then Unload Me End If End Sub Private Sub Command5_Click() X = MsgBox("Yakin Mau Keluar ?", vbYesNo + vbInformation, "konfirmasi") If X = vbYes Then Unload Me End If End Sub Private Sub Form_Load() 'Tentukan koneksi Adodc1.ConnectionString = _ "provider = Microsoft.jet.OLEDB.4.0; " & _ "Data Source = Input_data_Perincian.mdb; " & _ "Persist Security Info= False" Adodc1.CommandType = adCmdText End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim X As Integer If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If With Adodc1 .RecordSource = "Select*from Data_perincian where Perincian_Biaya='" &_ Text1.Text & "'" .Refresh End With With Adodc1.Recordset If .RecordCount = 0 Then Text2.SetFocus Exit Sub End If X = MsgBox("Perincian_Biaya:" + Text1.Text + ",Ket:" + !Ket + _ Chr(13) + "SUDAH ADA!", vbOKOnly) Text1.SetFocus End With
End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text3.SetFocus End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text4.SetFocus End Sub Private Sub Text4_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Combo1.SetFocus End Sub Private Sub Text5_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text6.SetFocus End Sub Private Sub Text6_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text7.SetFocus End Sub Private Sub Text7_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Text8.SetFocus End Sub Private Sub Text8_KeyPress(KeAscii As Integer) If Not KeAscii = 13 Then '13 adalah nomor Enter Exit Sub End If Command1.SetFocus End Sub Pencarian Data Surat Perintah Tugas Private Sub Command1_Click()
X = MsgBox("Yakin Mau Keluar ?", vbYesNo + vbInformation, "konfirmasi") If X = vbYes Then Unload Me End If End Sub Private Sub Form_Load() 'Tentukan koneksi Adodc1.ConnectionString = _ "provider = Microsoft.jet.OLEDB.4.0; " & _ "Data Source =Input_data_surat_perintah_tugas.mdb; " & _ "Persist Security Info= False" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from data_surat_perintah_tugas" 'pastikan koneksi berhasil On Error GoTo Salah Adodc1.Refresh On Error GoTo 0 Text1.Text = "" Text2.Text = "" Exit Sub Salah: X = MsgBox("Gagal Koneksi", vbOKOnly) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor enter Exit Sub End If With Adodc1 .RecordSource = "select *from data_surat_perintah_tugas where No_surat like '%" & _ Text1.Text & "%'" .Refresh End With End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor enter Exit Sub End If With Adodc1 .RecordSource = "select *from data_surat_perintah_tugas where Nama like '%" & _ Text2.Text & "%'" .Refresh End With End Sub
Pencarian Data Surat Perintah Perjalanan Dinas Private Sub Form_Load() 'Tentukan koneksi Adodc1.ConnectionString = _ "provider = Microsoft.jet.OLEDB.4.0; " & _ "Data Source =Input_data_surat_perintah_perjalanan_dinas.mdb; " & _ "Persist Security Info= False" Adodc1.CommandType = adCmdText Adodc1.RecordSource = "Select * from Data_surat_perintah_Perjalanan_dinas" 'pastikan koneksi berhasil On Error GoTo Salah Adodc1.Refresh On Error GoTo 0 Text1.Text = "" Text2.Text = "" Exit Sub Salah: X = MsgBox("Gagal Koneksi", vbOKOnly) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor enter Exit Sub End If With Adodc1 .RecordSource = "select *from Data_surat_perintah_Perjalanan_dinas where Jabatan like '%" & _ Text1.Text & "%'" .Refresh End With End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If Not KeyAscii = 13 Then '13 adalah nomor enter Exit Sub End If With Adodc1 .RecordSource = "select *from Data_surat_perintah_Perjalanan_dinas where Nama_NIP_Pegawai_Yang_Diperintahkan like '%" & _ Text2.Text & "%'" .Refresh End With End Sub Modul Public CN As New ADODB.Connection
Public RS As New ADODB.Recordset Public StrSQL As String 'Prosedure yang digunakan untuk melakukan koneksi ke database Public Function Connect(DataPath As String, ByRef Error As String) As Boolean On Error GoTo err Dim ConString As String ConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & ";Persist Security Info=False;" If (CN.State = adStateOpen) Then CN.Close Set CN = New ADODB.Connection End If CN.Open ConString CN.CursorLocation = adUseClient Connect = True Exit Function err: Error = "Error Number : " & err.Number & vbCrLf & _ "Error Message : " & err.Description Connect = False End Function 'connect
