SISTEM PENGGAJIAN RADIO MOST FM MENGGUNAKAN VISUAL BASIC 6.0 TUGAS AKHIR M. YUSUF SIMATUPANG

ii

SISTEM PENGGAJIAN RADIO MOST FM MENGGUNAKAN VISUAL BASIC 6.0

TUGAS AKHIR

M. YUSUF SIMATUPANG 062406189

PROGRAM STUDI D3 ILMU KOMPUTER FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2009

M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

iii

PERSETUJUAN

Judul

: SISTEM PENGGAJIAN RADIO MOST FM MENGGUNAKAN VISUAL BASIC 6.0

Kategori Nama Nomor Induk Mahasiswa Program Studi Departemen Fakultas

: : : : : :

TUGAS AKHIR Muhammad Yusuf Simatupang 062406189 D-3 ILMU KOMPUTER MATEMATIKA MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA

Disetujui oleh : Medan, Mei 2009 Dosen Pembimbing

Dr. Tulus, M.Si NIP : 131796150


iv PENGHARGAAN

Segala puji syukur diucapkan kehadirat ALLAH SWT karena dengan taufik dan Hidayah-Nyalah akhirnya penulis dapat menyelesaikan Tugas Akhir ini tepat pada waktunya. Dengan ini penulis menyampaikan bahwa Tugas Akhir yang telah dibuat berjudul “Sistem Penggajian Radio Most FM Menggunakan Visual Basic 6.0 “. Dalam merancang Sistem Penggajian yang stand alone tersebut penulis menggunakan beberapa software, antara lain : 1. 2. 3. 4.

Microsoft Visual Basic 6.0 sebagai bahasa pemrograman. Microsoft Office Access 200 sebagai aplikasi Database Seagate Crystal Reports 8.5 sebagai aplikasi pembuatan laporan Adobe Photoshop CS4 sebagai apliaksi pengolah gambar.

Tugas Akhir ini tidak akan selesai dengan baik tanpa adanya bantuan dari berbagai pihak. Untuk itu penulis mengucapkan terima kasih yang setulusnya kepada : 1. Bapak Dr. Eddy Marlianto, M. Sc, selaku Dekan FMIPA USU 2. Bapak Dr. Saib Suwilo, M.Sc, selaku Ketua Jurusan Program Studi D3 Ilmu Komputer FMIPA USU. 3. Bapak Dr. Tulus, M.Si, selaku Dosen Pembimbing yang telah memberikan bimbingan dan pengarahan kepada penulis 4. Seluruh staff dan karyawan FMIPA USU Medan 5. Tak lupa pula rekan-rekan D3 Komputer kelas B stambuk 2005, semoga Allah SWT menyertai gerak langkah kita. 6. Teristimewa kepada Kedua Orangtua penulis, yang telah memberikan dukungan moril dan materil seta mendoakan dalam setiap langkah dan usaha. Dalam penulisan Tugas Akhir ini, penulis menyadari kemungkinan terjadi kekeliruan ataupun kesalahan-kesalahan didalamnya disebabkan masih kurangnya pengetahuan dan pengalaman penulis baik dalam segi teknik dan tata cara penyajian maupun dari segi tata bahasa. Oleh karena itu, penulis dengan senang hati menerima saran dan kritik dari pembaca dalam upaya penyempurnaan Tugas Akhir ini. Medan, Juni 2008 Penulis


v ABSTRAK

Kajian ini bertujuan untuk merancang sistem Penggajian Radio Most FM Medan dengan mengaplikasikan Bahasa Pemrograman Visual Basic 6.0. Dalam membangun aplikasi ini, fasilitas-fasilitas yang ditampilkan oleh penulis berupa menu Utama yang merupakan halaman utama dari aplikasi, menu File berisi pengolahan database kasir, perkiraan. dan pegawai. Selanjutnya ada juga menu Transaksi yang berfungsi untuk mengolah segala hal transaksi penggajian. Dan terakhir adalah menu laporan yang berfungsi menunjukkan daftar laporan penggajian pegawai baaik secara perseorangan maupun secara kumulatif. Aplikasi ini dikembangkan dengan menggunakan perangkat lunak Microsoft Visual Basic 6.0, Microsoft Access 2003 dan Seagate Crystal Report 8.5. Aplikasi ini bekerja untuk dapat menyajikan informasi secara teraktual serta dapat mekakukan perubahan terhadap data jika adanya tuntutan atau instruksi-instruksi yang mengharuskan data perlu di mutakhirkan sehingga isi dari sistem yang sedang berjalan dengan mudah dapat di up-date pada waktu yang diinginkan.


vi DAFTAR ISI

Halaman Persetujuan Pernyataan Penghargaan Abstrak Daftar Isi Daftar Tabel Daftar Gambar

ii iii iv v vi vii viii

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 Tinjauan Pustaka 1.7 Jadwal Penelitian

1 1 2 3 3 3 4 5

BAB 2

Landasan Teori 2.1 Pengertian Komputer 2.2 Pengertian Data 2.3 Sekilas Mengenai Visual Basic 6.0. 2.4 Pengembangan Sistem Informasi 2.5 Keistimewaan Visual basic 2.5.1 Versi-versi Visual Basic 6.0 2.6 Perancangan Sistem 2.7 Pengolahan Data 2.8 Pengertian Data 2.9 Pengertian Sistem Informasi 2.9.1 Pengertian Sistem 2.9.2 Pengertian Informasi 2.9.3 Peranan Komputer Dalam Sistem Informasi

6 6 8 9 9 10 11 16 20 22 24 24 26 28

BAB 3

Gambaran Sekilas Perusahaan 3.1 Sejarah singkat PT Radio Khama Sutra 3.2 Program 3.2.1 Program Sepekan 3.2.2 Acara Khusus

30 30 31 31 34

BAB 4

Perancangan Sistem 4.1 Data Flow Diagram (DFD) 4.2 Kamus Data 4.3 Normalisasi 4.4 Perancangan Database

35 35 38 39 40


vii 4.5 Flowchart Sistem 4.5.1 Flowchart Menu Utama 4.5.2 Flowchart Login Admin 4.5.3 Flowchart Pegawai 4.5.4 Flowchart Pilihan Perkiraan 4.6. Algoritma Program

42 42 43 44 45 46

BAB 5

Implementasi Sistem 5.1 Tahap Implementasi Sistem 5.2 Demonstrasi Program Spesifikasi Sistem 5.4 Instalasi Apache, PHP, dan MySQL 4.5. Pengujian di Browser

44 5.2 5.3 45 45 45

BAB 6

Kesimpulan dan Saran 4.1 Kesimpulan 4.2 Saran

47 47 48

LAMPIRAN


viii DAFTAR TABEL

Halaman Tabel 4.1 Tabel Kasir Tabel 4.2 Tabel Pegawai Tabel 4.3 Tabel Perkiraan Tabel 4.4 Tabel Transaksi Tabel 4.5 Tabel Gaji Tabel 4.6 Tabel Detail Gaji


40 40 41 41 41 41

ix DAFTAR GAMBAR

Halaman Gambar 2.1. Jendela Utama Visual Basic Gambar 2.2. Jendela Form Gambar 2.3. Jendela Project Gambar 2.4. Toolbox Gambar 2.5. Jendela Propertis Gambar 2.6. Jendela Layout Form Gambar 2.7. Siklus Pengolahan Data Gambar 4.1 Data Flow Diagram Konteks Gambar 4.2 Data Flow Diagram Level 0 Gambar 4.3 Relasi Database Gambar 4.4 Flowchart Menu Utama Gambar 4.5 Flowchart Login Admin Gambar 4.6 Flowchart Pilihan Pegawai Gambar 4.7 Flowchart Pilihan Perkiraan Gambar 5.1. tampilan splash yang merupakan tampian awal program Gambar 5.2 Form Login Gambar 5.3 Form Halaman Utama Gambar 5.4 Form Data kasir Gambar 5.5 Form Data Perkiraan Gambar 5.6 Form Data kasir Gambar 5.7 Form Transaksi Penggajian Gambar 5.8 Struk gaji setelah transaksi penggajian terjadi Gambar 5.9 Form Laporan Data Pegawai Gambar 5.10 Form Laporan Data Perkiraan Gambar 5.11 Form Laporan Gaji Gambar 5.12 Form Laporan Gaji Gambar 5.13 Form Detail Gaji Gambar 5.14 Form About


13 13 14 15 15 16 20 36 37 39 42 43 44 45 49 49 49 50 50 50 51 51 52 52 53 53 54 54

x

BAB 1

PENDAHULUAN

1.1 Latar Belakang

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

Pada mulanya komputer hanya digunakan sebagai alat penghitung oleh manusia. Namun sekarang semakin berkembangnya teknologi khususnya di bidang komputer serta dengan meningkatnya kebutuhan serta pengetahuan manusia akan pentingnya teknologi, maka fasilitas yang disediakan oleh komputer pun semakin meningkat dengan tidak hanya digunakan sebagai alat penghitung saja. Salah satu penggunaan lain dari komputer adalah menyangkut tentang pemrosesan data. M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xi Data kepegawaian beserta penggajiannya merupakan data yang sangat vital bagi sebuah perusahaan swasta maupun instansi pemerintah. Untuk itu penulis mencoba membuat perancangan suatu sistem untuk melakukan proses kerja tersebut.

Oleh karena itu penulis sangat tertarik untuk menyusun Tugas Akhir dengan judul : “ Sistem Penggajian Radio Most FM Menggunakan Visual Basic 6.0”. Sistem ini disusun dengana menggunakan bahasa pemrograman Microsoft Visual Basic 6.0 yang terintregasi dengan Database Microsoft Office Access 2003 dibantu dengan Program Seagate crystal Report 8.5 sebagai database report yang siap untuk di print (output).

1.2 Identifikasi Masalah

Masalah yang akan dibahas adalah bagaimana cara merancang sebuah sistem informasi data pegawai sekaligus penggajian pada Stasiun Radio Most FM, agar menghasilkan suatu sistem informasi yang dapat bekerja secara efektif dan efisien.

Sistem ini nantinya akan memudahkan para pegawai untuk mengakses informasi data pegawai dan penggajian sekaligus memudahkan bagian keuangan dalam mencetak slip gaji pegawai.. Selain itu penggunaan sistem ini diharapkan juga dapat mengurangi terjadinya kesalahan dalam menyusun laporan data pegawai dan penggajian pada Most FM.

1.3 Batasan Masalah M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xii

Untuk menghindari hal-hal yang menyimpang dari maksud dan tujuan, penulis membatasi permasalahan hanya pada pengolahan data pegawai, transaksi penggajian, pembuatan slip gaji dan laporan penggajian baik berdasarkan laporan per pegawai maupun laporan gaji akumulasi per bulan.

1.4 Maksud dan Tujuan

Sesuai dengan judul dan identifikasi masalah yang diutarakan sebelumnya maka maksud dan tujuan penulis adalah merancang sistem informasi kepegawaian dan penggajian pada Stasiun Radio Most FM dengan menggunakan bahasa pemrograman Visual Basic 6.0.

1.5 Metode Penelitian

Metode penelitian yang digunakan dalam penelitian ini terdiri dari 2 macam, yaitu: 1. Studi Pustaka Studi pustaka dilakukan dengan cara mempelajari teori-teori dan buku-buku yang berhubungan dengan objek kerja praktek sebagai dasar dalam penelitian ini. 2. Studi Lapangan Studi lapangan dilakukan dengan cara meneliti instansi / perusahaan secara langsung. Hal ini dilakukan untuk mendapatkan data-data dan keteranganketerangan yang berhubungan dengan masalah yang sedang diteliti. 3. Pengumpulan data: M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xiii - Biodata karyawan - Jumlah gaji karyawan 4. Merancang atau membuat listing program sistem informasi kepegawaian sesuai dengan yang diinginkan perusahaan. 5. Membuat tampilan aplikasi agar dapat digunakan. 6. Uji program.

1.6 Tinjauan Pustaka

Abdul (2002, hal. 11), sistem informasi adalah suatu sistem buatan manusia yang secara umum terdiri atas sekumpulan komponen berbasis komputer dan manual yang dibuat untuk menghimpun, menyimpan, dan mengelola data serta menyediakan informasi keluaran kepada para pemakai.

Didik (2006, hal. 147) menjelaskan bagaimana cara membuat sebuah aplikasi pengolahan data kepegawaian dengan beberapa tabel yang saling berkaitan. Harry (1997), pengertian komputer adalah suatu alat elektronik yang dapat menerima input data, mengolah data, memberikan informasi dengan menggunakan suatu program yang tersimpan di memori komputer (stored program), dapat menyimpan program dan hasil pengolahan, serta bekerja secara otomatis. Amin (2005, hal. 11) menjelaskan bahwa bentuk relasi antartabel dalam suatu database digunakan untuk menunjukkan bagaimana suatu kolom dalam suatu tabel berhubungan dengan kolom yang ada pada tabel lain. Tim Penelitian dan Pengembangan (2002, hal.1), kata “Visual” menunjukkan cara yang digunakan untuk membuat graphical user interface (GUI). Kata “Basic” merupakan bagian bahasa M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xiv BASIC (Beginners All Purpose Symbolic Instruction Code), yaitu sebuah bahasa pemrograman yang dalam sejarahnya sudah banyak digunakan oleh para programmer untuk menyusun aplikasi.

1.7

Jadwal Penelitian

Februari No.

Maret

April

Kegiatan I

1.

Riset Pustaka

2.

Riset

II III IV I II III IV I II III IV

Lapangan 3.

Perencanaan

4.

Analisis

5.

Design

6.

Implementasi

7.

Laporan TA


Ket

xv BAB II

LANDASAN TEORI

2.1 Pengertian Komputer

Istilah komputer berasal dari bahasa latin compute yang artinya alat hitung, sedang dalam bahasa Inggris yaitu to compute yang artinya menghitung. Komputer merupakan alat pengolahan data yang bekerja dengan kecepatan dan ketelitian yang sangat tinggi dan mampu mengerjakan proses data berdasarkan program yang tersimpan dalam memori masing – masing komputer dengan keterlibatan manusia yang minimum.

Maka suatu sistem yang berbasis komputer mengandung arti sebagai seperangkat suber daya (komponen – komponen) baik itu hardware (perangkat keras), software (perangkat lunak), brainware (perangkat manusia), data dan prosedur – prosedur yang saling berkaitan untuk menyediakan data dan informasi yang tepat pada waktunya.

