SISTEM INFORMASI KEPEGAWAIAN PADA DINAS PEKERJAAN UMUM KABUPATEN ASAHAN MENGGUNAKAN VISUAL BASIC 6.0 TUGAS AKHIR. Oleh DESY MASRAUDHA

SISTEM INFORMASI KEPEGAWAIAN PADA DINAS PEKERJAAN UMUM KABUPATEN ASAHAN MENGGUNAKAN VISUAL BASIC 6.0

TUGAS AKHIR

Oleh

DESY MASRAUDHA 052406062

PROGRAM STUDI D3 ILMU KOMPUTER FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

2008 PERSETUJUAN

Judul

: SISTEM INFORMASI KEPEGAWAIAN PADA DINAS PEKERJAAN

UMUM

KAB.

ASAHAN

MENGGUNAKAN VISUAL BASIC 6.0 Kategori

: TUGAS AKHIR

Nama

: DESY MASRAUDHA

Nomor Induk Mahasiswa

: 052406062

Program Studi

: D-III ILMU KOMPUTER

Departemen

: MATEMATIKA

Fakultas

: MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA

Diluluskan di Medan, 24 Mei 2008

Diketahui Departemen Matematika FMIPA USU Ketua,

Pembimbing,

Dr. Saib Suwilo, M.Sc.

Dra. Elvina Herawati, M.Si.

NIP 131796149

NIP 131945361

Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

PENGHARGAAN

Alhamdulillah puji dan syukur kehadirat Allah SWT karena berkat rahmat dan hidayahNya penulis dapat menyelesaikan tugas akhir ini. Dan tidak lupa juga kepada Nabi Muhammad SAW yang merupakan “The Leader of The People to The Right Way”

Judul dari tugas akhir yang penulis selesaikan adalah “Sistem Informasi Kepegawaian pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0 ”. Sedangkan tujuan penulisan tugas akhir tersebut adalah untuk memenuhi salah satu persyaratan menyelesaikan pendidikan pada program studi D-3 Ilmu Komputer di Fakultas Matematika dan Ilmu Pengetahuan Alam (FMIPA) Universitas Sumatera Utara.

Dalam penyusunan tugas akhir ini penulis banyak dibantu oleh pihak-pihak lain yang dengan senang hati bersedia meluangkan waktunya untuk membantu penulis dalam menyelesaikan tugas akhir ini. Pada kesempatan ini penulis menyampaikan ucapan terima kasih yang sebesar-besarnya kepada : 1. Ibu Dra. Elvina Herawati, M.Si selaku Dosen Pembimbing tugas akhir yang telah memberikan waktu serta bimbingannya sehingga penulis dapat menyelesaikan tugas akhir ini. Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

2. Bapak Dr. Saib Suwilo, M.Sc, selaku Ketua Jurusan program studi D-3 Ilmu Komputer Universitas Sumatera Utara. 3. Bapak Dr. Eddy Marlianto, M.Sc, selaku Dekan Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara. 4. Teristimewa kepada Mama dan Papa yang selalu memberikan dukungan baik moril maupun materil sehingga penulis dapat menyelesaikan tugas akhir ini dengan baik. 5. Seluruh keluarga tercinta, my Brothers : Mas Mbeng, Gosan, Nago, Uneng dan bujing Inung. 6. Teman-teman tercinta : Nchut, Gie, Mba’, Ara, Aqiem, I’am, Lay, Mini, Bono, Fenk dan special M@5:3u!W ‘Mpet’ 7. Seluruh anak-anak parkir dan Teman-teman di Kom A, B dan C.

Dalam penulisan tugas akhir ini penulis sangat menyadari masih banyak kesalahan dan kekurangannya. Dan penulis mengharapkan masukkan-masukkan, saran dan kritik mengenai tugas akhir ini. Sehingga di kemudian hari dapat dijadikan sebagai pedoman dalam menyusun suatu karya tulis. Penulis berharap semoga tugas akhir ini dapat bermanfaat baik bagi penulis sendiri maupun orang lain.

Medan,

Juni 2008

Penulis


DESY MASRAUHA

DAFTAR ISI

PENGHARGAAN

i

DAFTAR ISI

iii

BAB I PENDAHULUAN

1

1.1 Latar Belakang

1

1.2 Identifikasi Masalah

2

1.3 Batasan Masalah

3

1.4 Maksud dan Tujuan

3

1.5 Metodologi Penelitian

4

1.6.Organisasi Penulisan

5

BAB II LANDASAN TEORI

7

2.1 Pengertian Komputer

7

2.2 Pengolahan Data

8

2.3 Basis Data (Database)

10

2.3.1 Pengertian Basis Data (Data Base)

10

2.3.2 Komponen Basis Data (Data Base)

11

2.4 Pengertian Sistem Informasi

12

2.4.1 Pengertian Sistem

12

2.4.2 Pengertian Informasi

13

2.4.3 Peranan Komputer dalam Sistem Informasi

14

2.5 Sekilas Mengenai Visual Basic 6.0

15

2.5.1 Lingkungan Visual Basic

17

2.5.2 Komponen-komponen Visual Basic

18


BAB III TINJAUAN ORGANISASI

21

3.1 Profil Dinas Pekerjaan Umum

21


22

3.3 Tugas Pokok dan Fungsi

23

3.4 Pernyataan Visi dan Misi

25

3.5 Struktur Organisasi

26

BAB IV RANCANGAN SISTEM PROGRAM

29

4.1 Data Flow Diagram (DFD)

29

4.2 Rancangan Database

31

4.3 Rancangan Menu

33

4.4 Rancangan Input

34

4.5 Rancangan Output

36

BAB V IMPLEMENTASI SISTEM

38

5.1 Pengertian Implementasi Sistem

38

5.2 Tujuan Implementasi Sistem

38

5.3 Komponen Utama dalam Implementasi Sistem

39

BAB VI KESIMPULAN DAN SARAN

42

6.1 Kesimpulan

42

6.2 Saran

43

DAFTAR PUSTAKA LAMPIRAN A LAMPIRAN B LAMPIRAN C


BAB 1

PENDAHULUAN

1.1 Latar Belakang

Perkembangan teknologi dewasa ini tidak terlepas dari semakin bertambah majunya teknologi komputer. Kebutuhan akan teknologi komputer pun semakin diminati oleh perusahaan-perusahaan disegala bidang, baik perusahaan swasta maupun pada instansiinstansi pemerintah. Hal ini berkaitan dengan pekerjaan-pekerjaan yang biasanya selalu dilakukan secara manual oleh manusia akan semakin cepat dan efisien apabila dilakukan dengan sistem komputerisasi. Bahkan dengan kecanggihan teknologi komputer yang semakin berkembang dengan pesat dapat memudahkan perusahaan-perusahaan tersebut untuk meningkatkan efisiensi kerja karena pekerjaan yang dilakukan dengan komputer dapat menghemat baik dari segi waktu, ruang, tenaga, biaya, dan lain-lain.

Pada mulanya komputer hanya digunakan sebagai alat penghitung oleh manusia. Namun sekarang semakin berkembangnya teknologi khususnya di bidang komputer serta dengan meningkatnya kebutuhan serta pengetahuan manusia akan pentingnya teknologi, Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

maka fasilitas yang disediakan oleh komputer pun semakin meningkat dengan tidak hanya digunakan sebagai alat penghitung saja. Salah satu penggunaan lain dari komputer adalah menyangkut tentang data processing.

Data processing kepegawaian merupakan data yang sangat vital bagi sebuah perusahaan, baik itu perusahaan swasta maupun dinas pemerintahan. Untuk itu penulis mencoba membuat perancangan suatu sistem untuk melakukan proses kerja khususnya dalam penginputan data pegawai pada Dinas Pekerjaan Umum Kabupaten Asahan.

Oleh karena itu penulis sangat tertarik untuk menyusun Tugas Akhir dengan judul: ”Sistem Informasi Kepegawaian pada Dinas Pekerjaan Umum Kabupaten Asahan”.

1.2 Identifikasi Masalah

Dalam pengolahan data diperlukan suatu identifikasi terhadap permasalahan yang dihadapi. Sering kali dalam melakukan proses pengolahan data muncul permasalahan yang dapat menghambat kelancaran dari proses tersebut. Permasalahan yang dihadapi oleh Dinas Pekerjaan Umum Kabupaten Asahan adalah sistem pengolahan data lebih banyak dilakukan secara manual dan tidak menggunakan software terbaru yang diharapkan dapat mempermudah pendataan. Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Oleh karena itu, penulis berusaha membantu meringankan masalah tersebut dengan membuat pengolahan data dengan menggunakan bahasa pemograman Visual Basic 6.0.

1.3 Batasan Masalah

Untuk menghindari hal-hal yang menyimpang dari maksud dan tujuan sebenarnya, penulis membatasi permasalahan hanya pada pengolahan data kepegawaian saja yang dilakukan pada Dinas Pekerjaan Umum Kabupaten Asahan Sumatera Utara.


Adapun maksud dari penelitian ini adalah untuk mengembangkan serta memperbaharui sistem pemrosesan data pegawai pada Dinas Pekerjaan Umum kabupaten Asahan Sumatera Utara.

Sedangkan tujuan dari penelitian ini adalah membuat suatu software basis data mengenai data poegawai pada Dinas Pekerjaan Umum kabupaten Asahan dengan menggunakan Visual Basic.


Selain itu penelitian ini juga bertujuan untuk menyusun tugas akhir yang merupakan salah satu syarat dalam menyelesaikan program Studi Diploma III Ilmu Komputer.

1.5 Metodologi Penelitian

Metode penelitian yang digunakan dalam penelitian ini terdiri dari 2 macam, yaitu : 1. Studi Pustaka Studi pustaka dilakukan dengan cara mempelajari teori-teori literature dan bukubuku yang berhubungan dengan objek kerja praktek sebagai dasar dalam penelitian ini. 2. Studi Lapangan Studi lapangan dilakukan dengan cara meneliti instansi/perusahaan secara langsung. Hal ini dilakukan untuk mendapatkan data-data dan keteranganketerangan yang berhubungan dengan masalah yang sedang diteliti.

Studi Lapangan ini meliputi : a. Interview (wawancara) Yaitu pengumpulan data dengan cara mengadakan wawancara secara langsung kepada pihak yang terkait. b. Observasi (pengamatan) Yaitu teknik pengumpulan data secara langsung dilapangan sehingga memperoleh data yang lebih akurat dan keterangan yang cukup jelas. Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

