SISTEM INFORMASI PEGAWAI PADA SATUAN NON VERTIKAL TERTENTU PERENCANAAN DAN PENGAWASAN JALAN DAN JEMBATAN PROVINSI SUMATERA UTARA TUGAS AKHIR

1

SISTEM INFORMASI PEGAWAI PADA SATUAN NON VERTIKAL TERTENTU PERENCANAAN DAN PENGAWASAN JALAN DAN JEMBATAN PROVINSI SUMATERA UTARA

TUGAS AKHIR

MELISA HILDAYANI 062406040

PROGRAM STUDI D-3 ILMU KOMPUTER FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2009

Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

2

SISTEM INFORMASI PEGAWAI PADA SATUAN NON VERTIKAL TERTENTU PERENCANAAN DAN PENGAWASAN JALAN DAN JEMBATAN PROVINSI SUMATERA UTARA

TUGAS AKHIR Diajukan untuk melengkapi tugas dan memenuhi syarat memperoleh Ali Madya


PROGRAM STUDI D-3 ILMU KOMPUTER FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2009


3

PERSETUJUAN

Judul

Kategori Nama Nomor Induk Mahasiswa Program Studi Departemen Fakultas

: SISTEM INFORMASI PEGAWAI PADA SATUAN NON VERTIKAL TERTENTU PERENCAAN DAN PENGAWASAN JALAN DAN JEMBATAN PROVINSI SUMATERA UTARA : TUGAS AKHIR : MELISA HIDAYANI : 062406040 : D-3 ILMU KOMPUTER : MATEMATIKA : MATEMATIKA DAN ILMU PENGETAHUAN ALAM ( FMIPA ) UNIVERSITAS SUMATERA UTARA

Diluluskan di Medan, Juni 2009 Komisi Pembimbing

:

Diketahui/Disetujui oleh Departeman Matematika FMIPA USU Ketua

Dr.Saib Suwilo, M.Sc M.Sc NIP.131 796 149

Dosen Pembimbing

Drs. Partano Siagian, NIP. 130877994


4

PERNYATAAN

SISTEM INFORMASI PEGAWAI PADA SATUAN NON VERTIKAL TERTENTU PERENCAAN DAN PENGAWASAN JALAN DAN JEMBATAN PROVINSI SUMATERA UTARA

TUGAS AKHIR

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

Medan, Mei 2009



5 PENGHARGAAN

Puji dan syukur penulis panjatkan kepada Tuhan Yang Maha Pemurah dan Maha Penyayang, dengan limpah karunia-Nya kertas ini berhasil diselesaikan dalam waktu yang telah ditetapkan. Ucapan terima kasih saya sampaikan kepada Drs. Partano Siagian, M.Sc selaku pembimbing pada penyelesaian tugas akhir ini yang telah memberikan panduan dan penuh kepercayaan kepada saya untuk menyempurnakan kajian ini. Panduan ringkas, padat dan profesional telah diberikan kepada saya agar penulis dapat menyelesaikan tugas ini. Ucapan terima kasih juga kepada ketua Departemen Dr. Saib Suwilo, M.Sc dan Dekan serta Pembantu Dekan Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara, semua dosen pada Departemen Matematika FMIPA USU, pegawai di FMIPA USU. Rekan-rekan kuliah yang ada di komputer A ’06 FMIPA USU. Teristimewa saya ucapkan terima kasih kepada suami saya yang tercinta Indra yang memberikan dukungan moril ataupun materil. Akhirnya, tidak terlupakan terima kasih yang sebesar-besarnya kepada kedua orang tua saya Ayahanda Sudiono dan Ibunda Yeni Wati yang memberikan bantuan dan dorongan semua yang diperlukan. Semoga Tuhan Yang Maha Esa akan membalasnya.


6 DAFTAR ISI

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

ii iii iv v vi vii 1 1 2 2 3 3 4

Bab 2 Landasan Teori 2.1 Pengertian Komputer 1. Perangkat Keras ( Hardware ) 2. Perangkat Lunak ( Software ) 3. Tenaga Ahli ( Brainware ) 2.2 Pengertian Data, Informasi, Sistem, dan Sistem Informasi 1. Data 2. Sistem 3. Informasi 4. Sistem Informasi 2.3 Database 2.3.1 Pengertian Database 2.3.2 Database Management System ( DBMS ) dan Bahasa Database 2.3.3 Entity Relationship Diagram ( ERD ) 2.4 Pemrograman Visual Basic 2.4.1 Sekilas Tentang Visual Basic 2.4.2 Tampilan Awal Visual Basic 2.4.3 Lingkungan Visual Basic 2.4.4 Komponen Visual Basic 6.0 2.5 Crystal Report

6 6 7 7 7 8 8 9 9 10 11 11 12 13 14 14 14 15 16 23

Bab 3 Gambaran Umum Instansi Pemerintah 3.1 Sejarah Singkat Instansi Pemerintah 3.2 Uraian Tugas, Wewenang, dan tanggung Jawab 3.3 Struktur Organisasi

24 24 27 34

Bab 4 Perancangan Sistem 4.1 Perancangan File-File Database

35 35


7 4.2 Database Relationship 4.3 Data Flow Diagram 4.4 Algoritma 4.5 Input dan Output program

38 39 42 45

Bab 5 Implementasi Sistem 5.1 Pengertian dan Tujuan Implementasi Sistem 5.2 Spesifikasi Kebutuhan Sistem 5.3 Kelemahan dan Kelebihan Sistem

53 53 54 55

Bab 6 Kesimpulan dan Saran 6.1 Kesimpulan 6.2 Saran

57 57 58

Daftar Pustaka Lampiran A : Listing Program Lampiran B : Surat-Surat

59 60 116


8 BAB 1

PENDAHULUAN

1.1 Latar Belakang

Salah satu hasil dari kemajuan ilmu pengetahuan dan teknologi adalah komputer. Semua pekerjaan manusia menjadi terasa ringan dan dapat meningkatkan kreativitas dan mutu di perusahaan atau badan usaha milik negara dengan menggunakan alat bantu teknologi komputer. Namun, perkembangan teknologi dan ilmu pengetahuan selanjutnya telah memberikan berbagai kemampuan lain pada komputer setelah melalui berbagai fase perkembangan sehingga telah menjadi alat yang mempunyai fungsi yang sangat luas dan kemampuan yang sangat luar biasa.

Teknologi komputer mempunyai peranan yang sangat besar di berbagai bidang, baik dalam ilmu pengetahuan, komunikasi, bisnis, administrasi perkantoran, dan kegiatan lain dalam kehidupan sehari-hari. Munculnya teknologi komputer mempermudah pekerjaan manusia, misalnya mesin komputer merupakan salah satu pengolah data yang mampu mengerjakan perhitungan-perhitungan yang rumit dalam jumlah yang sangat besar, serta dapat menyajikan informasi dengan cepat, tepat, dan teliti sesuai dengan yang diinginkan.

Dengan berkembangnya ilmu pengetahuan dan teknologi saat ini, komputer digunakan sebagai media pengolahan data, penyajian atau penyampaian informasi.


9 Dalam menyajikan informasi, setiap instansi memiliki cara yang berbeda-beda, ada yang sudah menggunakan sistem komputerisasi tetapi ada juga yang masih secara manual.

Untuk dapat mempermudah dalam mencari data pegawai atau mengolah data para pegawai maka sangat dibutuhkan komputer sebagai alat bantu yang memudahkan pekerjaan pegawai Satuan Non Vertikal Tertentu Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara. Untuk itu penulis membuat judul ”Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara”.

1.2 Identifikasi Masalah

Masalah yang akan dibahas adalah bagaimana cara merancang sebuah sistem informasi kepegawaian pada Satuan Non Vertikal Tertentu Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara, dengan menggunakan Visual Basic 6.0.

1.3 Batasan Masalah

Agar tidak terjadi penyimpangan dalam penulisan Tugas Akhir ini, penulis membatasi masalah yang akan dibahas. Adapun batasan masalahnya antara lain : Sumber data yang diperoleh hanya dari Satuan Non Vertikal Tertentu Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara, yaitu mencakup data identitas pegawai, absensi dan gaji pokok pegawai. Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

10

1.4 Maksud dan Tujuan

Maksud dan tujuan dari penelitian ini yaitu untuk merancang sebuah Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara, dengan menggunakan bahasa pemrograman Visual Basic 6.0.

1.5 Metodologi Penelitian

Dalam menyusun tugas akhir ini, penulis melakukan penerapan metode penelitian, sehingga metode penelitian dapat diselesaikan dengan baik. Adapun langkah-langkah yang diambil penulis adalah sebagai berikut: 1. Penelitian Lapangan ( Field Research ) Penelitian ini dilakukan dengan metode:

a. Wawancara ( Interview ) Penulis melakukan penelitian langsung di lapangan, yaitu dengan wawancara secara langsung dilakukan baik kepada pegawai atau kepada atasan yang menangani bidang yang disajikan agar memperoleh data yang aktual dan objektif.

b. Pengamatan ( Observasi ) Pengamatan yang dilakukan penulis dimaksudkan untuk mendapatkan data secara umum dengan melihatnya secara langsung, mengamati dan mencatat semua data yang dibutuhkan. Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

11

2. Penelitian Kepustakaan ( Library Research ) Penulis mempelajari buku-buku ilmiah dan sumber data/literatur tertulis lainnya yang berkaitan dalam penulisan tugas akhir.

1.6 SISTEMATIKA PENULISAN

Adapun sistematika penulisan dalam menyelesaikan Tugas Akhir ini, dapat diuraikan sebagai berikut : BAB 1

PENDAHULUAN Merupakan uraian latar belakang, identifikasi masalah, batasan masalah, maksud dan tujuan, metodologi penelitian serta sistematika penulisan.

BAB 2

LANDASAN TEORI Pada bab ini dijelaskan mengenai pengertian komputer, data, informasi, sistem, sistem informasi, Database, Visual Basic 6.0 beserta komponen-komponennya, dan sekilas tentang Crystal Report.

BAB 3

GAMBARAN UMUM INSTANSI PEMERINTAH Pada bab ini akan menguraikan tentang sejarah singkat instansi pemerintah tersebut, struktur organisasi serta uraian tugas, wewenang, dan tanggung jawab pegawai Satuan Non Vertikal Tertentu Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara.

BAB 4

PERANCANGAN SISTEM Pada bab ini penulis menerangkan rancangan form, penerapan sistemnya berupa rancangan input dan output program dan algoritma dari program tersebut.


12

BAB

5

IMPLEMENTASI SISTEM Pada bab ini penulis menerangkan penerapan sistem berupa hardware, software, dan brainware serta segala sesuatu yang perlu dalam menerapkan sistem.

BAB

6

KESIMPULAN DAN SARAN Membahas kesimpulan yang berisi intisari dari implementasi studi lapangan dalam proses penyusunan laporan, juga memberikan usul yaitu berupa saran untuk meningkatkan mutu kerja.


13

BAB 2

LANDASAN TEORI

2.1 Pengertian Komputer

Istilah komputer (computer) berasal dari bahasa latin “computere” yang berarti menghitung. Dalam bahasa Inggris komputer berasal dari kata “to compute” yang artinya menghitung. Jadi komputer dapat diartikan sebagai alat hitung atau mesin hitung. Akan tetapi komputer sangat berbeda dengan kalkulator, yang kita ketahui kalkulator adalah mesin hitung. Perbedaannya kalkulator hanya digunakan untuk menghitung saja sedangkan komputer dapat mengolah segala macam pengolahan data, seperti kecepatan dan ketelitian yang tinggi, sebuah komputer dapat menyimpan data dalam memori/storage unitnya, serta dapat memberikan berbagai informasi secara cepat dan tepat.

Sehubungan dengan perkembangan zaman maka defenisi komputer menjadi alat pengolah data yang bekerja secara elektronik dengan kecepatan dan ketelitian yang sangat tinggi serta mampu mengerjakan berbagai proses data yang tersimpan dalam memori dengan keterlibatan manusia yang minimum.

Ada 3 (tiga) unsur penting yang dibutuhkan oleh sebuah sistem komputer untuk dapat beroperasi dengan baik. Ketiga unsur tersebut adalah: Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

14 .

1. Perangkat keras (Hardware) Hardware adalah komponen-komponen peralatan yang membentuk suatu sistem komputer dan peralatan lainnya yang memungkinkan komputer dapat melaksanakan tugasnya, seperti monitor, harddisk, keyboard, mouse, printer.

2. Perangkat lunak (Software) Software adalah seluruh fasilitas dari suatu sistem pengolahan data yang bukan peralatan komputernya tapi merupakn susunan instruksi yang harus diberikan pada alat pengolah agar komputer dapat menjalankan pekerjaan sesuai yang dikehendaki. Fasilitas software ini terdiri dari sistem desain, program-program, dan prosedurprosedur.

3. Tenaga ahli (Brainware) Pemakai/Pengguna adalah seorang yang mampu berinteraksi langsung dengan komputer melalui program aplikasi serta sistem yang berjalan. Tenaga ahli pelaksana ini digolongkan berdasarkan keahlian masing-masing yaitu: a. Operator, yaitu seseorang yang bertugas menjalankan program yang telah dibuat oleh programmer dan telah dianalisa oleh analis system untuk dilihat layak atau tidaknya program itu dibuat.

b. Programmer, yaitu seorang atau tim yang bertugas membuat suatu perangkat lunak, program atau sistem untuk memudahkan pekerjaan suatu perusahaan. Biasanya dalam bertugas programmer bekerja dengan ahli sistem. Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

15

c. Sistem analis, yaitu merupakan salah satu profesi dalam sistem komputer yang mempunyai tugas untuk : -

Mengandalkan komputerisasi dalam satuan perusahaan yang memerlukan.

-

Mempelajari organisasi yang sedang berjalan.

-

Menganalisa suatu output yang sudah ada.

-

Menganalisa sistem yang sedang berjalan.

-

Mendesain suatu proyek sesuai dengan permintaan pemakai komputer.

2.2 Pengertain Data, Informasi, Sistem, dan Sistem Informasi

Adapun dari komponen-komponen yang mendukung sistem informasi adalah sebagai berikut:

1. Data

Istilah data adalah istilah majemuk dari kata datum, yang berarti fakta atau bagian dari fakta yang mengandung arti yang menghubungkan dengan kenyataan, gambarangambaran,

kata-kata,

angka-angka,

huruf-huruf,

atau

simbol-simbol

yang

menunjukkan suatu ide atau objek, kondisi atau situasi dan lain-lain. Kegunaan dari data itu sendiri adalah sebagai bagian dasar dari objektif dalam proses penyusunan kebijakan dan keputusan oleh seorang pemimpin organisasi.

Jadi data merupakn keterangan yang masih mentah. Agar dapat digunakan untuk keperluan, maka data harus diolah terlebih dahulu ke dalam bentuk informasi yang sesuai dengan keperluannya. Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

16

2. Sistem

Perkataan sistem dalam bahasa Indonesia dapat diartikan sebagai metode, cara, atau teknik yang mempunyai definisi sebagai berikut: kumpulan dari elemen-elemen yang berinteraksi dengan maksud yang sama untuk mencapai suatu tujuan.

Elemen yang membentuk suatu sistem secara umum yaitu: a. Masukan (input) adalah segala sesuatu yang masuk ke dalam sistem dan selanjutnya menjadi bahan untuk diproses. b. Pengolahan (proses) adalah bagian dari sistem yang berfungsi sebagai pengolah yang mengubah masukan menjadi keluaran yang berguna. c. Keluaran (output) adalah hasil pemrosesan pada sistem informasi.

Disamping itu suatu sistem tidak terlepas dari lingkungan luar sehingga lingkungan sistem tersebut ikut mempengaruhi kondisi sistem. Batasan sistem (boundary) merupakan daerah yang membatasi antara suatu sistem dengan sistem yang lainnya.

3. Informasi

Informasi adalah sesuatu yang diperolah dari data yang telah diolahsehingga sangat bermanfaat bagi yang membutuhkannya dalam mengambil suatu keputusan. Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

17

Adapun syarat tentang informasi yang baik dan lengkap adalah sebagai berikut: 1. Informasi yang akurat Informasi yang benar-benar bebas dari kesalahan, dan juga informasi harus jelas mencerminkan maksudnya. 2. Informasi yang relevan Informasi yang benar-benar memberikan manfaat bagi pemakainya. 3. Informasi yang lengkap Agar

menjadi

lengkap

jumlah

informasi

harus

memadai

untuk

mengidentifikasi masalah dan di mulai menemukan pemecahan potensial. 4. Informasi yang tepat waktu Informasi harus tersedia tepat pada waktunya pada saat dibutuhkan. 5. Informasi yang dapat dipercaya Informasi berasal dari sumber yang dapat dipercaya. 6. Informasi yang efisien Informasi yang berkualitas ataupun kalimat yang sederhana (tidak berbelitbelit), namun mampu memberikan makna.

4. Sistem Informasi

Sistem informasi merupakan sejumlah komponen (manusia, informasi, teknologi, dan prosedur kerja), ada sesuatu yang diproses (data menjadi informasi), dan bermaksud untuk mencapai suatu sasaran atau tujuan. Beberapa definisi dari sistem informasi yaitu: Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

18 a. Suatu sistem yang dibuat oleh manusia yang terdiri dari komponen-komponen dalam organisasi untuk mencapai suatu tujuan. b. Sekumpulan prosedur organisasi yang pada saat dilaksanakan akan memberikan

informasi

bagi