Adapun komponen-komponen yang dimiliki komputer yaitu : a. Hardware ( Perangkat Keras ) Hardware adalah komponen-komponen yang membentuk suatu sistem komputer

yang

berhubungan

dengan

peralatan

lainnya,

sehingga

memungkinkan komputer dapat melakukan tugasnya. Umumnya peralatan


xvi tersebut harus terdiri dari 3 jenis perangkat masukan (input device), perangkat pengolahan (processor), dan perangkat keluaran (output device). b. Software ( Perangkat Lunak ) Software adalah seluruh fasilitas daripada suatu sistem pengolahan data bukan merupakan peralatan komputernya atau merupakan suatu susunan instruksi yang harus diberikan kepada unit mpengolah agar komputer dapat menjalankan pekerjaannya sesuai dengan semestinya. Fasilitas software itu terdiri dari sistem desain, program-program dan prosedur-prosedur. c. Brainware ( Perangkat Manusia ) Brainware merupakan aspek manusia yang menangani pengolahan komputer maupun pengembangan. Yang termasuk dalam brainware adalah sistem analis, programmer, operator komputer, dan data entri komputer.

Ketiga komponen tersebut, harus saling berhubungan dan membentuk suatu kesatuan. Hardware tanpa adanya software, maka tidak akan berfungsi seperti yang diharapkan, hanya berupa benda mati saja karena software yang akan mengoperasikan harwarenya. Hardware yang sudah didukung oleh software juga tidak akan berfungsi kalau tidak ada manusia yang mengoperasikannya. Oleh sebab itulah ketiga komponen komputer tersebut harus saling mendukung satu sama lainnya.

2.2 Pengertian Data


xvii Data berasal dari kata datum yang berarti bahan mentah yang akan diolah menjadi suatu bentuk yang lebih berguna dan bermanfaat yaitu informasi. Data dapat didefinisikan sebagai bahan keterangan tentang kejadian-kejadian nyata atau faktafakta yang dirumuskan dalam sekelompok lambang tertentu yang tidak acak yang menunjukkan jumlah, tindakan, atau hal.

Data dapat berupa catatan-catatan dalam kertas, buku, atau tersimpan sebagai file dalam basis data. Data akan menjadi bahan dalam proses pengolahan data. Oleh karenanya, suatu data belum dapat berbicara banyak sebelum diolah lebih lanjut. Proses pengolahan data ada tiga, yaitu : a. Pada tahapan input Yaitu dilakukan proses pemasukan data kedalam proses komputer lewat alat input (input device). b. Pada tahapan processing Yaitu dilakukan proses pengolahan data yang sudah dimasukkan, yang dilakukan oleh proces device yang dapat berupa proses perhitungan, pengendalian, atau pencarian. c. Pada tahapan output Yaitu dilakukan proses menghasilkan output dari hasil pengolahan data ke alat output yaitu berupa informasi.

2.3 Sekilas Mengenai Visual Basic 6.0.

Visual Basic 6.0 merupakan salah satu bahasa pemograman atau pengembang aplikasi yang sudah sangat dikenal di dunia. Baik itu karena kemmudahannya dalam M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xviii pengembangan aplikasi maupun kemampuannya yang beragam. Selain itu, Visual Basic 6.0 didukunmg oleh berbagai fasilitas dalam pengembangan aplikasi. Salah satunya adalah pengembangan aplikasi database. Pada makalah ini akan dibahas bagaimana mengembangkan aplikasi database dengan menggunakan Visual Basic 6.0.

2.4 Pengembangan Sistem Informasi

Salah satu kebutuhan yang sangat besar akan teknologi informasi sekarang ini adalah kebutuhan akan sistem informasi. Banyak sekali aplikasi sistem informasi yang sering dipakai oleh masyarakat seperti sistem informasi inventori, informasi akuntansi, sistem informasi penggajian, sistem informasi geografis dan masih banyak lagi sistem informasi yang lain. Dalam pembuatan dan pengembangan sebuah sistem informasi, yang harus diperhatikan oleh pengembang atau pembuat aplikasi sistem informasi tersebut adalah kebutuhan dari pengguna atau pemakai sistem informasi tersebut. Dengan demikian perlu adanya analisis kebutuhan dan sistem informasi yang akan dibuat.

Tampilan atau User Interface dari sistem informasi yang dibuat juga sangat mempengaruhi kinerja dari sistem informasi tersebut. Yang perlu diperhatikan dalam pembuatan tampilan dari aplikasi adalah buatlah sesederhana mungkin sehingga pemakai aplikasi dapat dengan mudahmenggunakan sistem informasi tersebut. Sebab aplikasi dibuat untuk membantu kinerja dari pengguna. Jangan sekali-kali membuat sebuah tampilan yang kelihatan “indah” tetapi sulit untuk digunakan. Semakin mudah


xix pemakai aplikasi menggunakan aplikasi yang dibuat, maka semakin baik pula aplikasi yang dibuat.

Hal-hal lain yang harus diperhatikan adalah fasilitas dari aplikasi sistem informasi tersebut. Kegunaan dari fasilitas yang anda buat pada program aplikasi adalah untuk menambah keandalan dari program.

2.5 Keistimewaan Visual basic

Sejak dikembangkan pada tahun 1980-an, Visual Basic kini telah mencapai versinya yang ke-6. beberapa keistimewaan utama Visual Basic 6.0 ini diantaranya seperti : 1. Menggunakan plat form pembuatan program yang diberi nama developer studio, yang memiliki tampilan dan sarana yang sama dengan Visual C++ dan Visual J++. Dengan begitu dapat bermigrasi atau belajar bahasa pemograman lainnya dengan mudah dan cepat. 2. Memiliki compiler handal yang dapat menghasilkan file Executable yang lebih cepat dan lebih efisien dari sebelumnya.

3. Memiliki beberapa tambahan sarana Wizard yang baru. Wizard adalah sara yang

mempermudah

dalam

pembuatan

aplikasi

dengan

mengotomatisasikan tugas-tugas tertentu. 4. Tambahan kontrol-kontrol baru yang lebih canggih serta peningkatan kaidah struktur bahasa Visual Basic. 5. Kemampuan membuat Active X dan fasilitas internet yang lebih banyak. M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xx 6. Sarana akses data yang lebih cepat dan handal untuk membuat aplikasi data base yang berkemampuan tinggi. 7. Visual Basic 6.0 memiliki beberapa versi atau edisi yang disesuaikan dengan kebutuhan pemakainya.

2.5.1 Versi-versi Visual Basic 6.0

Seperti aplikasi-aplikasi komersil lainnya, Visual Basic 6.0 juga di pasarkan dalam berbagai jenis atau versi. Beberapa versi dari Visual Basic 6.0 yang ada di pasaran diantaranya adalah :

1. Standard Editor / learning edition Versi ini adalah versi standard yang sudah mencakup berbagai sarana dasar dari Visual Basic 6.0 untuk mengembangkan aplikasi.

2. Professional Edition Versi ini memberikan berbagai sarana ekstra yang dibutuhkan oleh para programer profesional. Misalnya kontrol-kontrol tambahan, dukungan untuk pemograman internet, compiler untuk membuat file help, serta sarana pengembangan database yang lebih baik

3. Enterprise Edition


xxi Versi ini dikhususkan untuk para programer yang ingin mengembangkan aplikasi remote computing atau clien / server. Biasanya versi ini digunakan untuk membuat aplikasi pada jaringan.

Visual Basic juga mempunyai tampilan layar terdiri dari :

a. Main Windows ( jendela utama ) yang terdiri dari title bar ( baris judul ), menu bar, dan tool bar. Baris judul berisi nama proyek. Baris judul berisi nama proyek, mode operasi, Visual Basic sekarang dan form yang aktif. Menu bar merupakan menu drop-down dimana dapat mengontrol operasi lingkungan Visual Basic. Tool bar berisi kumpulan gambar yang mewakili perubahan yang ada di menu. Jendela utama juga menampilkan lokasi dari form aktif disudut kiri atas layar, lebar serta panjang form.

Gambar 2.1. Jendela Utama Visual Basic


xxii b. Form Windows ( jendela form ) adalah pusat dari pengembangan aplikasi Visual Basic . disinilah tempat untuk merancang aplikasi.

Gambar 2.2. Jendela Form

c. Project Windows ( jendela proyek ) yang menampilkan daftar form dan modul proyek. Proyek merupakan kumpulan dari modul form, modul class, modul standard, dan file sumber yang merupakan suatu aplikasi.

Gambar 2.3. Jendela Project


xxiii d. Toolbox adalah kumpulan dari objek yang digunakan untuk membuat user interface serta control bagi program aplikasi. Ada 2 cara untuk menempatkan control pada suatu form.

1. Klik ganda kontrol dalam toolbox. Selanjutnya anda dapat mengubah besar dan ukurannya serta memindahkannya dengan metode drag dan drop. 2. Klik control dalam toolbox, kemudian pindahkan pointer maouse pada jendela form. Kursor berubah menjadi crosshair (+). Tempatkan crosshair pada sudut kiri atas dimana control akan dilepaskan, tekan tombol mouse kiri dan tahan ketika menyeret ( drag ) kursor kearah sudut bawah

Gambar 2.4. Toolbox

e. Properties Windows ( jendela properti ), berisi daftar struktur setting properti yang digunakan pada sebuah objek terpilih. Ketika drop-down pada bagian atas jendela berisi daftar semua objek pada form yang aktif. Ada dua tab yang ditampilkan : Alphabetic ( urut abjad ) dan


xxiv catagorized ( urut berdasarkan kelompok ). Dibagian bawah kotak terdapat property dari objek terpilih.

Gambar 2.5. Jendela Propertis f. Form Layout Windows ( jendela layout form ) menampilkan posisi form yang relatif terhadap layar monitor.

Gambar 2.6. Jendela Layout Form

2.6 Perancangan Sistem


xxv Dalam perancangan sistem yang baik dan efisien ditempuh dengan cara sebagai berikut :

1. Mendefenisikan permasalahan dengan jelas Defenisi permasalahan yang dimaksud disini adalah segala sesuatu yang menuntut

penyelesaian.

Permasalahan

tersebut

sudah

diketahui

dari

identifikasi masalah yang telah diterangkan pada BAB I. jadi disini sudah jelas kita lihat dari identifikasi masalah tersebut dapat dibahas bagaimana cara mengatasi permasalahan tersebut sesuai dengan defenisi permasalahan itu. 2. Menentukan metode penyelesaian permasalahan a. Metodologi menginput data Data merupakan bahan baku yang melalui pengolahannya dibentuk menjadi suatu informasi. Input data menyatakan sesuatu peristiwa ataupun kenyataan yang mengandung suatu pengetahuan yang dijadikan dasar untuk penyusunan keterangan, pembuatan atau penetapan keputusan. b. Metodologi memproses data Data yang telah didapat akan diolah dengan seperangkat alat yang selalu bekerjasama untuk menghasilkan informasi. Sebelum data diolah pertama sekali data tersebut dioperasikan atau diproses secara teliti pengolahan data dilakukan lebih baik dan efisien. Metode memproses data yang sering dipakai adalah metode pencarian data dari sekelompok data ( searching ) atau pengurutan data ( sequential ). c. Metodologi menampilkan hasil Data yang telah diproses akan menjadi informasi. Informasi merupakan suatu pengetahuan yang dihasilkan oleh suatu pengolahan. Dengan M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xxvi menganalisa dan menempatkan data pada kedudukan yang tepat akan diperoleh data yang berarti dan dapat digunakan dalam suatu bidang tertentu dan akan menhasilkan suatu data yang akan ditampilkan perrecord ataupun ataupun secara keseluruhan.

3. Membuat Flowchart Flowchart merupakan suatu skema bagan yang menggambarkan urtan kegiatan dari awal hingga akhir. Dengan demikian flowchart ini merupakan bagian yang terpenting dalam pemograman sebagai gambaran dari setiap instruksi program. 4. Meghubungkan Struktur Data yang cocok Struktur data yang cocok dari rancangan sistem berdasarkan algoritma adalah searching yakni pencarian data yang dalam sistem informasi Penggajian Pegawai adalah berdasarkan NIP. Pencarian data ini dilakukan berdasarkan NIP dari sekelompok data. Selain searching dalam sistem informasi Penggajian Pegawai ini juga dilakukan secara sequential yaitu mengurutkan data juga berdasarkan NIP dan dari sekelompok data.

5. Perancangan sistem dengan menggunakan Visual Basic Perancangan sistem dengan menggunakan Visual Basic dapat dilihat pada bagian lampiran.

6. Uji coba sistem Sebelum program diterapkan, maka terlebih dahulu bebas dari kesalahankesalahan oleh karena itu program harus diuji terlebih dahulu untuk M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xxvii mengetahui kesalahan yang mungkin terjadi, mengetahui apakah program dapat menerima data dengan baik dapat memprosesnya dengan baik serta dapat menghasilkan pengeluaran yang benar. Sasaran dari pengujian adalah untuk mendeteksi setiap kekeliruan

pemrosesan yang ada dalam sistem

sehingga hal ini dapat diperbaiki sebelum dipakai.

7. Hasil dari rancangan sistem Hasil dari rancangan sistem akan ditampilkan per-record dan dapat dilihat pada bagian lampiran.

Proses penyusunan sistem informasi terdiri dari 4 fase yaitu :

1. Analis sistem Langkah-langkah yang harus dilakukan oleh seorang analis sistem dalam menganalisa sistem yang sedang berjalan untuk perancangan sistem baru adalah : a. Mempelajari masalah dan mengajukan elternatif penyelesaian b. Menetukan tujuan sistem yang akan dibuat c. Menganalisa output d. Meneliti sistem yang sedang berjalan e. Menganalisis kebutuhan sistem 2. Desain Sistem


xxviii Mendesain sistem denga tujuan untuk menyusun deskripsi sistem yang jelas dan benar. 3. Implementasi sistem Implementasi sistem bertujuan untuk memulai sistem baru yang telah siap dibuat dan tugas yang harus dikerjakan adalah mengkonversikan ke sistem baru atau sistem lama yang sudah di perbaharui

4. Operasi sistem Dalam mengoperasikan sistem yang harus dilakukan adalah melakukan pemeriksaan sistem setelah dilakukan implementasi serta melakukan pemeliharaan terhadap sistem yang baru diterapkan.