1.6 Organisasi Penulisan

Penulisan Tugas Akhir ini dibagi atas IV (enam) bab dan masing-masing bab dibagi atas beberapa sub bab dengan maksud agar Tugas Akhir ini lebih terperinci dan akan mempermudah di dalam pembahasan dan pemahaman masing-masing bab.

Adapun bab-bab tersebut adalah : BAB 1 :

PENDAHULUAN Bab ini menguraikan secara garis besar mengenai pokok-pokok permasalahn yaitu hal-hal yang mencakup latar belakang, perumusan masalah, batasan masalah, maksud dan tujuan, metodologi penelitian dan organisasi penulisan Tugas Akhir.

BAB 2 :

LANDASAN TEORI Bab ini mengiraikan secara garis besar mengenai pengertian komputer, Pengolahan data, pengertian sistem informasi, dan sekilas tentang Microsoft Visual Basic.

BAB 3 :

TINJAUAN ORGANISASI Bab ini menguraikan tentang profil Dinas Pekerjaan Umum, tugas pokok dan fungsi, visi dan misi, serta struktur organisasi Dinas Pekerjaan Umum.


BAB 4 :

PERANCANGAN SISTEM YANG DIUSULKAN Bab ini menguraikan tentang gambaran sistem, perancangan struktur basis data, perancangan menu, algoritma program , serta perancangan output.

BAB 5 :

IMPLEMENTASI SISTEM Menjelaskan tentang implementasi sistem yang meliputi pengertian implementasi sistem, tujuan implementasi sistem, komponen utama dalam implementasi sistem serta pemeliharaan sistem.

BAB 6 :

KESIUMPULAN DAN SARAN Bab ini menguraikan tentang kesimpulan dari uraian bab-bab sebelumnya, sehingga dari kesimpulan tersebut penulis mencoba memberi saran yang berguna untuk melengkapi dan menyempurnakan produktivitas kerja yang akan datang, juga dilengkapi dengan daftar pustaka dan beberapa lampiran yang berkaitan dengan pembahasan.


BAB 2

LANDASAN TEORI

2.1 Pengertian Komputer

Teknologi komputer sesungguhnya telah banyak merubah sistem tata kerja sebagian manusia yang bergerak di bidang informasi. Istilah komputer mempunyai arti yang luas dan berbeda untuk orang yang berbeda. Istilah komputer (computer) diambil dari bahasa latin ”computare” yang berarti menghitung (to Compute atau reckon).

Dari berbagai pengertian dari komputer dapat diambil kesimpulan bahwa pengertian komputer adalah suatu alat elektronik yang dapat menerima input data, mengolah data, memberikan informasi dengan menggunakan suatu program yang tersimpan di memori komputer (stored program), dapat menyimpan program dan hasil pengolahan, serta bekerja secara otomatis.


2.2 Pengolahan Data

Data berasal dari bahasa latin yaitu ”datum” yang berarti fakta, kenyataan, kejadian, atau peristiwa. Jadi data adalah fakta dasar yang mewakili suatu kejadian. Data diproses oleh sistem komputer untuk menghasilkan informasi. Inilah alasan utama keberadaan komputer. Data dapat berupa angka dalam berbagai bentuk.

Salah satu komponen dalam pengolahan data yang diperlukan adalah merupakan program aplikasi (program komputer) yang mana berisikan sederetan instruksi yang disusun dan dapat diterima oleh komputer. Jadi pengolahan data adalah proses untuk melakukan manipulasi dari pemakaian data agar menghasilkan informasi yang diperlukan. Secara umum pengolahan data terdiri dari tiga langkah, yaitu : 1. Input (pemasukan data) 2. Proses (pengolahan Data) 3. Output (hasil keluaran berupa informasi)

INPUT

PROCESSING

OUTPUT

Gambar 2.1. Siklus Pengolahan Data


Pengolahan data merupakan segala macam pengolahan terahadap data untuk membuat data itu berguna sesuai dengan hasil yang diinginkan, sehingga dapat segera dipakai, hasil pengolahan data tersebut adalah informasi. Sewaktu merencanakan proyek penelitian, orang yang melakukan penelitian seharusnya sudah mempunyai rencana mengenai pengolahan dan desain outputnya. Pengolahan data meliputi kegiatan-kegiatan mulai dari penyiapan data sampai mengeluarkan hasil pengolahan data. Pengolaha data dengan menggunakan perangkat elektronik secara sederhana meliputi : 1. Masukan data Data terlebih dahulu dikumpulkan, kemudian dipindahkan kesesuatu peralatan input komputer. Record data yang dihasilkan akan dibaca oleh komputer melalui bahasa pemograman yang akan diterjemahkan ke dalam bahasa mesin yang akan dimengerti oleh komputer. 2. memproses data Ada beberapa jenis pemrosesan data, antara lain : a. Penyorotan Record data disusun / diurutkan sesuai dengan urutan yang diinginkan, biak numerik maupun alphabetik b. Klassifikasi Record data disusun dalam berbagai kelompok. c. Kalkulasi Melakukan perhitungan dengan manipulasi aritmatika terhadap data d. Ringkasan Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Menerangkan data menjadi lebih sederhana dan ringkas e. Seleksi Mengambil record-record tertentu 3. Hasil pengolahan Hasil pengolahan disajikan dalam suatu format tertentu yang berisi informasi. Output ini mungkin juga disimpan dalam suatu media yang akan digunakan untuk pengolahan selanjutnya 4. Pemeliharaan Terhadap sistem yang telah selesai dibuat dapat dilakukan beberapa perubahan atau penambahan yang sesuai dengan keinginan pemakai. Pada fase pemeliharaan ini dilakukan pemeriksaan ulang pada setiap jangka waktu.

2.3 Basis Data (Database)

2.3.1 Pengertian Basis Data (Database)

Basis data (Database) merupakan kumpulan dari yang saling berhubungan satu dengan yang lainnya, tersimpan di pernagkat keras komputer dan digunakan perangkat lunak untuk memenipulasinya. Database merupakan salah satu komponen yang penting dalam sistem informasi karena merupakan basis dalam menyediakan informasi bagi para pemakai. Penerapan basis data dalam sistem informasi disebut dengan database sistem. Sistem basis data (data system) adalah suatu sistem informasi yang mengintegrasikan Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

kumpulan dari data yang saling berhubungan satu dengan yang lainnya dan membuatnya tersedia bagi beberapa aplikasi yang bermacam-macam di dalam organisasi.

2.3.2 Komponen Basis Data (Database )

Apabila kita lihat dari komponen di dalam basis data, maka kita dapat menyebutkan bahwa : 1. Basis data terdiri dari beberapa file 2. file terdiri dari beberapa record 3. Record terdiri dari beberapa field 4. Field terdiri dari beberapa karakter

Karakter merupakan bagian data yang terkecil dapat berupa karakter numerik, huruf maupun karakter khusus yang memebentuk suatu data item (field). Field adalah sekumpulan data data record

yang sejenis, yang merupakan kumpulan data untuk

mewakili suatu entity data record.

Record

merupakan

kumpulan

dari

field

membentuk

record.

Record

manggambarkan unit dari data individu tertentu. File merupakan kumpulan dari recordrecord yang sejenis yang mempunyai panjang elemen yang sama, atribut yang sama namun berbeda data valuenya. File terdiri dari record-record yang menggambarkan suatu kesatuan data yang sejenis.


Dengan menggunakan sistem basis data masalah pada manajemen basis data dapat dikurangi. Dengan sistem basis data juga dapat mengurangi duplikasi data dengan tujuan untuk mengurangi biaya manajemen. Basis data dapat dibuat cukup fleksibel dalam arti mudah ditambah atau dikurangi bahkan dimodifikasi, dan sistem basis data dapat menghubungkan data dengan data lainnya.

2.4 Pengertian Sistem Informasi

Dalam pengertian sistem informasi ada baik terlebih dahulu mengerti arti dari sistem dan informasi. Dengan memahami defenisi sistem dan informasi akan dapat diperoleh penjelasan yang baik tentang sistem informasi.

2.4.1 Pengertian sistem

Istilah sistem merupakan suatu istilah yang tidak asing lagi dan banyak digunakan secara luas pada lembaga-lembaga atau bidang-bidang ilmu pengetahuan dan teknologi. Istilah sistem berasal dari bahasa Yunani yaitu ”SYSTEMA”. Ditinjau dari asal katanya, sistem bararti sekumpulan objek yang bekerja bersama-sama untuk menghasilkan suatu kesatuan metode yang digabungkan dan diatur sedemikian rupa yang berfungsi mencapai tujuan. Suatu sistem dapat terdiri dari beberapa subsistem yang saling berhubungan yang membentuk suatu kesatuan sehingga sasaran atau tujuan sistem tersebut dapat tercapai. Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Pada umumnya ciri-ciri sistem adalah bertujuan, punya batas, terbuka, tersusun dari subsistem, ada saling berkaitan dan saling tergantung, merupakan satu kebulatan yang utuh, melakukan kegiatan transformasi, ada mekanisme kontrol, dan memiliki kemampuan mengatur dan menyesuaikan diri sendiri.

2.4.2 Pengertian Informasi

Informasi merupakan fakta data yang telah diproses transformasi data sehingga berubah bentuk menjadi informasi atau informasi adalah data yang telah diambil kembali diolah atau sebaliknya digunakan untuk tujuan informatif, argumentasi ataupun sebagai dasar untuk pengambilan keputusan.Informasi ini adalah hasil proses data yang bentuknya kurang berguna menjadi data yang berguna.

Kualitas dari suatu informasi tergantung dari tiga hal, yaitu informasi harus akurat, tepat pada waktunya dan relevan. a. Akurat, berarti informasi harus bebas dari kesalahan-kesalahan dan tidak menyesatkan. b. Tepat pada waktunya, berarti informasi yang datang pada penerima tidak boleh terlambat c. Relevan, berarti informasi tersebut mempunyai manfaat untuk pemakainya.


Kegunaan informasi itu sendiri adalah untuk memberitahukan kepada si penerima informasi mengenai suatu masalah agar si penerima informasi lebih dapat menguasai masalah yang dihadapinya. Informasi juga dapat mengurangi ketidakpastian tentang suatu masalah yang dapat digunakan untuk memilih resiko yang paling kecil dan keuntungan yang besar dala pemilihan alternatif bagi suatu proses pengambilan keputusan.