pengambil

keputusan

dan/atau

dengan

mengendalikan informasi. c. Suatu sistem di dalam suatu organisasi yang mempertemukan kebutuhan transaksi, mendukung operasi, bersifat manajerial,dan kegiatan strategi dari suatu organisasi dan menyediakan pihak luar tertentu dengan laporan-laporan yang diperlukan.

2.3 Database

2.3.1 Pengertian Database

Database (basis data) adalah kumpulan file-file yang mempunyai kaitan antara satu dengan file yang lain sehingga membentuk data untuk menginformasikan suatu perusahaan atau instansi.

Komputer berhasil membantu kita untuk bisa menyimpan, mengelola, dan memanfaatkan data itu secara efektifdengan suatu sistem yang disebut dengan sistem database. Sistem database (database system) ialah kombinasi perangkat lunak dan perangkata keras komputer yang dipakai untuk melaksanakan pekerjaan-pekerjaan tertentu. Data dalam sebuah database disusun berdasarkan sistem hierarki, yaitu: a. Database, yaitu kumpulan file yang saling terkait satu sama lain, misalnya file data nama pegawai, file jabatan, file penggajian, dan lain-lain. Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

19 b. File, yaitu kumpulan dari record yang saling terkait dan memiliki format field yang sama dan sejenis. c. Record, yaitu kumpulan field yang menggambarkan suatu unit data individu tertentu. d. Field, attribute dari record yang menunjukkan suatu item dari data seperti nama, alamat, dan lainnya. e. Byte, yaitu atribut dari field yang berupa huruf yang membentuk nilai dari sebuah field. Huruf tersebut dapat berupa numerikabjad atau karakter khusus. f. Bit, yaitu bagian kecil dari data secara keseluruhan, yaitu berupa keseluruhan ASCII nol atau satu yang merupakan komponen pembentuk byte.

2.3.2 Database Management System (DBMS) dan Bahasa Database

Untuk mengelola basis data diperlukan perangkat lunak yang disebut DBMS. DBMS adalah perangkat lunak yang memungkinkan para pemakai membuat, memelihara, mengontrol, dan mengakses basis data dengan cara praktis dan efisien. DBMS dapat digunakan untuk mengakomodasi berbagai macam pemakai yang memiliki kebutuhan akses yang berbeda-beda.

DBMS merupakan antarmuka bagi pemakai dalam mengorganisasikan database yang disusunnya. Pemakai dapat berinteraksi dan mengeksplorasi database dengan mudahdan praktis dengan menggunakan perintah-perintah yang sederhana yang dibuat dalam bahasa. Bahasa itu disebut bahasa database yang terdiri dari dua kelompok yaitu Data Definition Language (DDL) dan Data Manipulation Language (DML). Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

20

DDL merupakan bahasa yang digunakan untuk menentukan, mengubah, mengedit, dan menyiapkan struktur file atau tabel baru, serta pembuatan indeks file tersebut. Hasil dari kompilasi perintah DDL berupa kamus data (Data Dictionary). DML merupakan bahasa yang mempermudah pemakai untuk melakukan eksplorasi terhadap database yang telah dibangun.

2.3.3 Entity Relationship Diagram (ERD)

Rancangan dengan ERD tahap pertama (preliminary design), seperti tahapan berikut ini: 1. Mengidentifikasi dan menetapkan seluruh himpunan entity yang terlibat. 2. Menentukan atribut key masing-masing himpunan entity. 3. mengidentifikasi dan menetapkan seluruh himpunan relasi diantara himpunan entity-entity yang ada beserta foreign keynya (kunci tamu). 4. Menentukan derajat/kardinalitas relasi untuk setiap himpunan. 5. Melengkapi himpunan entity dan himpunan relasi dengan atribut (non key/bukan kunci). Untuk lebih mudah dibaca, penulis menggunakan kamus data.

2.4 Pemrograman Visual Basic

2.4.1 Sekilas Tentang Visual Basic


21 Visual Basic 6.0 merupakan sebuah program aplikasi yang bekerja pada sistem operasi Windows. Visual Basic 6.0 dapat membuat program aplikasi menjadi lebih mudah dan cepat dengan menggunakan metode Graphical User Interface (GUI).

Visual Basic pada dasarnya adalah sebuah bahasa pemrograman komputer. Di dalam Visual Basic semuanya sudah disediakan dalam pilihan yang dapat diambil sesuai dengan kebutuhan. Visual Basic menyediakan sebuah lingkungan grafis oriented (Graphical Environment) yang bisa digunakan secara visual untuk merancang form-form dan kontrol dalam sebuah pembangunan projek aplikasi.

Sebagai program yang berbasis Windows, Visual Basic 6.0 mempuyai waktu untuk berinteraksi dengan seluruh aplikasi Windows seperti Microsoft Word, Microsoft Excel, Microsoft Access, dan sebagainya. Visual Basic 6.0 juga menjadi salah satu bahasa pemrograman yang wajib dipelajari oleh berbagai kalangan jika ingin sukses di dunia komputer dan cenderung lebih banyak digunakan.

2.4.2 Tampilan Awal Visual Basic

Dalam tampilan layar Visual Basic terdapat kompenen –komponennya. Komponenkomponen yang akan dibahas ini hanya dasar-dasarnya dan bersifat umum. Untuk mengaktifkan layar utama caranya adalah dengan menginstal Visual Basic 6.0. setelah itu pilih menu atau klik tombol Start > Programs > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0, maka akan muncul tampilan berikut ini:


22

Gambar 2.1 Tampilan Awal Visual Basic 6.0

2.4.3 Lingkungan Visual Basic

Secara umum lingkungan atau tampilan dari Bahasa Pemrograman Visual Basic adalah seperti gambar berikut ini. Layar ini adalah lingkungan pengembangan aplikasi Visual Basic yang akan digunakan untuk membuat program-program aplikasi dengan Visual Basic. Pada saat kita menjalankan aplikasi Visual Basic 6.0, terlihat di layar tampilan sebagai berikut:


23

Gambar 2.2 Tampilan awal lembar kerja Visual Basic 6.0

2.4.4 Komponen Visual Basic 6.0

Komponen-komponen yang terdapat pada Visual Basic 6.0 adalah sebagai berikut:

1. Title Bar

Title bar merupakan batang juduldari program Visual Basic 6.0 yang terletak pada bagian paling atas dari jendela program. Komponen ini berfungsi untuk menampilkan judul atau nama jendela.

Gambar 2.3 Title Bar


24 2. Menu Bar

Menu bar merupakan batang menu yang terletak di bawah title bar yang berfungsi menampilkan pilihan menu atau perintah untuk menjalankan program Visual Basic.

Gambar 2.4 Menu Bar

3. Toolbar

Toolbar merupakan sebuah batang yang berisi kumpulan tombol yang terletak di bagian bawah menu bar yang dapat digunakan untuk menjalankan suatu perintah.

Gambar 2.5 Toolbar

4. Toolbox

Toolbox merupakan kotak perangkat yang berisi kumpulan tombol objek atau kontrol untuk mengatur desain dari aplikasi yang akan dibuat.


25

Gambar 2.6 Toolbox pada tabulasi General

Tabel 2.1 Kontrol-kontrol pada Toolbox

Gambar

Nama kontrol

Awalan

Pointer

-

Fungsi

kontrol Memilih,

mengubah

memindah

suatu

ukuran

atau

kontrol-kontrol

dalam suatu form.

PictureBox

Pic

Menampilkan objek gambar, seperti suatu kontainer yang dapat menerima output atau kontrol lain.

Label

lbl

Digunakan untuk menampilkan teks.

TextBox

txt

Digunakan untuk memasukkan atau mengubah data input text.


26

Frame

fra

Digunakan untuk mengelompokkan kontrol di dalam suatu frame.

CommandButton cmd

Digunakan

untuk

menjalankan

perintah tertentu.

CheckBox

chk

Digunakan untuk menunjukkan suatu kondisi true atau false, atau untuk menampilkan suatu pilihan ganda saat pemakai memilih kotak cek tersebut lebih dari satu.

OptionButton

opt

Digunakan

untuk

menampilkan

beberapa pilihan yang hanya dapat dipilih salah satu oleh pemakai.

ComboBox

cbo

Kontrol kombinasi dari list box dan text box, di mana pemakai dapat memilih suatu item dari daftar atau memasukkan suatu nilai pada bagian kotak teks (text box).

ListBox

lst

Digunakan untuk menampilkan suatu daftar item yang dapat dipilih salah satu.

HscrollBar

hsb

Digunakan untuk menampilkan balok gulung

horizontal

atau

untuk

menggulung dengan jangka lebar dan pemilihan dalam posisi horizontal.

VscrollBar

vsb

Digunakan untuk menampilkan balok


27 gulung

vertikal

atau

untuk

menggulung dengan jangka panjang dan pemilihan dalam posisi vertikal.

Timer

tmr

Digunakan

untuk

membangun

penghitung waktu berdasarkan nilai interval tertentu. Kontrol ini tidak tampak saat aplikasi dijalankan.

DriveListBox

drv

Digunakan untuk menampilkan daftar disk drive.

DirListBox

dir

Digunakan

untuk

menampilkan

direktori dan path.

FileListBox

fil

Digunakan untuk menampilkan daftar nama file.

Shape

shp

Digunakan

untuk

menggambarkan

variasi bentuk pola pada form. Anda dapat

memilih pola kotak

(rectangle), kotak tumpul (rounded rectangle), bujur sangkar (square), bujur

sangkar

tumpul

(rounded

square), oval, atau lingkaran (circle).

Line

lin

Digunakan untuk membentuk objek gambar garis pada form.

Image

img

Digunakan untuk menampilkan objek gambar dari file bitmap (.BMP), ikon (.ICO), atau metafile (.WMF) pada form.


28

Data

dat

Digunakan untuk mengakses data dalam database.

OLE

ole

Digunakan

untuk

menghubungkan

objek dari aplikasi lain ke dalam aplikasi Visual Basic.

5. Project

Project merupakan suatu kumpulan modul atau program aplikasi itu sendiri. Dalam Visual Basic file project disimpan dengan nama file berakhiran .VBP, di mana file ini berfungsi untuk menyimpan seluruh komponen program.

Gambar 2.7 Jendela Project Explorer

6. Properties Window

Properties Window merupakan sebuah jendela yang digunakan untuk menampung nama property control yang terpilih.


29

Gambar 2.8 Properties Window

7. Form Layout Window

Form Layout Window merupakan sebuah jendela yang digunakan untuk mengatur posisi form pada form saat program dijalankan.

Gambar 2.9 Form Layout Window


30

2.5 Crystal Report

Crystal Report merupakan sebuah program khusus yang dirancang untuk membuat laporan yang dapat dihubungkan dengan bahasa pemrograman yang berbasis Windows, seperti: Borland Delphi, Visual Basic, Visual C/C++ dan Visual Interdev.

Membuat laporan dengan Crystal Report hasilnya jauh lebih baik dan mudah dibandingkan dengan Data Report yang merupakan bawaan dari Visual Basic. Beberapa kelebihan Crystal Report adalah: 1. Memberikan kemudahan dalam membuat laporan tanpa melibaykan banyak kode pemrograman. 2. Fasilitas impor hasil laporan mendukung format-format popular, seperti: Microsoft Word, Microsoft Excel, Microsoft Access, Adobe Acrobat Reader dan HTML.


31

BAB 3

GAMBARAN UMUM INSTANSI PEMERINTAH

3.1 Sejarah Singkat Instansi Pemerintah

Setelah Indonesia memproklamirkan Kemerdekaan pada tanggal 17-8-1945, maka semenjak itu pemuda-pemuda Indonesia mulai berangsur-angsur merebut kekuasaan Pemerintahan dari tangan Jepang baik di pusat Pemerintahan (Jakarta/Bandung) maupun Pemerintahan daerah-daerah.

Sesudah Pemerintahan Indonesia membentuk Kabinet yang pertama, maka para Menteri mulai menyusun organisasi serta sifatnya. Pekerjaan Umum pada waktu itu (1945) berpusat di Bandung, dengan mengambil tempat bekas gedung V&W. (dikenal dengan nama "Gedung Sate").

Ketika Belanda ingin mengembalikan kekuasaaan Pemerintahan di Hindia Belanda sebelum perang, mereka datang mengikuti Tentara Sekutu masuk ke Indonesia. Akibat dari keinginan Pemerintahan Belanda ini, terjadilah pertentangan fisik dengan Pemuda Indonesia yang ingin mempertahankan tanah air berikut gedunggedung yang telah didudukinya, antara lain "Gedung Sate" yang telah menjadi Gedung Departemen Pekerjaan Umum pada waktu itu (peristiwa bersejarah itu dikenal dengan peristiwa "3 Desember 1945").


32

Pada waktu revolusi fisik tahun 1945 s/d 1949, Pemerintah Pusat RI di Jakarta terpaksa mengungsi ke Purworejo untuk selanjutnya ke Yogyakarta, begitu juga Kementerian PU. Sesudah Pemerintahan Belanda tahun 1949 mengakui kemerdekaan Republik Indonesia maka pusat Pemerintahan RI di Yogyakarta, berpindah lagi ke Jakarta.

Sejak tahun 1945 itu, Pekerjaan Umum (PU) telah sering mengalami perubahan pimpinan dan organisasi,sesuai situasi politik pada waktu itu. Sebagai gambaran garis besar organisasi PU diuraikan sebagai berikut: 1. Sebelum tentara Belanda masuk ke Yogyakarta Susunan Kementerian Perhubungan dan PU dapat dibagi menjadi 8 Jawatan dan 4 Balai.

2. Khusus pada masa Republik Indonesia Serikat Kementerian Perhubungan dan PU dibagi dalam beberapa Departemen dan beberapa Jawatan serta beberapa Instansi yang berhubungan erat dengan tugas dari Departemen PU.

Kementerian Perhubungan PU tersebut terdiri atas penggabungan 3 Departemen yaitu: 1. Departemen Verkeer, Energie dan Mynbouw dulu (kecuali Mynbouw yang masuk dalam Kementerian Kemakmuran). 2. Departemen Van Waterstaat 3. Departemen Van Scheepvaart

Penggabungan dari 3 Departemen Pemerintahan dalam satu Kementerian yaitu Kementerian Perhubungan Tenaga dan PU, supaya hubungan 3 Departemen tersebut Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

33 satu dengan yang lain menjadi sangat erat, pembangunan Negara akan diadakan koordinasi dan rasionalisasi yang baik dengan tenaga ahli untuk melancarkan semua tugas yang dibebankan pada Kementerian Perhubungan Tenaga dan PU.

Khusus pada permulaan terbentuknya Negara Kesatuan RI, susunan Kementerian berbeda sebagai berikut: Dalam masa prolog G 30 S PKI terjadilah dalam sejarah Pemerintahan RI suatu Kabinet yang besar disebut dengan nama Kabinet Dwikora atau Kabinet 100 Menteri, dimana pada masa ini dibentuk Koordinator Kementerian, serta Departemen PU yang pada masa itu ikut mengalami perubahan organisasi menjadi 5 Departemen dibawah Kompartemen PU Kabinet Dwikora, dipimpin Jenderal Suprajogi.

Adapun Kompartemen PU ketika membawahi, antara lain: 1. Departemen Listrik dan Ketenagaan 2. Departemen Bina Marga 3. Departemen Cipta Karya Konstruksi 4. Departemen Pengairan Dasar 5. Departemen Jalan Raya Sumatera

Setelah peristiwa G 30 S PKI Pemerintah segera menyempurnakan Kabinet Dwikora dengan menunjuk Ir.Soetami, sebagai Menteri PU untuk memimpin Kompartemen PU. Kabinet yang disempurnakan itu tidak dapat lama dipertahankan. Kabinet Ampera, sebagai Kabinet pertama dalam masa Orde Baru. Kembali organisasi PU dibentuk dengan Ir.Soetami, sebagai Menteri. Dengan Surat Keputusan Menteri PU tertanggal 17 Juni 1968 Nomor 3/PRT/1968 dan diganti dengan Peraturan Menteri


34 PU tertanggal 1 Juni 1970 Nomor 4/PRT/1970. Departemen PU telah memiliki suatu susunan struktur organisasi. Sebagai gambaran lebih jauh pembagian tugas-tugas dalam lingkungan Departemen PU, maka pada waktu itu azas tugas-tugas PU telah diserahkan pada kewenangan daerah itu sendiri.

3.2 Uraian Tugas, Wewenang dan Tanggung Jawab

3.2.1 Kepala SNVT

Nama Jabatan

: Kepala SNVT

Unit Kerja

: Satuan Non Vertikal Tertentu (SNVT) Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara

Rincian Tugas

:

1. Menyusun rencana kegiatan SNVT Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara, berdasarkan kegiatan tahun sebelumnya dan data yang tersedia sebagai pedoman.

2. Mengkoordinasikan para asisten SNVT Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara secara langsung maupun melalui rapat berkala agar terjalin hubungan kerja sama yang baik dan saling mendukung dalam pelaksanaan tugas masing-masing.

3. Mengatur dan mendistribusikan tugas kepada para asisten / bendaharawan SNVT Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera


35 Utara dan bawahan baik tertulis maupun lisan sesuai dengan bidang tugas dan kemampuan masing-masing. 4. Memberi petunjuk kepada para asisten/bendaharawan SNVT Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara dalam melaksanakan tugas dan memberi arahan sesuai dengan pedoman program yang dipakai.