2.7 Pengolahan Data

Salah satu komponen dalam pengolahan data yang diperlukan adalah merupakan program aplikasi ( program komputer ) yang mana berisikan sederetan instruksi yang disusun dan dapat diterima oleh komputer. Jadi pengolahan data adalah proses untuk melakukan manipulasi dari pemakaian data agar menghasilkan informasi yang diperlukan. Secara umum pengolahan data terdiri dari tiga langkah yaitu :

1. Input ( pemasukkan data ) 2. Proses ( pengolahan data ) 3. Output ( hasil keluaran berupa informasi )

INPUT : Sistem Penggajian RadioPROCESSING M. Yusuf Simatyupang Most Fm Menggunakan Visual Basic 6.0, 2010.OUTPUT

xxix

Gambar 2.7. Siklus Pengolahan Data

Pengolahan data merupakan segala macam pengolahan terhadap data untuk membuat data itu berguna sesuai dengan hasil yang diinginkan, sehingga dapat segera dipakai, hasil pengolahan data tersebut adalah informasi.

Sewaktu merencanakan proyek penelitian, orang yang melakukan penelitian seharusnya sudah mempunyai rencana mengenai pengolahan dan desain outputnya. Pengolahan data meliputi kegiatan-kegiatan mulai dari penyiapan data sampai mengeluarkan hasil pengolahan data. Pengolahan data

dengan menggunakan

perangkat elektronik secara sederhana meliputi :

1. Masukan data Data terlebih dahulu dikumpulkan, kemudian dipindahkan kesesuatu peralatan input komputer. Record data yang dihasilkan akan dibaca oleh komputer melalui bahasa pemograman yang akan diterjemahkan kedalam bahasa mesin yang akan dimengerti oleh komputer.

2. Memproses data Ada beberapa jenis pemrosesan data antara lain : a. Sorting Record data disusun / diurutkan sesuai dengan urutan yang diinginkan, baik numeric maupun alphabetic. M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xxx b. Classifying Record data disusun dalam berbagai kelompok c. Calculating Malakukan perhitungan dengan manipulasi aritmatika terhadap data d. Summarizing Menerangkan data menjadi lebih sederhana dan ringkas e. Selecting Mengambil record-record tertentu

3. Hasil pengolahan Hasil pengolahan disajikan dalam suatu format tertentu yang berisi informasi. Output ini mungkin juga disimpan dalam suatu media yang akan digunakan untuk pengolahan selanjutnya 4. Pemeliharaan Terhadap sistem yang telah selesai dibuat dapat dilakukan beberapa perubahan atau penambahan yang sesuai dengan keinganan pemakai. Pada fase pemeliharaan ini dilakukan pemeriksaan ulang pada setiap jangka waktu.

2.8 Pengertian Data

Suatu informasi sangat erat hubungannya dengan data. Informasi berasal dari data. Data adalah istilah mejemuk yang berasal dari kata “datum” yang berarti fakta atau bagian yang mengandung arti yang dihubungkan dengan kenyataan , simbol, gambar, kata, angka, huruf, atau simbol yang menunjukkan suatu ide, objek kondisi atau M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xxxi situasi dan lain-lain. Selanjutnya kegunaan dari pada data adalah sebagai bahan dasar yang objektif ( relatif / tidak mutlak ) di dalam proses penyusunan kebijaksanaan dan keputusan oleh pemimpin organisasi. Data adalah fakta-fakta yang dipergunakan sebagai suatu dasar untuk perhitungan dan pengolahan meliputi serangkaian tindakantindakan atau operasi-operasi secara pasti mengarah suatu akhir.

Data dapat diklasifikasikan menurut jenis, sifat dan sumbernya. 1. Menurut jenis data, data terbagi dua yaitu : a. Data hitung Data sebagai hasil perhitungan. Yang termaksuk didalam data adalah persentase dari suatu jumlah tertentu b. Data ukur Data yang menunjukkan ukuran mengenai nilai suatu hal. 2. Menurut sifat a. Data kuantitatif Data mengenai penggolongan dalam hubungannya dengan penjumlahan. b. Data kualitatif Data mengenai penggolongan dalam hubungannya dengan kualitas atau sifat tertentu. Gagal atau berhasil merupakan jenis data kualitatif yang akan mendukung kualitas pelayanan data. 3. Menurut sumber data a. Data internal Data asli yang merupakan hasil penelitian yang dilakukan oleh manusia itu sendiri. b. Data eksternal M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xxxii Data hasil penelitian orang lain yang dapat digunakan untuk suatu keperluan meskipun data tersebut hasil penelitian orang lain.

Data disimpan kedalam suatu file. Sebelumnya disimpan suatu data diberi kode atau kata kunci menurut jenisnya. Pengaturan dilakukan sedemikian rupa sehingga mudah melakukan pencarian apabila diperlukan seketika. Pengkodean memegang peranan yang sangat penting. Kode yang salah akan menyebabkan data yang akan masuk ke dalam file akan salah dalam penempatannya, sehingga akan menyulitkan dalam melakukan pencarian data tersebut saat dibutuhkan.

2.9 Pengertian Sistem Informasi 2.9.1 Pengertian Sistem

Istilah sistem merupakan suatu istilah yang tidak asing lagi dan banyak digunakan secara luas pada lembaga-lembaga atau bidang-bidang ilmu pengetahuan dan teknologi. Istilah sistem berasal dari bahasa Yunani yaitu “SYSTEMA”. Ditinjau dari asal katanya, sistem berarti sekumpulan objek yang bekerja bersama-sama untuk menghasilkan suatu kesatuan metode yang digabungkan dan diatur sedemikian rupa yang berfungsi mencapai tujuan. Suatu sistem dapat terdiri dari beberapa subsistem yang saling berhubungan yang membentuk suatu kesatuan sehingga sasaran atau tujuan sistem tersebut dapat tercapai.

Berikut ini adalah pengertian sistem menurut beberapa pendapat : 1. Menurut Enid Squire M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xxxiii Sistem adalah serangkaian metide, prosedur atau teknik yang disatukan oleh interaksi yang teratur sehingga membentuk suatu kesatuan yang terpadu. 2. Menurut Gordon B.Davis Sistem adalah seperangkat elemen yang digabungkan satu dengan yang lain untuk suatu tujuan bersama. 3. Menurut T.Hani Handoko Sistem adalah sekumpulan elemen yang bergabung dan bergantung antara satu dengan yang lainnya. Apabila berbagai elemen tersebut berinteraksi, maka akan membentuk suatu kesatuan secara menyeluruh. 4. Menurut Robert G.Murdict Sistem adalah suatu kumpulan elemen yang dijadikan satu untuk satu tujuan 5. Menurut Drs. Mulyadi Pada dasarnya sekelompok elemen yang erat dengan yang lainnya, yang berfungsi bersama-sama untuk mencapai tujuan.

Dari beberapa devenisi sistem diatas yang beraneka ragam, maka dapat dibuat suatu pengertian yang sederhana dari sistem yaitu kesatuan yang terdiri dari unit-unit kesatuan yang saling bekerja sama untuk mencapai tujuan suatu usaha tertentu.

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


xxxiv 2.9.2 Pengertian Informasi

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

Kegunaan dari informasi itu sendiri pada hakekatnya adalah untuk memberitahukan si penerima informasi mengenai suatu masalah agar si penerima informasi lebih dapat menguasai masalah yang dihadapinya. Informasi juga dapat mengurangi ketidak pastian

tentang suatu masalah yang dapat digunakan untuk

memilih resiko yang paling kecil dan keuntungan yang besar dalam pemilihan alternatif bagi suatu proses pengambilan keputusan.

Suatu informasi harus datang tepat pada waktunya dan kebenarannya dapat di jamin, sebab jika informasi datang terlambat dan kebenarannya tidak terjamin maka dalam pengambilan keputusan akan berakibat fatal bagi instansi.

Nilai informasi berhubungan dengan informasi, bila tidak ada pilihan atau keputusan informasi menjadi tidak diperlukan. Nilai informasi dituliskan paling berarti dalam konteks sebuah keputusan.

Dalam lingkungan sistem informasi, informasi memiliki beberapa ciri - ciri sebagai berikut : M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xxxv 1. Benar atau salah, ini dapat berhubungan dengan realitas atau tidak. Bila penerima informasi yang salah mempercayainnya, akibatnya sama seperti yang benar. 2. Baru, informasi dapat sama sekali baru segar bagi penerimanya 3. Tambahan, informasi dapat memperbaharui atau memberikan tambahan baru pada informasi yang telah ada 4. Korektif, informasi dapat menjadi suatu koreksi atas informasi salah satu atau palsu sebelumnya 5. Penegas, informasi dapat mempertegas informasi yang telah ada. Ini masih berguna karena meningkatkan persepsi penerimanya atas kebenaran informasi tersebut

Dari defenisi – defenisi sistem dan informasi dapat disimpulkan bahwa sistem informasi adalah sebagai seperangkat elemen – elemen yang sistematis terpadu dan formal yang diperoleh dari pengolahan data guna mendukung fungsi operasi untuk mengambil keputusan atau kebijaksanaan dengan tujuan tertentu. Agar perkembangan sistem informasi dapat memenuhi prinsip tepat waktu dan tepat guna maka diperlukan suatu cara untuk melaksanakannya, adapun teknis pelaksanaannya adalah pengolahan data, pemeliharaan data, penyimpanan data dan peremajaan data.

2.9.3 Peranan Komputer Dalam Sistem Informasi

Kata komputer berasal dari bahasa Inggris yaitu to compute yang berarti hitung. Dengan demikian komputer dapat diartikan sebagai alat hitung atau mesin hitung. M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xxxvi Komputer sebagai alat bantu dalam pengolahan data bukanlah suatu alat yang berdiri sendiri tetapi terdiri dari sekelompok peralatan yang melaksanakan pekerjaan yang dikendalikan serta dikontrol oleh instruksi yang dimasukkan ke dalam memori atau storage untuk mengolah data menjadi lebih berguna atau disebut juga dengan informasi.

Komputer mempunyai peran penting untuk membantu manusia dalam menyelesaikan

dan memecahkan masalah yang dihadapinya. Setiap pemecahan

persoalan yang dilakukan manusia, hendaknya mempunyai dua unsur yaitu :

1. Adanya fakta dan data 2. bagaimana proses pemecahannya

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

Dalam hal hubungan inilah diperlukan suatu sistem pengolahan data yang cepat dan tepat untuk memberikan informasi yang sangat menjamin benarnya keputusan yang telah ditetapkan. Dilihat dari aspek praktisnya, maka tidak jarang seseorang terlambat atau belum selesai didalam pengambilan keputusan dan mendapat informasi yang cepat dalam pengolahan data secara manual. Tetapi dengan adanya pengolahan data dengan komputer hal tersebut dapat diatasi. M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xxxvii

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


xxxviii

BAB 3

GAMBARAN SEKILAS PERUSAHAAN

3.1 Sejarah singkat PT Radio Khama Sutra

39 tahun lebih bersama, PT Radio Khama Sutra berkiprah didalam Broadcasting khususnya station radio.

Dengan sistem teknologi digital berstandarisasi Broadcast radio kami memajukan musik Indonesia, dengan kemasan musik bernuansa atmosfir tanah air mulai dari tahun 1970 sampai sekarang, dengan nama radio Most FM di frekuensi 99,1 Mhz.

Most FM memiliki motto “ Radio Paling Ter Indonesia “ dengan nuansa musik hasil karya anak negeri tetap digemari, artinya meskipun yang kami suguhkan adalah musik hasil karya anak bangsa dengan cita rasa Nasional, tetapi kami mencoba agar musik Indonesia menjadi musik yang berkelas Internasional.

Most FM dengan perwajahan baru juga akan menyuguhkan musik Indonesia hasil karya anak – anak Medan agar musik dan hasil karya para musisi Medan dapat berkembang serta berkiprah dikancah musik Nasional.


xxxix Hal ini akan tercapai dengan teknologi serta peran dan dukungan dari segala pihak, khususnya penikmat dan pencinta 99,1 Most FM.

3.2 Program Radio Most 99,1 FM, 21 jam siaran akan menampilkan program – program yang dikemas secara apik dengan tetap menampilkan lagu – lagu Indonesia bernuansa Pop, Rock, Jazz, Ska, Hip-hop, Progesif dan R & B yang memberikan nuansa tersendiri bagi pendengar, dengan perwajahan baru Most FM juga akan menyajikan program baru yang bakal disajikan dengan apik.

3.2.1 Program Sepekan

a) VOICE OF ISLAM (Setiap Hari Jam 05.30 – 06.00) Voice OF Islam adalah suguhan ceramah 30 menit dari media islam net. Dimana setiap harinya bakal ada topik ceramah yang berbeda dan pastinya seru.

b) RIBAK SUDE (Setiap Senin S/D Sabtu 06.00 – 09.00) RIBAK SUDE (Ribut Pagi-Pagi Suka Suka deeeeh) adalah Program yang akan menemani anak negeri dari bangun pagi sampai pergi beraktivitas. Bakal banyak kesegaran yang didapat. Seperti Kepi Kepi a.k.a kegiatan pagi yang mengundang anak negeri untuk sms ke mostfm untuk melaporkan kegiatan pagi hari ini, Sarapan pagi (saatnya sapa teman pagi pagi) yang memperbolehkan anak negeri untuk menyapa teman by ON AIR Telepon. 736 0015 dan tentunya bakal ada Senam Bugar (Senyum M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xl Manis Banyolan Segar) . pokoknya dengerin aja dehhh Program pagi yang seru yang pastinya bikin seger…

c) MOODY (Setiap Senin S/D Jum’at 08.00 – 10.00) Informasi itu sangatlah penting, tapi menyampaikan informasi tidaklah selalu seperti membaca berita. Di MOODY kamu bisa dengerin informasi seperti keadaan cuaca, Whatshappen (kejadian yang pernah terjadi), You Know What (semua yang belum pernah kamu tahu) dan juga bakal ada berita singkat mengenai poltik dan berita Indonesia hari ini. Tapi, tenang MOODY pastinya bukan acara berita. Tapi di MOODY kita mencoba untuk menginspirasi anak negeri khususunya di pagi hari dengan gaya bahasa yang anak muda sekali…