Dari defenisi sistem dan informasi dapat disimpulkan bahwa sistem informasi adalah suatu sistem di dalam suatu sistem organisasi yang merupakan kombinasi dari orang-orang, fasilitas, teknologi, media, prosedur-prosedur dan pengendalian yang ditujukan untuk mendapatkan jalur komunikasi penting, memproses tipe transaksi rutin tertentu, memberi sinyal kepada manajemen dan yang lainnya terhadap kejadian-kejadian internal dan eksternal yang penting dan menyediakan suatu dasar informasi untuk pengambilan keputusan yang cerdik.

2.4.3 Peranan Komputer dalam Sistem Informasi

Komputer mempunyai peran penting untuk membantu manusia dalam menyelesaikan dan memecahkan masalah yang dihadapinya. Setiap pemecahan persoalan yang dilakukan manusia, hendaknya mempunyai dua unsur yaitu: 1. adanya fakta dan data 2. bagaimana proses pemecahannya


Jika pengolahan data dilakukan secara manual tidak akan menjamin ketelitian serta kebenaran hasil atau informasi yang diinginkan. Masalah pendataan dan pengolahan data dapat dipecahkan dengan mudah dalam waktu singkat dengan menggunakan alat bantu komputer.

Dalam hal hubungan inilah diperlukan suatu sistem penglohan data yang cepat dan tepat untuk memberikan informasi yang sangat menjamin benarnya keputusan yang telah ditetapkan. Dilihat dari aspek praktisnya, maka tidak jarang seseorang terlambat atau belum selesai didalam pengambilan keputusan dan mendapat informasi yang cepat dalam pengolahan data secara menual. Tetapi dengan adanya pengolahan data dengan komputer hal tersebut dapat diatasi.

Peranan komputer dalam suatu sistem informasi sangatlah penting, hal ini diakibatkan besar dan banyaknya data yang akan diolah dengan beranekaragam jenis data. Disinilah komputer memegang peranan penting untuk melakukan pengolahan data yang banyak dan beraneka ragam informasi dapat diperoleh dengan cepat dan tepat.

2.5 Sekilas Mengenai Visual Basic 6.0

Visual Basic pada dasarnya adalah bahasa pemograman komputer. Bahasa pemograman adalah perintah-perintah atau instruksi yang dimengerti oleh komputer untuk melakukan


tugas-tugas tertentu. Bahasa pemograman visual basic merupakan bahasa yang mudah dipahami sehingga manusia sekarang lebih banyak memilih pemograman Visual Basic.

Visual Basic selain disebut sbagai bahasa pemograman, juga sering disebut sarana (tool) untuk menghasilkan program-program aplikasi berbasis windows. Beberapa kemampuan atau manfaat dari Visual Basic diantaranya seperti: a. Untuk membuat program aplikasi berbasis Windows b. Untuk membuat objek-objek pembantu program seperti kontrol Activex, File, Help, Aplikasi internet dan sebagainya c. Menguji program dan menghasilkan program akhir berakhiran EXE yang bersifat Executable, atau dapat langsung dijalankan.

Bagi programmer pemula yang baru iungin belajar program, lingkungan Visual Basic dapat membantu membuat program berbasis Windows dengan mudah. Sedangkan bagi programmer tingkat lanjut, dengan kemampuannya yang besar dapat digunakan untuk membuat program yang kompleks, misalnya dalam lingkungan Netwoking atau Clien Server. Bahasa pemograman Visual Basic cukup sederhana dan menggunakan katakata bahasa inggris yang umum digunakan dan tidak perlu lagi menghapal sintaks-sintaks maupun format-format bahasa yang bermacam-macam. Dalam Visual Basic semuanya sudah disediakan dalam pilihan-pilihan yang tinggal diambil sesuai kebutuhan. Selain itu, sarana pengembangannya yang bersifat visual lebih memudahkan untuk mengembangkan program aplikasi berbasis Windows ini, bersifat Mouse Driven (digerakkan dengan mouse) dan berdaya guna tinggi. Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Kesimpulannya, Visual Basic adalah sebuah sarana pembuat program aplikasi yang lengkap dan mudah dipahami. 2.5.1 Lingkungan Visual Basic

Tempat bidang kerja untuk menghasilkan program aplikasi adalah di IDE. Interface Development Environment atau disingkat dengan IDE adalah tampilan antarmuka program dengan pengguna yang sudah bersifat grafic user interface, yang menyajikan kemudahan bagi para programmer untuk membuat aplikasi. IDE juga disebut sebagai komponen-komponen dari lingkungan Visual Basic.

Lingkungan pemograman MS Visual Basic berisi semua alat Bantu yang diperlukan untuk membuat program-program yang berguna untuk windows secara cepat dan efisien.


Gambar 2.2 Tampilan Dasar MS Visual Basic

2.5.2 Komponen-komponen Visual Basic

Komponen-komponen Visual Basic terdiri dari : 1. Form Windows (Jendela Form) adalah pusat dari pengembangan aplikasi visual basic. Disinilah tempat merancang aplikasi yang akan atau kita inginkan.


Gambar 2.3.Form Windows

2. Project Windows (Jendela Proyek), menampilkan daftar form dan modul proyek. Proyek merupakan kumpulan dari modul form, modul class, modul standart, dan file sumber yang membentuk suatu aplikasi.

Gambar 2.4.Project Windows 3. Toolbox adalah kumpulan dari proyek yang digunakan atau membuat user interface serta control bagi program aplikasi. Ada dua cara untuk menempatkan kontrol pada suatu form a. Klik ganda kontrol dalam toolbox, selanjutnya anda dapat mengubah besar dan ukuran serta memindahkannya dengan metode drag dan drop. b. Klik kontrol dalam toolbox, kemudian pindahkan pointer mouse pada jendela form, kursor akan berubah menjadi crosshairt(+).


Gambar 2.5.Toolbox

4. Property Windows (Jendela Properti) berisi daftar struktur setting property yang digunakan pada sebuah objek yang terpilih. Kotak drop-down pada bagian atas jendela berisi daftar semua objek pada form yang aktif. Ada dua tab tampilan : Alphabetic (urut abjat) dan Catagorized (urut berdasarkan kelompok).

Gambar 2.6.Property Windows Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

5. Form Layout Windows (Jendela Layout Form) menampilkan posisi form relatif terhadap layar monitor pada saat program dijalankan atau dieksekusi (Running/Compiling).

Gambar 2.7.Form Layout Windows

BAB 3

TINJAUAN ORGANISASI

3.1 profil Dinas Pekerjaan Umum


Sesuai dengan tuntutan perubahan yang terjadi baik terhadap publik maupun masyarakat, Dinas Pekerjaan Umum berupaya melakukan pembenahan diri terhadap tugas pokok dan fungsi dalam rangka mewujudkan pelaksanaan pola paradigma baru sejalan dengan mekanisme pencapaian Good Govermence dalam tugas dan tanggung jawab yang tepat, jelas dan terukur.

Berlandaskan aturan pelaksanaan Undang-undang nomor 28 tahun 1999 tentang Penyelenggaraan Negara yang bersih dan bebas KKN, lebih rinci diatur di dalam pelaksanaan Inpres nomor 7 tahun 1999 tentang Akuntabilitas Kinerja Instasi Pemerintah (AKIP), atas dasar ini penyelenggara Pemerintah (Dinas Pekerjaan Umum Kabupaten Asahan) wajib membuat laporan Akuntabilitas.

Langkah-langkah mekanisme pertanggung jawaban yang tepat, jelas dan terukur mengacu kepada renstra jangka panjang yang tertuang di dalam Rencana Stratejik Dinas Pekerjaan Umum Kabupaten Asahan.


Laporan Akuntabilitas Kinerja Instansi Pemerintah (LAKIP) merupakan tanggung jawab atas tugas-tugas yang diemban juga merupakan bagian dari integral dan siklus akuntabilitas itu sendiri pada suatu sistem Akuntabilitas Kinerja Instansi Pemerintah yang memiliki akses dari sistem AKIP adalah perwujudan dan implementasi Dinas Pekerjaan Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Umum

Kabupaten

Asahan

didalam

mengendalikan

inprastruktur

managemen

penyelenggara pemerintah untuk memastikan bahwa visi, misi dan tujuan strategi Dinas Pekerjaan Umum Kabupaten Asahan, melalui implementasi strategi pencapaian program kegiatan harus selaras.

Atas dasar tersebut siklus sistem AKIP diawali dengan penuyusunan rencana strategi yang mendefenisikan visi, misi dan tujuan/sasaran strategi Dinas Pekerjaan Umum Kabupaten Asahan.

Pelaksanaan program dan kegiatan selaras setiap tahun dilaksanakan dalam rangka pemenuhan vis, misi dan tujuan/sasaran strategi dengan sistem pengukuran kinerja nantinya dapat dibangun dan kembangkan untuk menilai sejauh mana pencapaian kinerja Dinas Pekerjaan Umum Kabupaten Asahan.

Dua fungsi utama LAKIP tersebut merupakan cerminan dari maksud dan tujuan penyusunan penyampaian LAKIP oleh setiap instansi pemerintah.


Akuntabilitas Kinerja

Manajemen Kinerja

LAKIP

3.3 Tugas Pokok dan Fungsi

Bardasarkan peraturan daerah nomor 4 tahun 2003 tentang Perubahan Pertama atas Peraturan Daerah kabupaten Asahan Nomor 02 tahun 2001 tentang Pembentukan dan Susunan Dinas-dinas Daerah Kabupaten Asahan, yang mengemban tugas malaksanakan urusan rumah tangga daerah dalam Bidang Pekerjaan Umum meliputi perencanaan, pengendalian dan pengembangan bidang Bina Marga, Pengairan, Perkotaan Pedesaan dan Cipta Karya, Dinas Pekerjaan Umum Kabupaten Asahan dengan fungsi sebagai berikut :

a. Mengkoordinasi perencanaan yaitu segala usaha dan kegiatan pengumpulan,, pengolahan dan penilaian, pemutahiran data serta penyusunan perencanaan program dan perumusan kebijakan teknis yang ditetapkan Kepala Daerah.