5. Menyediakan pelaksanaan tugas dan hasil yang dicapai para asisten/ bendaharawan SNVT agar realisasi sesuai dengan rencana yang telah ditentukan.

6. Memecahkan masalah yang timbul dalam pelaksanaan tugas yang dihadapi bawahan atas dasar pantauan dan evaluasi untuk bahan rumusan konsep kebijaksanaan lebih lanjut.

7. Melaporkan pelaksanaan tugas SNVT Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara, baik tertulis maupun lisan kepada atasan.

8. Memberikan saran dan usul di bidang perencanaan, pengawasan dan peningkatan jalan wilayah serta meminta saran dan petunjuk teknis dalam membuat bahan rumusan SNVT.

9. Merencakan dan membuat program kerja SNVT sesuai peraturan dan pedoman yang berlaku agar pekerjaan SNVT sesuai dengan rencana.

10. Melaksanakan pengawasan pekerjaan SNVT di lapangan berdasarkan rencana yang telah ditentukan agar pekerjaan di lapangan dapat berjalan dengan baik.


36 11. Mengevaluasi laporan fisik dan keuangan dengan menggunakan form-form standard agar keadaan fisik dan keuangan dapat selalu terkendali. 12. Melaksakan pengawasan pekerjaan konsultan sesuai peraturan-peraturan yang berlaku agar pelaksanaan pekerjaan konsultan sesuai dengan rencana.

13. Menetapkan / menunjuk pemenang tender sesuai hasil rapat panitia tender agar pemenang dapat melaksanakan tugasnya.

14. Mengkoordinir tugas-tugas pelaksanaan SNVT sesuai jabatan masing-masing agar tercapai hasil yang telah ditetapkan.

15. Mengevaluasi hasil kerjaan kontraktor dan konsultan (design) sesuai dengan data kontraktor yang telah ditentukan.

16. Melaksanakan tugas lainnya yang diberikan dan instruksikan atasan.

Jabatan Atasan Langsung

: Kepala Balai Pelaksanaan Jalan Nasional I

Jabatan Pembantu Atasan Langsung : Direktur Bina Teknik, Ditjend. Bina Marga. Jabatan Bawahan Langsung

: Bendahara, Asisten Umum, Asisten Teknik Pelaksana Perencanaan Jalan dan Jembatan, Pelaksana Pengawasan Jalan dan Jembatan.

Alat Kerja

: ATK, Komputer, Buku Pedoman, Kalkulator, Form Standard, White Board.

Bahan Kerja

: DIPA. PO, Peraturan Perundang-undangan, SK (Mentari, Ditjend, Direktur) Dokumen, Kepres, Laporan.

Hasil Kerja

: SNVT berjalan lancar dan mencapai sasaran


37 secara tepat waktu dan tepat guna.

2.3.2 Asisten Umum

Nama Jabatan

: Asisten Umum / Asisten Keuangan

Unit Kerja

: SNVT Perencanaan dan pengawasan Jalan dan Jembatan Provinsi Sumatera Utara

Rincian Tugas

:

1. Memberikan tugas, mengkoordinir, mengawasi dan mengevaluasi pelaksanaan tugas kepala urusan rumah tangga, kepala urusan tata usaha, kepala urusan kepegawaian, dan urusan sekretariat. 2. Menyusun Rencana Operasional Kantor (ROK). 3. Membantu asisten teknik dalam mempersiapkan DIPA. 4. Memeriksa, mengevaluasi pengadaan alat/barang kebutuhan kantor dan pendistribusiannya kepada bagian yang membutuhkan. 5. Mengonsep surat-surat dinas. 6. Membuat / menyusun laporan. 7. Menyiapkan dan membuat kontrak pengadaan alat/barang kebutuhan serta pemeliharaan kantor. 8. Memonitor, menjaga, atau menjamin seluruh perlengkapan kantor. 9. Melaksanakan tugas-tugas lain sesuai perintah kepala SNVT.

2.3.3 Asisten Teknik

Nama Jabatan

: Asisten Teknik

Unit Kerja

: SNVT Perencanaan dan Pengawasan Jalan dan Jembatan


38 Provinsi Sumatera Utara. Rincian Tugas

:

1. Merencanakan kegiatan perencanaan teknis jalan dan jembatan berdasarkan data BMS / data IRMS / data yang ada, petadan data sebelumnya. 2. Mengevaluasi teknis prioritas dan pentahapan penanganan jalan. 3. Mengkoordinir kegiatan monitoring, survey dan inventarisasi perencanaan jalan dan jembatan untuk bahan pengolahan dan evaluasi. 4. Memeriksa dan mengevaluasi pekerjaan konsultan. 5. Melaksanakan koordinasi dan penyusunan program jaringan jalan. 6. Membuat laporan hasil kegiatan kerja dan hasil penilaian pekerjaan konsultan perencanaan. 7. Menyusun data kinerja jalan / jembatan secara berkala. 8. Menyusun rencana anggaran biaya paket jalan / jembatan. 9. Memberi masukan atas kebutuhan biaya program dan review desain pekerjaan fisik. 10. Memeriksa / verifikasi tagihan / konsultan perencanaan.

2.3.4 Pejabat Penguji / Penanda Tangan dan SPM

Nama Jabatan

: Pejabat Penguji / Penanda Tangan SPM

Unit Kerja

: SNVT Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara.

Rincian Tugas

:

1. Memeriksa berkas SPP yang disampaikan oleh Pejabat. 2. Memeriksa kelengkapan SPP dan bukti setoran pajak. 3. Memeriksa secara rinci keabsahan dokumen pendukung SPP. Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

39 4. Pencatatan dalam buku pengawasan MAK. 5. Menandatangani dan menerbitkan SPM sekurang-kurangnya dalam rangkap enam. 6. Menyusun laporan seluruh kegiatan yang dilakukan sesuai DIPA dan menyampaikan kepada Kepala SNVT selaku atasan langsungnya. 7. Mencatat dalam buku pengawasan SPM & SP2D. 8. Memeriksa kebenaran atas hak tagih antara lain: a. Pihak yang ditunjuk menerima pembayaran. b. Nilai tagihan yang harus dibayar. c. Jadwal waktu pembayaran.

2.3.5 Bendahara Pengeluaran

Nama Jabatan

: Bendahara Pengeluaran

Unit Kerja

: SNVT Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi SUMUT

Rincian Tugas : 1. Merencanakan pembebanan dana dengan menggunakan syarat tertentu sesuai daftar isian SNVT DIPA dan Petunjuk Operasional (PO). 2. Mengajukan permintaan uang yang harus dipertanggung jawabkan dengan menggunakan syarat tertentu ke Kantor Perbendaharaan dan Kas Negara (KPKN). 3. Mencatat dan membukukan cek untuk di tanda tangani sebagai bahan untuk mendapatkan uang tunai untuk kas SNVT. 4. Menyusun realisasi keuangan SNVT sebagai bahan untuk membuat laporan sesuai peraturan yang berlaku. Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

40 5. Mengajukan/menandatangani surat permintaan pembayaran langsung untuk mambayar penagihan oleh pihak ketiga. 6. Menyusun dan menandatangani semua transaksi sebagai bahan tanda bukti siap di ajukan ke KPKN. 7. Memeriksa ulang kebenaran tanda bukti penaguhan dan kelengkapannya sebagai bahan untuk keabsahan tanda bukti. 8. Membuat kecocokan saldo kas dan saldo buku kas umum sebagai bahan untuk tidak terjadinya selisih perhitungan. 9. Menyusun laporan keuangan SNVT dengan merujuk DAFTAR LAPORAN. 10. Mengurus Surat Permintaan Pembayaran (SPP) kekantor perbendaharaan Negara. 11. Menyusun tata usaha keuangan SNVT, buku pembantu verifikasi, serta membuat pertanggung jawaban tentang pengurusan keuangan. 12. Meneliti atau memeriksa kebenaran kuitansi tagihan dari pihak ketiga sebelum melaksanakan pembayaran. 13. Melaksanakan penyimpanan dan pengamanan uang. 14. Melaksanakan pembayaran sesuai tagihan dari pihak ketiga.


41

BAB 4

PERANCANGAN SISTEM

Perancangan File-File Database

Database merupakan suatu kumpulan field-field yang berguna dalam hal menyimpan data-data untuk proses pengambilan keputusan .

Dalam hal merancang sebuah sistem yangberbasis database, perancangan database merupakan suatu aspek yang perlu mendapat perhatian yang khusus. Kesulitan utama dalam merancang sebuah aplikasi database adalah bagaimana merancang suatu database yang mempunyai ketelitian yang tinggi sehingga database yang dirancang tersebut terhindar dari duplikasi data untuk saat ini dan saat yang akan datang.

Dalam sistem informasi yang penulis rancang ini terdapat 4 tabel database. Adapun ke 4 tabel database tersebut adalah: 1. Tabel Pegawai 2. Tabel Sumber Gaji 3. Tabel Gaji 4. Tabel Absensi


42

Tabel 4.1 : Pegawai

Tabel 4.2 : Sumber Gaji


43

Tabel 4.3 : Gaji Pokok

Tabel 4.4 : Absensi


44

4.2 Database Relationship

Adapun database Relationship yang penulis rancang adalah sebagai berikut:

Gaji Pegawai

Pegawai

 NIP Nama Jab Gol Masa-krj Gapok Gj-Ms krj Bulan Thn Pot-IWP Pt-PPh 21 Pot-Askes Pot-Rmah Uangmkn Tunj-kel Tunj-Ank TnjUmum Tunj-Bras Tunj-Pjak Tunj-Asks Tunj-Jab Gaji-Tot

 NIP Nama Tmp-lhr Tgl-lhr Jenkel Agama Status Alamat Pend Gol Jab Thn-msk Masa-krj

Absensi  NIP Nama Bulan Thn Tot-Absn Tot-Hadir

Sumber Gaji  Gol Gapok Gj-Ms krj Tunj-kel Tnj-Ank Tnj-Umm Tnj-Bbas Tunj-Pjk Tnj-Asks Tunj-Jab Pot-IWP Pt-PPh21 Pot-Asks Pot-Rmh Uangmakan


45 4.3 Data Flow Diagram

Adapun Data Flow Diagram yang penulis rancang adalah sebagai berikut:

Pegawai Biodata Pegawai

Slip gaji

Sistem Informasi Kepegawaia n

Biodata Pegawai gaji, absensi

Petugas Kepegawaian

Informasi Kepegawaian

Pimpinan

Gambar 4.1 Data Flow Diagram Konteks


46

Pegawai

Biodata Pegawai gaji, absensi

Biodata Pegawai

1 Permohonan Dan Surat Keputusan

Petugas Kepegawaian

Informasi Kepegawaian

F1

Pegawai

F3

Sumber Gaji

F2

Gaji Pokok

F4

Absensi

Surat Persetujuan Slip Gaji

2 Pembuatan Laporan

Laporan

Pimpinan

Gambar 4.2 Data Flow Diagram (DFD) Level 0


47

Pegawai

Petugas Kepegawaian Biodata pegawai

1.2 Surat Keputusan

1.1 Permohonan

Biodata Pegawai, Gaji, Absen

F1

Pegawai

Biodata Pegawai

F2

Gaji Pokok

F3

Sumber Gaji

F4

Absensi

2 Pembuatan Laporan Surat Persetujuan Slip Gaji

Identitas Pegawai gaji, absensi

Laporan

Pimpinan

Gambar 4.3 Data Flow Diagram ( DFD ) Level 1


48

4.4 Algoritma

Program ini dibuat untuk proses penginputan data – data pegawai, pada gaji pegawai data tidak perlu diinput. Dikarenakan

setelah data yang diinput pada form data

pegawai, maka secara otomatis query pada database akan mengkalkulasikannya berdasarkan golongan dan status lainnya.

Prosedur kerja dari sistem yang dirancang akan dijelaskan lebih lanjut dibawah ini 1. Ketika program di eksekusi

maka untuk yang pertama sekali sistem akan

menampilkan form Login sebagai identifikasi pengguna dari sistem. 2. Pada form Login sistem meminta agar pengguna memasukkan jenis dari pengguna, nama pengguna dan password dari pengguna. Setelah sistem berhasil mengidentifikasi pengguna, maka akan tampil form Splashscreen. 3. Pada tampilan form Splashscreen sebagai tampilan pembuka dari sistem. Yang mana pada form ini label loading akan mengidentifikasi textbox user pada form login, dan terdapat animasi pada label 1, label 2 dan label 3 yang mana pergerakan animasi berdasarkan Timer Toolboxs (Peralatan Waktu), dan selanjutnya akan masuk ke form utama sistem. 4. Form Utama/Induk, Form ini merupakan sentralisasi controling (pengendalian) dari sistem yang berjalan, dan merupakan form yang berfungsi untuk mengakses form yang ada pada menu dan sub menu. 5. Pada form Data Pegawai digunakan untuk menginput dan menampilkan seluruh data yang telah dimasukkan. Pada textbox Nip pengguna dapat memasukkan nip


49

pegawai, dan apabila nip telah dimasukkan, maka sistem akan langsung menampilkan data pada textbox masing-masing. Pada sistem untuk menampilkan data yang telah diinput dapat dilakukan dengan mengklik tombol Data, maka keseluruhan dari data akan ditampilkan pada listview yang tersembunyi. Untuk kembali menyembunyikan data dapat mengklik tombol Data yang akan berubah menjadi tombol Hide (Sembunyi) apabila di klik dan juga sebaliknya.. 6. Pada form Data Sumber Gaji prosedur kerjanya tidak jauh berbeda dengan form Data Pegawai. Hanya saja pada form ini hanya di prioritaskan pada pengeditan data berdasarkan Golongan. 7. Pada form Data Gaji Pegawai konsep dari prosedur kerjanya hanya sebagai output (keluaran) dari data-data yang telah di input pada form sebelumya. 8. Pada form Absensi Pegawai digunakan untuk menginput data absensi pegawai bersasarkan nip pegawai yang mana prosedur kerjanya tidak jauh berbeda pada form Data Pegawai dan Sumber Gaji. 9. Pada form Laporan Data Pegawai, Sumber Gaji dan Laporan Gaji, pengguna dapat menyajikan data yang diinginkan dengan pengurutan berdasarkan NIP, Golongan, Jabatan dan Gaji Pokonya, dan untuk menampilkan data dalam bentuk laporan dapat dilakukan dengan mengklik tombol Preview (pra pertunjukan) 10. Sementara untuk menampilkan laporan Slip Gaji dan Absensi Pegawai sistem akan langsung menampilkan laporan data tanpa proses pensortiran/pengurutan. 11. Sistem menyediakan menu Tools yang berisikan sub menu Converter dan Setting pembuatan User (Pengguna) sistem.


50

12. Form Converter berisikan beberapa tombol dan kotak teks serta tampilan data yang prosedur kerjanya tidak jauh berberda dengan form Data Pegawai. Pada form ini data dari pengguna dan Password (Kata kunci) akan di import dari database untuk dapat langsung di comvert (di ubah). 13. Pada form yang berhubungan dengan pengguna dan password digunakan untuk membuat, menghapus dan mengubah password

pengguna yang langsung di

eksport ke database, password yang diinput pada setiap form sistem secara langsung akan merubah keseluruhan dari password ke dalam kode ACSII untuk tingkat sekuritas yang tinggi dari sistem. 14. Pada form About (mengenai sistem) form ini dirancang dengan animasi yang berdasarkan Timer Toolboxs (Peralatan Waktu) digunakan sebagai keterangan mengenai Versi dari Sistem dan Programer (Pemrogram) sistem.


51

4.5 Input dan Output Program

Form Login

Form SplashScreen


52

Form Utama

Form Data Pegawai Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

53

Form Sumber Gaji

Form Gaji


54

Form Absensi


55

Laporan Data Pegawai


56

Laporan Sumber Gaji


57

Laporan Gaji Pegawai

Laporan Slip Gaji Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

58

Laporan Absensi


59

BAB 5

IMPLEMENTASI SISTEM

5.1 Pengertian dan Tujuan Implementasi Sistem

Implementasi adalah prosedur yang dilakukan untuk menyelesaikan desain sistem yang ada didalam dokumen desain sistem yang disetujui dan menguji, menginstall, dan memulai menggunakan sistem baru atau sistem yang diperbaiki.

Tujuan dari implementasi sistem adalah sebagai berikut: 1. Menyelesaikan desain sistem yang ada dalam dokumen desain sistem yang baru atau yang telah disetujui. 2. Menulis,

menguji, dan mendokumentasikan program-program dan

prosedur-prosedur yang diperlukan oleh dokumen desain sistem yang telah disetujui. 3. Memastikan bahwa user (pemakai) dapat mengoperasikan sistem yang baru disetujui dengan baik dan jelas. 4. Memperhitungkan bahwa sistem memenuhi permintaan pemakai. 5. Memastikan bahwa konversi ke sistem baru berjalan secara benar dan baik.


60

5.2 Spesifikasi Kebutuhan Sistem

Adapun ketentuan spesifikasi kebutuhan implementasi dalam pembuatan program ini menggunakan sistem komputerisasi hardware (perangkat keras), software (perangkat lunak), Brainware (pengguna),yaitu sebagai berikut :

1. Hardware (Perangkat Keras)

Perangkat keras adalah perangkat yang membentuk suatu sistem komputerisasi dengan alat pendukung lainnya untuk melakukan pemprosesan atau dapat juga didefinisikan dengan sekumpulan peralatan elektronik yang saling berkaitan antara komponen satu dengan komponen yang ainnya sehingga dapat digunakan untuk memasukkan