d) INDOLICIOUS (Senin s/d jum’at 09.00 – 12.00) Sambil menjalani aktivitas dengerin lagu lagu hits pastinya akan membuat kamu semakin bersemangat untuk mengerjakannya ditambah lagi info & Tips kesehatan, karier, kuliahan juga bisa kamu dapatin disini. Tentunya Di Galerynya most fm

e) NYANTAI DULU (Senin S/d Jum’at 12.00 s/d 13.00) Jam 12 Siang, waktunya untuk Istirahat, waktunya untuk Nyantai, Rileks Your Mind. Dengerin lagu lagu yang buat kamu makin Rileks….Di Nyantai Dulu


xli f) ORDER LAGU (Senin s/d jum’at 13.00 s/d 16.00) Gak adil donk kalau gak ada program dimana anak negeri bisa meng Order lagu lagu favouritenya. Makanya order lagu pastinya bakal muasin anak negeri dengan pilihan lagu yang mereka order baik melalui sms atau telepon.

g) CEMILAN SORE (Senin s/d Jumat 16.00 – 18.00) Program Sore hari terbaru dan terkini. Dimana kamu bisa dengerin lagu lagu yang FRESH! Info Info Terbaru mengenai artis dan musisi Indonesia. Dan cemilan cemilan lainnya yang bikin sore kamu lebih ceria.

h) SUN SET / Santai Sesaat (Setiap hari jam 18.00 s/d 19.00) Di pergantian sore ke malam kamu juga bisa dengerin san set (santai sesaat) waktunya untuk santai sesaat, selain dengerin lagu lagu religius juga bakal ada ceramah singka t di program ini.

i) FITTING ROOM (Senin s/d jum’at jam 22.00 s/d 02.00) Ruang ganti akan membawa kamu ke dua dimensi yang berbeda, dimana dimensi I kamu bisa dengerin kaledeskop kejadian yang terjadi hari ini dan di dimnesi II kamu bakal di berada di BOXER (kotak cerita) dan BIKINI (Bicara kita pagi ini) special buat kamu yang belum bisa terlelap

j) MUSIK SERU (Setiap Hari) Program ini hanya akan memutarkan lagu lagu yang seru dan sedang Hits, setiap hari setiap saat.


xlii 3.2.2 Acara Khusus

a) MOST TERBARU (Senin 17.00 - 18.00) Program penyajian lagu-lagu baru koleksi Most FM, resensi Lagunya dan info Seputar Musisinya. Anak negeri bisa simak Most PREMIERE dimana pertama kali lagu baru diputar di Most fm.

b) KAGUM ( Selasa & Kamis 20.00 – 21.00) Program musik khusus bagi karya lagu anak Medan. Dimana Anak Negeri yang punya band bisa mengirimkan Demo lagu. Setiap Minggunya Akan Di undang salah satu Personil dari Band-Band yang sudah masuk. Dan kamu Bisa Nikmati 9 Lagu Karya Anak Medan Setiap Minggunya.

c) MOZAIK (Senin - Sabtu, 19.30 – 21.00) Program 40 Chart Lagu (satu satunya di Indonesia) yang menampilkan 40 lagu lagu hits saat ini, Berdasarkan Request, Air Play setiap hari di Most Fm.

d) MOST REUNI (Minggu Jam 21.00-23) Program kilas balik yang akan mengingatkan anak negeri ( SENIOR ) berreuni bersama masa-masa sewaktu remaja dahulu. Dipandu oleh bung ADEK. Dengan menghadirkan para pendengar yang mau ber-reuni secara langsung (baik melalui telepon interaktif atau hadir langsung ke studio). e) DA N ( Minggu, 20.00 – 21.00) Program Talk Show Kesehatan dimana Most FM mengundang salah satu Dokter Spesialis Kota Medan dan akan membahas seputar masalah kesehatan.3.5 M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xliii

BAB 4

PERANCANGAN SISTEM

Seiring dengan perkembangan teknologi, Sistem Informasi Penggajian pada Radio MOST FM Medan serta untuk meningkatkan efisiensi kerja dan waktu, maka data yang diperlukan agar dapat bermanfaat harus dikelola dalam suatu database, karena database merupakan suatu pengorganisasian dan pengolahan data pada komputer.

Tahap perancangan (desain) memiliki tujuan untuk mendesain sistem baru yang dapat menyelesaikan masalah-masalah yang dihadapi, yang diperoleh dari pemilihan alternatif sistem yang terbaik

4.1 Data Flow Diagram (DFD)

Data Flow Diagram adalah suatu pemodelan proses dalam suatu perancangan sistem Informasi.

Data Flow Diagram merupakan model dari sistem untuk menggambarkan pembagian sistem ke model yang lebih kecil. Salah satu keuntungan menggunakan diagram aliran data adalah memudahkan pemakai (user) yang kurang menguasai bidang komputer untuk mengerti sistem yang akan di kerjakan.


xliv

Adm.Kepeg Inf.pegawai Inf.perkiraan Inf.transaksi

Inf.Data Pegawai

Sistem Informasi Penggajian Data Pegawai Data Perkiraan Data Transaksi

Laporan Per Pegawai per bulan dan per tahun Laporan Akumulasi per bulan dan per tahun Laporan Rincian Penggajian

Pimpinan

Gambar 3.2 Data Flow Diagram Konteks Keterangan : Pada sistem Informasi Penggajian Radio MOST FM Medan, yang mempunyai Hak Akses penuh dalam mengelola dan menangani penambahan, update, dan penghapusan suatu data dari table, serta mengatur aliran program secara keseluruhan adalah Administrator Pegawai. Dalam hal ini Adm.Pegawai memasukkan data pribadi semua pegawai, data perkiraan dan data transaksi pegawai kemudian dikirim ke sistem Informasi Penggajian. Sistem akan memberikan Informasi ke Admin bahwa semua data yang telah dibuat berhasil di masukkan. Dan sistem juga memberikan informasi ke pegawai mengenai data-data pegawai. Kemudian Pimpinan juga bisa mengetahui data-data pegawai dari informasi yang disampaikan oleh sistem berupa laporan per pegawai M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xlv baik perbulan maupun pertahun, laporan akumulasi baik perbulan maupun pertahun, dan laporan rincian penggajian secara lebih mendetail lagi.

Pegawai

Adm.Pegawai

Data Pegawai Data Perkiraan Data Transaksi

Data Pegawai

Pegawai Data Perkiraan

Input Data

Perkiraan

Data Transaksi

Inf. Data Pegawai

Pembuatan Laporan

Transaksi

Data Transaksi Data Perkiraan Data Pegawai

Inf. Laporan Per Pegawai baik per bulan atau per tahun Inf Laporan Akumulasi baik per bulan atau per tahun Inf Laporan Rincian Penggajian

Pimpinan

Gambar 3.3 Data Flow Diagram Level 0


xlvi Keterangan : Pada DFD Level 0 ini dijelaskan bahwa pegawai hanya bisa melihat / menerima informasi mengenai Data Pegawai. Sementara untuk melakukan proses penginputan data berupa data pegawai, data perkiraan dan data transaksi hanya bisa diakses / dilakukan oleh Administrator (Kasir) Pegawai. Ketika data pegawai diinput, data tersebut masuk kedalam database Pegawai dengan nama table pegawai. Saat data perkiraan di input, data tersebut masuk kedalam database perkiraan dengan nama table perkiraan. Begitu juga dengan proses penginputan data transaksi, data akan masuk kedalam database pegawai dengan nama table transaksi. Setiap proses akan dibuat laporannya, dimana informasi tentang laporan data gaji per pegawai, laporan data gaji akumulasi dan laporan rincian penggajian akan dikirim ke pimpinan, sehingga pimpinan perusahaan dapat mengetahui data setiap bawahannya.

4.2 Kamus Data

Kamus data (KD) atau Data Dictionary (DD) atau disebut juga dengan istilah Sistem Data Dictionary adalah katalog fakta tentang data kebutuhan-kebutuhan informasi dari suatu sistem informasi. Dengan menggunakan kamus data analis sistem dapat mendefenisikan data yang mengalir di sistem dengan lengkap.

Kamus data dibuat pada tahap analisis sistem dan digunakan baik pada analisis maupun pada tahap perancangan sistem. a. Tabel Kasir

= { KodeKsr + NamaKsr + PasswordKsr }

b. Tabel Pegawai

= { NIP + NamaPgw + Bagian }


xlvii c. Tabel Perkiraan

= { KodePrk + NamaPrk }

d. Tabel Gaji

= { NomorSlp + Tanggal + Jam + Pendapatan +

Potongan + GajiBersih + NIP + KodeKsr } e. Tabel Transaksi

= { anaomor + Kode + Nama + Jumlah }

f. Tabel DetailGaji

= { NomoSlp + KodePrk + Jumlah }

4.3 Normalisasi

Normalisasi bertujuan untuk menciptakan struktur table (relasi) dalam basis data yang dapat mengurangi kemubaziran data. Normalisasi memberikan panduan yang sangat membantu bagi pengembang untuk mencegah penciptaan struktur table yang kurang fleksibel atau mengurangi ketidakefisienan.

Normalisasi merupakan proses untuk mengubah suatu relasi yang memilki masalah tertentu kedalam dua buah relasi atau lebih. Jadi, setelah memahami defenisi normalisasi tersebut, dapat diambil kesimpulannya bahwa dalam perancangan sistem informasi yang penulis bangun ini, trdapat Normalisasi level ketiga (3NF) dengan bentuk seperti gambar berkut : DetailGaji NomorSlp KodePrk Jumlah

Gaji NomorSlp Tanggal Jam Pendapatan Potongan GajiBersih NIP KodeKsr

Perkiraan KodePrk NamaPrk

Pegawai NIP NamaPgw Bagian

Kasir KodeKsr NamaKsr PasswordK


xlviii 4.4 Perancangan Database

Perancangan struktur database adalah untuk menentukan file database yang menggunakan field, tipe data dan ukuran data.

Pada sistem Informasi Penggajian RADIO MOST FM ini terdiri dari 5 (Lima) table struktur database yaitu : 1. Tabel Kasir 2. Tabel Pegawai 3. Tabel Perkiraan 4. Tabel Transaksi 5. Tabel Gaji 6. Tabel Detail Gaji

4.1 Tabel Kasir Field Name

Type Data

Size

Description

KodeKsr

Teks

5

Kode kasir

NamaKsr

Teks

25

Nama Kasir

PasswordKsr

Teks

10

Password Kasir

4.2 Tabel Pegawai Field Name

Type Data

Size

Description

NIP

Teks

9

Nomor Induk Pegawai

NamaPgw

Teks

30

Nama Pegawai

Bagian

Teks

20

Password Pegawai

4.3 Tabel Perkiraan M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xlix Field Name

Type Data

Size

Description

KodePrk

Teks

3

Kode Perkiraan

NamaPrk

Teks

25

Nama Perkiraan

4.4 Tabel Transaksi Field Name

Type Data

Size

Description

Nomor

Teks

9

Nomor Urut Transaksi

Kode

Teks

30

Kode Transaksi

Nama

Teks

20

Nama Pegawai

Jumlah

Number

Long Jumlah Gaji Bersih Integer

4.5 Tabel Gaji Field Name NomorSlp Tanggal Jam

Type Data

Size

Teks

9

Nomor Slip

30

Tanggal Penggajian

20

Jam Penggajian

Date/Time Date/Time

Description

Pendapatan

Number

Long Jumlah pendapatan Intege Jumlah Potongan

Potongan

Number

GajiBersih

Number

-

Total Gaji bersih

NIP

Teks

9

Nomor Induk Pegawai

KodeKsr

Teks

5

Kode kasir

4.6 Tabel Detail Gaji Field Name

Type Data

Size

NomorSlp

Teks

9

Nomor slip

KodePrk

Teks

3

Kode Perkiraan

Jumlah

Number

Description

Long Jumlah Gaji bersih Intege

4.5 Flowchart Sistem M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

l

Adapun Flowchart yang akan di buat adalah sebagai berikut :

4.5.1 Flowchart Menu Utama

Start

Tampil Halaman

Baca Links

Form kasir, pegawai, dan perkiraan

File No Transaksi

Yes Form transaksi penggajian

No Laporan

Laporan gaji dan rincian gaji Yes

No End

Gambar 3.4 Flowchart Menu Utama

4.5.2 Flowchart Login Admin M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

li

Start

Form Login

Tidak

N<=3

Isi ‘Username’ & Password Tidak Entry = database Ya Menu Utama

End

Gambar 3.5 Flowchart Login Admin

4.5.3 Flowchart Pegawai M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lii

Pilihan Pegawai Yes

Pengisian data

Form Input Data No Edit Data Pegawai

Yes Form daftar Pegawai

Yes

Yes

No

Simpan Data

Hapus Data Pegawai No Logout

Tabel Pegawai

Yes Home

Gambar 3.7 Flowchart Pilihan Pegawai

4.5.4 Flowchart Pilihan Perkiraan M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

liii

Pilihan Perkiraan Yes Pengisian data

Form Input Data No Yes Form daftar Perkiraan

Yes

Edit Data Perkiraan

Yes

No

Simpan Data

Hapus Data Perkiraan No Logout

Tabel Perkiraan

Yes Home

Gambar 3.7 Flowchart Pilihan Perkiraan

4.6 Algoritma Program M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

liv

Adapun algoritma yang akan dibahas antara lain, yaitu: 1. Nomor slip gaji muncul secara otomatis, baerubah seiap hari dan setiap pergantian transaksi, setelah slip gaji sebelumnya disimpan. 2. Nama kasir dan kode kasir muncul secara otomatis dari hasil login. Kode kasir tidak ditampilkan dalam form. 3. Tanggal dan jam muncul secara otomatis yang diambil dari system omputer. Oleh karena itu, diharapkan mengecek kembali validasi tanggal dan jam computer sebelum program dijalankan. 4. Hal pertama yang harus dilakukan adalah memilih NIP, kemudian menekan Enter. Jika bulan ini NIP tersebut telah menerima gaji, maka akan muncul pesan bahwa NIP tersebut telah menerima gaji. Hal ini untuk mencegah penerimaan gaji dua kali atau lebih dalam satu bulan. 5. Saat melakukan penggajian kode perkiraan (pembayaran) dapat dilakukan dalam Grid atau memilih list, kemudian menekan Enter. Setelah itu isilah jumlah pembayaran. 6. Khusus untuk pajak. Di asumsikan sebesar 10% dari total pendapatan dan akan menjadi potongan bagi pendapatan hingga akhirnya diperoleh gaji bersihnya.