b. Mengkoordinasi pelaksanaan yaitu segala usaha dan kegiatan untuk melaksanakan perencanaan/program kebijaksanaan teknis yang telah ditetapkan. c. Mengkoordinasikan pembinaan yaitu segala usaha dan kegiatan untuk melaksanakan kegiatan penyuluhan dan

bimbingan kearah peningkatan

kemampuan pedoman untuk melaksanakan tugas di Bidang Pekerjaan Umum. d. Mengkoordinasi pelaksanaan pembinaan dan pengembangan perkotaan dan pedesaan. e. Mengkoordinasi pengawasan yaitu segala usaha dan kegiatan untuk melaksanakan pengamanan atas pelaksanaan tugas pokok sesuai Peraturan Perundang-undangan yang berlaku. f. Mengkoordinasi pengelolaan Unit Pelaksana Teknis Dinas. g. Mengkoordinasikan pengelolaan administrasi meliputi, kegiatan di Bidang ketatausahaan umum dan keuangan. h. Mengkoordinasikan pelaksanaan tugas lain yang diperintahkan oleh atasan.

3.4 Pernyataan Visi dan Misi

Visi merupakan pandangan jauh ke depan, ke mana dan bagaimana instansi pemerintah harus dibawa dan berkarya agar konsisten dan dapat eksis, antisipatif, inovatif serta Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

produktif. Visi tidak lain adalah suatu gambaran yang menantang tentang keadaan masa depan berisikan cita dan citra yang ingin diwujudkan oleh instansi pemerintah. Dengan mengacu pada batasan tersebut, visi Dinas Pekerjaan Umum Kabupaten Asahan dijabarkan sebagai berikut: ” Mewujudkan Kwalitas dan Kwantitas Serta Tercapainya Sarana dan Prasarana Daerah Guna Pemanfaatan Sumber Daya Daerah Secara Optimal ”.

Agar tidak menimbulkan persepsi yang berbeda bagi semua pihak yang berkepentingan dengan Renstra, maka perlu dijelaskan makna dari kalimat Visi tersebut di atas, sebagai berikut : a.

Mewujudkan kwalitas dan kwantitas mengandung arti bahwa Dinas Pekerjaan Umum Kabupaten Asahan Pendayagunaan Aparatur yang dimilikim kwalitas dalam perencanaan, pengawasan pembangunan dengan melaksanakan tugas secara optimal dean profesional.

b.

Tercapainya Sarana dan Prasarana Daerah mengandung arti bahwa komponen ini mendukung perekonomian daerah dari sektor pertanian pangan, perkebunan maupun perdagangan, kelancaran transportasi dapat lebih lancar antara desa ke kota.

c.

Memanfaatkan sumber daya daerah secara optimal mengandung arti bahwa singkron pelaksanaan pembangunan sarana dan prasarana pertama dapat meningkatkan perekonomian masyarakat sekaligus dapat meningkatkan pendapatan asli daerah melalui retribusi pemakaian kekayaan daerah.


Untuk memenuhi visi tersebut, pemerintah menjabarkannya ke dalam Misi Dinas Pekerjaan Umum Kabupaten Asahan tahun 2005 samapai tahun 2009 yaitu : a. Meningkatkan kwalitas para staf perencana dan pembangunan. b. Mengoptimalkan perawatan jalan, jembatan dan irigasi. c. Mengoptimalkan pemanfaatan alat-alat berat untuk perawatan dan pengembangan wilayah. d. Meningkatkan kwalitas dan kapasitas perawatan jalan, jembatan dan irigasi secara berkelanjutan.

3.5 Struktur Organisasi

Berdasarkan peraturan daerah nomor 4 tahun 2003 tentang Perubahan Pertama atas Peraturan Daerah Kabupaten Asahan Nomor 02 tahun 2001 tentang Pembentukan dan Susunan Dinas-dinas Daerah Kabupaten Asahan, Dinas Pekerjaan Umum Kabupaten Asahan dipimpin oleh Kepala Dinas (Eselon II b) Kepala Dinas ddbantu 5 (lima) orang pejabat Struktural Eselon IIIA dan dibantu oleh 34 (tiga puluh empat) orang Ewselon IVA sebagai berikut : 1. Kabag Tata Usaha membawahi: a. Kasubag Umum b. Kasubag Keuangan 2. Bidang Perencanaan, Pemantauan, Evaluasi dan Pelaporan membawahi: a. Seksi Penyusunan Rencana Program Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

b. Seksi Pemantau dan Pengendalian c. Seksi Evaluasi dan Pelaporan 3. Bidang Pengairan membawahi: a. Seksi Pengenmangan Wilayah Pertanian b. Seksi Pengairan dan Irigasi c. Seksi Pengembangan Sumber Daya Air 4. Bidang Prasarana Wilayah membawahi: a. Seksi Jalan dan Jembatan b. Seksi Peralatan c. Seksi Pemeliharaan dan Perawatan 5. Bidang Tata Ruang dan Permukiman membawahi: a. Seksi Permukiman dan Penyehatan Lingkungan b. Seksi Jasa Konstruksi c. Seksi Tata Ruang 6. Unit Pelaksana Teknis Dinas di bawah kendali langsung Kepala Dinas sama halnya dengan tugas-tugas fungsional Dinas.

BAB 4 RANCANGAN SISTEM PROGRAM


4.1 Data Flow Diagram (FDF) Perancangan DFD yang penulis buat dalam perancangan ini terdiri dari Diagram Konteks, dan DFD Level Nol . Bagian Kepegawaian

Pegawai Informasi absensi pegawai

Berkas absensi pegawai

0 - Biodata pegawai - pengisian absen

SISTEM INFORMASI KEPEGAWAIAN PD DINAS PEKERJAAN UMUM KAB. ASAHAN

- Data bagian - data golongan

- Laporan data pegawai - laporan absensi pegawai

Kepala Dinas

Gambar.4.1.Diagram Konteks Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kab. Asahan

Bagian Kepegawaian

Pegawai


1 Penginputan

- Data bagian - data golongan

Gambar.4.2.Data Flow Diagram Level Nol Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kab. Asahan 4.2 Rancangan Database


Dalam hal ini penulis memberikan struktur tabel database yang penulis gunakan untuk merancang sistem informasi kepegawaian, antara lain sebagai berikut :

Tabel 1. Bagian Field

Type

Width

Description

Kd_bag Nm_bag Divisi

Text Text Text

2 30 30

Kode bagian Nama bagian Nama divisi

Tabel 2. Biodata Pegawai Field

Type

Width

Description

NIP Nm_peg Jenkel Tgl_lahir T_lahir Agama Tgl_angkat Pendidikan Kd_bag Jabatan

Text Text Text Date Text Text Date Text Text Text

9 30 6 8 30 11 8 5 2 30

NIP Pegawai Nama pegawai Jenis kelamin Tanggal lahir Tempat lahir Agama Tanggal pengangkatan Pendidikan Kode bagian Jabatan

Field

Type

Width

Description

NIP Tgl_abs Keterangan

Text Text Text

9 30 10

NIP Pegawai Nama pegawai Keterangan

Tabel 3. Absensi

Berikut ini adalah relasi antar tabel (database relationship) yang digunakan dalam pembuatan program. Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Absensi Pegawai NIP Tgl_abs Keterangan Biodata Pegawai NIP Nm_peg Jenkel Tgl_lahir T_lahir Agama Tgl_angkat Pendidikan Kd_bag Jabatan

Bagian kd_bag nm_bag divisi

Gambar 4.3.Relasi Antar Tabel

4.3 Rancangan Menu


Dalam hal ini penulis memberikan struktur menu dan submenu yang penulis gunakan untuk merancang sistem informasi data pegawai, antara lain sebagai berikut :

Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kab. Asahan

Input

Laporan

Selesai

Gambar 4.4.Menu Utama

Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kab. Asahan

Input

Laporan

Selesai

Data Bagian Data Pegawai Data Absensi Pegawai

Gambar 4.5.Menu File

Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kab. Asahan Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Input

Laporan

Selesai

Informasi Pegawai Per Bagian Laporan Absensi Pegawai Per Tanggal Per Bagian Laporan Absensi Pegawai Per Bulan Per Bagian

Gambar 4.6.Menu Laporan

4.4 Rancangan Input

Berikut ini adalah rancangan form input data pada sistem informasi data kepegawaian, antara lain sebagai berikut:

Data Bagian

Kode Bagian: Nama Bagian: Nama Divisi:

Simpan Batal Keluar Gambar 4.7.Form Bagian

Gambar 4.7.Data Bagian Biodata Pegawai Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository ©NIP: 2009

Pegawai: Jenis Kelamin: Tgl. Lahir:

Simpan

Batal

Keluar

Gambar 4.8.Form Biodata Pegawai


Absensi Pegawai

NIP: Pegawai: Tgl. Absen: Keterangan:

Simpan

Batal

Keluar

Gambar 4.9.Form Absensi Pegawai Gambar 4.9.Form Absensi Pegawai

4.5 Rancangan Output

Berikut ini adalah rancangan keluaran (output) pengolahan data pada sistem informasi data kepegawaian, antara lain sebagai berikut :

Dinas Pekerjaan Umum Kab. Asahan Daftar Biodata Pegawai Bagian: xxxxxxxx Divisi: xxxxxxxx NIP

Nama Pegawai

Jenis Kelamin

Tgl. Lahir

Tempat Lahir

Agama

Tgl. Pengangkatan

Pendidikan

Jabatan

Jumlah record: 9999 Diketahui Oleh, (………………………) Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Gambar 4.10.Daftar Biodata Pegawai Dinas Pekerjaan Umum Kab. Asahan Daftar Absensi Pegawai Tanggal: 99/99/99 Bagian: xxxxxxxx Divisi: xxxxxxxx NIP

Nama Pegawai

Jenis Kelamin

Keterangan

Jumlah record: 9999 Diketahui Oleh, (……………………)

Gambar 4.11.Daftar Absensi Pegawai pertanggal

Dinas Pekerjaan Umum Kab. Asahan Daftar Absensi Pegawai Bulan: 99/9999 Bagian: xxxxxxxx Divisi: xxxxxxxx NIP

Nama Pegawai

Jenis Kelamin

Tanggal

Keterangan

Jumlah record: 9999 Diketahui Oleh, (………………………)

Gambar 4.12 Daftar Absensi Pegawai Perbulan Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

BAB 5