data,

memproses

data

dan

menghasilkan

informasi.

Untuk

mengimplementasikan sistem tanpa gangguan maka diperlukan perangkat keras sebagai berikut : -

Keyboard dan Mouse.

-

USB Port

-

Monitor VGA keatas.

-

Processor P-III 500 Mhz keatas.

-

Memory 64 MB keatas.

-

VGA 2 MB.

-

Harddisk 6 Ghz.

-

Printer.


61

2. Software (Perangkat Lunak)

Perangkat lunak adalah program-program aplikasi yang dibuat untuk menjadi penerjemah antara perangkat keras dengan pemakai. Tanpa adanya perangkat lunak maka pemakai dan perangkat keras tidak dapat berinteraksi.

Seluruh paket dari sistem pada sistem pengolahan data dibuat dari perlatan komputer itu yang berupa bahasa pemrograman atau sistem yang dibuat manusia berupa barisan intruksi-intruksi yang dikenal oleh komputer dalam pelaksanaanya. Software yang digunakan dalam pembuatan program ini yaitu Microsoft Office Access, Microsoft Visual Basic 6.0 dan Cristal Report 7.0.

3. Brainware (Pengguna/Pemakai)

Pemakai/Pengguna adalah seorang yang mampu berinteraksi langsung dengan komputer melalui program aplikasi serta sistem yang berjalan.

5.3 Kelemahan dan Kelebihan Sistem

Adapun kelemahan dan kelebihan dari sistem yang dihasilkan sebagai rumusan pengembangan sistem adalah: 1. Kelebihan Sistem -

Tingkat Sekuritas yang tinggi dalam pengaksesan sistemdengan adanya sistem login pengguna .

-

Tidak adanya redudansi Data.


62

-

Efektivitas kerja dari sistem lama

-

Efesiensi waktu

2. Kekurangan Sistem -

Ketika pengguna berstatus Administrator lupa akan passwordnya maka sistem mematikan seluruh akses hak administrator pada sistem.


63

BAB 6

KESIMPULAN DAN SARAN

6.1 Kesimpulan

Berdasarkan pembahasan dan penelitian, maka penulis dapat mengambil suatu kesimpulan, yaitu: 1. Form-form yang ditampilkan dalam program ini sangat jelas.Pemakainya juga lebih mudah dan lebih efisien karena dalam perancangannya penulis menggunakan bahasa pemrograman Visual Basic 6.0.

2. Dengan menggunakan sistem pengolahan data pegawai yang dirancang diharapkan dapat mengatasi permasalahan yang timbul pada pengolahan data pegawai di Satuan Non Vertikal Tertentu Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara.

3. Dengan sistem ini diharapkan dapat membantu pengolahan data pegawai sehingga semakin efektif dan efisien serta dapat meningkatkan kinerjapara pegawai.


64

6.2 Saran

Saran yang penulis ingin sampaikan adalah: 1. Sistem pengolahan data pegawai yang telah ada sebaiknya perlu ditata, di update sesuai dengan perkembangan teknologi komputer dewasa ini, sehingga dapat meningkatkan sistem kerja di Satuan Non Vertikal Tertentu Perencanaan dan Pengawasan Jalan dan Jembatan Provinsi Sumatera Utara. 2. Sebaiknya diadakan pelatihan-pelatihan khususnya dibidang komputer untuk meningkatkan produktivitas kerja para pegawai. 3. Penyediaan perangkat komputer yang cukup dan memadai akan menambah maksimal kerja para pegawai.


65

DAFTAR PUSTAKA

Hengky Alexander Mangkulo. 2004. Trik dan Tip Pemrograman Visual Basic 6.0 dan Microsoft Acces. Jakarta: PT. Elex Media Komputindo. Madcoms, Madiun. 2001. Seri Panduan Pemrograman Microsoft Visual Basic 6.0. Yogyakarta: Andi Yogyakarta. Didik Dwi Prasetyo. 2004. Aplikasi Bisnis dan Perkantoran Menggunakan Visual Basic 6.0. Jakarta: PT. Elex Media Komputindo. Rusmawan, Uus. 2004. Buku Latihan dan Implementasi Visual Basic 6.0. Jakarta: PT. Elex Media Komputindo. Rusmawan, Uus. 2008. Koleksi Program Visual Basic 6.0 Konsep ADO untuk Tugas Akhir dan Skripsi. Jakarta: PT. Elex Media Komputindo.


66

LISTING PROGRAM

Frm_Login Option Explicit Dim Status As String Private Sub HakAkses() Select Case Status Case "Administrator" FrmInduk.mnDelete.Enabled = True FrmInduk.mnNew.Enabled = True Case "Operator" FrmInduk.mnDelete.Enabled = False FrmInduk.mnNew.Enabled = False End Select End Sub Private Sub CmdCancel_Click() Unload Me End Sub Private Sub cmdTutup_Click() End Sub Private Sub Form_Load() BukaData FormKetengah Me TxtNama.Text = "" TxtPass.Text = "" TxtNama.Enabled = False TxtPass.Enabled = False End Sub Private Sub cmbjenis_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If CmbJenis.Text = "" Then Exit Sub TxtNama.Enabled = True TxtNama.SetFocus SendKeys "{home}+{end}" End If End Sub Private Sub Form_Unload(Cancel As Integer) Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

67

End End Sub Private Sub TxtNama_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtNama.Text = "" Then Exit Sub TxtPass.Enabled = True TxtPass.SetFocus SendKeys "{Home}+{End}" End If End Sub Private Sub TxtPass_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Dim TPass As ADODB.Recordset Dim Kata As String Kata = "Select * from Pengguna Order By Jenis" Set TPass = New ADODB.Recordset TPass.Open Kata, db, adOpenStatic, adLockOptimistic TPass.Find "User='" & TxtNama.Text & "'", , adSearchForward, 1 If TPass.EOF Then MsgBox "User Anda Tidak Dikenali..", vbCritical, "LOGIN" TxtNama.SetFocus SendKeys "{Home}+{End}" ElseIf TxtPass.Text <> TPass![Pass] Then MsgBox "Password Anda Ditolak..", vbCritical, "LOGIN" SendKeys "{Home}+{End}" ElseIf CmbJenis.Text <> TPass![Jenis] Then MsgBox "User Anda Tidak Mendukung Untuk Mengakses " & CmbJenis.Text & " ", vbCritical, "SISTEM KEPEGAWAIAN" CmbJenis.SetFocus Else FrmSplashScreen.Show FrmSplashScreen.Timer1.Enabled = True Me.Hide FrmSplashScreen.Label1.Caption = "Loading as " & TPass![User] & " ..." FrmInduk.StatusBar1.Panels(5).Text = "User : " & TPass![User] FrmInduk.StatusBar1.Panels(6).Text = "Status : " & TPass![Jenis] Status = TPass![Jenis] Call HakAkses End If TPass.Close Set TPass = Nothing End If End Sub Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

68

'Private Sub TxtPass_KeyPress(KeyAscii As Integer) 'If Not KeyAscii = vbKeyBack Then ' KeyAscii = Asc(Chr(KeyAscii * 7 / 5)) 'End If 'End Sub FrmSplashScreen

Private Sub Form_Activate() LblLoading.Left = -LblLoading.Width LblLoading2.Left = LblLoading.Left - 270 LblLoading3.Left = LblLoading2.Left - 270 End Sub Private Sub Form_Load() Me.MousePointer = 11 End Sub Private Sub Label3_Click() End Sub

Private Sub Timer1_Timer() FrmInduk.Show Me.MousePointer = 1 Unload Me Timer1.Enabled = False End Sub Private Sub Timer2_Timer() If LblLoading3.Left >= Picture1.Width Then LblLoading.Left = -120 LblLoading2.Left = LblLoading.Left - 270 LblLoading3.Left = LblLoading2.Left - 270 Else LblLoading.Left = LblLoading.Left + 50 LblLoading2.Left = LblLoading2.Left + 50 LblLoading3.Left = LblLoading3.Left + 50 End If End Sub

FrmNewUser Option Explicit Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

69

Private Sub TeksMati() TxtNama.Enabled = False TxtPass.Enabled = False TxtKonfir.Enabled = False CmdNew.Enabled = False End Sub Private Sub TeksHidup() TxtNama.Enabled = True TxtPass.Enabled = True TxtKonfir.Enabled = True End Sub Private Sub cmbjenis_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If CmbJenis.Text = "" Then Exit Sub TxtNama.Enabled = True TxtNama.SetFocus End If End Sub Private Sub CmdCancel_Click() Unload Me End Sub Private Sub CmdNew_Click() Dim Tuser As ADODB.Recordset Dim Kata As String Dim Konfir As String Kata = "Select * From Pengguna Order By Jenis" Set Tuser = New ADODB.Recordset Tuser.Open Kata, db, adOpenStatic, adLockOptimistic If (TxtPass.Text <> TxtKonfir.Text) Or (Len(TxtPass.Text) <> Len(TxtKonfir.Text)) Or TxtKonfir.Text = "" Then MsgBox "Silahkan Konfirmasi Password Anda Dengan Benar!", vbCritical, "Pesan Kesalahan" SendKeys "{Home}+{end}" TxtKonfir.SetFocus Else Konfir = MsgBox("Apakah User " & TxtNama.Text & " Akan Ditambahkan Kedalam Daftar ??", vbYesNo, "NEW USER") If Konfir = vbYes Then Tuser.Find "User='" & TxtNama.Text & "'", , adSearchForward, 1 If Not Tuser.EOF Then MsgBox "User Sudah Terdaftar Sebelumnnya, Silahkan Ganti", vbInformation, "NEW USER" Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

70

Else With Tuser .AddNew !Jenis = CmbJenis.Text !User = TxtNama.Text !Pass = TxtKonfir.Text .Update End With CmdCancel.Caption = "&Tutup" End If End If TxtNama.Text = "" TxtPass.Text = "" TxtKonfir.Text = "" TeksMati End If End Sub Private Sub TxtKonfir_Change() If TxtKonfir.Text = "" Then CmdNew.Enabled = False Else CmdNew.Enabled = True End If End Sub Private Sub TxtKonfir_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If TxtKonfir.Text = "" Then TxtKonfir.SetFocus Else If (TxtPass.Text <> TxtKonfir.Text) Or (Len(TxtPass.Text) <> Len(TxtKonfir.Text)) Or TxtKonfir.Text = "" Then MsgBox "Silahkan Konfirmasi Password Anda Dengan Benar!", vbCritical, "Pesan Kesalahan" SendKeys "{Home}+{end}" Else CmdNew.SetFocus End If End If End If End Sub Private Sub TxtNama_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If TxtNama.Text = "" Then Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

71

TxtNama.SetFocus Exit Sub Else TxtPass.Enabled = True TxtPass.SetFocus End If End If End Sub Private Sub TxtPass_Change() TxtKonfir.Text = "" CmdNew.Enabled = False End Sub Private Sub TxtPass_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If TxtPass.Text = "" Then Exit Sub If Len(TxtPass.Text) < 4 Then MsgBox "Password Terlalu Pendek", vbCritical, "PASSWORD" SendKeys "{Home}+{End}" Else If TxtPass.Text = "" Then TxtPass.SetFocus Else TxtKonfir.Enabled = True TxtKonfir.SetFocus End If End If End If End Sub 'Private Sub TxtPass_KeyPress(KeyAscii As Integer) 'If Not KeyAscii = vbKeyBack Then ' KeyAscii = Asc(Chr(KeyAscii * 7 / 5)) 'End If 'End Sub 'Private Sub TxtKonfir_KeyPress(KeyAscii As Integer) ' KeyAscii = Asc(UCase(Chr(KeyAscii))) 'If Not KeyAscii = vbKeyBack Then ' KeyAscii = Asc(Chr(KeyAscii * 7 / 5)) 'End If 'End Sub Private Sub Form_Load() FormKetengah Me TeksMati Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

72

CmdNew.Enabled = False End Sub FrmDeleteUser Option Explicit Private Sub IsiCmbUser() Dim Tuser As ADODB.Recordset Dim Perintah As String Me.MousePointer = 11 Perintah = "Select [User] from Pengguna Order By [Jenis]" Set Tuser = New ADODB.Recordset Tuser.Open Perintah, db, adOpenStatic, adLockReadOnly CmbUser.Clear If Not Tuser.EOF Then Tuser.MoveFirst While Not Tuser.EOF CmbUser.AddItem Tuser![User] Tuser.MoveNext Wend End If Tuser.Close Set Tuser = Nothing Me.MousePointer = 1 End Sub Private Sub CmbUser_Click() Dim Tuser As ADODB.Recordset Dim Konfir As String Konfir = "Select * from Pengguna Order By Jenis" Set Tuser = New ADODB.Recordset Tuser.Open Konfir, db, adOpenStatic, adLockOptimistic Tuser.Find "User='" & CmbUser.Text & "'", , adSearchForward, 1 If Not Tuser.EOF Then TxtJenis.Text = "" TxtJenis.Text = Tuser![Jenis] TxtPass.Enabled = True TxtPass.SetFocus End If Tuser.Close Set Tuser = Nothing End Sub Private Sub CmbUser_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If CmbUser.Text = "" Then Exit Sub Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

73

cmdhapus.Enabled = True cmdhapus.SetFocus End If End Sub Private Sub cmdhapus_click() Dim Tuser As ADODB.Recordset Dim Kata As String Dim Konfir As Integer Dim A As String Dim B As String Dim C As String A = FrmInduk.StatusBar1.Panels(4).Text B = Mid(A, Len("User : "), Trim(Len(A) - Len("User : ") + 1)) C = CmbUser.Text Konfir = MsgBox("Yakin Akan Menghapus ??", vbYesNo, "DELETE USER") If Konfir = vbYes Then If Trim(C) = Trim(B) Then MsgBox "User Sedang Digunakan !", vbCritical, "DELETE USER" CmdBatal.SetFocus Else Kata = "Select Pass From Pengguna where [User]='" & CmbUser.Text & "'" Set Tuser = New ADODB.Recordset Tuser.Open Kata, db, adOpenStatic, adLockOptimistic If Trim(TxtPass.Text) <> Tuser![Pass] Then MsgBox "Password Anda Ditolak ..", vbCritical, "DELETE USER" cmdhapus.Enabled = False TxtPass.SetFocus SendKeys "{home}+{End}" Else db.Execute "Delete From Pengguna Where [User]='" & Trim(CmbUser.Text) & "'" IsiCmbUser CmbUser.SetFocus cmdhapus.Enabled = False TxtJenis.Text = "" TxtPass.Text = "" TxtPass.Enabled = False CmdBatal.Caption = "&Tutup" End If Tuser.Close Set Tuser = Nothing End If Else CmdBatal.SetFocus End If End Sub Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

74

Private Sub CmdBatal_Click() Unload Me End Sub Private Sub Form_Load() FormKetengah Me cmdhapus.Enabled = False IsiCmbUser End Sub Private Sub TxtPass_Change() If TxtPass.Text = "" Then cmdhapus.Enabled = False Else cmdhapus.Enabled = True End If End Sub Private Sub TxtPass_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then cmdhapus.SetFocus End If End Sub 'Private Sub TxtPass_KeyPress(KeyAscii As Integer) 'If Not KeyAscii = vbKeyBack Then ' KeyAscii = Asc(Chr(KeyAscii * 7 / 5)) 'End If 'End Sub FrmSetUser Private Sub CmdBatal_Click() Unload Me End Sub Private Sub TeksMati() TxtPass.Enabled = False TxtJenis.Enabled = False TxtPass1.Enabled = False TxtPass2.Enabled = False CmdSet.Enabled = False End Sub Private Sub Bersih() TxtNama.Text = "" TxtPass.Text = "" Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

75

TxtJenis.Text = "" TxtPass1.Text = "" TxtPass2.Text = "" TeksMati End Sub Private Sub CmdSet_Click() Dim TSet As ADODB.Recordset Dim Kata As String Dim Konfir As String Kata = "Select * from Pengguna Order By Jenis" Set TSet = New ADODB.Recordset TSet.Open Kata, db, adOpenStatic, adLockOptimistic TSet.Find "User='" & TxtNama.Text & "'", , adSearchForward, 1 If (TxtPass1.Text <> TxtPass2.Text) Or (Len(TxtPass1.Text) <> Len(TxtPass2.Text)) Or TxtPass2.Text = "" Then MsgBox "Silahkan Konfirmasi Password Anda Dengan Benar!", vbCritical, "SET USER" SendKeys "{Home}+{end}" TxtPass2.SetFocus Else If Not TSet.EOF Then Konfir = MsgBox("Apakah Anda Yakin Akan Mengganti Password ?", vbQuestion + vbYesNo, "SET USER") If Konfir = vbYes Then If TxtPass.Text <> TSet![Pass] Then MsgBox "Gagal, Password Anda Ditolak..", vbCritical, "SET USER" Call Bersih TxtNama.SetFocus Else With TSet .Clone !Pass = TxtPass2.Text .Update End With TSet.Requery Call Bersih TxtNama.SetFocus CmdBatal.Caption = "&Tutup" End If Else Call Bersih TxtNama.SetFocus End If End If End If End Sub Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

76