lv

BAB 5

IMPLEMENTASI SISTEM

Sistem

yang

telah

dirancang

selanjutnya

akan

dilanjutkan

kepada

tahap

pengimplementasian sistem. Implementasi sistem merupakan tahap meletakkan sistem supaya siap untuk dioperasikan. Tujuan implementasi adalah: 1. Menyelesaikan desain sistem yang ada dalam dokumen perancangan sistem yang disetujui. 2. Menulis, menguji, mendokumentasikan program-program dan prosedur-prosedur yang diperlukan oleh dokumen perancangan sistem yang disetujui. 3. Mempertimbangkan bahwa sistem memenuhi permintaan pemakai, yaitu dengan menguji sistem secara keseluruhan.

Dalam memilih pendekatan implementasi sistem yang digunakan untuk desain perpustakaan ini menggunakan implementasi secara langsung terhadap sistem yang sedang berjalan.

5.1 Tahap Implementasi Sistem

Pada tahap ini dilakukan penganalisaan terhadap masalah yang akan diproses. Adapun kebutuhan sistem yang akan diperlukan dalam pembuatan sistem ini adalah: 1. Perangkat Keras (Hardware) M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lvi a. Processor Intel Pentium Core 2 Duo 2.2 GHz b. RAM 384 MB c. Monitor VGA d. Harddisk 20 GB e. Mouse dan Keyboard f.

Printer Canon Pixma MP145

2. Perangkat Lunak (Software) a. Sistem Operasi Windows XP b. Bahasa Pemrograman Microsoft Visual basic 6.0 c. Program Microsoft Office XP, khusunya Microsoft Office Access 2003. d. Crystal Report v.8.5 3. Perangkat Manusia (Brainware) a. Operator, merupakan orang yang mempersiapkan komputer dan memilih software sesuai dengan objek kerja, memasukkan data, mengawasi proses pengolahan data, menjaga kebenaran data atau mencetak laporan. b. Programmer, merupakan orang yang bertugas membuat dan membangun program dengan menggunakan salah satu fasilitas software yang telah ditentukan yaitu Microsoft Visual Basic 6.0.


lvii 5.2 Demonstrasi Program

Berikut adalah tampilan program Sistem Informasi Perpustakaan yang telah dirancang:

Gbr 5.1. tampilan splash yang merupakan tampian awal program

Gbr 5.2 Form Login

Gbr 5.3 Form Halaman Utama M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lviii

Gbr 5.4 Form Data kasir

Gbr 5.5 Form Data Perkiraan

Gbr 5.6 Form Data kasir


lix

Gbr 5.7 Form Transaksi Penggajian

Gbr 5.8 Struk gaji setelah transaksi penggajian terjadi.


lx

Gbr 5.9 Form Laporan Data Pegawai

Gbr 5.10 Form Laporan Data Perkiraan


lxi

Gbr 5.11 Form Laporan Gaji

Gbr 5.12 Form Laporan Gaji


lxii

Gbr 5.14 Form Detail Gaji

Gbr 5.15 Form About


lxiii

BAB 6

KESIMPULAN DAN SARAN

6.1 Kesimpulan

Penulis dapat merangkum beberapa kesimpulan dari uraian / penjelasan bab-bab aebelumnya, yaitu sebagai berikut :

1. Dengan adanya rancangan sistem informasi ini akan membantu mempermudah pengolahan data pada sistem kepegawaian RADIO MOST FM Medan sehingga dapat menghasilkan suatu informasi yang efisien, efektif dan terstruktur. 2. Dalan Sistem Informasi ini, setiap proses penginputan, pengeditan, penghapusan data hanya dapat dilakukan oleh Kasir yang telah login 3. Untuk masuk kedalam program harus melakukan proses login dulu, Password yang dimasukkan harus sesuai dengan password kasir.Dan Password harus di jaga kerahasiaannya agar data tidak dapat di akses selain administrator pegawai sendiri. Adapun username

: yuga

Password

: yuga


lxiv 4. Dalam hal ini Pegawai hanya bisa mendapatkan Informasi bahwa data mereka telah berada dalam database kepegawaian. 5. Jika Pimpinan ingin melihat Semua data pegawai, Laporan semua data pegawai akan bisa dilihat dan sistem akan menjalankan perintah sesuai dengan instruksi yang diberikan. 6. Pembuatan Sistem Informasi Kepegawaian Berbasis Web ini dibuat dengan menggunakan bahasa pemrograman Microsoft Visual Basic 6.0 dengan database MS. Access dan Crystal Report 8.5 sebagai aplikasi cetak laporannya..

6.2 Saran 1. Komputer yang digunakan dalam membuat suatu aplikasi web sebaiknya memiliki spesifikasi dengan level menengah ke atas karena penggunaan software-software yang banyak memakan sumber daya komputer seperti memori dan kapasitas harddisk. 2. Sebagai kaum intelektual yang peduli terhadap perkembangan teknologi, penulis mengharapkan dengan semakin berkembangnya penggunaan teknologi Perangkat Lunak open sources agar dapat dimanfaatkan sebaik mungkin.


lxv

DAFTAR PUSTAKA

Alam, M Agus. 2000. Manajemen Database dengan Microsoft Visual Basic 6.0. Jakarta: Elex Media Komputindo. Basuki, Sulistyo. 1991. Pengantar Ilmu Perpustakaan. Jakarta: Gramedia Pustaka Utama. Hartono, Jogiyanto. 2005. Analisis dan Desain Sistem Informasi: Pendekatan Terstruktur Teori dan Praktek Aplikasi Bisnis. Edisi Ketiga. Yogyakarta: Andi. Hartono,

Jogiyanto.

2002.

Pengenalan

Komputer:

Dasar

Ilmu

Komputer

Pemrograman, Sistem Informasi dan Inteligensi Buatan. Edisi Ketiga. Yogyakarta: Andi. MADCOMS. 2002. Seri Panduan Pemrograman Database Visual Basic 6.0 dengan Crystal Reports. Edisi Kedua. Yogyakarta: Andi. Malik, Jaja Jamaludin. 2007. Kumpulan Tip Trik Pemrograman Visual Basic. Edisi Pertama. Yogyakarta: Andi. Sutanta, Edhy. 1975. System Database. Edisi Pertama. Yogyakarta: Andi.


lxvi

LAMPIRAN

1. Listing program form 1 (pembukaan).frm Dim intCounter As Integer '***************************** '// following used for making the round form '/ Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long Private Const SIZE As Integer = 7 Private Const HOLE_WIDTH As Integer = 50 Private Const BORDER_TOP As Integer = -19 Private Const BORDER_LEFT As Integer = 17 Private Const FORM_DIAMETER As Integer = 7000 '/ '// Following used for min, max, hide and show of the active window '/ Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_MAXIMIZE = 3 Const SW_SHOWNOACTIVATE = 4 Const SW_SHOW = 5 Const SW_MINIMIZE = 6 Const SW_SHOWMINNOACTIVE = 7 Const SW_SHOWNA = 8 Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) '************************************** Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxvii lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Dim ld As Integer Dim s As Integer Private Sub Command1_Click() End End Sub Private Sub Form_Click() FrmLogin.Show Unload Me End Sub Private Dim Dim Dim Dim

Sub Form_Load() lngRegion As Long lngReturn As Long lngFormWidth As Long lngFormHeight As Long

lngFormWidth = (Me.Width / Screen.TwipsPerPixelX) lngFormHeight = (Me.Height / Screen.TwipsPerPixelY) lngReturn = SetWindowRgn(Me.hwnd, lngRegion, True) '********************************** s = GetSetting("CWin", "Demo", "Demo", "20") 'Debug.Print s Dim sa As Integer Dim sd As Integer Dim ne As String sa = CInt(s) sd = sa + 5 ne = CStr(sd) SaveSetting "CWin", "Demo", "Demo", ne ld = 0 End Sub Private Sub Label6_Click() ShellExecute Me.hwnd, "Open", "www.rescueindia.net", ByVal 0&, "", 3 End Sub Private Sub Timer1_Timer() Dim r As Byte Dim g As Byte Dim B As Byte r = Rnd() * 255 g = Rnd() * 255 M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxviii B = Rnd() * 255 'Line1.BorderColor = RGB(r, g, b) Line2.BorderColor = RGB(r, g, B) Line3.BorderColor = RGB(r, g, B) Line4.BorderColor = RGB(r, g, B) Label1.ForeColor = RGB(B, r, g) End Sub Private Sub Timer2_Timer() Dim r As Byte Dim g As Byte Dim B As Byte r = Rnd() * 255 g = Rnd() * 255 B = Rnd() * 255 Label3.ForeColor = RGB(g, B, r) '********* If s <= 2 Then Label5.Caption = "Has Been Expired" Label5.Visible = False 'Command1.Visible = false Exit Sub End If '********* If ld >= 2 Then Login.Show Unload Me Exit Sub End If ld = ld + 1 End Sub Private Sub Timer3_Timer() If intCounter = 6 Then FrmLogin.Show Unload Me End If intCounter = intCounter - 1 End Sub

2. Listing Program Login.frm Dim A As Byte Dim B As Byte Private Sub Form_Load() TxtNamaKsr.MaxLength = 35 M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxix TxtPasswordKsr.MaxLength = 15 TxtPasswordKsr.PasswordChar = "*" TxtPasswordKsr.Enabled = False TxtKodeKsr.Enabled = False End Sub Private Sub TxtNamaKsr_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 27 Then Unload Me If KeyAscii = 13 Then Call BukaDB RSKasir.Open "Select NamaKsr from Kasir where NamaKsr ='" & TxtNamaKsr & "'", Conn If RSKasir.EOF Then A = A + 1 If 1 - A = 0 Then MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _ "Nama '" & TxtNamaKsr & "' tidak dikenal" TxtNamaKsr = "" TxtNamaKsr.SetFocus ElseIf 2 - A = 0 Then MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _ "Nama '" & TxtNamaKsr & "' tidak dikenal" TxtNamaKsr = "" TxtNamaKsr.SetFocus ElseIf 3 - A = 0 Then MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _ "Nama '" & TxtNamaKsr & "' tidak dikenal" & Chr(13) & _ "Kesempatan habis, Ulangi dari awal" 'End Conn.Close Unload Me End If Else TxtNamaKsr.Enabled = False TxtPasswordKsr.Enabled = True TxtPasswordKsr.SetFocus Conn.Close End If End If End Sub Private Sub txtpasswordksr_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxx If KeyAscii = 27 Then Unload Me Dim LoginKasir As String Dim KodeKasir As String Dim NamaKasir As String If KeyAscii = 13 Then Call BukaDB RSKasir.Open "Select * from Kasir where NamaKsr ='" & TxtNamaKsr & "' and PasswordKsr='" & TxtPasswordKsr & "'", Conn If RSKasir.EOF Then B = B + 1 If 1 - B = 0 Then MsgBox "Kesempatan ke " & B & " Salah" TxtPasswordKsr = "" TxtPasswordKsr.SetFocus ElseIf 2 - B = 0 Then MsgBox "Kesempatan ke " & B & " Salah" TxtPasswordKsr = "" TxtPasswordKsr.SetFocus ElseIf 3 - B = 0 Then MsgBox "Kesempatan ke " & B & " Salah" 'End Conn.Close Unload Me End If Else Unload Me Menu.Show KodeKasir = RSKasir!KodeKsr NamaKasir = RSKasir!NamaKsr TxtKodeKsr = KodeKasir TxtNamaKsr = NamaKasir Penggajian.LblKodeKsr = KodeKasir Penggajian.LblNamaKsr = NamaKasir Conn.Close End If End If End Sub Sub PeriksaTanggal() Dim CekTanggal As String Ulangi: CekTanggal = Date If CekTanggal <> Format(Date, "dd/mm/yy") Then If MsgBox("Ubah Format tanggal jadi dd/mm/yy di Control Panel, Regional Settings " & vbCrLf & _ "Customize.., Date, Short Date Style, karena program tidak dapat dijalankan!", vbCritical + vbOKCancel, "Cek Tanggal") = vbOK And CekTanggal <> Format(Date, "dd/mm/yy") Then M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxi Call Shell("rundll32.exe shell32.dll," & "Control_RunDLL INTL.CPL,,4", 1) Else End End If pesan = MsgBox("Format Tanggal Sudah diganti..?", vbYesNo, "Konfirmasi") If pesan = vbNo Then If CekTanggal <> Format(Date, "dd/mm/yy") Then GoTo Ulangi Else GoTo Ulangi End If End If End Sub Private Sub Timer1_Timer() If CekTanggal <> Format(Date, "dd/mm/yy") Then PeriksaTanggal Else Exit Sub End If End Sub

3. Listing Program Menu.frm Private Sub Form_KeyPress(KeyAscii As Integer) 'jika menekan ESC, munculkan pesan If KeyAscii = 27 Then End If KeyAscii = 13 Then Penggajian.Show End Sub Private Sub mnAbout_Click() frmAbout.Show End Sub Private Sub mnkasir_Click() Kasir.Show End Sub Private Sub mnkeluar_Click() End End Sub Private Sub mnlapgaji_Click() Laporan.Show End Sub M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxii Private Sub mnlappegawai_Click() CrystalReport1.DataFiles(0) = App.Path & "\ADOGaji.mdb" 'panggil file laporan CrystalReport1.ReportFileName = App.Path & "\Lap Pegawai.rpt" 'jika ada perubahan data direfresh CrystalReport1.WindowState = crptMaximized 'tampilkan ke layar CrystalReport1.Action = 0 End Sub Private Sub mnlapperkiraan_Click() CrystalReport1.DataFiles(0) = App.Path & "\ADOGaji.mdb" CrystalReport1.ReportFileName = App.Path & "\Lap Perkiraan.rpt" CrystalReport1.WindowState = crptMaximized CrystalReport1.Action = 0 End Sub Private Sub mnpegawai_Click() Pegawai.Show End Sub Private Sub mnpenggajian_Click() Penggajian.Show End Sub Private Sub mnperkiraan_Click() Perkiraan.Show End Sub Private Sub mnsql_Click() UjiCobaSQL.Show End Sub Private Sub mnrincian_Click() Rincian.Show End Sub

4. Listing Program Kasir.frm Sub Form_Load() Call BukaDB Text1.MaxLength = 5 Text2.MaxLength = 25 Text3.MaxLength = 10 Kondisiawal End Sub M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxiii Function CariData() Call BukaDB RSKasir.Open "Select * From Kasir where KodeKsr='" & Text1 & "'", Conn End Function Private Sub Text1 = Text2 = Text3 = End Sub