IMPLEMENTASI SISTEM

5.1 Pengertian Implementasi Sistem

Implementasi Sistem adalah Prosedur yang dilakukan untuk menyelesaikan desain sistem yang didalam dokumen, desain yang disetujui, menguji sistem, menginstal serta memulai sistem yang baru atau yang baru diperbaiki. Ada juga yang mengatakan bahwa Implementasi Sistem adalah Proses yang dilakukan untuk menyelesaikan desain dan selanjutnya diinstal, diuji dan mulai digunakan untuk menggantikan sistem yang lama.

5.2 Tujuan Implementasi Sistem

Tujuan dari Implementasi system adalah sebagai berikut : 1. Menyelesaika desain sistem yang ada dalam dokumen desain sistem yang disetujui.


2. Menulis, menguji, mendokumentasi program yang prosedur-prosedur yang diperlukan oleh desain sistem yang disetuju. 3. Memperhitungkan bahwa personal dapat mengoperasikan sistem yang telah dirancang. 4. memperhitungkan bahwa sistem dapat memenuhi permintaan pemakai.

5.3 Komponen Utama dalam Implementasi Sistem

Untuk memperoleh hasil yang direncanakan dan untuk mencapai keinginan yang dimaksud dalam aplikasi. Adapun implementasi aplikasi ini adalah : 1. Kebutuhan Hardware Hardware yang dimaksud adalah komponen-komponen yang terlihat secara fisik, yang saling bekerja sama dalam melaksanakan pengolahan data. Perangkat keras yang digunakan meliputi : a. Satu unit CPU dengan prosesor Pentium 1 atau yang lebih tinggi. b. Monitor VGA atau layar yang mempunyai resolusi lebih tinggi. c. RAM 64 MB atau juga dapat dipakai RAM dengan kapasitas yang lebih besar. d. CD-ROM e. Harddisk dengan ruang kapasitas diatas 5 GB. f. Keyboard dan mouse g. Printer sebagai media pencetakan. Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

2. Kebutuha Software Software merupakan segala jenis instruksi yang mengarah computer untuk menjalankan program. Adapun perangkat lunak yang dibutuhkan untuk menjalankan atau menerapkan sistem baru ini adalah : a. Sistem operasi yang digunakan adalah PC Windows 98, sistem atau operasi sistem adalah sekelompok program kontrol atau pengendalian yang bertindak sebagai penghubung antara komputer dengan user. b. Program yang disusun dengan menggunakan Visual Basic versi 6.0 yang merupakan versi terbaru untuk saat ini yang banyak digunakan.

3. Kebutuhan Brainware Konsekuensi dibangunnya/dikembangka suatu aplikasi komputerisasi atau adanya mesin komputer sebagai alat bantu dibidang pengolahan data, maka manusia sebagai pelaksana dibidang komputer harus juga dipikirkan. Agar dapat menjalankan perangkat keras dan perangkat lunak maka dibutuhkan antara lain : a. Analyst Sistem, yaitu orang yang membentuk dan membangun fasilitas, rancangan sistem desain. b. Programmer, yaitu orang yang mengerti bahasa pemograman yang dilakukan dalam membuat suatu program.


c. Computer Operator, yaitu orang yang menangani langsung dalam pengolahan data, dari mulai mempersiapkan data sampai dengan data entry data ke dalam komputer.

d. Data Entry Operator, yaitu orang yang menangani semua yang akan diolah mulai dari pengolahan data sampai dengan perekaman data ke dalam media komputer.


DAFTAR PUSTAKA

Ramadhan, Arief. 2004. 36 Jam Belajar Komputer Visual Basic 6.0. Jakarta: PT. Elex Media Komputindo Kelompok Gramedia.

Daryanto. 2004. Belajar Komputer Visual Basic. Bandung: Yrama Widya.

Kok , Yung. 2002. “Membangun Database dengan Visual Basic 6.0 dan Perintah SQL”. Jakarta: PT. Elex Media Komputindo.

Mahyuzir, Tavri D. 2003. Analisa Perancangan Sistem Pengolahan Data. Jakarta: PT. Elex Media Komputindo.

Tim Divisi Penelitian Dan Pengembangan. 2005. Aplikasi Pemograman Database dengan Visual Basic 6.0 dan Crystal Report.Madiun: Penerbit Andi dan Madcoms.


LAMPIRAN A


1. Menu Utama


Gambar Menu Utama

2. Form Bagian

Gambar Form Bagian Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

3. Form Biodata pegawai


Gambar Form Biodata Pegawai

4. Form Absensi Pegawai Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Gambar Form Absensi Pegawai


5. Form Edit Bagian

Gambar Form Edit Bagian


6. Form Edit Pegawai

Gambar Form Edit Pegawai


7. Form Edit Absensi Pegawai

Gambar Form Edit Absensi Pegawai


8. Laporan Biodata Pegawai

Gambar Form Laporan Biodata Pegawai


Gambar Laporan Biodata Pegawai 9. Laporan Absensi Pegawai

Gambar Form Laporan Absensi Pegawai


Gambar Laporan Absensi Pegawai 10. Laporan Daftar Absensi Pegawai

Gambar Daftar Absensi Pegawai


Gambar Laporan Daftar Absensi Pegawai

11. Form Hapus Data Bagian


Gambar Form Hapus Data Bagian

12. Form Hapus Biodata Pegawai Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Gambar Form Hapus Biodata Pegawai


13. Form Hapus Absensi Pegawai

Gambar Form Hapus Absensi Pegawai


LAMPIRAN B


LISTING PROGRAM

Form Utama

Private Sub h1_Click() frmHBagian.Show End Sub Private Sub h2_Click() frmHPegawai.Show End Sub Private Sub h3_Click() frmHAbsensi.Show End Sub Private Sub l1_Click() L03.Show End Sub Private Sub l2_Click() L01.Show End Sub Private Sub l3_Click() L02.Show End Sub Private Sub l4_Click() L02.Show End Sub Private Sub m1_Click() frmTBagian.Show End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub m2_Click() frmTPegawai.Show End Sub Private Sub m3_Click() frmTAbsensi.Show End Sub Private Sub MDIForm_DblClick() Unload Me End Sub Private Sub MDIForm_Load() Connect End Sub Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then PopupMenu mnuedit End If End Sub Private Sub mnuklr_Click() End End Sub Private Sub Timer1_Timer() Me.Caption = Right$(Me.Caption, Len(Me.Caption) - 1) + Left$(Me.Caption, 1) StatusBar1.Panels(1) = Format(Date, "dd mmmm yyyy") StatusBar1.Panels(2) = Format(Time, "hh:mm:ss") End Sub Private Sub u1_Click() frmEBagian.Show End Sub Private Sub u2_Click() frmEPegawai.Show End Sub Private Sub u3_Click() frmEAbsensi.Show End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Form Data Bagian

Private Sub cmdBatal_Click() Call CleanControls Me.txt_kd_bag.SetFocus End Sub Private Sub CmdKeluar_Click() Unload Me End Sub Private Sub CmdSimpan_Click() If Me.txt_kd_bag.Text <> "" And _ Me.txt_nm_bag.Text <> "" Then Call Simpan Frame3.Visible = True Timer1.Enabled = True cmdBatal_Click MsgBox "Data sudah tersimpan!", vbExclamation, "Simpan Data" Else PesanKosong frmTBagian Exit Sub End If End Sub

Private Sub Form_Activate() Me.txt_kd_bag.SetFocus End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub

Private Sub CleanControls() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next End Sub

Private Sub Simpan()

SQlSimpan = "INSERT INTO bagian VALUES('" & Me.txt_kd_bag.Text & "'," & _ "'" & Me.txt_nm_bag.Text & "'," & _ "'" & Me.txt_divisi.Text & "');" Conn.Execute (SQlSimpan)

End Sub

Private Sub Form_Load() Call SetFormCenter(Me) End Sub

Private Sub tgl_lahir_Click() cthn = Year(Me.tgl_lahir.Value) If Val(cthn) >= 1953 And Val(cthn) <= 1991 Then Else Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

MsgBox "Pengisian tanggal lahir salah!", vbCritical, "Tanggal Lahir" Me.tgl_lahir.SetFocus Exit Sub End If End Sub