Private Sub Form_Load() FormKetengah Me Bersih End Sub Private Sub TxtNama_KeyDown(KeyCode As Integer, Shift As Integer) Dim TSet As ADODB.Recordset Dim Kata As String If KeyCode = vbKeyReturn Then If TxtNama.Text = "" Then Exit Sub Kata = "Select * from Pengguna Order By Jenis" Set TSet = New ADODB.Recordset TSet.Open Kata, db, adOpenStatic, adLockOptimistic TSet.Find "User='" & TxtNama.Text & "'", , adSearchForward, 1 If TSet.EOF Then MsgBox "User " & TxtNama.Text & " Tidak Dikenali..", vbCritical, "SET USER" SendKeys "{Home}+{End}" TxtJenis.Text = "" Else TxtJenis.Text = TSet![Jenis] TxtPass.Enabled = True TxtPass.SetFocus End If TSet.Close Set TSet = Nothing End If End Sub Private Sub TxtNama_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub TxtPass_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If TxtPass.Text = "" Then TxtPass.SetFocus ElseIf Len(TxtPass.Text) < 4 Then MsgBox "Password Terlalu Pendek..", vbCritical, "SET USER" SendKeys "{Home}+{End}" Else TxtPass1.Enabled = True TxtPass1.SetFocus End If End If End Sub Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

77

'Private Sub TxtPass_KeyPress(KeyAscii As Integer) 'If Not KeyAscii = vbKeyBack Then ' KeyAscii = Asc(Chr(KeyAscii * 7 / 5)) 'End If 'End Sub Private Sub TxtPass1_Change() TxtPass2.Text = "" CmdSet.Enabled = False End Sub Private Sub TxtPass1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If TxtPass1.Text = "" Then Exit Sub If Len(TxtPass1.Text) < 4 Then MsgBox "Password Terlalu Pendek", vbInformation, "SET PASSWORD" SendKeys "{Home}+{End}" Else If TxtPass1.Text = "" Then TxtPass1.SetFocus Else TxtPass2.Enabled = True TxtPass2.SetFocus End If End If End If End Sub 'Private Sub TxtPass1_KeyPress(KeyAscii As Integer) 'If Not KeyAscii = vbKeyBack Then ' KeyAscii = Asc(Chr(KeyAscii * 7 / 5)) 'End If 'End Sub Private Sub TxtPass2_Change() If TxtPass2.Text = "" Then CmdSet.Enabled = False Else CmdSet.Enabled = True End If End Sub Private Sub TxtPass2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If TxtPass2.Text = "" Then TxtPass2.SetFocus ElseIf (TxtPass1.Text <> TxtPass2.Text) Or (Len(TxtPass1.Text) <> Len(TxtPass2.Text)) Or TxtPass2.Text = "" Then Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

78

MsgBox "Silahkan Konfirmasi Password Anda Dengan Benar!", vbCritical, "SET USER" SendKeys "{Home}+{end}" Else CmdSet.SetFocus End If End If End Sub 'Private Sub TxtPass2_KeyPress(KeyAscii As Integer) 'If Not KeyAscii = vbKeyBack Then ' KeyAscii = Asc(Chr(KeyAscii * 7 / 5)) 'End If 'End Sub

FrmDeleteUser Option Explicit Private Sub IsiCmbUser() Dim Tuser As ADODB.Recordset Dim Perintah As String Me.MousePointer = 11 Perintah = "Select [User] from Pengguna Order By [Jenis]" Set Tuser = New ADODB.Recordset Tuser.Open Perintah, db, adOpenStatic, adLockReadOnly CmbUser.Clear If Not Tuser.EOF Then Tuser.MoveFirst While Not Tuser.EOF CmbUser.AddItem Tuser![User] Tuser.MoveNext Wend End If Tuser.Close Set Tuser = Nothing Me.MousePointer = 1 End Sub Private Sub CmbUser_Click() Dim Tuser As ADODB.Recordset Dim Konfir As String Konfir = "Select * from Pengguna Order By Jenis" Set Tuser = New ADODB.Recordset Tuser.Open Konfir, db, adOpenStatic, adLockOptimistic Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

79

Tuser.Find "User='" & CmbUser.Text & "'", , adSearchForward, 1 If Not Tuser.EOF Then TxtJenis.Text = "" TxtJenis.Text = Tuser![Jenis] TxtPass.Enabled = True TxtPass.SetFocus End If Tuser.Close Set Tuser = Nothing End Sub Private Sub CmbUser_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If CmbUser.Text = "" Then Exit Sub CmdHapus.Enabled = True CmdHapus.SetFocus End If End Sub Private Sub cmdhapus_click() Dim Tuser As ADODB.Recordset Dim Kata As String Dim Konfir As Integer Dim A As String Dim B As String Dim C As String A = FrmInduk.StatusBar1.Panels(4).Text B = Mid(A, Len("User : "), Trim(Len(A) - Len("User : ") + 1)) C = CmbUser.Text Konfir = MsgBox("Yakin Akan Menghapus ??", vbYesNo, "DELETE USER") If Konfir = vbYes Then If Trim(C) = Trim(B) Then MsgBox "User Sedang Digunakan !", vbCritical, "DELETE USER" CmdBatal.SetFocus Else Kata = "Select Pass From Pengguna where [User]='" & CmbUser.Text & "'" Set Tuser = New ADODB.Recordset Tuser.Open Kata, db, adOpenStatic, adLockOptimistic If Trim(TxtPass.Text) <> Tuser![Pass] Then MsgBox "Password Anda Ditolak ..", vbCritical, "DELETE USER" CmdHapus.Enabled = False TxtPass.SetFocus SendKeys "{home}+{End}" Else db.Execute "Delete From Pengguna Where [User]='" & Trim(CmbUser.Text) & "'" IsiCmbUser Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

80

CmbUser.SetFocus CmdHapus.Enabled = False TxtJenis.Text = "" TxtPass.Text = "" TxtPass.Enabled = False CmdBatal.Caption = "&Tutup" End If Tuser.Close Set Tuser = Nothing End If Else CmdBatal.SetFocus End If End Sub Private Sub CmdBatal_Click() Unload Me End Sub Private Sub Form_Load() FormKetengah Me CmdHapus.Enabled = False IsiCmbUser End Sub Private Sub TxtPass_Change() If TxtPass.Text = "" Then CmdHapus.Enabled = False Else CmdHapus.Enabled = True End If End Sub Private Sub TxtPass_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then CmdHapus.SetFocus End If End Sub 'Private Sub TxtPass_KeyPress(KeyAscii As Integer) 'If Not KeyAscii = vbKeyBack Then ' KeyAscii = Asc(Chr(KeyAscii * 7 / 5)) 'End If 'End Sub Frm_Absen Dim S As String Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

81

Dim I, C As Integer Dim tanda As Integer Public rs As New ADODB.Recordset Dim uji As Boolean Private Sub cmd_bersih_Click() bersih1 End Sub Private Sub bersih1() Cmd_Simpan.Enabled = False TxtGolongan.Text = "" txt_nama.Text = "" TxtBulan.Text = "" TxtTahun.Text = "" txt_absen.Text = "" txt_hadir.Text = "" txt_cari.Text = "" TxtGolongan.Enabled = False txt_nama.Enabled = False TxtBulan.Enabled = False TxtTahun.Enabled = False txt_absen.Enabled = False txt_hadir.Enabled = False txt_cari.Enabled = True cmd_edit.Enabled = False cmd_hapus.Enabled = False cmd_bersih.Enabled = True txt_nipp.Text = "" txt_nipp.Enabled = True ListView1.Refresh ada End Sub Private Sub cmd_cari_Click() txt_cari.Visible = True 'txt_cari.SetFocus End Sub Private Sub cmd_edit_Click() uji = True cmd_edit.Enabled = False txt_nipp.Enabled = True TxtGolongan.Enabled = True txt_nama.Enabled = True TxtBulan.Enabled = True TxtTahun.Enabled = True txt_absen.Enabled = True Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

82

txt_hadir.Enabled = True Cmd_Simpan.Enabled = True txt_nipp.Enabled = False txt_nama.SetFocus 'ListView1.SetFocus End Sub Private Sub cmd_exit_Click() Unload Me End Sub Private Sub cmd_hapus_Click() pesan = MsgBox("Apakah anda ingin menghapus data Absensi?", vbYesNo, "Balai Diklat PU Wilayah I Medan") If pesan = vbYes Then db.Execute " delete * from Absensi where Bulan ='" & TxtBulan.Text & "'" bersih1 MsgBox "Record telah terhapus", , "Balai Diklat PU Wilayah I Medan" Else bersih1 txt_nipp.SetFocus End If Tampil End Sub Private Sub cmd_info_Click() ListView1.Visible = True cmd_tutupinfo.Visible = True Picture2.Visible = False End Sub Private Sub cmd_simpan_Click() If Not uji Then TambahData Else EditData End If ListView1.Refresh End Sub Private Sub TambahData() 'On Error GoTo SALAH: db.Execute " insert into Absensi values('" & txt_nipp.Text & "','" & TxtGolongan.Text & "','" & txt_nama.Text & _ "','" & TxtBulan.Text & "','" & TxtTahun.Text & "','" & txt_absen.Text & "','" & txt_hadir.Text & "')" Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

83

Me.MousePointer = 1 MsgBox "Data Sudah Tersimpan", vbInformation, "Balai Diklat PU Wilayah I Medan" txt_nipp.SetFocus bersih1 Tampil ListView1.Refresh Exit Sub SALAH: MsgBox " Kode Sudah Ada", vbInformation, "Balai Diklat PU Wilayah I Medan" txt_nipp.Text = "" txt_nipp.SetFocus End Sub Private Sub EditData() db.Execute "UPDATE Absensi SET Nip='" & txt_nipp.Text & "', Golongan='" & TxtGolongan.Text & "', Nama='" & txt_nama.Text & _ "',Bulan='" & TxtBulan.Text & _ "',Tahun='" & TxtTahun.Text & "',Total_Absen='" & txt_absen.Text & "',Total_Hadir='" & txt_hadir.Text & _ "' WHERE Bulan='" & TxtBulan.Text & "'" MsgBox "Record Telah Diperbaiki", vbInformation, "Balai Diklat PU Wilayah I Medan" Form_Load bersih1 Tampil ListView1.Refresh 'txt_nipp.SetFocus End Sub Private Sub cmd_tutupinfo_Click() Picture2.Visible = True 'TxtNip.SetFocus ListView1.Visible = False cmd_tutupinfo.Visible = False End Sub Private Sub Form_Load() S = " Anda dapat menginputkan dan melihat data absen Pegawai pada Form ini {Programer} " C = Len(S) Tampil Cmd_Simpan.Enabled = False Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

84

cmd_edit.Enabled = False cmd_hapus.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) Dim tanya As Integer tanya = MsgBox("Yakin ingin keluar dari form absensi...?", vbQuestion + vbYesNo, "Balai Diklat PU Wilayah I Medan") If tanya = vbYes Then Cancel = 0 Unload Me Else Cancel = 1 End If End Sub Private Sub ada() Cmd_Simpan.Enabled = True cmd_edit.Enabled = False cmd_hapus.Enabled = False End Sub Private Sub gaada() Cmd_Simpan.Enabled = False cmd_edit.Enabled = True cmd_hapus.Enabled = True End Sub FrmConverter Public rs As New ADODB.Recordset Public tanda As Integer Dim uji As Boolean Private Sub Bersih() uji = False TxtStatus.Text = "" TxtUser.Text = "" TxtPass.Text = "" TxtHasil.Text = "" TxtStatus.Enabled = False TxtUser.Enabled = False TxtPass.Enabled = True TxtHasil.Enabled = True CmdConvert.Enabled = False TxtStatus.BackColor = &H80000005 TxtPass.BackColor = &H80000008 Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

85

TxtUser.Enabled = True LV1.Refresh IsiTxtuser 'TxtUser.SetFocus End Sub Private Sub IsiTxtuser() Dim Tuser As ADODB.Recordset Dim Perintah As String Me.MousePointer = 11 Perintah = "select User from pengguna order by User" Set Tuser = New ADODB.Recordset Tuser.Open Perintah, db, adOpenStatic, adLockReadOnly TxtUser.Clear If Not Tuser.EOF Then Tuser.MoveFirst While Not Tuser.EOF TxtUser.AddItem Tuser![User] Tuser.MoveNext Wend End If Tuser.Close Set Tuser = Nothing Me.MousePointer = 1 End Sub

Private Sub cmd_tutupinfo_Click() End Sub Private Sub CMDBERSIH_Click() Bersih End Sub Private Sub CmdList_Click() LV1.Visible = True CmdSembunyi.Visible = True Picture2.Visible = False TxtUser.SetFocus End Sub Private Sub CmdSembunyi_Click() LV1.Visible = False CmdSembunyi.Visible = False Picture2.Visible = True TxtUser.SetFocus End Sub Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

86

Private Sub Form_Activate() rs.MoveFirst Bersih End Sub Private Sub Form_Load() LV1.ListItems.Clear LV1.Refresh Set rs = New ADODB.Recordset rs.Open "select * from Pengguna order by User", db, adOpenStatic, adLockReadOnly If Not rs.EOF Then rs.MoveFirst Bersih Dim A As ListItem While Not rs.EOF Set A = LV1.ListItems.Add(, , LV1.ListItems.Count + 1) A.SubItems(1) = rs.Fields(0).Value A.SubItems(2) = rs.Fields(1).Value 'A.SubItems(3) = rs.Fields(2).Value rs.MoveNext Wend End If Bersih End Sub Private Sub Form_Unload(Cancel As Integer) Dim tanya As Integer tanya = MsgBox("Yakin ingin keluar dari form Converter...?", vbQuestion + vbYesNo, "Balai Diklat PU Wilayah I Medan") If tanya = vbYes Then Cancel = 0 Unload Me Else Cancel = 1 End If End Sub Private Sub LV1_DblClick() TxtStatus.Text = LV1.SelectedItem.ListSubItems.Item(1) TxtUser.Text = LV1.SelectedItem.ListSubItems.Item(2) 'TxtPass.Text = LV1.SelectedItem.ListSubItems.Item(3) CMDBERSIH.Enabled = True CmdConvert.Enabled = True TxtPass.Enabled = True End Sub Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

87

Private Sub Timer1_Timer() If ImgCredit.Top > (Picture1.ScaleHeight - ImgCredit.Height) Then ImgCredit.Top = ImgCredit.Top - 10 Else For I = 1 To 4500000 Next I ImgCredit.Top = Picture1.ScaleHeight End If End Sub Private Sub Timer3_Timer() If ImgTeksJalan1.Left > (Picture2.ScaleWidth - ImgTeksJalan1.Width) Then ImgTeksJalan1.Left = ImgTeksJalan1.Left - 10 Else For I = 1 To 4500000 Next I ImgTeksJalan1.Left = Picture2.ScaleWidth End If End Sub

Private Sub TxtUser_KeyDown(KeyCode As Integer, Shift As Integer) On Error GoTo SALAH: Dim rs As ADODB.Recordset Dim Kata As String If KeyCode = vbKeyReturn Then If TxtUser.Text = "" Then MsgBox "User Pegawai Tidak Boleh Kosong", vbExclamation, "User Pegawai" TxtNip.SetFocus Exit Sub End If Me.MousePointer = 11 Kata = "select * from pengguna where User='" & Trim(TxtUser.Text) & "'" Set rs = New ADODB.Recordset rs.Open Kata, db, adOpenStatic, adLockReadOnly If rs.EOF Then rs.Close Set rs = Nothing Me.MousePointer = 1 TxtStatus.Text = "" TxtPass.Text = "" TxtHasil.Text = "" TxtStatus.Enabled = False TxtPass.Enabled = True TxtHasil.Enabled = True Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

88

CmdConvert.Enabled = True CMDBERSIH.Enabled = True TxtPass.SetFocus Exit Sub SALAH: MsgBox " User Belum Terdaftar", vbInformation, "Balai Diklat PU Wilayah I Medan" TxtPass.Text = "" TxtPass.SetFocus End If rs.MoveFirst With rs TxtStatus.Text = ![Jenis] TxtPass.Text = ![Pass] End With rs.Close Set rs = Nothing 2 Me.MousePointer = 1 CmdConvert.Enabled = True CmdConvert.SetFocus CMDBERSIH.Enabled = True LV1.Refresh End If End Sub

'Private Sub TxtPass1_KeyPress(KeyAscii As Integer) 'If Not KeyAscii = vbKeyBack Then ' KeyAscii = Asc(Chr(KeyAscii * 7 / 5)) 'End If 'End Sub

'Private Sub cmdconvert_click() ''Dim kiki As Integer 'Dim kar As String '' ''If TxtPass.Text = Not Character Then ' 'kiki = Asc(Chr(Character / 3 * 5)) ''End If 'kar = "" 'For I = 1 To Len(TxtPass.Text) ' kar = kar & Asc(Chr(Mid(TxtPass.Text, I, 1)) * 5 / 7) 'Next I ' Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

89

'TxtHasil.Text = kar 'End Sub Private Sub cmdconvert_click() 'Dim kiki As Integer ' 'If TxtPass.Text = Not Character Then ' Character = Asc(Chr(Character / 7 * 5)) 'End If TxtHasil.Text = TxtPass End Sub