KosongkanText() "" "" ""

Private Sub SiapIsi() Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True End Sub Private Sub TidakSiapIsi() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False End Sub Private Sub Kondisiawal() KosongkanText TidakSiapIsi CmdInput.Caption = "&Input" CmdEdit.Caption = "&Edit" CmdHapus.Caption = "&Hapus" CmdTutup.Caption = "&Tutup" CmdInput.Enabled = True CmdEdit.Enabled = True CmdHapus.Enabled = True End Sub Private Sub TampilkanData() With RSKasir If Not RSKasir.EOF Then Text2 = RSKasir!NamaKsr Text3 = RSKasir!PasswordKsr End If End With End Sub Private Sub CmdRefresh_Click() Adodc1.Refresh DataGrid1.Refresh If CmdInput.Caption = "&Simpan" Then CmdInput.SetFocus ElseIf CmdEdit.Caption = "&Simpan" Then M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxiv CmdEdit.SetFocus End If Adodc1.Refresh DataGrid1.Refresh Kondisiawal End Sub

Private Sub AutoNomor() Call BukaDB RSKasir.Open ("select * from Kasir Where KodeKsr In(Select Max(KodeKsr)From Kasir)Order By KodeKsr Desc"), Conn RSKasir.Requery Dim Urutan As String * 5 Dim Hitung As Long With RSKasir If .EOF Then Urutan = "KSR" + "01" Text1 = Urutan Else Hitung = Right(!KodeKsr, 2) + 1 Urutan = "KSR" + Right("00" & Hitung, 2) End If Text1 = Urutan End With End Sub Private Sub CmdInput_click() If CmdInput.Caption = "&Input" Then CmdInput.Caption = "&Simpan" CmdEdit.Enabled = False CmdHapus.Enabled = False CmdTutup.Caption = "&Batal" SiapIsi KosongkanText Call AutoNomor Text1.Enabled = False Text2.SetFocus Else If Text1 = "" Or Text2 = "" Or Text3 = "" Then MsgBox "Data Belum Lengkap...!" Else Dim SQLTambah As String SQLTambah = "Insert Into Kasir (KodeKsr,NamaKsr,PasswordKsr) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')" Conn.Execute SQLTambah Call Kondisiawal End If End If M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxv End Sub Private Sub CmdEdit_Click() If CmdEdit.Caption = "&Edit" Then CmdInput.Enabled = False CmdEdit.Caption = "&Simpan" CmdHapus.Enabled = False CmdTutup.Caption = "&Batal" SiapIsi Text1.SetFocus Else If Text2 = "" Or Text3 = "" Then MsgBox "Masih Ada Data Yang Kosong" Else Dim SQLEdit As String SQLEdit = "Update Kasir Set NamaKsr= '" & Text2 & "', PasswordKsr='" & Text3 & "' where KodeKsr='" & Text1 & "'" Conn.Execute SQLEdit Call Kondisiawal End If End If End Sub Private Sub CmdHapus_Click() If CmdHapus.Caption = "&Hapus" Then CmdInput.Enabled = False CmdEdit.Enabled = False CmdTutup.Caption = "&Batal" KosongkanText SiapIsi Text1.SetFocus End If End Sub Private Sub CmdTutup_Click() Select Case CmdTutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi Kondisiawal End Select End Sub Private Sub Text1_Keypress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(Text1) < 5 Then MsgBox "Kode Harus 5 Digit" Text1.SetFocus M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxvi Else Text2.SetFocus End If If CmdInput.Caption = "&Simpan" Then Call CariData If Not RSKasir.EOF Then TampilkanData MsgBox "Kode Kasir Sudah Ada" KosongkanText Text1.SetFocus Else Text2.SetFocus End If End If If CmdEdit.Caption = "&Simpan" Then Call CariData If Not RSKasir.EOF Then TampilkanData Text1.Enabled = False Text2.SetFocus Else MsgBox "Kode Kasir Tidak Ada" Text1 = "" Text1.SetFocus End If End If If CmdHapus.Enabled = True Then Call CariData If Not RSKasir.EOF Then TampilkanData pesan = MsgBox("Yakin akan dihapus", vbYesNo) If pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Kasir where KodeKsr= '" & Text1 & "'" Conn.Execute SQLHapus Kondisiawal Else Kondisiawal CmdHapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" Text1.SetFocus End If End If End If M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxvii End Sub Private Sub Text2_Keypress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text3.SetFocus End Sub Private Sub Text3_Keypress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If CmdInput.Enabled = True Then CmdInput.SetFocus ElseIf CmdEdit.Enabled = True Then CmdEdit.SetFocus End If End If End Sub

5. Listing Program Perkiraan.frm Dim mvBookMark As Variant Private Sub Form_Activate() Call BukaDB Conn.CursorLocation = adUseClient RSPerkiraan.Open "select * from Perkiraan", Conn With RSPerkiraan If Not (.BOF And .EOF) Then mvBookMark = .Bookmark End If End With Set DataGrid1.DataSource = RSPerkiraan.DataSource End Sub Sub Form_Load() Text1.MaxLength = 6 Text2.MaxLength = 30 Kondisiawal End Sub Function CariData() Call BukaDB RSPerkiraan.Open "Select * From Perkiraan where KodePrk='" & Text1 & "'", Conn End Function Private Sub KosongkanText() M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxviii Text1 = "" Text2 = "" End Sub Private Sub SiapIsi() Text1.Enabled = True Text2.Enabled = True End Sub Private Sub TidakSiapIsi() Text1.Enabled = False Text2.Enabled = False End Sub Private Sub Kondisiawal() KosongkanText TidakSiapIsi Cmdinput.Caption = "&Input" Cmdedit.Caption = "&Edit" Cmdhapus.Caption = "&Hapus" Cmdtutup.Caption = "&Tutup" Cmdinput.Enabled = True Cmdedit.Enabled = True Cmdhapus.Enabled = True End Sub Private Sub TampilkanData() With RSPerkiraan If Not RSPerkiraan.EOF Then Text2 = RSPerkiraan!NamaPrk End If End With End Sub Private Sub CmdRefresh_Click() If Cmdinput.Caption = "&Simpan" Then Cmdinput.SetFocus ElseIf Cmdedit.Caption = "&Simpan" Then Cmdedit.SetFocus End If Call Kondisiawal Form_Activate End Sub Private Sub CmdInput_click() If Cmdinput.Caption = "&Input" Then Cmdinput.Caption = "&Simpan" Cmdedit.Enabled = False M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxix Cmdhapus.Enabled = False Cmdtutup.Caption = "&Batal" SiapIsi KosongkanText Text1.SetFocus Else If Text1 = "" Or Text2 = "" Then MsgBox "Data Belum Lengkap...!" Else Dim SQLTambah As String SQLTambah = "Insert Into Perkiraan (KodePrk,NamaPrk) values ('" & Text1 & "','" & Text2 & "')" Conn.Execute SQLTambah Cmdrefresh.SetFocus End If End If End Sub Private Sub CmdEdit_Click() If Cmdedit.Caption = "&Edit" Then Cmdinput.Enabled = False Cmdedit.Caption = "&Simpan" Cmdhapus.Enabled = False Cmdtutup.Caption = "&Batal" SiapIsi Text1.SetFocus Else If Text2 = "" Then MsgBox "Masih Ada Data Yang Kosong" Else Dim SQLEdit As String SQLEdit = "Update Perkiraan Set NamaPrk= '" & Text2 & "' where KodePrk='" & Text1 & "'" Conn.Execute SQLEdit Cmdrefresh.SetFocus End If End If End Sub Private Sub CmdHapus_Click() If Cmdhapus.Caption = "&Hapus" Then Cmdinput.Enabled = False Cmdedit.Enabled = False Cmdtutup.Caption = "&Batal" KosongkanText SiapIsi Text1.SetFocus End If End Sub M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxx Private Sub CmdTutup_Click() Select Case Cmdtutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi Kondisiawal End Select End Sub Private Sub Text1_Keypress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(Text1) < 3 Then MsgBox "Kode Harus 3 Digit" Text1.SetFocus Else Text2.SetFocus End If If Cmdinput.Caption = "&Simpan" Then Call CariData If Not RSPerkiraan.EOF Then TampilkanData MsgBox "Kode Perkiraan Sudah Ada" KosongkanText Text1.SetFocus Else Text2.SetFocus End If End If If Cmdedit.Caption = "&Simpan" Then Call CariData If Not RSPerkiraan.EOF Then TampilkanData Text1.Enabled = False Text2.SetFocus Else MsgBox "Kode Perkiraan Tidak Ada" Text1 = "" Text1.SetFocus End If End If If Cmdhapus.Enabled = True Then Call CariData If Not RSPerkiraan.EOF Then TampilkanData pesan = MsgBox("Yakin akan dihapus", vbYesNo) M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxxi If pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Perkiraan where kodePrk= '" & Text1 & "'" Conn.Execute SQLHapus Kondisiawal Cmdrefresh.SetFocus Else Kondisiawal Cmdhapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" Text1.SetFocus End If End If End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End Sub Private Sub Text2_Keypress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Cmdinput.Enabled = True Then Cmdinput.SetFocus ElseIf Cmdedit.Enabled = True Then Cmdedit.SetFocus End If End If End Sub

6. Listing Program Pegawai.frm Dim mvBookMark As Variant Private Sub Form_Activate() Call BukaDB Conn.CursorLocation = adUseClient RSPegawai.Open "select * from Pegawai", Conn With RSPegawai If Not (.BOF And .EOF) Then mvBookMark = .Bookmark End If End With Set DataGrid1.DataSource = RSPegawai.DataSource End Sub Sub Form_Load() Text1.MaxLength = 9 M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxxii Text2.MaxLength = 30 Text3.MaxLength = 20 Kondisiawal End Sub Function CariData() Call BukaDB RSPegawai.Open "Select * From Pegawai where NIP='" & Text1 & "'", Conn End Function Private Sub Text1 = Text2 = Text3 = End Sub

KosongkanText() "" "" ""

Private Sub SiapIsi() Text1.Enabled = True Text2.Enabled = True Text3.Enabled = True End Sub Private Sub TidakSiapIsi() Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False End Sub Private Sub Kondisiawal() KosongkanText TidakSiapIsi Cmdinput.Caption = "&Input" Cmdedit.Caption = "&Edit" Cmdhapus.Caption = "&Hapus" Cmdtutup.Caption = "&Tutup" Cmdinput.Enabled = True Cmdedit.Enabled = True Cmdhapus.Enabled = True End Sub Private Sub TampilkanData() With RSPegawai If Not RSPegawai.EOF Then Text2 = RSPegawai!NamaPgw Text3 = RSPegawai!Bagian End If End With End Sub Private Sub CmdRefresh_Click() M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxxiii If Cmdinput.Caption = "&Simpan" Then Cmdinput.SetFocus ElseIf Cmdedit.Caption = "&Simpan" Then Cmdedit.SetFocus End If Call Kondisiawal Form_Activate End Sub Private Sub CmdInput_click() If Cmdinput.Caption = "&Input" Then Cmdinput.Caption = "&Simpan" Cmdedit.Enabled = False Cmdhapus.Enabled = False Cmdtutup.Caption = "&Batal" SiapIsi KosongkanText Text1.SetFocus Else If Text1 = "" Or Text2 = "" Or Text3 = "" Then MsgBox "Data Belum Lengkap...!" Else Dim SQLTambah As String SQLTambah = "Insert Into Pegawai (NIP,NamaPgw,Bagian) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')" Conn.Execute SQLTambah Cmdrefresh.SetFocus End If End If End Sub Private Sub CmdEdit_Click() If Cmdedit.Caption = "&Edit" Then Cmdinput.Enabled = False Cmdedit.Caption = "&Simpan" Cmdhapus.Enabled = False Cmdtutup.Caption = "&Batal" SiapIsi Text1.SetFocus Else If Text2 = "" Or Text3 = "" Then MsgBox "Masih Ada Data Yang Kosong" Else Dim SQLEdit As String SQLEdit = "Update Pegawai Set NamaPgw= '" & Text2 & "', Bagian='" & Text3 & "' where NIP='" & Text1 & "'" Conn.Execute SQLEdit Cmdrefresh.SetFocus End If M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxxiv End If End Sub Private Sub CmdHapus_Click() If Cmdhapus.Caption = "&Hapus" Then Cmdinput.Enabled = False Cmdedit.Enabled = False Cmdtutup.Caption = "&Batal" KosongkanText SiapIsi Text1.SetFocus End If End Sub Private Sub CmdTutup_Click() Select Case Cmdtutup.Caption Case "&Tutup" Unload Me Case "&Batal" TidakSiapIsi Kondisiawal End Select End Sub Private Sub Text1_Keypress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Len(Text1) < 9 Then MsgBox "Kode Harus 9 Digit" Text1.SetFocus Else Text2.SetFocus End If If Cmdinput.Caption = "&Simpan" Then Call CariData If Not RSPegawai.EOF Then TampilkanData MsgBox "Kode Pegawai Sudah Ada" KosongkanText Text1.SetFocus Else Text2.SetFocus End If End If If Cmdedit.Caption = "&Simpan" Then Call CariData If Not RSPegawai.EOF Then TampilkanData Text1.Enabled = False M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxxv Text2.SetFocus Else MsgBox "Kode Pegawai Tidak Ada" Text1 = "" Text1.SetFocus End If End If If Cmdhapus.Enabled = True Then Call CariData If Not RSPegawai.EOF Then TampilkanData pesan = MsgBox("Yakin akan dihapus", vbYesNo) If pesan = vbYes Then Dim SQLHapus As String SQLHapus = "Delete From Pegawai where NIP= '" & Text1 & "'" Conn.Execute SQLHapus Kondisiawal Cmdrefresh.SetFocus Else Kondisiawal Cmdhapus.SetFocus End If Else MsgBox "Data Tidak ditemukan" Text1.SetFocus End If End If End If If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then KeyAscii = 0 End Sub Private Sub Text2_Keypress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then Text3.SetFocus End Sub Private Sub Text3_Keypress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then If Cmdinput.Enabled = True Then Cmdinput.SetFocus ElseIf Cmdedit.Enabled = True Then Cmdedit.SetFocus End If End If End Sub M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxxvi

7. Listing Program Penggajian.frm 'tampilkan waktu Private Sub Timer1_Timer() LblJam = Time$ End Sub Private Sub Form_Activate() DT.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\ADOGaji.mdb" DT.RecordSource = "Transaksi" Set DataGrid1.DataSource = DT DataGrid1.Refresh 'jika kode kasir tidak terdeteksi tampilkan pesan ...lalu tampilkan form login If LblKodeKsr = "" Then MsgBox "Kasir tidak terdeteksi" Login.Show Exit Sub End If 'kode dan nama kasir diambil dari login LblKodeKsr = Login.TxtKodeKsr LblNamaKsr = Login.TxtNamaKsr 'memanggil nomor slip gaji otomatis Call Auto 'memanggil prosedur agar tabel transaksi dikosongkan Call Tabel_Kosong DT.Recordset.MoveFirst Combo1.SetFocus If DataGrid1.Columns(1) <> vbNullString Then DataGrid1.Col = 3 End Sub Private Sub Form_Load() 'buka database Call BukaDB 'buka tabel perkiraan RSPerkiraan.Open "select * from Perkiraan", Conn RSPerkiraan.Requery List1.Clear 'tampilkan data kode dan nama perkiraan di list Do Until RSPerkiraan.EOF List1.AddItem RSPerkiraan!KodePrk & Space(2) & RSPerkiraan!NamaPrk M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxxvii RSPerkiraan.MoveNext Loop 'buka tabel pegawai RSPegawai.Open "select * from Pegawai", Conn RSPegawai.Requery Combo1.Clear 'tampilkan NIP di combo Do Until RSPegawai.EOF Combo1.AddItem RSPegawai!NIP RSPegawai.MoveNext Loop LblKodeKsr = Login.TxtKodeKsr LblNamaKsr = Login.TxtNamaKsr 'aktifkan tanggal hari ini LblTanggal = Date End Sub Private Sub Auto() Call BukaDB 'baca nomor slip gaji terakhir RSGaji.Open "select * from Gaji Where NomorSlp In(Select Max(NomorSlp)From Gaji)Order By NomorSlp Desc", Conn RSGaji.Requery Dim Urutan As String * 10 Dim Hitung As Long With RSGaji If .EOF Then Urutan = Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) + "0001" LblNomorSlp = Urutan Else If Left(!NomorSlp, 6) <> Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) Then Urutan = Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2) + "0001" Else Hitung = (!NomorSlp) + 1 Urutan = (Right(Date, 2) + Mid(Date, 4, 2) + Left(Date, 2)) + Right("0000" & Hitung, 4) End If End If LblNomorSlp = Urutan End With End Sub 'jika dalam tabel transaksi masih ada data 'hapus data tersebut Function Tabel_Kosong() If Not DT.Recordset.RecordCount = 0 Then DT.Recordset.MoveFirst M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxxviii Do While Not DT.Recordset.EOF DT.Recordset.Delete DT.Recordset.MoveNext Loop End If 'tampilkan 1 nomor transaksi dalam Grid For i = 1 To 1 DT.Recordset.AddNew DT.Recordset!Nomor = i DT.Recordset.Update Next i DataGrid1.Col = 1 End Function 'menambah baris transaksi setelah baris diatasnya diisi Function Tambah_Baris() For i = DT.Recordset.RecordCount To DT.Recordset.RecordCount DT.Recordset.AddNew DT.Recordset!Nomor = i + 1 DT.Recordset.Update Next i End Function Private Sub Combo1_Keypress(KeyAscii As Integer) If KeyAscii = 13 Then If Combo1 = "" Then MsgBox "NIP Kosong" Exit Sub Combo1.SetFocus Else 'cari data gaji berdasarkan NIP dan Bulannya bulan sekarang Call BukaDB RSGaji.Open "Select * from Gaji where Nip='" & Combo1 & "' and cdate(month(tanggal))='" & CDate(Month(LblTanggal)) & "'", Conn 'jika ditemukan tampilkan pesan If Not RSGaji.EOF Then MsgBox "Nip : " & Combo1 & " " & Chr(13) & _ "Nama : " & LblNamaPgw & " " & Chr(13) & _ "Bulan ini telah menerima gaji" Combo1.SetFocus Exit Sub End If DataGrid1.SetFocus End If End If End Sub M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

lxxxix

Private Sub Combo1_Click() Call BukaDB 'cari pegawai berdasarkan NIP RSPegawai.Open "Select * from pegawai where nip='" & Combo1 & "'", Conn 'jika tidak ditemukan munculkan pesan If RSPegawai.EOF Then MsgBox "Nip tidak terdaftar" Combo1.SetFocus Else 'jika ditemukan tampilkan datanya LblNamaPgw = RSPegawai!NamaPgw LblBagian = RSPegawai!Bagian Combo1.SetFocus End If End Sub 'mencari data perkiraan berdasarkan kode yang ada di list Private Sub list1_keyPress(KeyAscii As Integer) If KeyAscii = 13 Then If DataGrid1.SelText <> Left(List1, 3) Then DataGrid1.SelText = Left(List1, 3) Call BukaDB RSPerkiraan.Open "Select * from perkiraan where KodePrk='" & Left(List1, 3) & "'", Conn RSPerkiraan.Requery If Not RSPerkiraan.EOF Then 'jika kode perkiraannya 101, maka pajaknya lansgung terisi 10% 'dari total pendapatan If Left(List1, 3) = "101" Then DT.Recordset!Kode = RSPerkiraan!KodePrk DT.Recordset!Nama = RSPerkiraan!NamaPrk DT.Recordset!Jumlah = LblPendapatan * 0.1 DT.Recordset.Update Call Tambah_Baris DT.Recordset.MoveLast LblPendapatan = Format(GajiKotor, "###,###,###") LblPotongan = Format(Potongan, "###,###,###") LblTotal = Format(GajiKotor - Potongan, "###,###,###") DataGrid1.SetFocus DataGrid1.Col = 1 Else 'jika kodenya bukan 101, maka jumlahnya harus diisi manual DT.Recordset!Kode = RSPerkiraan!KodePrk DT.Recordset!Nama = RSPerkiraan!NamaPrk M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xc DT.Recordset.Update DataGrid1.SetFocus DataGrid1.Col = 3 DataGrid1.Refresh End If End If End If End If End Sub Private Sub DataGrid1_Keypress(KeyAscii As Integer) If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyTab Or KeyAscii = vbKeyReturn) Then KeyAscii = 0 End Sub Private Sub DataGrid1_AfterColEdit(ByVal ColIndex As Integer) If DataGrid1.Col = 1 Then 'cari data perkiraan berdasarkan kode supaya muncul nama perkiraannya Call BukaDB RSPerkiraan.Open "Select * from perkiraan where kodeprk= '" & DT.Recordset!Kode & "'", Conn RSPerkiraan.Requery If RSPerkiraan.EOF Then MsgBox "Kode Perkiraan tidak terdaftar" & Chr(13) & _ "Lihat daftar di kanan " & Chr(13) & _ "Pilih datanya, lalu tekan Enter" List1.SetFocus Exit Sub End If 'jika kode ditemukan tampilkan nama perkirannya DT.Recordset!Kode = RSPerkiraan!KodePrk DT.Recordset!Nama = RSPerkiraan!NamaPrk DataGrid1.SetFocus DataGrid1.Col = 3 Exit Sub End If 'jika jumlah nominal elah diisi, tampilkan total pendapatan 'tampilkan total potongan dan gaji bersihnya If DataGrid1.Col = 3 Then DT.Recordset!Jumlah = DT.Recordset!Jumlah DT.Recordset.Update Call Tambah_Baris DT.Recordset.MoveNext DataGrid1.SetFocus DataGrid1.Col = 1 M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xci DT.Recordset.MoveLast LblPendapatan = Format(GajiKotor, "###,###,###") LblPotongan = Format(Potongan, "###,###,###") LblTotal = Format(GajiKotor - Potongan, "###,###,###") End If End Sub 'encari total pendapatan Function GajiKotor() Set RSGajiKotor = New ADODB.Recordset RSGajiKotor.Open "Select sum(Jumlah) as TTLPendapatan from Transaksi where left(kode,1)=0", Conn GajiKotor = RSGajiKotor!TTLPendapatan End Function 'mencari total potongan Function Potongan() Set RSPotongan = New ADODB.Recordset RSPotongan.Open "Select sum(Jumlah) as TTLPotongan from Transaksi where left(kode,1)=1", Conn Potongan = RSPotongan!TTLPotongan End Function Private Sub Bersihkan() LblNamaPgw = "" LblBagian = "" LblPendapatan = "" LblPotongan = "" LblTotal = "" End Sub Private Sub CmdSimpan_Keypress(KeyAscii As Integer) If KeyAscii = 27 Then DataGrid1.SetFocus End Sub Private Sub CmdSimpan_Click() If Combo1 = "" Then MsgBox "NIP karyawan belum diisi" Combo1.SetFocus Exit Sub ElseIf LblPendapatan = "" Then MsgBox "Data belum lengkap" Exit Sub Else pesan = MsgBox("Data sudah benar..?", vbYesNo, "Konfirmasi") 'simpan data ke tabel gaji pada bagian header dan footer '(disimpan hanya sekali saja) If pesan = vbYes Then M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xcii Dim SimpanGaji As String SimpanGaji = "insert into gaji (NomorSlp,tanggal,jam,nip,pendapatan,potongan,gajibersih, kodeksr) values " & _ "('" & LblNomorSlp & "','" & CDate(LblTanggal) & "','" & LblJam & "', " & _ "'" & Combo1 & "','" & LblPendapatan & "','" & LblPotongan & "', " & _ "'" & LblTotal & "','" & LblKodeKsr & "')" Conn.Execute (SimpanGaji) 'simpan data berulang-ulang ke tabel detailgaji 'yg disimpan adalah nomor slip, kode perkiraan dan jumlah nominalnya DT.Recordset.MoveFirst Do Until DT.Recordset.EOF If DT.Recordset!Kode <> vbNullString Then Dim simpandetail As String simpandetail = "insert into detailgaji(NomorSlp,KodePrk,Jumlah) values " & _ "('" & LblNomorSlp & "','" & DT.Recordset!Kode & "','" & DT.Recordset!Jumlah & "')" Conn.Execute (simpandetail) End If DT.Recordset.MoveNext Loop Bersihkan Form_Activate Call CetakLayar Else DataGrid1.SetFocus End If End If End Sub Private Sub CmdBatal_Click() Bersihkan Form_Activate End Sub Private Sub CmdTutup_Click() CmdBatal_Click Unload Me End Sub

Sub CetakLayar() Tampilkan.Show Dim MGrs As String Tampilkan.Font = "Courier New" 'cari data gaji dengan nomor slip terakhir M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xciii Call BukaDB RSGaji.Open "select * from Gaji Where NomorSlp In(Select Max(NomorSlp)From Gaji)Order By NomorSlp Desc", Conn 'cari data kasir yang kodenya ada di tabel gaji RSKasir.Open "select * from kasir where kodeksr='" & RSGaji!KodeKsr & "'", Conn RSKasir.Requery 'cari data pegawai yang nip-nya ada di tabel gaji RSPegawai.Open "select * from pegawai where NIP='" & RSGaji!NIP & "'", Conn RSPegawai.Requery Tampilkan.Print Tampilkan.FontBold = True Tampilkan.Print Tampilkan.FontBold = False 'cetak nomor slip,tanggal,nip dan seterusnya Tampilkan.Print Tab(5); "Nomor Slip : "; RSGaji!NomorSlp Tampilkan.Print Tab(5); "Tanggal : "; Format(RSGaji!Tanggal, "DD-MMMM-YYYY") Tampilkan.Print Tab(5); "NIP : "; RSGaji!NIP Tampilkan.Print Tab(5); "Nama : "; RSPegawai!NamaPgw Tampilkan.Print Tab(5); "Kasir : "; RSKasir!NamaKsr MGrs = String$(33, "-") 'cetak isi tabel detailgaji berdasarkan nomor slip terakhir Tampilkan.Print Tab(5); MGrs RSDetail.Open "select * from DetailGaji Where NomorSlp In(Select max(NomorSlp)From DetailGaji)", Conn RSDetail.Requery 'If Not RSDetail.EOF Then RSDetail.MoveFirst Do While Not RSDetail.EOF 'Call BukaDB Set RSPerkiraan = New ADODB.Recordset RSPerkiraan.Open "select * from Perkiraan where KodePrk='" & RSDetail!KodePrk & "'", Conn Tampilkan.Print Tab(5); RSPerkiraan!NamaPrk; If Left(RSDetail!KodePrk, 1) = "0" Then 'jika satu digit awal kode perkirannya 0 maka beri tanda plus (+) Tampilkan.Print Tab(25); RKanan(RSDetail!Jumlah, "###,###,### +") Else 'jika satu digit awalnya kode perkiraannya 1 maka deri tanda minus (-) Tampilkan.Print Tab(25); RKanan(RSDetail!Jumlah, "###,###,### -") End If RSDetail.MoveNext Loop M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xciv 'End If Tampilkan.Print Tab(5); MGrs Tampilkan.Print Tab(5); "Pendapatan :"; 'cetak pendatapan Tampilkan.Print Tab(25); RKanan(RSGaji!Pendapatan, "###,###,### +"); Tampilkan.Print Tab(5); "Potongan :"; 'cetak potongan Tampilkan.Print Tab(25); RKanan(RSGaji!Potongan, "###,###,### -"); Tampilkan.Print Tab(5); MGrs Tampilkan.Print Tab(5); "Total :"; 'cetak totalnya (pendapatan -potongan) If RSGaji!Pendapatan = RSGaji!Potongan Then Tampilkan.Print Tab(34); RSGaji!Pendapatan RSGaji!Potongan Else Tampilkan.Print Tab(25); RKanan(RSGaji!Pendapatan RSGaji!Potongan, "###,###,### +"); End If Tampilkan.Print Tab(5); MGrs Tampilkan.Print Tampilkan.Print Tab(5); "ESC = Tutup Form Struk Gaji" Tampilkan.Print Tab(5); "Enter = Cetak Ke Printer" End Sub 'meratakan angka di kanan Private Function RKanan(NData, CFormat) As String RKanan = Format(NData, CFormat) RKanan = Space(Len(CFormat) - Len(RKanan)) + RKanan End Function