Private Sub nm_pel_KeyPress(KeyAscii As Integer) IsiDataText1 If InStr(Isitext, Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete And KeyAscii <> vbKeySpace Then KeyAscii = 0 End If End Sub Private Sub telp_KeyPress(KeyAscii As Integer) IsiDataText3 If InStr(Isitext, Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete And KeyAscii <> vbKeySpace Then KeyAscii = 0 End If End Sub

Form Biodata Pegawai

Private Sub cbokd_bag_Change() cbokd_bag_Click End Sub Private Sub cbokd_bag_Click() Call OpenTable("SELECT * FROM [bagian] WHERE kd_bag='" & Me.cbokd_bag.Text & "'", rsRS) With rsRS If Not .EOF Then Me.txt_nm_bag.Text = .Fields("nm_bag") Me.txt_divisi.Text = .Fields("divisi") Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

End If End With End Sub Private Sub cmdBatal_Click() Call CleanControls Me.txt_nip.SetFocus End Sub Private Sub CmdKeluar_Click() Unload Me End Sub

Private Sub CmdSimpan_Click() If Me.txt_nip.Text <> "" And _ Me.txt_nm_peg.Text <> "" And _ Me.cbo_agama.Text <> "" And _ Me.cbo_jenkel.Text <> "" And _ Me.txt_nm_bag.Text <> "" Then

Call Simpan Frame3.Visible = True Timer1.Enabled = True cmdBatal_Click MsgBox "Data sudah tersimpan!", vbExclamation, "Simpan Data" Else PesanKosong frmTPegawai Exit Sub End If

End Sub

Private Sub Form_Activate() Me.txt_nip.SetFocus Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub

Private Sub CleanControls() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next

End Sub

Private Sub Simpan() SQlSimpan = "INSERT INTO biodata VALUES('" & txt_nip.Text & "'," & _ "'" & Me.txt_nm_peg.Text & "'," & _ "'" & Me.cbo_jenkel.Text & "'," & _ "'" & Me.dt_tgl_lahir.Value & "'," & _ "'" & Me.txt_t_lahir.Text & "'," & _ "'" & Me.cbo_agama.Text & "'," & _ "'" & Me.dt_tgl_angkat.Value & "'," & _ "'" & Me.cbo_pendidikan.Text & "'," & _ "'" & Me.cbokd_bag.Text & "'," & _ "'" & Me.jabatan.Text & "');" Conn.Execute (SQlSimpan)

End Sub


Private Sub Form_Load() Call SetFormCenter(Me) Call Loadkd_bagToCombo("SELECT*FROM bagian", rsRS, Me.cbokd_bag) End Sub

Private Sub dt_tgl_lahir_Click() cthn = Year(Me.dt_tgl_lahir.Value) If Val(cthn) >= 1953 And Val(cthn) <= 1991 Then Else MsgBox "Pengisian tanggal lahir salah!", vbCritical, "Tanggal Lahir" Me.dt_tgl_lahir.SetFocus Exit Sub End If End Sub

Private Sub txt_nip_KeyPress(KeyAscii As Integer) IsiDataText2 If InStr(Isitext, Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete And KeyAscii <> vbKeySpace Then KeyAscii = 0 End If End Sub Private Sub txt_nm_peg_KeyPress(KeyAscii As Integer) IsiDataText1 If InStr(Isitext, Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete And KeyAscii <> vbKeySpace Then KeyAscii = 0 End If End Sub

Form Absensi Pegawai Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub cbonip_Click() Call OpenTable("SELECT * FROM [biodata] WHERE nip='" & Me.cbonip.Text & "'", rsRS) With rsRS If Not .EOF Then Me.txt_nm_peg.Text = .Fields("nm_peg") End If End With End Sub Private Sub cmdBatal_Click() Call CleanControls 'Call LoadDataToListView("SELECT * FROM [transaksi_pembayaran_cicilan]", rsRS, lv1, 4) Me.cbonip.SetFocus End Sub Private Sub CmdKeluar_Click() Unload Me End Sub

Private Sub CmdSimpan_Click() If Me.cbonip.Text <> "" And _ Me.cbo_keterangan.Text <> "" Then

Call Simpan Frame3.Visible = True Timer1.Enabled = True cmdBatal_Click MsgBox "Data sudah tersimpan!", vbExclamation, "Simpan Data"

Else PesanKosong frmTAbsensi Exit Sub End If

End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub Form_Activate() Me.cbonip.SetFocus Me.dt_tgl_abs.Value = Date End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub

Private Sub CleanControls() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next

End Sub

Private Sub Simpan() SQlSimpan = "INSERT INTO absensi (nip,tgl_abs,keterangan) VALUES('" & Me.cbonip.Text & "'," & _ "'" & Me.dt_tgl_abs.Value & "'," & _ "'" & Me.cbo_keterangan.Text & "');" Conn.Execute (SQlSimpan)

End Sub

Private Sub Form_Load() Call LoadnipToCombo("SELECT*FROM biodata", rsRS, Me.cbonip) Call SetFormCenter(Me) Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

End Sub

Form Edit Data Bagian

Private Sub cmdBatal_Click() Call CleanControls Me.cbokd_bag.SetFocus cbokd_bag.Text = "" End Sub Private Sub CmdKeluar_Click() Unload Me End Sub Private Sub CmdSimpan_Click() If Me.cbokd_bag.Text <> "" Then Call Perbaiki cmdBatal_Click Call LoadDataToListView("SELECT * FROM [bagian]", rsRS, lv1, 10) Frame3.Visible = True Timer1.Enabled = True Else PesanKosong frmEBagian Exit Sub End If End Sub

Private Sub Form_Activate() Me.cbokd_bag.SetFocus End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub Private Sub Form_Load() Call LoadDataToListView("SELECT * FROM [bagian]", rsRS, lv1, 10) Call SetFormCenter(Me) Call Loadkd_bagToCombo("SELECT*FROM bagian", rsRS, Me.cbokd_bag) Call SetFormCenter(Me) End Sub Private Sub CleanControls() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next cbokd_bag.Text = "" End Sub

Private Sub nm_bag_KeyPress(KeyAscii As Integer) IsiDataText1 If InStr(Isitext, Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete And KeyAscii <> vbKeySpace Then KeyAscii = 0 End If End Sub Private Sub cbokd_bag_Change() cbokd_bag_Click End Sub Private Sub cbokd_bag_Click()


Call OpenTable("SELECT * FROM [bagian] WHERE kd_bag='" & Me.cbokd_bag.Text & "'", rsRS) With rsRS If Not .EOF Then Me.txt_nm_bag.Text = .Fields("nm_bag") Me.txt_divisi.Text = .Fields("divisi")

End If End With End Sub Private Sub cbokd_bag_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cbokd_bag_Click End If End Sub

Private Sub lv1_Click() On Error GoTo e: Call OpenTable("SELECT * FROM [bagian] WHERE kd_bag='" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "'", rsRS) With rsRS If Not .EOF Then Me.cbokd_bag.Text = .Fields("kd_bag") Me.txt_nm_bag.Text = .Fields("nm_bag") End If End With e: Exit Sub End Sub

Private Sub Timer1_Timer() Bar1.Value = Bar1.Value + 10 Me.Label9.Caption = Bar1.Value If Bar1.Value = 100 Then Timer1.Enabled = False Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Frame3.Visible = False Bar1.Value = 0 PesanSimpan frmEBagian End If End Sub Sub Perbaiki() SQLHapus = "DELETE FROM [bagian] WHERE kd_bag='" & Me.cbokd_bag.Text & "'" Conn.Execute (SQLHapus) SQlSimpan = "INSERT INTO bagian VALUES('" & Me.cbokd_bag.Text & "'," & _ "'" & Me.txt_nm_bag.Text & "'," & _ "'" & txt_divisi.Text & "');"

Conn.Execute (SQlSimpan) End Sub Form Edit Biodata Pegawai

Private Sub cbokd_bag_Change() cbokd_bag_Click End Sub Private Sub cbokd_bag_Click() Call OpenTable("SELECT * FROM [bagian] WHERE kd_bag='" & Me.cbokd_bag.Text & "'", rsRS) With rsRS If Not .EOF Then Me.txt_nm_bag.Text = .Fields("nm_bag") Me.txt_divisi.Text = .Fields("divisi")

End If End With End Sub

Private Sub cmdBatal_Click() Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Call CleanControls Me.cbonip.SetFocus cbonip.Text = "" End Sub

Private Sub CmdKeluar_Click() Unload Me End Sub

Private Sub CmdSimpan_Click()

If Me.cbonip.Text <> "" Then

Call Perbaiki cmdBatal_Click Call LoadDataToListView("SELECT * FROM [qbiodata]", rsRS, lv1, 18) Frame3.Visible = True Timer1.Enabled = True Else PesanKosong frmEPegawai Exit Sub End If End Sub

Private Sub Form_Activate() Me.cbonip.SetFocus End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

End Sub Private Sub Form_Load() Call LoadDataToListView("SELECT * FROM [qbiodata]", rsRS, lv1, 18) Call SetFormCenter(Me) Call LoadnipToCombo("SELECT*FROM biodata", rsRS, Me.cbonip) Call Loadkd_bagToCombo("SELECT*FROM bagian", rsRS, Me.cbokd_bag) Call SetFormCenter(Me) End Sub Private Sub CleanControls() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next Me.cbonip.Text = "" End Sub

Private Sub cbonip_Change() cbonip_Click End Sub Private Sub cbonip_Click() Call OpenTable("SELECT * FROM [biodata] WHERE nip='" & Me.cbonip.Text & "'", rsRS) With rsRS If Not .EOF Then

Me.txt_nm_peg.Text = .Fields("nm_peg") Me.cbo_jenkel.Text = .Fields("jenkel") Me.dt_tgl_lahir.Value = .Fields("tgl_lahir") Me.txt_t_lahir = .Fields("t_lahir") Me.cbo_agama.Text = .Fields("agama") Me.dt_tgl_angkat.Value = .Fields("tgl_angkat") Me.cbo_pendidikan.Text = .Fields("pendidikan") Me.txt_jabatan.Text = .Fields("jabatan") Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Me.cbokd_bag.Text = .Fields("kd_bag") End If End With

End Sub Private Sub cbonip_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cbonip_Click

End If End Sub

Private Sub lv1_Click() On Error GoTo e: Call OpenTable("SELECT * FROM [biodata] WHERE nip='" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "'", rsRS) With rsRS If Not .EOF Then Me.cbonip.Text = .Fields("nip") Me.txt_nm_peg.Text = .Fields("nm_peg") Me.cbo_jenkel.Text = .Fields("jenkel") Me.dt_tgl_lahir.Value = .Fields("tgl_lahir") Me.txt_t_lahir = .Fields("t_lahir") Me.cbo_agama.Text = .Fields("agama") Me.dt_tgl_angkat.Value = .Fields("tgl_angkat") Me.cbo_pendidikan.Text = .Fields("pendidikan") Me.txt_jabatan.Text = .Fields("jabatan") Me.cbokd_bag.Text = .Fields("kd_bag")

End If End With e: Exit Sub End Sub

Private Sub dttgl_lahir_Click() Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

cthn = Year(Me.tgl_lahir.Value) If Val(cthn) >= 1953 And Val(cthn) <= 1991 Then Else MsgBox "Pengisian tanggal lahir salah!", vbCritical, "Tanggal Lahir" Me.dttgl_lahir.SetFocus Exit Sub End If

End Sub Private Sub Timer1_Timer() Bar1.Value = Bar1.Value + 10 Me.Label9.Caption = Bar1.Value If Bar1.Value = 100 Then Timer1.Enabled = False Frame3.Visible = False Bar1.Value = 0 PesanSimpan frmEPegawai End If End Sub Sub Perbaiki() SQLHapus = "DELETE FROM [biodata] WHERE nip='" & Me.cbonip.Text & "'" Conn.Execute (SQLHapus) SQlSimpan = "INSERT INTO biodata VALUES('" & cbonip.Text & "'," & _ "'" & Me.txt_nm_peg.Text & "'," & _ "'" & Me.cbo_jenkel.Text & "'," & _ "'" & Me.dt_tgl_lahir.Value & "'," & _ "'" & Me.txt_t_lahir.Text & "'," & _ "'" & Me.cbo_agama.Text & "'," & _ "'" & Me.dt_tgl_angkat.Value & "'," & _ "'" & Me.cbo_pendidikan.Text & "'," & _ "'" & Me.cbokd_bag.Text & "'," & _ "'" & Me.txt_jabatan.Text & "');" Conn.Execute (SQlSimpan)

End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub txt_nm_peg_KeyPress(KeyAscii As Integer) IsiDataText1 If InStr(Isitext, Chr(KeyAscii)) = 0 And KeyAscii <> vbKeyBack And KeyAscii <> vbKeyDelete And KeyAscii <> vbKeySpace Then KeyAscii = 0 End If End Sub

Form Edit Absensi Pegawai

Private Sub cmdBatal_Click() Call CleanControls Me.cbonip.SetFocus cbonip.Text = "" End Sub



If Me.cbonip.Text <> "" Then

Call Perbaiki cmdBatal_Click Call LoadDataToListView("SELECT * FROM [qabsensi]", rsRS, lv1, 18) Frame3.Visible = True Timer1.Enabled = True Else PesanKosong frmEPegawai Exit Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

End If End Sub

Private Sub Form_Activate() Me.cbonip.SetFocus End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub Private Sub Form_Load() Call LoadDataToListView("SELECT * FROM [qabsensi]", rsRS, lv1, 18) Call SetFormCenter(Me) Call LoadnipToCombo("SELECT*FROM biodata", rsRS, Me.cbonip) Call SetFormCenter(Me) End Sub Private Sub CleanControls() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next Me.cbonip.Text = "" End Sub

Private Sub cbonip_Change() cbonip_Click End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub cbonip_Click() Call OpenTable("SELECT * FROM [biodata] WHERE nip='" & Me.cbonip.Text & "'", rsRS) With rsRS If Not .EOF Then Me.txt_nm_peg.Text = .Fields("nm_peg") End If End With End Sub Private Sub cbonip_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cbonip_Click End If End Sub

Private Sub lv1_Click() 'On Error GoTo e: Call OpenTable("SELECT * FROM [absensi] WHERE id=" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "", rsRS) With rsRS If Not .EOF Then Me.Text1.Text = .Fields("id") Me.cbonip.Text = .Fields("nip") Me.dt_tgl_abs.Value = .Fields("tgl_abs") Me.cbo_keterangan.Text = .Fields("keterangan")

End If End With 'e: 'Exit Sub End Sub

Private Sub Timer1_Timer() Bar1.Value = Bar1.Value + 10 Me.Label9.Caption = Bar1.Value Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

If Bar1.Value = 100 Then Timer1.Enabled = False Frame3.Visible = False Bar1.Value = 0 PesanSimpan frmEAbsensi End If End Sub

Sub Perbaiki()

SQLPerbaiki = "UPDATE absensi SET nip ='" & Me.cbonip.Text & "'," & _ "tgl_abs ='" & Me.dt_tgl_abs.Value & "'," & _ "keterangan='" & Me.cbo_keterangan.Text & "' WHERE id = " & Me.Text1.Text & "" Conn.Execute (SQLPerbaiki)

End Sub


Form Hapus Data Bagian Private Sub cmdBatal_Click() Call CleanControls Me.cbokd_bag.SetFocus cbokd_bag.Text = "" End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009



Call OpenTable("SELECT * FROM [bagian] WHERE kd_bag='" & Me.cbokd_bag.Text & "'", rsRS) With rsRS If Not .EOF Then reply = MsgBox("Data Akan Dihapus?", vbQuestion + vbYesNo, "Konfirmasi") If reply = vbYes Then SQLHapus = "DELETE FROM [bagian] WHERE kd_bag='" & Me.cbokd_bag.Text & "'" Conn.Execute (SQLHapus) Call LoadDataToListView("SELECT * FROM [bagian]", rsRS, lv1, 10)

cmdBatal_Click MsgBox "Data Dihapus!", vbInformation, "Hapus Data" End If End If End With End Sub

Private Sub Form_Activate() Me.cbokd_bag.SetFocus End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub Private Sub Form_Load() Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Call LoadDataToListView("SELECT * FROM [bagian]", rsRS, lv1, 10) Call SetFormCenter(Me) Call Loadkd_bagToCombo("SELECT*FROM bagian", rsRS, Me.cbokd_bag) Call SetFormCenter(Me) End Sub Private Sub CleanControls() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next cbokd_bag.Text = "" End Sub

Private Sub cbokd_bag_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cbokd_bag_Click

End If End Sub Private Sub lv1_Click() On Error GoTo e: Call OpenTable("SELECT * FROM [bagian] WHERE kd_bag='" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "'", rsRS) With rsRS If Not .EOF Then Me.cbokd_bag.Text = .Fields("kd_bag") Me.txt_nm_bag.Text = .Fields("nm_bag") Me.txt_divisi.Text = .Fields("divisi") End If End With e: Exit Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

End Sub

Private Sub cbokd_bag_Change() cbokd_bag_Click End Sub Private Sub cbokd_bag_Click() Call OpenTable("SELECT * FROM [bagian] WHERE kd_bag='" & Me.cbokd_bag.Text & "'", rsRS) With rsRS If Not .EOF Then Me.txt_nm_bag.Text = .Fields("nm_bag") Me.txt_divisi.Text = .Fields("divisi") End If End With End Sub

Private Sub Timer1_Timer() Bar1.Value = Bar1.Value + 10 Me.Label9.Caption = Bar1.Value If Bar1.Value = 100 Then Timer1.Enabled = False Frame3.Visible = False Bar1.Value = 0 PesanSimpan frmHBagian End If End Sub

Sub Perbaiki() SQLHapus = "DELETE FROM [bagian] WHERE kd_bag='" & Me.cbokd_bag.Text & "'" Conn.Execute (SQLHapus)

End Sub


Form Hapus Biodata Pegawai

Private Sub cbokd_bag_Change() cbokd_bag_Click End Sub Private Sub cbokd_bag_Click() Call OpenTable("SELECT * FROM [bagian] WHERE kd_bag='" & Me.cbokd_bag.Text & "'", rsRS) With rsRS If Not .EOF Then Me.txt_nm_bag.Text = .Fields("nm_bag") Me.txt_divisi.Text = .Fields("divisi")

End If End With End Sub

Private Sub cmdBatal_Click() Call CleanControls Me.cbonip.SetFocus cbonip.Text = "" End Sub


Private Sub CmdSimpan_Click() If Me.cbonip.Text <> "" Then Call OpenTable("SELECT * FROM [biodata] WHERE nip='" & Me.cbonip.Text & "'", rsRS) With rsRS Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

If Not .EOF Then reply = MsgBox("Data Akan Dihapus?", vbQuestion + vbYesNo, "Konfirmasi") If reply = vbYes Then SQLHapus = "DELETE FROM [biodata] WHERE nip='" & Me.cbonip.Text & "'" Conn.Execute (SQLHapus) Call LoadDataToListView("SELECT * FROM [biodata]", rsRS, lv1, 10)

cmdBatal_Click MsgBox "Data Dihapus!", vbInformation, "Hapus Data" End If End If End With Else MsgBox "NIP hrs diisi!", vbInformation, "Hapus Data" Me.cbonip.SetFocus Exit Sub End If End Sub

Private Sub Form_Activate() Me.cbonip.SetFocus End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub Private Sub Form_Load() Call LoadDataToListView("SELECT * FROM [qbiodata]", rsRS, lv1, 18) Call SetFormCenter(Me) Call Loadkd_bagToCombo("SELECT*FROM bagian", rsRS, Me.cbokd_bag) Call SetFormCenter(Me) End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub CleanControls() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next Me.cbonip.Text = "" End Sub


Me.txt_nm_peg.Text = .Fields("nm_peg") Me.cbo_jenkel.Text = .Fields("jenkel") Me.dt_tgl_lahir.Value = .Fields("tgl_lahir") Me.txt_t_lahir = .Fields("t_lahir") Me.cbo_agama.Text = .Fields("agama") Me.dt_tgl_angkat.Value = .Fields("tgl_angkat") Me.cbo_pendidikan.Text = .Fields("pendidikan") Me.txt_jabatan.Text = .Fields("jabatan") Me.cbokd_bag.Text = .Fields("kd_bag") End If End With

End Sub Private Sub cbonip_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cbonip_Click Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

End If End Sub

Private Sub lv1_Click() On Error GoTo e: Call OpenTable("SELECT * FROM [biodata] WHERE nip='" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "'", rsRS) With rsRS If Not .EOF Then Me.cbonip.Text = .Fields("nip") Me.txt_nm_peg.Text = .Fields("nm_peg") Me.cbo_jenkel.Text = .Fields("jenkel") Me.dt_tgl_lahir.Value = .Fields("tgl_lahir") Me.txt_t_lahir = .Fields("t_lahir") Me.cbo_agama.Text = .Fields("agama") Me.dt_tgl_angkat.Value = .Fields("tgl_angkat") Me.cbo_pendidikan.Text = .Fields("pendidikan") Me.txt_jabatan.Text = .Fields("jabatan") Me.cbokd_bag.Text = .Fields("kd_bag")

End If End With e: Exit Sub End Sub

Private Sub dttgl_lahir_Click() cthn = Year(Me.tgl_lahir.Value) If Val(cthn) >= 1953 And Val(cthn) <= 1991 Then Else MsgBox "Pengisian tanggal lahir salah!", vbCritical, "Tanggal Lahir" Me.dttgl_lahir.SetFocus Exit Sub End If End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub Timer1_Timer() Bar1.Value = Bar1.Value + 10 Me.Label9.Caption = Bar1.Value If Bar1.Value = 100 Then Timer1.Enabled = False Frame3.Visible = False Bar1.Value = 0 PesanSimpan frmHPegawai End If End Sub

Sub Perbaiki() SQLHapus = "DELETE FROM [biodata] WHERE nip='" & Me.cbonip.Text & "'" Conn.Execute (SQLHapus)

End Sub


Form Hapus Absensi Pegawai

Private Sub cmdBatal_Click() Call CleanControls Me.cbonip.SetFocus cbonip.Text = "" Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

End Sub


Private Sub CmdSimpan_Click() If Me.cbonip.Text <> "" Then Call OpenTable("SELECT * FROM [absensi] WHERE id=" & Me.Text1.Text & "", rsRS) With rsRS If Not .EOF Then reply = MsgBox("Data Akan Dihapus?", vbQuestion + vbYesNo, "Konfirmasi") If reply = vbYes Then SQLHapus = "DELETE FROM [absensi] WHERE id=" & Me.Text1.Text & "" Conn.Execute (SQLHapus) Call LoadDataToListView("SELECT * FROM [qabsensi]", rsRS, lv1, 10)

cmdBatal_Click MsgBox "Data Dihapus!", vbInformation, "Hapus Data" End If End If End With Else MsgBox "NIP hrs diisi!", vbInformation, "Hapus Data" Me.cbonip.SetFocus Exit Sub End If End Sub Private Sub Form_Activate() Me.cbonip.SetFocus End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Unload Me ElseIf KeyAscii = 13 Then SendKeys "{Tab}" End If End Sub Private Sub Form_Load() Call LoadDataToListView("SELECT * FROM [qabsensi]", rsRS, lv1, 18) Call SetFormCenter(Me) Call LoadnipToCombo("SELECT*FROM biodata", rsRS, Me.cbonip) Call SetFormCenter(Me) End Sub Private Sub CleanControls() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next Me.cbonip.Text = "" End Sub


Me.txt_nm_peg.Text = .Fields("nm_peg") End If End With End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub cbonip_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cbonip_Click

End If End Sub

Private Sub lv1_Click() 'On Error GoTo e: Call OpenTable("SELECT * FROM [absensi] WHERE id=" & lv1.ListItems.Item(lv1.SelectedItem.Index).Text & "", rsRS) With rsRS If Not .EOF Then Me.Text1.Text = .Fields("id") Me.cbonip.Text = .Fields("nip") Me.dt_tgl_abs.Value = .Fields("tgl_abs") Me.cbo_keterangan.Text = .Fields("keterangan")

End If End With 'e: 'Exit Sub End Sub

Private Sub Timer1_Timer() Bar1.Value = Bar1.Value + 10 Me.Label9.Caption = Bar1.Value If Bar1.Value = 100 Then Timer1.Enabled = False Frame3.Visible = False Bar1.Value = 0 PesanSimpan frmHAbsensi End If End Sub Sub Perbaiki() Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

SQLPerbaiki = "delete from absensi WHERE id = " & Me.Text1.Text & "" Conn.Execute (SQLPerbaiki) End Sub


Form Laporan Data Bagian

Private Sub cmdClose_Click() Unload Me End Sub Private Sub cmdPrinter_Click() With Crpt2 .DataFiles(0) = App.Path & "\Database\db.Mdb" .ReportFileName = "d:\DINASPEKERJAANUMUMKABASAHAN\Laporan\lap01.rpt" .SelectionFormula = "{biodata.kd_bag}='" & Me.kdbag.Text & "'" '.WindowParentHandle = frmUtama.hWnd .RetrieveDataFiles .WindowState = crptMaximized .Action = 2 End With End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub kdbag_Click() Call OpenTable("SELECT * FROM bagian WHERE kd_bag='" & Me.kdbag.Text & "'", rsRS) With rsRS If Not .EOF Then Me.nmbag.Text = .Fields(1) End If End With End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me End If End Sub Private Sub Form_Load() Call SetFormCenter(Me) Call Loadkd_bagToCombo("SELECT*FROM bagian", rsRS, Me.kdbag) End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then PopupMenu mnuexit End If End Sub Private Sub clrTxt() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next End Sub

Form Laporan Absensi Pegawai


Private Sub cmdClose_Click() Unload Me End Sub

Private Sub cmdPrinter_Click() With Crpt2 .DataFiles(0) = App.Path & "\Database\db.Mdb" .ReportFileName = "d:\DINASPEKERJAANUMUMKABASAHAN\Laporan\lap02.rpt" .SelectionFormula = "day({absensi.tgl_abs})= " & Day(Me.tgl.Value) & " AND year({absensi.tgl_abs})= " & Year(Me.tgl.Value) & " AND month({absensi.tgl_abs})= " & Month(Me.tgl.Value) & " AND year({absensi.tgl_abs})= " & Year(Me.tgl.Value) & " AND {bagian.kd_bag}='" & Me.kdbag.Text & "'" '.WindowParentHandle = frmUtama.hWnd .RetrieveDataFiles .WindowState = crptMaximized .Action = 2 End With End Sub

Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me End If End Sub Private Sub Form_Load() Call SetFormCenter(Me) Me.tgl.Value = Date Call Loadkd_bagToCombo("SELECT*FROM bagian", rsRS, Me.kdbag)

End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

PopupMenu mnuexit End If End Sub Private Sub clrTxt() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next End Sub

Private Sub kdbag_Click() Call OpenTable("SELECT * FROM bagian WHERE kd_bag='" & Me.kdbag.Text & "'", rsRS) With rsRS If Not .EOF Then Me.nmbag.Text = .Fields(1) End If End With End Sub

Form Laporan Daftar Absensi Pegawai

Private Sub cmdClose_Click() Unload Me End Sub

Private Sub cmdPrinter_Click() With Crpt2 .DataFiles(0) = App.Path & "\Database\db.Mdb" .ReportFileName = "d:\DINASPEKERJAANUMUMKABASAHAN\Laporan\lap03.rpt" Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

.SelectionFormula = "year({absensi.tgl_abs})= " & Year(Me.tgl.Value) & " AND month({absensi.tgl_abs})= " & Month(Me.tgl.Value) & " AND year({absensi.tgl_abs})= " & Year(Me.tgl.Value) & " AND {bagian.kd_bag}='" & Me.kdbag.Text & "'" '.WindowParentHandle = frmUtama.hWnd .RetrieveDataFiles .WindowState = crptMaximized .Action = 2 End With End Sub

Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me End If End Sub Private Sub Form_Load() Call SetFormCenter(Me) Me.tgl.Value = Date Call Loadkd_bagToCombo("SELECT*FROM bagian", rsRS, Me.kdbag)

End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then PopupMenu mnuexit End If End Sub Private Sub clrTxt() For Each txt In Me.Controls If TypeOf txt Is TextBox Then txt.Text = "" ElseIf TypeOf txt Is ComboBox Then txt.ListIndex = -1 End If Next End Sub Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Private Sub kdbag_Click() Call OpenTable("SELECT * FROM bagian WHERE kd_bag='" & Me.kdbag.Text & "'", rsRS) With rsRS If Not .EOF Then Me.nmbag.Text = .Fields(1) End If End With End Sub

Module

Public Conn As New ADODB.Connection Public rsRS As New ADODB.Recordset

Public AddFlag As Boolean Public EditFlag As Boolean Public Isitext As String Public List As ListItem Public I As Integer Public CariItem Public txt As Control Public reply As String Public StrSql As String Public SQlSimpan As String Public SQLHapus As String Public SQLPerbaiki As String Public Sub Connect() Set Conn = New ADODB.Connection Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\database\db.mdb" Conn.Open End Sub


Public Sub LoadDataToListView(StrSql As String, rs As ADODB.Recordset, Grid As ListView, CountFields As Integer) On Error Resume Next Call OpenTable(StrSql, rs) Grid.ListItems.Clear Do While Not rs.EOF Set List = Grid.ListItems.Add(, , rs.Fields(0)) For I = 1 To CountFields List.SubItems(I) = rs.Fields(I) Next I rs.MoveNext Loop End Sub

Public Sub SetFormCenter(frm As Form) frm.Move (frmUtama.ScaleWidth \ 2) - (frm.Width \ 2), (frmUtama.ScaleHeight / 2) (frm.Height / 2) End Sub

Public Sub Loadno_kwitansiToCombo(StrSql As String, rs As ADODB.Recordset, Combo As ComboBox) Call OpenTable(StrSql, rs) Combo.Clear Do While Not rs.EOF Combo.AddItem rs.Fields(0) rs.MoveNext Loop End Sub

Public Sub OpenTable(StrSql As String, rs As ADODB.Recordset) Set rs = New ADODB.Recordset If rs.State = adStateOpen Then Set rs = Nothing rs.Open StrSql, Conn, adOpenDynamic, adLockOptimistic

End Sub Public Sub Loadkd_bagToCombo(StrSql As String, rs As ADODB.Recordset, Combo As ComboBox) Call OpenTable(StrSql, rs) Combo.Clear Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

Do While Not rs.EOF Combo.AddItem rs.Fields(0) rs.MoveNext Loop End Sub

Public Sub LoadnipToCombo(StrSql As String, rs As ADODB.Recordset, Combo As ComboBox) Call OpenTable(StrSql, rs) Combo.Clear Do While Not rs.EOF Combo.AddItem rs.Fields(0) rs.MoveNext Loop End Sub Public Sub LoadnrpToCombo(StrSql As String, rs As ADODB.Recordset, Combo As ComboBox) Call OpenTable(StrSql, rs) Combo.Clear Do While Not rs.EOF Combo.AddItem rs.Fields(0) rs.MoveNext Loop End Sub

Public Sub Loadno_fakToCombo(StrSql As String, rs As ADODB.Recordset, Combo As ComboBox) Call OpenTable(StrSql, rs) Combo.Clear Do While Not rs.EOF Combo.AddItem rs.Fields(0) rs.MoveNext Loop End Sub

Public Sub PesanSudahAda(frm As Form) MsgBox "Data sudah ada!", vbCritical, "Data Suda Ada" End Sub Public Sub PesanKosong(frm As Form) MsgBox "Data tidak boleh kosong!", vbCritical, "Data Kosong" Desy Masraudha : Sistem Informasi Kepegawaian Pada Dinas Pekerjaan Umum Kabupaten Asahan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

End Sub Public Sub PesanSimpan(frm As Form) MsgBox "Data sudah disimpan!", vbInformation, "Simpan Data" End Sub Public Sub PesanUpdate(frm As Form) MsgBox "Data sudah di-update!", vbInformation, "Update Data" End Sub Public Sub PesanHapus(frm As Form) MsgBox "Data sudah terhapus!", vbInformation, "Hapus Data" End Sub Public Sub IsiDataText1() Isitext = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz.," End Sub Public Sub IsiDataText2() Isitext = "0123456789" End Sub Public Sub IsiDataText3() Isitext = "()-0123456789" End Sub


SISTEM INFORMASI KEPEGAWAIAN PADA DINAS PEKERJAAN UMUM KABUPATEN ASAHAN MENGGUNAKAN VISUAL BASIC 6.0 TUGAS AKHIR. Oleh DESY MASRAUDHA

Recommend Documents