Private Sub Command2_Click() Unload Me End Sub FrmDataPegawai Public rs As New ADODB.Recordset Public tanda As Integer Dim uji As Boolean Private Sub Bersih() uji = False TxtNama.Text = "" TxtTpLahir.Text = "" TxtTgl.Value = Format(Now, "dd/mm/yyyy") TxtJenKel.Text = "" TxtGolongan.Text = "" TxtJabat.Text = "" TxtAgama.Text = "" TxtAlamat.Text = "" TxtStatus.Text = "" TxtPend_Akhir.Text = "" TxtTMasuk.Value = Format(Now, "dd/mm/yyyy") TxtMKerja.Text = "" TxtNama.Enabled = False TxtTpLahir.Enabled = False TxtTgl.Enabled = False TxtJenKel.Enabled = False TxtGolongan.Enabled = False TxtJabat.Enabled = False TxtAgama.Enabled = False TxtAlamat.Enabled = False TxtStatus.Enabled = False TxtPend_Akhir.Enabled = False TxtTMasuk.Enabled = False TxtMKerja.Enabled = False Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

90

CMDTAMBAH.Enabled = False CMDEDIT.Enabled = False cmdhapus.Enabled = False CMDBERSIH.Enabled = True TxtNip.Text = "" 'TxtNip.SetFocus TxtNip.Enabled = True LV1.Refresh End Sub

Private Sub CMDBERSIH_Click() Bersih End Sub Private Sub cmdEdit_Click() uji = True CMDEDIT.Enabled = False TxtNip.Enabled = True TxtNama.Enabled = True TxtTpLahir.Enabled = True TxtTgl.Enabled = True TxtJenKel.Enabled = True TxtGolongan.Enabled = True TxtJabat.Enabled = True TxtAgama.Enabled = True TxtAlamat.Enabled = True TxtStatus.Enabled = True TxtPend_Akhir.Enabled = True TxtTMasuk.Enabled = True TxtMKerja.Enabled = True CMDTAMBAH.Enabled = True TxtNip.Enabled = False TxtNama.SetFocus LV1.Refresh End Sub Private Sub cmdfirst_Click() If rs.AbsolutePosition = 1 Then MsgBox "Data Sudah di Awal", vbOKOnly, "Pesan" Exit Sub Else rs.MovePrevious Bersih End If End Sub Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

91

Private Sub cmdhapus_click() db.Execute "delete*from karyawan where NIP='" & TxtNip & "'" Bersih TxtNip.SetFocus Form_Load

End Sub

Private Sub CMDKELUAR1_Click() Unload Me End Sub

Private Sub CmdList_Click() LV1.Visible = True CmdSembunyi.Visible = True Picture2.Visible = False TxtNip.SetFocus

End Sub Private Sub CmdSembunyi_Click() LV1.Visible = False CmdSembunyi.Visible = False Picture2.Visible = True TxtNip.SetFocus End Sub Private Sub cmdTambah_Click() If Not uji Then TambahData Else EditData End If LV1.Refresh End Sub Private Sub TambahData() On Error GoTo SALAH: If TxtNama.Text = "" Then Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

92

MsgBox "Nama Data Pegawai Tidak Boleh Kosong", vbExclamation, "Nama Data Pegawai" TxtNama.SetFocus If TxtTpLahir.Text = "" Then TxtTpLahir.Text = "-" TxtTgl.SetFocus Exit Sub End If If TxtTgl.Value = "" Then TxtTgl.Value = "-" TxtJenKel.SetFocus Exit Sub End If If TxtJenKel.Text = "" Then MsgBox "Jenis Kelamin Data Pegawai Tidak Boleh Kosong", vbExclamation, "Jenis Kelamin Data Pegawai" TxtJenKel.SetFocus Exit Sub End If If TxtGolongan.Text = "" Then MsgBox "Golongan Data Pegawai Tidak Boleh Kosong", vbExclamation, "Golongan Data Pegawai" TxtGolongan.SetFocus Exit Sub End If If TxtJabat.Text = "" Then TxtJabat.Text = "-" TxtAgama.SetFocus Exit Sub End If If TxtAgama.Text = "" Then TxtAgama.Text = "-" TxtAlamat.SetFocus Exit Sub End If If TxtAlamat.Text = "" Then MsgBox "Alamat Data Pegawai Tidak Boleh Kosong", vbExclamation, "Alamat Data Pegawai" TxtAlamat.SetFocus Exit Sub End If If TxtStatus.Text = "" Then MsgBox "Status Data Pegawai Tidak Boleh Kosong", vbExclamation, "status Data Pegawai" TxtStatus.SetFocus Exit Sub End If Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

93

If TxtPend_Akhir.Text = "" Then TxtPend_Akhir.Text = "-" TxtTMasuk.SetFocus Exit Sub End If If TxtTMasuk.Value = "" Then MsgBox "Tahun Masuk Data Pegawai Tidak Boleh Kosong", vbExclamation, "Tahun Masuk Data Pegawai" TxtTMasuk.SetFocus Exit Sub End If Else db.Execute "insert into karyawan values('" & TxtNip & "','" & TxtNama & "','" & TxtTpLahir & _ "','" & TxtTgl & "','" & TxtJenKel & "','" & TxtGolongan & "','" & TxtJabat & "','" & TxtAgama & "','" & TxtAlamat & _ "','" & TxtStatus & "','" & TxtPend_Akhir & "','" & TxtTMasuk & "','" & TxtMKerja & "')" Me.MousePointer = 1 MsgBox "Data Sudah Tersimpan", vbInformation, "Balai Diklat PU Wilayah I Medan " TxtNip.SetFocus Bersih Form_Load LV1.Refresh Exit Sub SALAH: MsgBox " Kode Sudah Ada", vbInformation, "Balai Diklat PU Wilayah I Medan" TxtNip.Text = "" TxtNip.SetFocus End If End Sub Private Sub EditData() Me.MousePointer = 11 db.Execute "update karyawan set NIP='" & TxtNip & "',Nama='" & TxtNama & "',TL='" & TxtTpLahir & "',TGL='" & TxtTgl & "',Jenis_Kelamin='" & TxtJenKel & "',Golongan='" & TxtGolongan & "',Jabatan='" & TxtJabat & "',Agama='" & TxtAgama & "',Alamat='" & TxtAlamat & "',Status='" & TxtStatus & "',Pendidikan_Akhir='" & TxtPend_Akhir & "', Tahun_Masuk='" & TxtTMasuk & "', Masa_Kerja='" & TxtMKerja & "' where NIP='" & TxtNip & "'" 'db.Execute "update karyawan set Nama='" & Trim(TxtNama.Text) & "',TL='" & IIf(TxtTpLahir.Text = " ", "-", TxtTpLahir.Text) & "',TGL='" & IIf(TxtTgl.Text = " ", "-", TxtTgl.Text) & "', Jenis_Kelamin='" & IIf(TxtJenKel.Text = " ", "-", TxtJenKel.Text) & "', Golongan='" & IIf(TxtGolongan.Text = " ", "-", TxtGolongan.Text) & "', Jabatan='" & IIf(TxtJabat.Text = " ", "-", TxtJabat.Text) & "', Agama='" & IIf(TxtAgama.Text = " ", "-", TxtAgama.Text) & "', Alamat='" & IIf(TxtAlamat.Text = " ", "-", TxtAlamat.Text) & "', Status='" & IIf(TxtStatus.Text = Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

94

" ", "-", TxtStatus.Text) & "', Pendidikan_Akhir='" & IIf(TxtPend_Akhir.Text = " ", "", TxtPend_Akhir.Text) & "',Tahun_Masuk='" & IIf(TxtTMasuk.Text = " ", "-", TxtTMasukr.Text) & "',Masa_Kerja='" & IIf(TxtMKerja.Text = " ", "-", TxtMKerja.Text) & "' where NIP='" & Trim(TxtNip.Text) & "'" Me.MousePointer = 1 MsgBox "Record Telah Diperbaiki", vbInformation, "Balai Diklat PU Wilayah I Medan" Form_Load Bersih LV1.Refresh TxtNip.SetFocus End Sub 'If CMDTAMBAH.Caption = "&SIMPAN" Then 'Dim RS As New ADODB.Recordset 'Set RS = New ADODB.Recordset 'If TANDA = 1 Then ' Unload Me 'End If 'RS.Open "select * from karyawan where NIP='" & TxtNip & "'", db, adOpenStatic, adLockReadOnly ' db.Execute "insert into karyawan values('" & TxtNip & "','" & TxtNama & "','" & TxtTpLahir & _ '"','" & TxtTgl & "','" & TxtJenKel & "','" & TxtGolongan & "','" & TxtJabat & "','" & TxtAgama & "','" & TxtAlamat & _ ' "','" & TxtStatus & "','" & TxtPend_Akhir & "','" & TxtTMasuk & "','" & TxtMKerja & "')" ' Bersih ' Form_Load ' CMDTAMBAH.Caption = "&Tambah" ' TANDA = 0 'Else ' CMDTAMBAH.Caption = "&SIMPAN" ' TANDA = 1 'CMDBERSIH_Click ' TxtNip.SetFocus

Private Sub Form_Activate() rs.MoveFirst Bersih End Sub Private Sub Form_Load() LV1.ListItems.Clear LV1.Refresh Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

95

Set rs = New ADODB.Recordset rs.Open "select * from karyawan order by NIP", db, adOpenStatic, adLockReadOnly If Not rs.EOF Then rs.MoveFirst Bersih Dim A As ListItem While Not rs.EOF Set A = LV1.ListItems.Add(, , LV1.ListItems.Count + 1) A.SubItems(1) = rs.Fields(0).Value A.SubItems(2) = rs.Fields(1).Value A.SubItems(3) = rs.Fields(2).Value A.SubItems(4) = rs.Fields(3).Value A.SubItems(5) = rs.Fields(4).Value A.SubItems(6) = rs.Fields(5).Value A.SubItems(7) = rs.Fields(6).Value A.SubItems(8) = rs.Fields(7).Value A.SubItems(9) = rs.Fields(8).Value A.SubItems(10) = rs.Fields(9).Value A.SubItems(11) = rs.Fields(10).Value A.SubItems(12) = rs.Fields(11).Value A.SubItems(13) = rs.Fields(12).Value rs.MoveNext Wend End If Bersih End Sub Private Sub Form_Unload(Cancel As Integer) Dim tanya As Integer tanya = MsgBox("Yakin ingin keluar dari form Data Pegawai...?", vbQuestion + vbYesNo, "Balai Diklat PU Wilayah I Medan") If tanya = vbYes Then Cancel = 0 Unload Me Else Cancel = 1 End If End Sub

Private Sub LV1_DblClick() TxtNip.Text = LV1.SelectedItem.ListSubItems.Item(1) TxtNama.Text = LV1.SelectedItem.ListSubItems.Item(2) TxtTpLahir.Text = LV1.SelectedItem.ListSubItems.Item(3) TxtTgl.Value = LV1.SelectedItem.ListSubItems.Item(4) TxtJenKel.Text = LV1.SelectedItem.ListSubItems.Item(5) TxtGolongan.Text = LV1.SelectedItem.ListSubItems.Item(6) Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

96

TxtJabat.Text = LV1.SelectedItem.ListSubItems.Item(7) TxtAgama.Text = LV1.SelectedItem.ListSubItems.Item(8) TxtAlamat.Text = LV1.SelectedItem.ListSubItems.Item(9) TxtStatus.Text = LV1.SelectedItem.ListSubItems.Item(10) TxtPend_Akhir.Text = LV1.SelectedItem.ListSubItems.Item(11) TxtTMasuk.Value = LV1.SelectedItem.ListSubItems.Item(12) TxtMKerja.Text = LV1.SelectedItem.ListSubItems.Item(13) CMDEDIT.Enabled = True cmdhapus.Enabled = True CMDBERSIH.Enabled = True End Sub

Private Sub Timer1_Timer() If ImgCredit.Top > (Picture1.ScaleHeight - ImgCredit.Height) Then ImgCredit.Top = ImgCredit.Top - 10 Else For I = 1 To 4500000 Next I ImgCredit.Top = Picture1.ScaleHeight End If End Sub

Private Sub Timer3_Timer() If ImgTeksJalan1.Left > (Picture2.ScaleWidth - ImgTeksJalan1.Width) Then ImgTeksJalan1.Left = ImgTeksJalan1.Left - 10 Else For I = 1 To 4500000 Next I ImgTeksJalan1.Left = Picture2.ScaleWidth End If End Sub Private Sub TxtNip_KeyDown(KeyCode As Integer, Shift As Integer) Dim rs As ADODB.Recordset Dim Kata As String If KeyCode = vbKeyReturn Then If TxtNip.Text = "" Then MsgBox "Nip Data Pegawai Tidak Boleh Kosong", vbExclamation, "Nip Data Pegawai" Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

97

TxtNip.SetFocus Exit Sub End If Me.MousePointer = 11 Kata = "select * from karyawan where NIP='" & Trim(TxtNip.Text) & "'" Set rs = New ADODB.Recordset rs.Open Kata, db, adOpenStatic, adLockReadOnly If rs.EOF Then rs.Close Set rs = Nothing Me.MousePointer = 1 TxtNama.Text = "" TxtTpLahir.Text = "" TxtTgl.Value = Format(Now, "dd/mm/yyyy") TxtJenKel.Text = "" TxtGolongan.Text = "" TxtJabat.Text = "" TxtAgama.Text = "" TxtAlamat.Text = "" TxtStatus.Text = "" TxtPend_Akhir.Text = "" TxtTMasuk.Value = Format(Now, "dd/mm/yyyy") TxtMKerja.Text = "" TxtNama.Enabled = True TxtTpLahir.Enabled = True TxtTgl.Enabled = True TxtJenKel.Enabled = True TxtGolongan.Enabled = True TxtJabat.Enabled = True TxtAgama.Enabled = True TxtAlamat.Enabled = True TxtStatus.Enabled = True TxtPend_Akhir.Enabled = True TxtTMasuk.Enabled = True TxtMKerja.Enabled = True CMDTAMBAH.Enabled = True CMDEDIT.Enabled = False cmdhapus.Enabled = False CMDBERSIH.Enabled = True TxtNama.SetFocus Exit Sub End If rs.MoveFirst With rs TxtNama.Text = ![Nama] TxtTpLahir.Text = ![TL] TxtTgl.Value = ![TGL] TxtJenKel.Text = ![Jenis_Kelamin] Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

98

TxtGolongan.Text = ![Golongan] TxtJabat.Text = ![Jabatan] TxtAgama.Text = ![Agama] TxtAlamat.Text = ![Alamat] TxtStatus.Text = ![Status] TxtPend_Akhir.Text = ![Pendidikan_akhir] TxtTMasuk.Value = ![Tahun_Masuk] TxtMKerja.Text = ![Masa_Kerja] End With rs.Close Set rs = Nothing Me.MousePointer = 1 CMDTAMBAH.Enabled = False CMDEDIT.Enabled = True cmdhapus.Enabled = True CMDBERSIH.Enabled = True LV1.Refresh 'TxtNama.SetFocus End If End Sub

Private Sub TxtNama_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtTpLahir.SetFocus End If End Sub Private Sub TxtTpLahir_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtTgl.SetFocus End If End Sub Private Sub TxtTgl_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtJenKel.SetFocus End If End Sub Private Sub TxtJenKel_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtGolongan.SetFocus End If End Sub Private Sub txtGolongan_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtJabat.SetFocus End If Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

99

End Sub Private Sub TxtJabat_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtAgama.SetFocus End If End Sub Private Sub TxtAgama_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtAlamat.SetFocus End If End Sub Private Sub TxtAlamat_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtStatus.SetFocus End If End Sub Private Sub TxtStatus_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtPend_Akhir.SetFocus End If End Sub Private Sub TxtPend_Akhir_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TxtTMasuk.SetFocus End If End Sub Private Sub TxtTMasuk_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then masa End If End Sub Private Sub masa() TxtMKerja.Text = Year(Date) - Year(TxtTMasuk) CMDTAMBAH.SetFocus End Sub

'Private Sub TxtMKerja_KeyDown(KeyCode As Integer, Shift As Integer) ' If KeyCode = vbKeyReturn Then CMDTAMBAH.SetFocus 'End Sub FrmGaji Public rs As New ADODB.Recordset Public tanda As Integer Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

100

Dim Cari As Boolean Private Sub Bersih() TxtNip.Text = "" TxtNama.Text = "" TxtJabatan.Text = "" TxtGolongan.Text = "" TxtMKerja.Text = "" TxtGajiPokok.Text = "" TxtGMK.Text = "" TxtBulan.Text = "" TxtTahun.Text = "" TxtUMB.Text = "" TxtTunj_Jabatan.Text = "" TxtTunj_Kel.Text = "" TxtTunj_Anak.Text = "" TxtTunj_Umum.Text = "" TxtTunj_Beras.Text = "" TxtTunj_Pajak.Text = "" TxtTunj_Askes.Text = "" TxtPot_IWP.Text = "" TxtPot_PPH.Text = "" TxtPot_Askes.Text = "" TxtPot_Rumah.Text = "" TxtGajiBersih.Text = "" End Sub

Private Sub CmdBatal_Click() Bersih TxtNip.SetFocus Input_NonAktif CmdCari.Enabled = True End Sub Private Sub cmdCari_Click() 'Cari = True Bersih Call Input_NonAktif TxtNip.SetFocus 'TxtNip.Enabled = True cmdkeluar.Enabled = True cmdBersih.Enabled = False CmdList.Enabled = True CmdSembunyi.Enabled = True Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

101