8. Listing Program Tampilkan.frm 'program ini hampir sama dengan program transaksi penggajian 'bedanya adalah pencetakan dilakukan ke printer 'cetak ke printer cukup dengan menekan tombol ENTER Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then pesan = MsgBox("Printer sudah siap", vbYesNo) If pesan = vbYes Then Cetakprinter Else Unload Me End If End Sub


xcv Sub Cetakprinter() Dim MGrs As String Printer.Font = "Courier New" 'cari data gaji dengan nomor slip terakhir Call BukaDB RSGaji.Open "select * from Gaji Where NomorSlp In(Select Max(NomorSlp)From Gaji)Order By NomorSlp Desc", Conn 'cari data kasir yang kodenya ada di tabel gaji RSKasir.Open "select * from kasir where kodeksr='" & RSGaji!KodeKsr & "'", Conn RSKasir.Requery 'cari data pegawai yang nip-nya ada di tabel gaji RSPegawai.Open "select * from pegawai where NIP='" & RSGaji!NIP & "'", Conn RSPegawai.Requery Printer.Print Printer.FontBold = True Printer.Print Printer.FontBold = False 'cetak nomor slip,tanggal,nip dan seterusnya Printer.CurrentX = 0 Printer.CurrentY = 0 Printer.Print Tab(5); "Nomor Slip : "; RSGaji!NomorSlp Printer.Print Tab(5); "Tanggal : "; Format(RSGaji!Tanggal, "DD-MMMM-YYYY") Printer.Print Tab(5); "NIP : "; RSGaji!NIP Printer.Print Tab(5); "Nama : "; RSPegawai!NamaPgw Printer.Print Tab(5); "Kasir : "; RSKasir!NamaKsr MGrs = String$(33, "-") 'cetak isi tabel detailgaji berdasarkan nomor slip terakhir Printer.Print Tab(5); MGrs RSDetail.Open "select * from DetailGaji Where NomorSlp In(Select max(NomorSlp)From DetailGaji)", Conn RSDetail.Requery 'If Not RSDetail.EOF Then RSDetail.MoveFirst Do While Not RSDetail.EOF 'Call BukaDB Set RSPerkiraan = New ADODB.Recordset RSPerkiraan.Open "select * from Perkiraan where KodePrk='" & RSDetail!KodePrk & "'", Conn Printer.Print Tab(5); RSPerkiraan!NamaPrk; If Left(RSDetail!KodePrk, 1) = "0" Then 'jika satu digit awal kode perkirannya 0 maka beri tanda plus (+) Printer.Print Tab(25); RKanan(RSDetail!Jumlah, "###,###,### +") Else 'jika satu digit awalnya kode perkiraannya 1 maka deri tanda minus (-) M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xcvi Printer.Print Tab(25); RKanan(RSDetail!Jumlah, "###,###,### -") End If RSDetail.MoveNext Loop 'End If Printer.Print Tab(5); MGrs Printer.Print Tab(5); "Pendapatan :"; 'cetak pendatapan Printer.Print Tab(25); RKanan(RSGaji!Pendapatan, "###,###,### +"); Printer.Print Tab(5); "Potongan :"; 'cetak potongan Printer.Print Tab(25); RKanan(RSGaji!Potongan, "###,###,### -"); Printer.Print Tab(5); MGrs Printer.Print Tab(5); "Total :"; 'cetak totalnya (pendapatan -potongan) If RSGaji!Pendapatan = RSGaji!Potongan Then Printer.Print Tab(34); RSGaji!Pendapatan RSGaji!Potongan Else Printer.Print Tab(25); RKanan(RSGaji!Pendapatan RSGaji!Potongan, "###,###,### +"); End If Printer.Print Tab(5); MGrs Printer.Print Printer.EndDoc End Sub 'meratakan angka di kanan Private Function RKanan(NData, CFormat) As String RKanan = Format(NData, CFormat) RKanan = Space(Len(CFormat) - Len(RKanan)) + RKanan End Function

9. Listing Program Laporan.frm Private Sub Form_Load() 'buatlah looping untuk bulan dari 1-12 'dan tahun mulai tahun 2001 s/d 2020 For i = 1 To 12 Combo1.AddItem i Combo3.AddItem i Next i Combo1.Text = Month(Date) Combo2.Text = Year(Date) For i = 1 To 10 M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xcvii Combo2.AddItem 2000 + i Combo4.AddItem 2000 + i Next i Combo3.Text = Month(Date) Combo4.Text = Year(Date) End Sub Private Sub Command1_Click() 'jika bulan dan tahun masih kosong' 'tampilkan pesan... If Combo1 = "" Or Combo2 = "" Then MsgBox "pilih bulan dan tahun...!" Combo1.SetFocus Exit Sub Else 'buka database Call BukaDB 'cari data yang tanggal dan bulannya dipilih di Combo1 dan Combo2 RSGaji.Open "select * from Gaji where month(tanggal)='" & Val(Combo1) & "' and year(tanggal)='" & (Combo2) & "'", Conn 'jika tidak cocok, munculkan pesan If RSGaji.EOF Then MsgBox "Data tidak ditemukan" Exit Sub Combo1.SetFocus End If 'jika ditemukan panggil file laporan yang 'datanya bulannya=Combo1 dan tahunnya= Combo2 CR.SelectionFormula = "Month({Gaji.Tanggal})=" & Val(Combo1.Text) & " and Year({Gaji.Tanggal})=" & Val(Combo2.Text) CR.ReportFileName = App.Path & "\Lap Gaji.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 End If End Sub Private Sub Command2_Click() If Combo3 = "" Or Combo4 = "" Then MsgBox "pilih bulan dan tahun...!" Combo1.SetFocus Exit Sub Else 'buka database Call BukaDB 'cari data yang tanggal dan bulannya dipilih di Combo1 dan combo4 M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xcviii RSGaji.Open "select * from Gaji where month(tanggal)='" & Val(Combo3) & "' and year(tanggal)='" & (Combo4) & "'", Conn 'jika tidak cocok, munculkan pesan If RSGaji.EOF Then MsgBox "Data tidak ditemukan" Exit Sub Combo1.SetFocus End If 'jika ditemukan panggil file laporan yang 'datanya bulannya=Combo1 dan tahunnya= combo4 CR.SelectionFormula = "Month({Gaji.Tanggal})=" & Val(Combo3.Text) & " and Year({Gaji.Tanggal})=" & Val(Combo4.Text) CR.ReportFileName = App.Path & "\Lap Gaji1.rpt" CR.WindowState = crptMaximized CR.RetrieveDataFiles CR.Action = 1 End If End Sub

10. Listing Program Rincian.frm 'program ini hampir sama dgn pencetakan slip gaji 'bedanya terletak pada pilihan nomor slip dan nip Private Sub CmdCetak_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me End Sub Private Sub Combo1_Keypress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me End Sub Private Sub Form_Load() Call BukaDB Combo1.Clear RSGaji.Open "Select Distinct NomorSlp from Gaji", Conn Do Until RSGaji.EOF Combo1.AddItem RSGaji!NomorSlp RSGaji.MoveNext Loop Conn.Close End Sub Private Sub Combo1_Click() Call BukaDB RSGaji.Open "select * from Gaji where NomorSlp='" & Combo1.Text & "'", Conn M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

xcix RSPegawai.Open "select * from Pegawai where NIP='" & RSGaji!NIP & "'", Conn If Not RSPegawai.EOF Then TxtNIP = RSPegawai!NIP TxtNama = RSPegawai!NamaPgw TxtBagian = RSPegawai!Bagian End If DTDetail.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\ADOGaji.mdb" DTDetail.RecordSource = "select NamaPrk as [Nama Pembayaran],Jumlah from Perkiraan,DetailGaji where DetailGaji.kodePrk=Perkiraan.kodePrk and NomorSlp='" & Combo1.Text & "'" Set DataGrid1.DataSource = DTDetail DTDetail.Refresh DataGrid1.Refresh TxtPendapatan = Format(GajiKotor, "##,###,###") TxtPotongan = Format(Potongan, "##,###,###") TxtTotal = Format(GajiKotor - Potongan, "##,###,###") Conn.Close End Sub Function GajiKotor() Set RSGajiKotor = New ADODB.Recordset RSGajiKotor.Open "Select sum(Jumlah) as TTLPendapatan from DetailGaji where left(kodeprk,1)=0 and NomorSlp='" & Combo1 & "'", Conn GajiKotor = RSGajiKotor!TTLPendapatan End Function Function Potongan() Set RSPotongan = New ADODB.Recordset RSPotongan.Open "Select sum(Jumlah) as TTLPotongan from DetailGaji where left(kodeprk,1)=1 and NomorSlp='" & Combo1 & "'", Conn Potongan = RSPotongan!TTLPotongan End Function Private Sub Bersihkan() TxtNamaPgw = "" TxtBagian = "" TxtPendapatan = "" TxtPotongan = "" TxtTotal = "" End Sub Private Sub CmdBatal_Click() Bersihkan M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

c Form_Activate End Sub Private Sub CmdTutup_Click() CmdBatal_Click Unload Me End Sub Private Sub CmdCetak_click() If Combo1 = "" Then MsgBox "Nomor slip gaji kosong" Exit Sub Combo1.SetFocus End If pesan = MsgBox("Printer sudah siap..?", vbYesNo, "Konfirmasi") If pesan = vbYes Then Dim MGrs As String Printer.Font = "Courier New" Call BukaDB RSGaji.Open "select * from Gaji Where NomorSlp ='" & Combo1 & "'", Conn RSKasir.Open "select * from kasir where kodeksr='" & RSGaji!KodeKsr & "'", Conn RSKasir.Requery RSPegawai.Open "select * from pegawai where NIP='" & RSGaji!NIP & "'", Conn RSPegawai.Requery Printer.Print Printer.FontBold = True Printer.Print Printer.FontBold = False Printer.CurrentX = 0 Printer.CurrentY = 0 Printer.Print Tab(5); "Nomor Slip : "; Printer.Print Tab(5); "Tanggal : "; Format(RSGaji!Tanggal, "DD-MMMM-YYYY") Printer.Print Tab(5); "NIP : "; Printer.Print Tab(5); "Nama : "; Printer.Print Tab(5); "Kasir : "; MGrs = String$(33, "-") Printer.Print Tab(5); MGrs

RSGaji!NomorSlp

RSGaji!NIP RSPegawai!NamaPgw RSKasir!NamaKsr

RSDetail.Open "select * from DetailGaji Where NomorSlp ='" & Combo1 & "'", Conn RSDetail.Requery RSDetail.MoveFirst Do While Not RSDetail.EOF M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

ci Set RSPerkiraan = New ADODB.Recordset RSPerkiraan.Open "select * from Perkiraan where KodePrk='" & RSDetail!KodePrk & "'", Conn Printer.Print Tab(5); RSPerkiraan!NamaPrk; If Left(RSDetail!KodePrk, 1) = "0" Then Printer.Print Tab(25); RKanan(RSDetail!Jumlah, "###,###,### +") Else Printer.Print Tab(25); RKanan(RSDetail!Jumlah, "###,###,### -") End If RSDetail.MoveNext Loop Printer.Print Tab(5); MGrs Printer.Print Tab(5); "Pendapatan :"; Printer.Print Tab(25); RKanan(RSGaji!Pendapatan, "###,###,### +"); Printer.Print Tab(5); "Potongan :"; Printer.Print Tab(25); RKanan(RSGaji!Potongan, "###,###,### -"); Printer.Print Tab(5); MGrs Printer.Print Tab(5); "Total :"; If RSGaji!Pendapatan = RSGaji!Potongan Then Printer.Print Tab(34); RSGaji!Pendapatan RSGaji!Potongan Else Printer.Print Tab(25); RKanan(RSGaji!Pendapatan RSGaji!Potongan, "###,###,### +"); End If Printer.Print Tab(5); MGrs Printer.Print Printer.EndDoc End If End Sub Private Function RKanan(NData, CFormat) As String RKanan = Format(NData, CFormat) RKanan = Space(Len(CFormat) - Len(RKanan)) + RKanan End Function

11. Listing Program About (FormInfo).frm Option Explicit Dim posisi Dim gerak Dim jalan Private Sub Form_Load() DoEvents M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

cii Timer1.Interval = 10 posisi = -2000 Image1.Visible = True gerak = 0 Timer1.Enabled = True End Sub Private Sub Image1_Click() jalan = 0 posisi = -2000 gerak = 0 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If posisi < 4460 And jalan = 0 Then posisi = posisi + 150 End If If posisi < 4460 And jalan = 0 Then Image1.Left = posisi End If If posisi >= 4460 Then gerak = gerak + 1 If gerak = 1 Then GoSub tiny If gerak = 1 Then Image1.Height = 255 If gerak = 1 Then Image1.Width = 495 If gerak = 1 Then Image1.Left = 1440 If gerak = 2 Then Image1.Height = 375 If gerak = 2 Then Image1.Width = 615 If gerak = 3 Then Image1.Height = 495 If gerak = 3 Then Image1.Width = 735 If gerak = 4 Then Image1.Height = 615 If gerak = 4 Then Image1.Width = 855 If gerak = 5 Then Image1.Height = 735 If gerak = 5 Then Image1.Width = 975 If gerak = 6 Then Image1.Height = 855 If gerak = 6 Then Image1.Width = 1095 If gerak = 7 Then Image1.Height = 975 If gerak = 7 Then Image1.Width = 1215 If gerak = 8 Then Image1.Height = 1095 If gerak = 8 Then Image1.Width = 1335 If gerak = 9 Then Image1.Height = 1215 If gerak = 9 Then Image1.Width = 1455 If gerak > 1 Then gerak = gerak + 1 If gerak = 30 Then Timer1.Enabled = False GoTo endit tiny: jalan = jalan + 1 Image1.Height = 60 Image1.Width = 60 M. Yusuf Simatyupang : Sistem Penggajian Radio Most Fm Menggunakan Visual Basic 6.0, 2010.

ciii posisi = posisi - 150 Image1.Left = posisi If posisi <= 1440 Then gerak = 2 If gerak = 2 Then Return endit: End Sub Private Sub Label4_Click() Image1.Left = -2000 Image1.Visible = False posisi = -2000 gerak = 0 jalan = 0 Unload Me End Sub


SISTEM PENGGAJIAN RADIO MOST FM MENGGUNAKAN VISUAL BASIC 6.0 TUGAS AKHIR M. YUSUF SIMATUPANG

Recommend Documents