CmdBatal.Enabled = True CmdCari.Enabled = False End Sub Private Sub CmdList_Click() LV1.Visible = True CmdSembunyi.Visible = True Picture2.Visible = False End Sub Private Sub CmdSembunyi_Click() LV1.Visible = False CmdSembunyi.Visible = False Picture2.Visible = True End Sub Private Sub CMDBERSIH_Click() Bersih TxtNip.SetFocus End Sub Private Sub CMDKELUAR_Click() Unload Me End Sub 'Private Sub CMDEDIT_Click() 'db.Execute "update Query1 set NIP='" & TxtNip & "',Nama='" & TxtNama & "',TTL='" & TTL & "',Jenis_Kelamin='" & TxtJenKel & "',Golongan='" & TxtGolongan & "',Gapok='" & TxtGajiPokok & "',Tunj_Keluarga='" & TxtTunj_Kel & "',Tunj_Anak='" & TxtTunj_Anak & "',Tunj_Umum='" & TxtTunj_Umum & "',Tunj_Beras='" & TxtTunj_Beras & "',Tunj_Pajak='" & TxtTunj_Pajak & "',Tunj_Askes='" & TxtTunj_Askes & "',Pot_IWP='" & TxtPot_IWP & "',Pot_pph21='" & TxtPot_PPH & "',Pot_Askes='" & TxtPot_Askes & "',Pot_Rumah='" & TxtPot_Rumah & "',TxtGajiBersih='" & Total_Gaji & "' where NIP='" & TxtNip & "'" 'Form_Load 'Bersih 'TxtNip.SetFocus 'End Sub 'Private Sub CMDTAMBAH_Click() 'If cmdtambah.Caption = "&SIMPAN" Then 'Dim rs As New ADODB.Recordset 'Set rs = New ADODB.Recordset 'rs.Open "select*from SumberGaji where Golongan='" & TxtGolongan & "'", db, adOpenStatic, adLockReadOnly Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

102

'db.Execute "insert into Query1 values('" & TxtNip & "','" & TxtNama & "','" & TxtGolongan & "','" & TJABAT & "','" & TALAMAT & "','" & TxtGajiPokok & "','" & TxtTunj_Kel & "','" & TxtTunj_Anak & "','" & TxtTunj_Umum & "','" & TxtTunj_Beras & "','" & TxtTunj_Pajak & "','" & TxtTunj_Askes & "','" & TxtPot_IWP & "','" & TxtPot_PPH & "','" & TxtPot_Askes & "','" & TxtPot_Rumah & "')" 'Form_Load 'Bersih 'TxtNip.SetFocus 'cmdtambah.Caption = "&TAMBAH" 'Else 'cmdtambah.Caption = "&SIMPAN" 'TANDA = 1 'CMDBERSIH_Click 'TxtNip.SetFocus 'End If 'If TxtNip = "" Or TxtNama = "" Or TxtGolongan = "" Then 'MsgBox " Data tidak boleh kosong" 'Else 'End If 'End Sub Private Sub Form_Activate() 'rs.MoveFirst Bersih End Sub Private Sub Form_Load() LV1.ListItems.Clear Set rs = New ADODB.Recordset rs.Open "select * from Query1 order by NIP", db, adOpenStatic, adLockOptimistic If Not rs.EOF Then rs.MoveFirst Bersih Dim A As ListItem While Not rs.EOF Set A = LV1.ListItems.Add(, , LV1.ListItems.Count + 1) A.SubItems(1) = rs.Fields(0).Value A.SubItems(2) = rs.Fields(1).Value A.SubItems(3) = rs.Fields(2).Value A.SubItems(4) = rs.Fields(3).Value A.SubItems(5) = rs.Fields(4).Value A.SubItems(6) = rs.Fields(5).Value A.SubItems(7) = rs.Fields(6).Value A.SubItems(8) = rs.Fields(7).Value A.SubItems(9) = rs.Fields(8).Value Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

103

A.SubItems(10) = rs.Fields(9).Value A.SubItems(11) = rs.Fields(10).Value A.SubItems(12) = rs.Fields(11).Value A.SubItems(13) = rs.Fields(12).Value A.SubItems(14) = rs.Fields(13).Value A.SubItems(15) = rs.Fields(14).Value A.SubItems(16) = rs.Fields(15).Value A.SubItems(17) = rs.Fields(16).Value A.SubItems(18) = rs.Fields(17).Value A.SubItems(19) = rs.Fields(18).Value A.SubItems(20) = rs.Fields(19).Value A.SubItems(21) = rs.Fields(20).Value A.SubItems(22) = rs.Fields(21).Value rs.MoveNext Wend End If Bersih Input_NonAktif End Sub Private Sub Form_Unload(Cancel As Integer) Dim tanya As Integer tanya = MsgBox("Yakin ingin keluar dari form Gaji Pegawai...?", vbQuestion + vbYesNo, "Balai Diklat PU Wilayah I Medan") If tanya = vbYes Then Cancel = 0 Unload Me Else Cancel = 1 End If End Sub Private Sub Input_NonAktif() TxtNama.Locked = True TxtJabatan.Locked = True TxtGolongan.Locked = True TxtMKerja.Locked = True TxtGajiPokok.Locked = True TxtGMK.Locked = True TxtBulan.Locked = False TxtTahun.Locked = True TxtUMB.Locked = True TxtTunj_Jabatan.Locked = True TxtPot_IWP.Locked = True TxtPot_PPH.Locked = True TxtPot_Askes.Locked = True TxtPot_Rumah.Locked = True Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

104

TxtTunj_Kel.Locked = True TxtTunj_Anak.Locked = True TxtTunj_Umum.Locked = True TxtTunj_Beras.Locked = True TxtTunj_Pajak.Locked = True TxtTunj_Askes.Locked = True TxtGajiBersih.Locked = True End Sub

Private Sub LV1_DblClick() TxtNip.Text = LV1.SelectedItem.ListSubItems.Item(1) TxtNama.Text = LV1.SelectedItem.ListSubItems.Item(2) TxtJabatan.Text = LV1.SelectedItem.ListSubItems.Item(3) TxtGolongan.Text = LV1.SelectedItem.ListSubItems.Item(4) TxtMKerja.Text = LV1.SelectedItem.ListSubItems.Item(5) TxtGajiPokok.Text = LV1.SelectedItem.ListSubItems.Item(6) TxtGMK.Text = LV1.SelectedItem.ListSubItems.Item(7) TxtBulan.Text = LV1.SelectedItem.ListSubItems.Item(8) TxtTahun.Text = LV1.SelectedItem.ListSubItems.Item(9) TxtUMB.Text = LV1.SelectedItem.ListSubItems.Item(10) TxtTunj_Jabatan.Text = LV1.SelectedItem.ListSubItems.Item(11) TxtTunj_Kel.Text = LV1.SelectedItem.ListSubItems.Item(12) TxtTunj_Anak.Text = LV1.SelectedItem.ListSubItems.Item(13) TxtTunj_Umum.Text = LV1.SelectedItem.ListSubItems.Item(14) TxtTunj_Beras.Text = LV1.SelectedItem.ListSubItems.Item(15) TxtTunj_Pajak.Text = LV1.SelectedItem.ListSubItems.Item(16) TxtTunj_Askes.Text = LV1.SelectedItem.ListSubItems.Item(17) TxtPot_IWP.Text = LV1.SelectedItem.ListSubItems.Item(18) TxtPot_PPH.Text = LV1.SelectedItem.ListSubItems.Item(19) TxtPot_Askes.Text = LV1.SelectedItem.ListSubItems.Item(20) TxtPot_Rumah.Text = LV1.SelectedItem.ListSubItems.Item(21) TxtGajiBersih.Text = LV1.SelectedItem.ListSubItems.Item(22) End Sub

Private Sub Timer1_Timer() If ImgCredit.Top > (Picture1.ScaleHeight - ImgCredit.Height) Then ImgCredit.Top = ImgCredit.Top - 10 Else For I = 1 To 4500000 Next I ImgCredit.Top = Picture1.ScaleHeight End If Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

105

End Sub Private Sub Timer3_Timer() If ImgTeksJalan1.Left > (Picture2.ScaleWidth - ImgTeksJalan1.Width) Then ImgTeksJalan1.Left = ImgTeksJalan1.Left - 10 Else For I = 1 To 4500000 Next I ImgTeksJalan1.Left = Picture2.ScaleWidth End If End Sub

Private Sub txtbulan_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Dim rs As New ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "Select * from Query1 where VAL(Bulan)='" & Val(TxtBulan.Text) & "'", db, adOpenStatic, adLockReadOnly If Not rs.BOF Then TxtNip.Text = rs.Fields("Nip").Value TxtNama.Text = rs.Fields("Nama").Value TxtJabatan.Text = rs.Fields("Jabatan").Value TxtGolongan.Text = rs.Fields("Golongan").Value TxtMKerja.Text = rs.Fields("Masa_Kerja").Value TxtGajiPokok.Text = rs.Fields("Gapok").Value TxtGMK.Text = rs.Fields("Gaji_MKerja").Value TxtBulan.Text = rs.Fields("Bulan").Value TxtTahun.Text = rs.Fields("Tahun").Value TxtUMB.Text = rs.Fields("Uang_Makan_Bulanan").Value TxtTunj_Jabatan.Text = rs.Fields("Tunj_Jabatan").Value TxtTunj_Kel.Text = rs.Fields("Tunj_Keluarga").Value TxtTunj_Anak.Text = rs.Fields("Tunj_Anak_Pegawai").Value TxtTunj_Umum.Text = rs.Fields("Tunj_Umum").Value TxtTunj_Beras.Text = rs.Fields("Tunj_Beras").Value TxtTunj_Pajak.Text = rs.Fields("Tunj_Pajak").Value TxtTunj_Askes.Text = rs.Fields("Tunj_Askes").Value TxtPot_IWP.Text = rs.Fields("Pot_IWP").Value TxtPot_PPH.Text = rs.Fields("Pot_PPH21").Value TxtPot_Askes.Text = rs.Fields("Pot_Askes").Value TxtPot_Rumah.Text = rs.Fields("Pot_Rumah").Value TxtGajiBersih.Text = rs.Fields("Total_Gaji").Value MsgBox "Data Ditemukan", vbInformation Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

106

yakin = MsgBox("Apa anda masih ingin mencari data yang lain", vbYesNo, "Balai Diklat PU Wilayah I Medan") If yakin = vbYes Then 'TxtBulan.Text = "" MsgBox "Silahkan pilih Bulan Gaji pegawai", , "Balai Diklat PU Wilayah I Medan" End If Else MsgBox "Data Tidak Ada" MsgBox "Tolong pilih BUlan dengan benar", , "Balai Diklat PU Wilayah I Medan" TxtBulan.Text = "" TxtBulan.SetFocus End If End If End Sub

Private Sub TxtNip_Change() Dim B As New ADODB.Recordset If Cari Then Set B = New ADODB.Recordset B.Open "select * from Query1 where nip = '" & CStr(Trim(TxtNip.Text)) & "'", db, adOpenStatic, adLockReadOnly 'Kata = "Select*From Query1 where Nip like '%" & TxtNip & "%'" 'Set rs = New ADODB.Recordset 'rs.Open Kata, db, adOpenStatic, adLockOptimistic Form_Load End If End Sub Private Sub TxtNip_KeyDown(KeyCode As Integer, Shift As Integer) If Cari = True Then Exit Sub Dim B As New ADODB.Recordset Dim banget As String If KeyCode = 13 Then Set B = New ADODB.Recordset B.Open "select * from Query1 where nip = '" & CStr(Trim(TxtNip.Text)) & "'", db, adOpenStatic, adLockReadOnly If Not B.EOF Then banget = MsgBox("Data sudah Ada sebelumnya" & Chr(13) & _ "Apakah Anda ingin Melihat Data Tersebut ??", vbYesNo, "Lihat Data") If banget = vbYes Then TxtNama.Text = B![Nama] Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

107

TxtJabatan.Text = B![Jabatan] TxtGolongan.Text = B![Golongan] TxtMKerja.Text = B![Masa_Kerja] TxtGajiPokok.Text = B![Gapok] TxtGMK.Text = B![Gaji_MKerja] TxtBulan.Text = B![Bulan] TxtTahun.Text = B![Tahun] TxtUMB.Text = B![Uang_Makan_Bulanan] TxtTunj_Jabatan.Text = B![Tunj_Jabatan] TxtTunj_Kel.Text = B![Tunj_Keluarga] TxtTunj_Anak.Text = B![Tunj_Anak_Pegawai] TxtTunj_Umum.Text = B![Tunj_Umum] TxtTunj_Beras.Text = B![Tunj_Beras] TxtTunj_Pajak.Text = B![Tunj_Pajak] TxtTunj_Askes.Text = B![Tunj_Askes] TxtPot_IWP.Text = B![Pot_IWP] TxtPot_PPH.Text = B![Pot_PPH21] TxtPot_Askes.Text = B![Pot_Askes] TxtPot_Rumah.Text = B![Pot_Rumah] TxtGajiBersih.Text = B![Total_Gaji] 'cmdtambah.Enabled = False cmdBersih.Enabled = True 'CMDEDIT.Enabled = True B.Close Set B = Nothing Else TxtNip.Text = "" TxtNip.SetFocus 'cmdtambah.Enabled = True cmdBersih.Enabled = True 'CMDEDIT.Enabled = False B.Close Set B = Nothing End If Else B.Close Set B = Nothing TxtNip.SetFocus 'cmdtambah.Enabled = True 'CMDEDIT.Enabled = False TxtNama.SetFocus End If End If End Sub FrmGajiPokok Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

108

Public rs As New ADODB.Recordset Public tanda As Integer Dim uji As Boolean Private Sub Bersih() uji = False TxtGolongan.Text = "" TxtGajiPokok.Text = "" TxtGajiMK.Text = "" TxtTunj_Kel.Text = "" TxtTunj_Anak.Text = "" TxtTunj_Umum.Text = "" TxtTunj_Beras.Text = "" TxtTunj_Pajak.Text = "" TxtTunj_Askes.Text = "" TxtTunj_Jabatan.Text = "" TxtPot_IWP.Text = "" TxtPot_PPH.Text = "" TxtPot_Askes.Text = "" TxtPot_Rumah.Text = "" TxtUang_Makan.Text = "" TxtGolongan.Enabled = False TxtGajiPokok.Enabled = False TxtGajiMK.Enabled = False TxtTunj_Kel.Enabled = False TxtTunj_Anak.Enabled = False TxtTunj_Umum.Enabled = False TxtTunj_Beras.Enabled = False TxtTunj_Pajak.Enabled = False TxtTunj_Askes.Enabled = False TxtTunj_Jabatan.Enabled = False TxtPot_IWP.Enabled = False TxtPot_PPH.Enabled = False TxtPot_Askes.Enabled = False TxtPot_Rumah.Enabled = False TxtUang_Makan.Enabled = False CMDBERSIH.Enabled = True CMDEDIT.Enabled = False CMDTAMBAH.Enabled = False TxtGolongan.Enabled = True End Sub

Private Sub CMDBERSIH_Click() Bersih End Sub Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

109

Private Sub cmdEdit_Click() uji = True CMDEDIT.Enabled = False TxtGolongan.Enabled = True TxtGajiPokok.Enabled = True TxtGajiMK.Enabled = True TxtTunj_Kel.Enabled = True TxtTunj_Anak.Enabled = True TxtTunj_Umum.Enabled = True TxtTunj_Beras.Enabled = True TxtTunj_Pajak.Enabled = True TxtTunj_Askes.Enabled = True TxtTunj_Jabatan.Enabled = True TxtPot_IWP.Enabled = True TxtPot_PPH.Enabled = True TxtPot_Askes.Enabled = True TxtPot_Rumah.Enabled = True TxtUang_Makan.Enabled = True CMDTAMBAH.Enabled = True TxtGolongan.Enabled = False TxtGajiPokok.SetFocus End Sub Private Sub cmdfirst_Click() If rs.AbsolutePosition = 1 Then MsgBox "Data Sudah di Awal", vbOKOnly, "Pesan" Exit Sub Else rs.MovePrevious Bersih End If End Sub Private Sub cmdhapus_click() db.Execute "delete*from SumberGaji where Golongan='" & TxtGolongan & "'" Bersih TxtGolongan.SetFocus Form_Load End Sub Private Sub CMDKELUAR1_Click() Unload Me End Sub Private Sub CmdList_Click() Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

110

LV1.Visible = True CmdSembunyi.Visible = True Picture2.Visible = False 'TxtGolongan.SetFocus End Sub Private Sub CmdSembunyi_Click() LV1.Visible = False CmdSembunyi.Visible = False Picture2.Visible = True TxtGolongan.SetFocus End Sub Private Sub cmdTambah_Click() If Not uji Then TambahData Else EditData End If LV1.Refresh End Sub Private Sub TambahData() Me.MousePointer = 11 If TxtGajiPokok.Text = "" Then MsgBox "Gaji Pokok Pegawai Tidak Boleh Kosong", vbExclamation, "GAji Pokok Pegawai" 'TxtGajiPokok.SetFocus Exit Sub End If If TxtGajiMK.Text = "" Then MsgBox "Gaji Masa Kerja Pegawai Tidak Boleh Kosong", vbExclamation, "Gaji Masa Kerja Pegawai" TxtGajiMK.SetFocus Exit Sub End If If TxtTunj_Kel.Text = "" Then MsgBox "Tunjangan Keluarga Pegawai Tidak Boleh Kosong", vbExclamation, "Tunjangan Keluarga Pegawai" TxtTunj_Kel.SetFocus Exit Sub End If If TxtTunj_Anak.Text = "" Then MsgBox "Tunjangan Anak Pegawai Tidak Boleh Kosong", vbExclamation, "Tunjangan Anak Pegawai" TxtTunj_Anak.SetFocus Exit Sub Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

111

End If If TxtGolongan.Text = "" Then MsgBox "Golongan Data Pegawai Tidak Boleh Kosong", vbExclamation, "Golongan Data Pegawai" TxtGolongan.SetFocus Exit Sub End If If TxtTunj_Umum.Text = "" Then MsgBox "Tunjangan Umum Pegawai Tidak Boleh Kosong", vbExclamation, "Tunjangan Umum Pegawai" TxtTunj_Umum.SetFocus Exit Sub End If If TxtTunj_Beras.Text = "" Then MsgBox "Tunjangan Beras Pegawai Tidak Boleh Kosong", vbExclamation, "Tunjangan Beras Pegawai" TxtTunj_Beras.SetFocus Exit Sub End If If TxtTunj_Pajak.Text = "" Then MsgBox "Tunjangan Pajak Pegawai Tidak Boleh Kosong", vbExclamation, "Tunjangan Pajak Pegawai" TxtTunj_Pajak.SetFocus Exit Sub End If If TxtTunj_Askes.Text = "" Then MsgBox "Tunj_Askes Pegawai Tidak Boleh Kosong", vbExclamation, "Tunj_Askes Pegawai" TxtTunj_Askes.SetFocus Exit Sub End If If TxtTunj_Jabatan.Text = "" Then MsgBox "Tunj_jabatan Pegawai Tidak Boleh Kosong", vbExclamation, "Tunj_jabatan Pegawai" TxtTunj_Jabatan.SetFocus Exit Sub End If If TxtPot_IWP.Text = "" Then MsgBox "Pot_IWP Pegawai Tidak Boleh Kosong", vbExclamation, "TxtPot_IWP Pegawai" TxtPot_IWP.SetFocus Exit Sub End If db.Execute "insert into SumberGaji values('" & TxtGolongan.Text & "','" & TxtGajiPokok.Text & "','" & TxtGajiMK.Text & _ "','" & TxtTunj_Kel.Text & "','" & TxtTunj_Anak.Text & "','" & TxtTunj_Umum.Text & _ Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

112

"','" & TxtTunj_Beras.Text & "', '" & TxtTunj_Pajak.Text & "','" & TxtTunj_Askes.Text & _ "','" & TxtTunj_Jabatan.Text & "','" & TxtPot_IWP.Text & "','" & TxtPot_PPH.Text & _ "','" & TxtPot_Askes.Text & "','" & TxtPot_Rumah.Text & "','" & TxtUang_Makan.Text & "')" Me.MousePointer = 1 Bersih LV1.Refresh End Sub Private Sub EditData() 'Dim RS As New ADODB.Recordset 'Set RS = New ADODB.Recordset 'RS.Open "select * from SumberGaji where Golongan='" & TxtGolongan & "'", db, adOpenStatic, adLockReadOnly db.Execute "update SumberGaji set Golongan='" & TxtGolongan & "',Gapok='" & TxtGajiPokok.Text & _ "',GajiMasa_Kerja='" & TxtGajiMK.Text & "', Tunj_Keluarga='" & TxtTunj_Kel.Text & "',Tunj_anak='" & TxtTunj_Anak.Text & "',Tunj_Umum='" & TxtTunj_Umum.Text & _ "',Tunj_Beras='" & TxtTunj_Beras.Text & "',Tunj_Pajak= '" & TxtTunj_Pajak.Text & "',Tunj_Askes='" & TxtTunj_Askes.Text & _ "',Tunj_Jabatan='" & TxtTunj_Jabatan.Text & "',Pot_IWP='" & TxtPot_IWP.Text & "',Pot_PPH21='" & TxtPot_PPH.Text & _ "',Pot_Askes='" & TxtPot_Askes.Text & "',Pot_Rumah='" & TxtPot_Rumah.Text & "',Uang_Makan='" & TxtUang_Makan.Text & "' where Golongan='" & TxtGolongan & "'" Me.MousePointer = 1 MsgBox "Record Telah Diperbaiki", vbInformation, "Balai Diklat PU Wilayah I Medan" Form_Load Bersih LV1.Refresh TxtGolongan.SetFocus

End Sub Private Sub Form_Activate() rs.MoveFirst Bersih End Sub Private Sub Form_Load() LV1.ListItems.Clear LV1.Refresh Set rs = New ADODB.Recordset Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

113

rs.Open "select * from SumberGaji order by Golongan", db, adOpenStatic, adLockReadOnly If Not rs.EOF Then rs.MoveFirst Bersih Dim A As ListItem While Not rs.EOF Set A = LV1.ListItems.Add(, , LV1.ListItems.Count + 1) A.SubItems(1) = rs.Fields(0).Value A.SubItems(2) = rs.Fields(1).Value A.SubItems(3) = rs.Fields(2).Value A.SubItems(4) = rs.Fields(3).Value A.SubItems(5) = rs.Fields(4).Value A.SubItems(6) = rs.Fields(5).Value A.SubItems(7) = rs.Fields(6).Value A.SubItems(8) = rs.Fields(7).Value A.SubItems(9) = rs.Fields(8).Value A.SubItems(10) = rs.Fields(9).Value A.SubItems(11) = rs.Fields(10).Value A.SubItems(12) = rs.Fields(11).Value A.SubItems(13) = rs.Fields(12).Value A.SubItems(14) = rs.Fields(13).Value A.SubItems(15) = rs.Fields(14).Value 'A.SubItems(16) = rs.Fields(15).Value rs.MoveNext Wend End If Bersih End Sub Private Sub Form_Unload(Cancel As Integer) Dim tanya As Integer tanya = MsgBox("Yakin ingin keluar dari form Gaji Pokok...?", vbQuestion + vbYesNo, "Balai Diklat PU Wilayah I Medan") If tanya = vbYes Then Cancel = 0 Unload Me Else Cancel = 1 End If End Sub

Private Sub LV1_DblClick() TxtGolongan.Text = LV1.SelectedItem.ListSubItems.Item(1) TxtGajiPokok.Text = LV1.SelectedItem.ListSubItems.Item(2) TxtGajiMK.Text = LV1.SelectedItem.ListSubItems.Item(3) Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

114

TxtTunj_Kel.Text = LV1.SelectedItem.ListSubItems.Item(4) TxtTunj_Anak.Text = LV1.SelectedItem.ListSubItems.Item(5) TxtTunj_Umum.Text = LV1.SelectedItem.ListSubItems.Item(6) TxtTunj_Beras.Text = LV1.SelectedItem.ListSubItems.Item(7) TxtTunj_Pajak.Text = LV1.SelectedItem.ListSubItems.Item(8) TxtTunj_Askes.Text = LV1.SelectedItem.ListSubItems.Item(9) TxtTunj_Jabatan.Text = LV1.SelectedItem.ListSubItems.Item(10) TxtPot_IWP.Text = LV1.SelectedItem.ListSubItems.Item(11) TxtPot_PPH.Text = LV1.SelectedItem.ListSubItems.Item(12) TxtPot_Askes.Text = LV1.SelectedItem.ListSubItems.Item(13) TxtPot_Rumah.Text = LV1.SelectedItem.ListSubItems.Item(14) TxtUang_Makan.Text = LV1.SelectedItem.ListSubItems.Item(15) CMDEDIT.Enabled = True cmdhapus.Enabled = True CMDBERSIH.Enabled = True End Sub

Private Sub Timer1_Timer() If ImgCredit.Top > (Picture1.ScaleHeight - ImgCredit.Height) Then ImgCredit.Top = ImgCredit.Top - 10 Else For I = 1 To 4500000 Next I ImgCredit.Top = Picture1.ScaleHeight End If End Sub

Private Sub Timer3_Timer() If ImgTeksJalan1.Left > (Picture2.ScaleWidth - ImgTeksJalan1.Width) Then ImgTeksJalan1.Left = ImgTeksJalan1.Left - 10 Else For I = 1 To 4500000 Next I ImgTeksJalan1.Left = Picture2.ScaleWidth End If End Sub Private Sub txtGolongan_KeyDown(KeyCode As Integer, Shift As Integer) Dim rs As ADODB.Recordset Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

115

Dim Kata As String If KeyCode = vbKeyReturn Then If TxtGolongan.Text = "" Then MsgBox "Golongan Gaji Pegawai Tidak Boleh Kosong", vbExclamation, "Golongan Gaji Pegawai" TxtGolongan.SetFocus Exit Sub End If Me.MousePointer = 11 Kata = "select * from SumberGaji where Golongan='" & Trim(TxtGolongan.Text) & "'" Set rs = New ADODB.Recordset rs.Open Kata, db, adOpenStatic, adLockReadOnly If rs.EOF Then rs.Close Set rs = Nothing Me.MousePointer = 1 TxtGajiPokok.Text = "" TxtGajiMK.Text = "" TxtTunj_Kel.Text = "" TxtTunj_Anak.Text = "" TxtTunj_Umum.Text = "" TxtTunj_Beras.Text = "" TxtTunj_Pajak.Text = "" TxtTunj_Askes.Text = "" TxtTunj_Jabatan.Text = "" TxtPot_IWP.Text = "" TxtPot_PPH.Text = "" TxtPot_Askes.Text = "" TxtPot_Rumah.Text = "" TxtUang_Makan.Text = "" TxtGajiPokok.Enabled = True TxtGajiMK.Enabled = True TxtTunj_Kel.Enabled = True TxtTunj_Anak.Enabled = True TxtTunj_Umum.Enabled = True TxtTunj_Beras.Enabled = True TxtTunj_Pajak.Enabled = True TxtTunj_Askes.Enabled = True TxtTunj_Jabatan.Enabled = True TxtPot_IWP.Enabled = True TxtPot_PPH.Enabled = True TxtPot_Askes.Enabled = True TxtPot_Rumah.Enabled = True TxtUang_Makan.Enabled = True CMDTAMBAH.Enabled = True CMDEDIT.Enabled = False cmdhapus.Enabled = False Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

116

CMDBERSIH.Enabled = True TxtGajiPokok.SetFocus Exit Sub End If rs.MoveFirst With rs TxtGajiPokok.Text = ![Gapok] TxtGajiMK.Text = ![GajiMasa_Kerja] TxtTunj_Kel.Text = ![Tunj_Keluarga] TxtTunj_Anak.Text = ![Tunj_Anak] TxtTunj_Umum.Text = ![Tunj_Umum] TxtTunj_Beras.Text = ![Tunj_Beras] TxtTunj_Pajak.Text = ![Tunj_Pajak] TxtTunj_Askes.Text = ![Tunj_Askes] TxtTunj_Jabatan.Text = ![Tunj_Jabatan] TxtPot_IWP.Text = ![Pot_IWP] TxtPot_PPH.Text = ![Pot_PPH21] TxtPot_Askes.Text = ![Pot_Askes] TxtPot_Rumah.Text = ![Pot_Rumah] TxtUang_Makan.Text = ![Uang_Makan] End With rs.Close Set rs = Nothing Me.MousePointer = 1 CMDTAMBAH.Enabled = False CMDEDIT.Enabled = True cmdhapus.Enabled = True CMDBERSIH.Enabled = True 'TxtGajiPokok.SetFocus End If End Sub

Private Sub TxtGajipokok_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtGajiMK.SetFocus End If End Sub Private Sub TxtGajiMK_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtTunj_Kel.SetFocus End If End Sub Private Sub TxtTunj_Kel_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

117

TxtTunj_Anak.SetFocus End If End Sub Private Sub TxtTunj_Anak_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtTunj_Umum.SetFocus End If End Sub Private Sub TxtTunj_Umum_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtTunj_Beras.SetFocus End If End Sub Private Sub TxtTunj_Beras_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtTunj_Pajak.SetFocus End If End Sub Private Sub TxtTunj_Pajak_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtTunj_Askes.SetFocus End If End Sub Private Sub TxtTunj_Askes_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtTunj_Jabatan.SetFocus End If End Sub Private Sub TxtTunj_Jabatan_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then TxtPot_IWP.SetFocus End If End Sub Private Sub TxtPot_IWP_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TxtPot_PPH.SetFocus End If End Sub Private Sub TxtPot_PPH_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TxtPot_Askes.SetFocus End If End Sub Private Sub TxtPot_Askes_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TxtPot_Rumah.SetFocus Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

118

End If End Sub Private Sub TxtPot_Rumah_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TxtUang_Makan.SetFocus End If End Sub Private Sub TxtUang_Makan_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then CMDTAMBAH.SetFocus End If End Sub Module1 Option Explicit Global db As New ADODB.Connection Public strCON As String Public Sub Main() FrmLogIn.CmdCancel.Visible = True FrmLogIn.Show End Sub Public Sub BukaData() Set db = New ADODB.Connection db.CursorLocation = adUseClient db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & _ App.Path & "\pgw.mdb;jet OLEDB:Database Password =pgw" End Sub Public Sub Fokus(ByVal KotakTeks As TextBox) With KotakTeks .SelStart = 0 .SelLength = Len(.Text) '.SetFocus End With End Sub

Public Sub TutupData() db.Close Set db = Nothing End Sub Public Sub FormKetengah(ByVal Frm As Form) Frm.Top = (FrmInduk.Height - Frm.Height) / 2 - 950 Frm.Left = (FrmInduk.Width - Frm.Width) / 2 Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

119

End Sub 'Public Function enkripsi(data As String) As String ' For I = 1 To Len(data) ' buff = Chr(Mid(data, I, 1) - Len(data)) ' Next I 'End Function

FrmInduk Private Sub MDIForm_Load() StatusBar1.Panels(1).Text = Format(Now, "hh:mm:ss") StatusBar1.Panels(2).Text = Format(Now, "dddd") StatusBar1.Panels(3).Text = Format(Now, "dd mmmm yyyy") StatusBar1.Panels(4).Text = "Sistem Informasi Kepegawaian" BukaData End Sub Private Sub MDIForm_Unload(Cancel As Integer) Dim tanya As Integer tanya = MsgBox("Yakin akan keluar dari Sistem ..", vbQuestion + vbYesNo, "Konfirmasi Sistem") If tanya = vbYes Then Cancel = 0 TutupData End Else Cancel = 1 End If End Sub

Private Sub mnabout_Click() FrmAbout.Show End Sub Private Sub mnabsensi_Click() Frm_Absen.Show End Sub Private Sub mnConverter_Click() FrmConverter.Show End Sub Private Sub mndata_Click() FrmDataPegawai.Show Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

120

End Sub Private Sub mngaji_Click() frmGaji.Show End Sub Private Sub mngajipokok_Click() FrmGajiPokok.Show End Sub Private Sub mnkeluar_Click() Unload Me End Sub Private Sub mnklr_Click() Unload Me End Sub Private Sub mnLA_Click() With CR1 .ReportFileName = App.Path & "\rptAbsensi.rpt" .DataFiles(0) = App.Path & "\pgw.mdb" .WindowShowCloseBtn = True .WindowShowExportBtn = True .WindowShowPrintBtn = True .WindowShowRefreshBtn = True .WindowShowSearchBtn = True .WindowState = crptMaximized .WindowTitle = "LAPORAN ABSENSI PEGAWAI" .Action = 1 End With End Sub Private Sub mnLaporanDataPegawai_Click() FrmLaporanDataPegawai.Show End Sub Private Sub mnLaporanGaji_Click() FrmLaporGaji.Show End Sub

Private Sub MnNew_Click() FrmNewUser.Show End Sub Private Sub MnSet_Click() Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

121

FrmSetUser.Show End Sub Private Sub MnDelete_Click() FrmDeleteUser.Show End Sub Private Sub mnsg_Click() FrmLaporanSG.Show End Sub Private Sub mnSlip_Click() With CR1 .ReportFileName = App.Path & "\rptSlipGaji1.rpt" .DataFiles(0) = App.Path & "\pgw.mdb" .WindowShowCloseBtn = True .WindowShowExportBtn = True .WindowShowPrintBtn = True .WindowShowRefreshBtn = True .WindowShowSearchBtn = True .WindowState = crptMaximized .WindowTitle = "LAPORAN DATA PEGAWAI" .Action = 1 End With End Sub

Private Sub Timer1_Timer() StatusBar1.Panels(1).Text = Format(Now, "hh:mm:ss") End Sub FrmLaporanDataPegawai Private Sub cmdexit_Click() Unload Me End Sub Private Sub cmdpreview_Click() With CR1 .Reset .ReportFileName = App.Path & "\rptDataKaryawan1.rpt" .DataFiles(0) = App.Path & "\pgw.mdb" If Combo1.ListIndex = 0 Then .SortFields(0) = "+{karyawan.NIP}" ElseIf Combo1.ListIndex = 1 Then .SortFields(0) = "+{karyawan.Jabatan}" End If .WindowMinButton = False .WindowShowCancelBtn = True Melisa Hildayani : Sistem Informasi Pegawai Pada Satuan Non Vertikal Tertentu Perencanaan Dan Pengawasan Jalan Dan Jembatan Provinsi Sumatera Utara, 2010.

122

.WindowShowCloseBtn = True .WindowShowPrintBtn = True .WindowShowPrintSetupBtn = True .WindowParentHandle = FrmInduk.hWnd .WindowState = crptMaximized .WindowTitle = "LAPORAN DATA PEGAWAI" .Action = 1 End With End Sub


123


SISTEM INFORMASI PEGAWAI PADA SATUAN NON VERTIKAL TERTENTU PERENCANAAN DAN PENGAWASAN JALAN DAN JEMBATAN PROVINSI SUMATERA UTARA TUGAS AKHIR

Recommend Documents