SISTEM INFORMASI PENJUALAN TIKET PADA CV. MAWAR SELATAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0 TUGAS AKHIR NUR ASIAH

SISTEM INFORMASI PENJUALAN TIKET PADA CV. MAWAR SELATAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0

TUGAS AKHIR

NUR ASIAH 052406094

DEPARTEMEN MATEMATIKA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2008

Nur Asiah : Sistem Informasi Penjualan Tiket Pada CV. Mawar Selatan Dengan Menggunakan Visual Basic 6.0, 2008. USU Repository © 2009

SISTEM INFORMASI PENJUALAN TIKET BUS PADA CV. MAWAR SELATAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0

TUGAS AKHIR

Diajukan untuk melengkapi tugas dan memenuhi syarat mencapai gelar Ahli Madya

NUR ASIAH 052406094

DEPARTEMEN MATEMATIKA FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM UNIVERSITAS SUMATERA UTARA MEDAN 2008

PERSETUJUAN

Judul

Kategori Nama Nomor Induk Mahasiswa Program Studi Departemen Fakultas

: SISTEM INFORMASI PENJUALAN TIKET BUS PADA CV. MAWAR SELATAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0 : TUGAS AKHIR : NUR ASIAH : 052406094 : DIPLOMA (D3) ILMU KOMPUTER : MATEMATIKA : MATEMATIKA DAN ILMU PENGETAHUAN ALAM (FMIPA) UNIVERSITAS SUMATERA UTARA Diluluskan di Medan, Juni 2008

Diketahui/Disetujui oleh Departemen Matematika FMIPA USU Ketua, Pembimbing,

Dr. Saib Suwilo, M.Sc.

NIP 131796149

NIP 131831527

PERNYATAAN

SISTEM INFORMASI PENJUALAN TIKET BUS PADA CV. MAWAR SELATAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0

TUGAS AKHIR

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

Medan, Juni 2008

NUR ASIAH 052406094

PENGHARGAAN

Puji dan syukur saya ucapkan kepada Allah SWT yang telah memberikan rahmat dan hidayah-Nya serta kesempatan dan kesehatan hingga akhirnya saya dapat menyelesaikan tugas akhir ini dan diselesaikan tepat pada waktunya sesuai dengan instruksi dan peraturan yang berlaku di Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara. Tugas akhir ini disusun sebagai salah satu syarat untuk menyelesaikan pendidikan Diploma III Ilmu Komputer Fakultas Matematika dan Ilmu Pengetahuan Alam, Universitas Sumatera Utara. Selama penulisan tugas akhir ini, penulis menyadari bahwa banyak terdapat kesalahan-kesalahan yang mungkin terjadi, baik dari segi teknik, tata penyajian ataupun dari segi tata bahasa. Oleh karena itu penulis bersedia menerima kritik dan saran dari pembaca dalam upaya perbaikan tugas akhir ini. Dalam kesempatan ini penulis ingin menyampaikan ucapan terima kasih kepada Ibu Dra. Normalina Napitupulu, M.Sc, selaku pembimbing pada penyusunan tugas akhir ini yang telah banyak memberikan bimbingan dan pengarahan kepada penulis selama menyusun tugas akhir ini. Ucapan terima kasih juga saya tujukan kepada Ketua dan Sekretaris Departemen Dr. Saib Suwilo, M.Sc. dan Drs. Henri Rani Sitepu, M.Si, Dekan dan Pembantu Dekan Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara, semua dosen pada Departemen Matematika Fakultas Matematika dan Ilmu Pengetahuan Alam Universitas Sumatera Utara, pegawai di FMIPA USU, dan rekan-rekan kuliah khususnya Supiani, Khoiriyani, Santi Nasution, dan Sri Suli Yanti dan juga anak kos Pembangunan no. 12. Akhirnya, tidak terlupakan kepada ayahanda, ibunda dan semua ahli keluarga yang selama ini banyak memberikan dukungan baik secara moril maupun materil sehingga penulis dapat menyelesaikan tugas akhir ini. Semoga Allah SWT akan membalasnya.

ABSTRAK

Perkembangan teknologi khususnya komputer pada saat ini mempunyai peranan yang sangat penting dalam kehidupan di masyarakat. Teknologi yang berkembang sesuai tuntutan zaman diharapkan menjadi sarana penunjang untuk menangani permasalahan yang timbul dalam mengelola dan menyelesaikan permasalahan yang ada di perusahaan atau organisasi. Begitu juga dengan CV. Mawar Selatan, diharapkan dapat menyediakan informasi yang tepat dan akurat dalam mendata penumpang secara on-line. Sistem yang sedang berjalan pada CV. Mawar Selatan saat ini belum sepenuhnya menggunakan sistem komputerisasi. Oleh sebab itu penulis mencoba merancang sebuah sistem informasi tentang penjualan tiket. Dengan adanya sistem informasi ini diharapkan CV. Mawar Selatan ini dapat menyediakan informasi yang lebih cepat dan akurat pada calon penumpang yang akan membeli tiket. Sistem Informasi ini dirancang dengan menggunakan bahasa pemrograman visual basic 6.0. Sistem Informasi ini dirancang sedemikian rupa agar dapat menarik minat calon penumpang dalam memperoleh informasi yang lebih cepat dan akurat serta menarik. Sistem Informasi ini bersifat dinamis, yaitu berarti bahwa informasi yang diberikan tersebut dapat berubah sewaktu-waktu berdasarkan keadaan yang sedang terjadi.

DAFTAR ISI

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

ii iii iv v vi viii ix x 1 1 3 4 4 5 5

Bab 2 Landasan Teori 2.1 Pengertian Komputer 2.2 Pengertian Data, Database, Sistem, Informasi dan Sistem Informasi 2.2.1 Data 2.2.2 Database 2.2.3 Sistem 2.2.4 Informasi 2.2.5 Sistem Informasi 2.3 Visual Basic 6.0 2.3.1 Layar Utama Visual Basic 6.0 2.3.2 Komponen Utama Visual Basic 6.0 2.3.3 Operator 2.3.4 Variabel 2.3.5 Konstanta 2.3.6 Format Pemograman Visual Basic 6.0

8 8 10 10 11 14 14 15 15 16 17 22 27 27 28

Bab 3 Perancangan Sistem 3.1 Perancangan Struktur Database 3.1.1 Tabel Database Bus 3.1.2 Tabel Database Jual 3.1.3 Algoritma Program

29 29 29 30 31

Bab 4 Implementasi Sistem 4.1 Pengertian Implementasi Sistem 4.2 Tujuan Implementasi Sistem

36 36 36

4.3 Komponen Utama Dalam Implementasi Sistem 4.3.1 Hardware 4.3.2 Software 4.3.3 Brainware (Unsur Manusia) 4.4 Pengujian Sistem 4.5 Pemeliharaan Sistem Bab 5 Kesimpulan dan Saran 5.1 Kesimpulan 5.2 Saran Daftar Pustaka Lampiran

37 37 38 38 39 40 41 41 41

DAFTAR TABEL

Halaman Tabel 2.1 Tabel 2.2 Tabel 2.3 Tabel 2.4 Tabel 2.5 Tabel 2.6 Tabel 2.7 Tabel 2.8 Tabel 2.9 Tabel 3.1 Tabel 3.1

Operator Aritmatika Operator Perbandingan Hierarki Logika Logika Not Logika And Logika Or Logika Xor Logika Eqv Logika Imp Struktur Database Bus Struktur Database Jual

23 24 24 25 25 25 26 26 27 30 31

DAFTAR GAMBAR

Halaman Gambar 2.1 Gambar 2.2 Gambar 2.3 Gambar 2.4 Gambar 2.5 Gambar 2.6 Gambar 2.7 Gambar 2.8 Gambar 2.9 Gambar 2.10

Hierarki Data Kotak Dialog New Project Layar Utama Visual Basic 6.0 Jendela Utama Jendela Form Jendela Project Toolbox Jendela Propertis Jendela Layout Form Jendela Kode

13 16 17 18 18 19 20 21 21 22

DAFTAR ISTILAH

Analisa

Brainware Data Database Field File Hardware Implementasi Informasi Input Komputer

Output

Record Sistem Software

: mempelajari masalah dan lingkungan masalah yang diperbaiki serta mengajukan alternatif dari penyelesaian masalah. : perangkat operator. : kenyataan yang digambarkan oleh nilai – nilai, bilanganbilangan dan simbol-simbol yang mempunyai arti tertentu. : kumpulan file yang saling berhubungan satu dengan yang lainnya. : atribut dari record yang menunjukkan suatu item dari data. : kumpulan dari record yang saling terkait dan memiliki format field yang sama dan sejenis. : perangkat keras. : menulis, menguji dan mendebug program-program komputer serta mengonversi ke sistem baru atau sistem yang dipakai. : data yang sudah diolah untuk tujuan tertentu dalam pengambilan keputusan. : komponen penggerak atau pemberi tenaga di mana sistem itu dioperasikan. : suatu rangkaian peralatan elektronik yang menerima data dan menggolongkannya secara otomatis untuk mengatasi berbagai masalah serta menghasilkan informasi. : hasil operasi dari suatu sistem atau informasi yang dihasilkan oleh program aplikasi yang akan digunakan oleh para pemakai sebagai bahan pengambilan keputusan. : kumpulan field yang menggambarkan suatu unit data individu tertentu. : satu kesatuan yang terdiri dari sub-sub sistem yang saling berhubungan untuk mencapai suatu tujuan. : perangkat lunak

BAB 1

PENDAHULUAN

1.1. Latar Belakang

Dewasa ini perkembangan ilmu pengetahuan dan teknologi sudah semakin cepat, salah satunya adalah dibidang komputer. Saat ini komputer memegang peranan penting dalam mempermudah penyelesaian suatu pekerjaan, meningkatkan efisiensi kerja serta meningkatkan kreatifitas dan aktifitas pegawai atau karyawan sehingga memiliki skill atau kemampuan yang bagus. Hal ini dibuktikan dengan banyaknya perusahaan atau instansi pemerintah yang menggunakan sistem komputerisasi sebagai alat bantu untuk mempermudah pekerjaan dan menjadikan perusahaan atau instansi pemerintah memiliki mutu yang tinggi.

Seiring dengan perkembangan teknologi yang begitu pesat, kebutuhan akan informasipun sangat diperlukan terlebih lagi informasi yang dihasilkan mengandung nilai yang benar, akurat, cepat dan tepat, sehingga siapapun dan apapun yang menggunakan informasi tersebut dapat menangani berbagai masalah yang terjadi dengan cepat.

Dengan perkembangan sistem informasi yang begitu pesatnya memungkinkan untuk melakukan pengolahan data yang hemat ruang, waktu dan biaya, namun dapat

menghasilkan suatu informasi yang sangat berguna dan bermanfaat. Kemampuan mengolah data dan menggunakan informasi secara efektif merupakan hal yang sangat penting bagi suatu perusahaan transportasi. Dalam perusahaan transportasi salah satu langkah utama dalam memudahkan sistem informasi pengolahan data penumpang, pembelian tiket, dan pembayaran tiket.

Pengolahan data yang tepat akan menghasilkan keuntungan yang besar sekali bagi perusahaan transportasi. Tetapi jika pengolahan datanya masih dilakukan secara manual, terkadang hasil yang diperolehpun tidak memuaskan karena satu hal yaitu kemampuan manusia dan olah pikirnya yang terbatas. Maka perlu diciptakan suatu sistem yang mampu memberikan daya tarik perusahaan untuk mencapai keunggulan yang kompetitif. Sistem tersebut harus dirancang untuk kemudian diaplikasikan kepada bidang yang membutuhkan sehingga terjadilah komputerisasi terhadap data yang ada.

Dari perkembangan teknologi tersebut, maka dibutuhkan perancangan suatu sistem untuk pengolahan informasi yang dapat memudahkan proses pengolahan data penumpang yang selama ini yang masih dikerjakan secara manual. Perancangan sistem tersebut dapat dilakukan dengan menggunakan beberapa bahasa pemrograman diantaranya Microsoft Visual Basic, Visual Database.

Dalam hal ini penulis mencoba membuat suatu sistem informasi penjualan tiket bus yang terkomputerisasi dimana pengolahan data-data penumpang dan pembayarannya diproses dengan menggunakan komputer. Untuk merancang suatu sistem informasi tersebut, penulis menggunakan bahasa pemrograman Visual Basic

dalam perancangan sistem. Hal ini disebabkan karena Visual Basic merupakan bahasa pemrograman yang handal untuk membuat suatu aplikasi dalam Microsoft Windows. Visual Basic juga memudahkan pemrogram untuk berinteraksi langsung dengan elemen-elemen (komponen-komponen) untuk setiap program.

Berdasarkan uraian diatas penulis merasa tertarik untuk menulis Tugas Akhir tentang sistem informasi penjualan tiket yang mengolah data-data penumpang dan pembayarannya. Dan karenanya penulis mengangkat sebuah judul yaitu : “SISTEM INFORMASI PENJUALAN TIKET BUS CV. MAWAR SELATAN DENGAN MENGGUNAKAN VISUAL BASIC 6.0”.

1.2. Identifikasi Masalah

Setiap perusahaan maupun instansi pada umumnya mempunyai masalah dalam menjalankan kegiatan operasinya, baik perusahaan kecil maupun perusahaan besar, dan juga apakah instansi pemerintah atau swasta. Setiap masalah yang ada harus diatasi sedini mungkin jika instansi ingin tetap mempertahankan dan mengembangkan sistemnya supaya lebih cepat dan akurat.

Berdasarkan uraian permasalahan pada latar belakang masalah, maka yang menjadi permasalahan pada Tugas Akhir ini adalah bagaimana merancang suatu sistem informasi yang efisien dan efektif untuk mengolah data-data penumpang dan pembayaran tiket sehingga menghasilkan informasi penjualan tiket.

1.3. Batasan Masalah

Adapun yang menjadi batasan masalah pada sistem informasi penjualan tiket bus pada CV. Mawar Selatan agar pembahasan tidak menyimpang dari tujuan adalah : 1. Program ini hanya dapat diaplikasikan untuk membantu kelancaran dalam pendataan penumpang, data tiket, data bus dan data jadwal keberangkatan. 2. Yang dapat didata hanya data penumpang yang berangkat dari stasiun keberangkatan bus. 3. Data ini mencetak data penumpang dan data-data pembayaran tiket bus.

1.4. Maksud dan Tujuan

Adapun maksud penulis mengadakan penelitian pada CV. Mawar Selatan adalah : 1. Mengumpulkan data sebagai bahan penunjang untuk menemukan cara yang tepat dalam merancang suatu sistem yang menangani pengolahan data penumpang sesuai dengan kebutuhan dan permasalahan yang ada dengan bantuan sistem aplikasi Microsoft Visual Basic 6.0. 2. Mempermudah pendataan dalam mencari data, baik data penumpang maupun data pembayaran tiket. 3. Mencari dan mengetahui masalah serta kelemahan-kelemahan yang dihadapi oleh CV. Mawar Selatan.

Tujuan utama diadakan serta dilakukannya penelitian ini adalah untuk merancang serta mengimplementasikan suatu sistem informasi penjualan tiket bus pada CV. Mawar Selatan. Gunanya untuk mempermudah dan memperlancar kegiatan-

kegiatan di dalam pengolahan data sistem informasi data penumpang. Secara khusus dilakukannya penelitian ini bertujuan antara lain untuk : 1. Membangun sistem informasi untuk mengkomputerisasi sistem yang berjalan pada saat ini. 2. Mempermudah mendokumentasikan sistem informasi data penumpang, data tiket dan pembayarannya. 3. Mempermudah pencarian data sesuai informasi yang diperlukan. 4. Memberikan informasi yang cepat kepada calon pembeli tiket bus. 5. Mempermudah penginputan data.

1.5. Metode Penelitian

Untuk menyelesaikan Tugas Akhir ini, penulis melakukan beberapa metodologi penelitian untuk memecahkan masalah tersebut. Adapun metode-metode penelitian dalam pengumpulan data adalah : 1. Penelitian Lapangan (Field Research) Metode penelitian ini dilakukan langsung pada objek penelitian, data serta keterangan yang dikumpulkan dilakukan dengan cara : a. Pengamatan (Observation) Dalam hal ini penulis melakukan pengamatan untuk mendapatkan data secara umum dengan melihat langsung, mengamati dan mencatat sistem yang sedanng berjalan saat ini serta melihat format-format yang dilakukan selama ini.

b. Wawancara (Interview) Dalam hal ini penulis melakukan wawancara untuk melengkapi bahan yang sudah ada selama observasi. Penulis melakukan tanya jawab kepada karyawan yang berkaitan dengan sistem yang sedang diteliti. 2. Penelitian Kepustakaan (Library Research) Penelitian kepustakaan adalah penelitian dengan sumber-sumber kepustakaan. Penelitian ini dimaksudkan untuk mendapatkan landasan teori yang memadai dalam penyusunan Tugas Akhir ini. Dalam hal ini, data dan keterangan dikumpulkan dari sumber-sumber seperti buku-buku teks, bacaan-bacaan, bahanbahan perkuliahan serta materi-materi lainnya yang berhubungan dengan masalah yang ditinjau dalam penyusunan Tugas Akhir ini.

1.6. Sistematika Penulisan

Adapun maksud dan tujuan sistematika penulisan Tugas Akhir ini adalah untuk memudahkan penulis dalam membuat dan menyelesaikan permasalahan yang dianalisis sehingga lebih terarah dan terfokus dan tidak menyimpang dati ruang lingkup batasan masalah. Adapun sistematika penulisan Tugas Akhir ini adalah : BAB 1

: PENDAHULUAN Dalam bab ini penulis menjelaskan mengenai latar belakang masalah yang membahas permasalahan secara umum, identifikasi masalah yang membahas judul dan topik permasalahan, maksud dan tujuan yang berkaitan dengan topik permasalahan, dan batasan masalah yang membatasi permasalahan yang dibahas, metode penelitian dan sistematika penulisan.

BAB 2

: LANDASAN TEORI Pada bab ini penulis membahas tentang pengertian komputer, data, database, sistem, informasi, dan sistem informasi, serta uraian singkat mengenai bahasa pemrograman visual basic 6.0.

BAB 3

: PERANCANGAN SISTEM Pada bab ini penulis menjelaskan tentang pembuatan algoritma dan perancangan struktur database, perancangan program yang meliputi perancangan input dan output yang akan dibuat pada sistem informasi penjualan tiket bus dengan menggunakan bahasa pemrograman visual basic 6.0.

BAB 4

: IMPLEMENTASI SISTEM Pada bab ini penulis menjelaskan tentang defenisi implementasi sistem, tujuan implementasi sistem, komponen yang dibutuhkan dalam implementasi sistem, pengujian sistem dan pemeliharaan sistem.

BAB 5

: KESIMPULAN DAN SARAN Pada bab ini merupakan bab terakhir yang mencakup kesimpulan dan saran.

BAB 2

LANDASAN TEORI

2.1. Pengertian Komputer

Istilah komputer berasal dari bahasa Inggris “To Compute” yang artinya menghitung, tetapi istilah komputer diambil dari bahasa latin yaitu “Computare” yang mempunyai arti menghitung. Karena adanya pengertian hitung-hitungan ini sehingga banyak orang mengatakan bahwa mempelajari dan menggunakan komputer hanya sebatas kepada mereka yang memiliki pengetahuan matematika yang tinggi saja.

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

Pengertian komputer adalah suatu alat elektronik yang dapat menerima input data kemudian mengolah (memproses) data input tersebut sesuai dengan program yang tersimpan dimemori komputer (stored program) kemudian secara otomatis menyimpan perintah-perintah atau program serta hasil pengolahan data tersebut sehingga dapat memberikan output dalam bentuk informasi.

Tugas utama komputer adalah untuk mengolah data sehingga diperoleh hasil output yang diinginkan. Sehingga kegunaan komputer adalah untuk membantu memecahkan berbagai masalah terutama yang rumit dan banyaknya jumlah data yang akan diolah dan juga digunakan untuk mengolah data, menyimpan data, media komunikasi dan alat informasi.

Adapun komponen-komponen yang dimiliki komputer yaitu : 1. Hardware (Perangkat Keras) Hardware (Perangkat Keras) adalah komponen-komponen yang membentuk suatu sistem komputer yang berhubungan dengan komponen lainnya, sehingga memungkinkan komputer dapat melakukan tugasnya. Perangkat keras ini terdiri dari 3 (tiga) jenis yaitu perangkat masukan (input device), perangkat pengolah (processor) dan perangkat keluaran (output device). 2. Software (Perangkat Lunak) Software (Perangkat Lunak) adalah komponen dalam sistem komputer berupa program untuk mengatur hubungan antara hardware dan brainware serta mengawasi seluruh kegiatan CPU. Dengan adanya software ini barulah komputr dapat dipergunakan sesuai kebutuhan. Fasilitas software ini terdiri dari sistem desain, program-program dan prosedur-prosedur. 3. Brainware (Tenaga Pelaksana) Brainware adalah user (manusia) yang terlibat langsung didalam pengoperasian komputer dan yang akan melaksanakan semua kegiatan-kegiatan yang berhubungan dengan hardware dan software. User (manusia) yang terlibat langsung dalam sistem komputer dikategorikan dalam berbagai tingkatan, yaitu :

a. Operator Operator adalah user (manusia) yang bekerja mengoperasikan komputer untuk memasukkan data atau menjalankan program yang sudah ada. b. Programmer Programmer adalah user (manusia) yang bertugas membuat program atau software berdasarkan ketentuan yang sudah ada, meliputi : •

Menganalisa dan membuat program

•

Membuat flowchart atau algoritma

•

Memeriksa dan memperbaiki kesalahan program.

c. Sistem Analis Sistem analis adalah user (manusia) yang bertugas mempelajari, menganalisa serta merancang sistem program untuk suatu masalah. Ketiga komponen tersebut harus saling berhubungan dan membentuk satu kesatuan. Hardware tanpa adanya software, maka tidak akan berfungsi hanya seperti benda mati saja karena yang akan mengoperasikan adalah hardwarenya. Hardware yang sudah didukung software juga tidak akan berfungsi kalau tidak ada manusia yang mengoperasikannya.

2.2. Pengertian Data, Database, Sistem, Informasi dan Sistem Informasi

2.2.1. DATA

Menurut J. Longkutoy : “ Istilah data adalah suatu istilah majemuk dari kata datum yang berarti fakta atau bagian dari fakta yang mengandung arti yang dihubungkan

dengan kenyataan, kata-kata, simbol-simbol yang menunjukkan suatu ide, objek, kondisi, atau situasi dan lain-lain”. Proses pengolahan data ada tiga, yaitu : 1. Pada tahapan input Yaitu dilakukan proses pemasukan data kedalam proses kmputer lewat alat input (input device). 2. Pada tahapan processing Yaitu dilakukan proses pengolahan data yang sudah dimasukkan, yang dilakukan oleh alat pemroses (process device) yang dapat berupa proses perhitungan, perbandingan, pengendalian atau pencarian di storage (penyimpanan). 3. Pada tahapan output Yaitu dilakukan proses menghasilkan output dari hasil pengolahan data ke alat output (output device) yaitu berupa informasi.

2.2.2. DATABASE

Database (basis data) adalah suatu pengorganisasian sekumpulan data yang saling terkait sehingga memudahkan aktivitas untuk memperoleh informasi. Database dimaksudkan untuk mengatasi problem pada sistem yang memakai pendekatan yang berbasis berkas. Selain itu database dapat diartikan sebagai kumpula n file-file yang mempunyai kaitan antara satu dengan file yang lain sehingga membentuk data untuk menginformasikan satu perusahaan dan instansi.

Bila terdapat file yang tidak dapat dipadukan atau dihubungkan dengan file yang lainnya, berarti file tersebut bukanlah kelompok dari satu database, melainkan membentuk database sendiri. Database juga merupakan landasan bagi pembuatan dan pengembangan program apliaksi. Oleh sebab itu, database harus dibuat sedemikian rupa sehingga pembuatan program lebih mudah dan cepat.

Database merupakan salah satu komponen yang penting dalam sistem informasi, karena merupakan basis dalam menyediakan informasi bagi para pemakai. Penerapan database dalam sistem informasi disebut dengan database sistem. Database terdiri dari data yang akan digunakan untuk diperuntukkan terhadap banyak user, dari masing-masing user akan menggunakan data tersebut sesuai dengan tugas dan fungsinya.

Adapun hierarki data adalah : 1. Bit adalah bagian terkecil dari data secara keseluruhan, yaitu berupa karakter ASCII nol atau satu yang merupakan komponen byte. 2. Byte adalah atribut dari field yamg berupa karakter yang membentuk nilai dari sebuah field. 3. Field adalah suatu atribut dari record yang menunjukkan suatu item dari sebuah field. 4. Record adalah kumpulan dari field yang menggambarkan satu unit data individu tertentu. 5. File adalah kumpulan dari record yang salig berhubungan antara field yang satu ke field yang lain.

6. Database adalah kumpulan dari beberapa file atau tabel yang mempunyai kaitan antara file yang satu dengan file yang lainnya.

Bit

Byte

Field

Record

File

Database

Gambar 2.1 Hierarki Data

Setiap manajemen dalam merancang dan menyusun database harus mempunyai tujuan. Adapun tujuan dari database tersebut adalah membuat agar user mudah mendapatkan data, menyediakan tempat penyimpanan data yang relevan, menghapus

data

yang

berlebihan,

melindungi

data

dari kerusakan

fisik,

memungkinkan perkembangan lebih lanjut didalam sistem database.

Adapun cirri-ciri dari database tersebut diantaranya adalah merupakan sistem yang dapat menyimpan data kedalam floppy disk atau harddisk, juga sistem yang menganut pengolahan data untuk ditambah, diubah atau dihapus dengan mudah dn terkontrol serta data terpisah dari program.

Keuntungan dari database adalah kemubajiran data terkurangi, integritas data dapat selalu terjaga, berbagai data dapat selalu dilakukan oleh setiap user, penggunaan data lebih mudah, dan konsistensi data dapat selalu terjaga.

2.2.3. SISTEM

Sistem adalah merupakan sekelompok elemen-elemen yang terintegrasi dengan maksud yang sama untuk mencapai tujuan (menurut Meteod).

Sistem adalah suatu sistem dapat terdiri atas kegiatan yang berhubungan guna mencapai tujuan-tujuan perusahaan seperti pengendalian inventaris atau penjadwalan produksi (menurut Norman L. Enger).

Sistem adalah suatu sistem yang terdiri atas objek-objek atau unsure atau komponen-komponen yang berkaitan dan berhubungan satu sama lain sedemikian rupa sehingga unsure-unsur tersebut merupakan satu kesatuan pemrosesan yang tertentu (menurut Prof. Dr. Mr. S Prajudi Almosudirdjo).

2.2.4. INFORMASI

Informasi merupakan hasil pengolahan data yang lebih berguana dan berarti bagi yang menerimanya untuk mencapai suatu tujuan tertentu. Informasi adalah data yang telah disusun sedemikian rupa sehingga bermakna dan bermanfaat karena dapat dikomunikasikan kepada seseorang yang akan menggunakannya untuk membuat keputusan. Informasi dapat bermanfaat jika informasi itu adalah informasi yang

akurat, informasi yang lengkap, informasi yang relevan, dan informasi yang tepat waktu.

2.2.5. SISTEM INFORMASI

Sistem informasi adalah suatu himpunan komponen sistematik dan formal yang melakukan operasi pengolahan data untuk meningkatkan pemahaman atau mengurangi ketidakpastian terhadap suatu data atau fakta-fakta yang akan dilaporkan, memberikan berbagai laporan seperti yang diinginkan oleh pihak yang membutuhkan informasi tersebut serta memberikan kepada pihak manajemen untuk menunjang perencanaan, pengawasan, dan pengambilan keputusan.

2.3. Visual Basic 6.0

Visual basic 6.0 merupakan sebuah program aplikasi yang bekerja pada sistem operasi windows. Visual basic 6.0 dapat membuat program aplikasi menjadi lebih mudah dan cepat dengan menggunakan metode General User Interface (GUI). Salah satu yang dimiliki oleh Microsoft Visual Basic 6.0 adalah kemudahan pemakaian. Dengan bahasa yang mudah dan menyenangkan ini, dapat dibuat apapn sesuai kebutuhan. Jika dibandingkan dengan Bahasa C++, Visual Basic masih jauh tertinggal dalam beberapa hal, namun dengan hadirnya versi terbaru yaitu Visual Basic 6.0 yang mempunyai fasilitas yang berlebih sehingga bisa mencukupi kebutuhan pemakai.

Sebagai program yang berbasis Windows, Visual Basic 6.0 mempunyai kemampuan untuk berinteraksi dengan seluruh aplikasi windows seperti Microsoft

Word, Microsoft Exel, Microsoft Access, dan sebagainya. Visual Basic 6.0 juga menjadi salah satu bahasa pemograman yang wajib dipelajari oleh berbagai kalangan jika ingin sukses di dunia komputer dan cenderung lebih banyak digunakan.

2.3.1. Layar Utama Visual Basic 6.0

Dalam tampilan layer Visual Basic terdapat komponen-komponennya. Komponenkomponen yang akan dibahas ini hanya dasar-dasar yang bersifat umum. Untuk mengaktifkan layer utama caranya adalah dengan menginstall Visual Basic 6.0, setelah itu pilih menu atau klik tombol Start>Program>Microsoft Visual Studio 6.0>Microsoft Visual Basic 6.0, maka akan muncul tampilan sebagai berikut :

Gambar 2.2 Kotak Dialog New Project

Untuk menampilakan layer utama Visual Basic 6.0, kita pillih Standar EXE kemudian klik tombol Open maka akan muncul tampian layer utama Visual Basic 6.0 sebagai berukut :

Gambar 2.3 Layar Utama Visual Basic 6.0

2.3.2. Komponen Utama Visual Basic 6.0

1. Main Windows (Jendela Utama) Main Windows (jendela utama terdiri dari titlebar (baris judul), menubar dan toolbar. Baris judul berisi nama proyek, mode operasi Visual Basic sekarang dan form yang akrif. Menubar merupakan menu drop-down dimana kita dapat mengontrol operasi dari lingkungan Visual Basic. Toolbar berisi kumpulan gambar yang mewakili perintah yang ada dimenu. Jendela utama

juga menampilkan lokasi dari form yang aktif relatif terhadap sudut kiri atas layar (satuan ukurannya twips), juga lebar dan panjang dari form yang aktif. Titlebar

Toolbar

Menubar Gambar 2.4 Jendela Utama

2. Form Windows (Jendela Form) Form windows (jendela form) adalah pusat dari pengembangan aplikasi Visual Basic. Jendela Form digunakan untuk menggambarkan aplikasi. Secara otomatis akan tersedia form yang baru bila akan membuat program aplikasi yang baru, yaitu dengan nama Form 1. Umumnya dalam suatu form terdapat garis titik-titik yang disebut Grid. Untuk lebih memahami form ini maka dibawah ini terdapat gambar jendela form.

Gambar 2. 5 Jendela Form

3. Project Windows (Jendela Project) Project Windows (jendela project) menampilkan daftar form dan modul proyek. Proyek merupakan kumpulan dari modul form, modul class, modul standar, dan file sumber yang membentuk suatu aplikasi. Jendela project juga menampilkan daftar hierarkis dari file proyek yang berekstensi .VBP dan file-file pendukung lainnya (form dengan ekstensi .FRM, modul dengan ekstensi .BAS, class dengan ekstensi .CLS) yang terdapat dalam program aplikasi.

Gambar 2.6 Jendela Project

4. Toolbox Toolbox adalah kumpulan dari objek yang digunakan untuk membuat user interface (pemakai) serta kontrol bagi program aplikasi. Ada dua cara untuk menempatkan kontrol pada suatu form, yaitu : 1. Klik ganda kontrol dalam toolbox, selanjutnya kita dapat mengubah besar dan ukurannya serta memindahkannya dengan metode frog and drop. 2. Klik kontrol dalam toolbox, kemudian pindahkan pointer mouse pada jendela form. Kursor berubah menjadi crosshair. Tempatkan crosshair

pada sudut kiri atas dimana anda inginkan control diletakkan, tekan tombol mouse kiri dan tahan ketika menyeret (drog) kursor kea rah sudut kanan bawah.

Pointer

Image

Label

Textbox

Frame

Command Button

Check Box

Option Button

Combo Box

List Box

HScroll Bar

VScroll Bar

Timer

Drive List Box

Dir List Box

File List Box

Shape

Line

Image

Data

OLE (Object Linking and Embedding)

Gambar 2.7 Toolbox

5. Properti Windows (Jendela Properti) Properti Windows (Jendela Properti) berisi daftar struktur setting (pengaturan) properti yang digunakan pada sebuah objek terpilih. Kotak drop-down pada bagian atas jendela berisi daftar semua objek pada form

yang aktif. Ada dua tab tampilan, yaitu alphabetic (urut abjad) dan categorized (urut berdasar kelompok).

Gambar 2.8 Jendela Properties

6. Form LayoutWindows (Jendela Layout Form) Form layout windows (jendela layout form) menampilkan relatif terhadap layar monitor.

Gambar 2.9 Jendela Layout Form

7. Code Windows (Jendela Code) Jendela kode adalah tempat penulisan kode-kode program aplikasi. Kode program adalah serangkaian tulisan perintah yang dilaksanakan jika susatu suatu objek.

Gambar 2.10 Jendela Kode

2.3.3. Operator

Untuk melakukan berbagai manipulasi dan pengolahan data MS-Visual Basic 6.0 menyediakan barbagai macam operator, adapun operator tersebut adalah : 1. Operator Penugasan (Assignment Operator) Operator penugasan disimbolkan dengan tanda sama dengan (=) dan berfungsi untuk memasukkan suatu data ke dalam suatu variable. Penulisannya : = <Ekspresi> Contoh : bilangan = 1, harga = 1 Jumlah = banyak * harga

2. Operator Aritmatika Operator aritmatika ini digunakan untuk melakukan operasi aritmatika. Operasi aritmatika mempunyai hierarki paling tinggi dibanding operator lain, yaitu operator perbandingan dan operator logika, maka didahulukan operasinya

adalah

operator

aritmatika,

dilanjutkan

dengan

operator

perbandingan dan terakhir operator logika. Operator aritmatika sendiri memiliki hierarki dari setiap operator yang tergolong operator aritmatika. Berikut ini tabel operator aritmatika : Tabel 2.2 Operator Arimatika Hierarki

Operator

Operasi

1.

^

Pemangkatan

2.

-

Tanda Negatif

3.

*/

4.

\

5.

Mod

6.

+-

Penambahan dan Pengurangan

7

+&

Penggabungan String

Perkalian dan Pembagian Pembagian Integer Modulus (sisa pembagian)

3. Operator Perbandingan Operator perbandingan digunakan untuk membandingkan suatu data dengan data lain yang menghasilkan nilai logika benar atau salah. Tentu saja antara dua data yang dibandingkan harus mempunyai tipe data yang sama. Nilai Boolean dalam MS-Visual Basic 6.0 dapat diwakili dengan bilangan integer-1 yang berarti benar (true) dan 0 yang berarti salah (false). Berikut ini adalah tabel operator perbandingan :

Tabel 2.3 Operator Perbandingan Operator

Keterangan

=

Sama dengan

<>

Tidak sama dengan

<

Lebih kecil

>

Lebih besar

<=

Lebih kecil atau sama dengan

>=

Lebih besar atau sama dengan

Like Is

Mempunyai ciri yang sama Sama referensi

4. Operator Logika Operator logika digunakan untuk mengekspresikan satu atau lebih data (ekspresi) logika menghasilkan data logika baru. Dibawwah ini adalah : Tabel 2.4 Logika Hierarki Operator

Keterangan

Not

Tidak

And

Dan

Or

Atau

Xor

Exclusive Or

Eqv

Ekivalen

Imp

Implikasi

Operator logika Not menghasilkan nilai kebalikan dari suatu data logika dan mempunyai hierarki paling tinggi pada operator logika, tetapi operator hierarkinya lebih rendah dari operator penugasan, operator aritmatika dan operator pembandingan. Tabel hasil ekspresi logika Not adalah sebagai berikut:

Tabel 2.5 Logika Not Ekspresi

Hasil

Not True

False

Not False

True

Operator logika And akan menghasilkan nilai True hanya jika dua buah ekspresi dikiri dan dikanan operator And bernilai True. Tabel hasil ekspresi logika And adalah sebagai berikut : Tabel 2.6 Logika And Ekspresi

Hasil

False And False

False

False And True

False

True And False

False

True And True

True

Tabel logika Or akan manghasilkan nilai True, jika salah satu dari dua buah ekspresi atau kedua ekspresi dikiri dan dikanan operator Or bernilai True. Jadi operator logika Or hanya akan menghasilkan nilai False, jika kedua ekspresi dikiri dan dikanan operator Or bernilai False. Tabel 2.7 Logika Or Ekspresi

Hasil

False Or False

False

False Or True

True

True Or False

True

True Or True

True

Operator logika Xor akan menghasilkan nilai True, jika ekspresi sebelah kiri operator Xor berbeda dengan ekspresi sebelah kananya. Tabel hasil logika ekspresi logika Xor adalah sebagai berikut : Tabel 2.8 Logika Xor Ekspresi

Hasil

False Xor False

False

False Xor True

True

True Xor False

True

True Xor True

False

Operator logika Eqv akan menghasilkan nilai tru, jika ekspresi sebelah kiri operator Eqv sama dengan ekspresi sebelah kanannya. Jadi operator logika Eqv bisa diartika jika sama. Tabel hasil ekspresi logika Eqv adalah sebagai berikut : Tabel 2.9 Logika Eqv Ekspresi

Hasil

False Eqv False

True

False Eqv True

False

True Eqv False

False

True Eqv True

True

Operator logika Imp akan menghasilkan nilai false hanya jika ekspresi disebelah kiri operator kiri operator Imp bernilai true dan ekspresi sebelah kanannya bernilai false. Tabel hasil ekspresi logika Imp adalah sebagai berikut:

Tabel 2.10 logika Imp Ekspresi

Hasil

False Imp False

True

False Imp True

True

True Imp False

False

True Imp True

True

2.3.4. Variabel

Variabel adalah tempat untuk menyimpan nilai-nilai atau data-data secara sementara pada aplikasi Visual Basic. Sintaks untuk mendeklarasikan variabel adalah sebagai berikut : Dim namavariabel As tipevariabel Keterangan : Dim

: Statement dari Visual Basic untuk mendeklarasikan variabel

Namavariabel

: Nama variabel yang digunakan untuk menyimpan nilai.

Tipevariabel

: Tipe variabel yang bergantung pada tipe data yang akan disimpan didalam variabel tersebut.

2.3.5. Konstanta

Beda dengan variabel, konstanta adalah nilai yang tidak akan berubah disepanjang aplikasi. Biasanya konstanta digunakan untuk memberi nilai tetap pada perhitungan.

2.3.6. Format Pemrograman Visual Basic 6.0

Format program Visual Basic 6.0 secara umum terdiri dari : 1. Bagian Deklarasi Global Untuk melakukan deklarasi global biasanya dilakukan dengan menambahkan suatu reserved word public didepan suatu deklarasi variabel. 2. Bagian utama program terdiri dari blok-blok fungsi dan blok-blok prosedur. Bagian ini terdiri dari : 1. Bagian deklarasi Private Bagian deklarasi private ditemukan didalam blok suatu fungsi-fungsi atau pada blok prosedur. 2. Blok utama program yang mencakup statement-statement, perintah, fungsi, operator, pemanggilan fungsi atau prosedur. 3. Pengembalian nilai ke program pemanggil.

Untuk memahami simbol-simbol yang digunakan dalam program, perlu dijelaskan beberapa meta simbol yang umum yaitu : 1. ‘ (tanda petik tunggal) menyatakan komentar program Komentar merupakan suatu simbol yang digunakan untuk menjelaskan maksud dari suatu statement program. Komentar ditandai dengan simbol ‘ (tanda petik tunggal). Dengan adanya simbol ini maka kompiler tidak akan menerjemahkan statement yang dimulai dengan simbol ‘ (tanda [etik tunggal). 2. _ (under cross) menyatakan persambungan garis.

BAB 3

PERANCANGAN SISTEM

3.1. Perancangan Struktur Database

Perancangan struktur database adalah untuk menentukan file database yang digunakan field, tipe data dan ukuran data. Sistem ini dirancang dengan menggunakan bahasa pemograman Visual Basic 6.0 dan didukung oleh database. Untuk software Visual Basic ini dapat membuat database yang sama dengan software lain, seperti Microsoft Access, Database, ODBC, dan Paradox. Database merupakan kumpulan dari data yang saling berhubungan satu dengan yang lainnya. Adapun rancangan database yang digunakan dalam pembuatan sistem informasi ini adalah sebagai berikut :

3.1.1 Tabel Database Bus

Nama Tabel

: Bus

Nama Index I

: XNobus

Nama Field Kunci

: Bus

Nama Index II

: XNopol

Nama Field Kunci II : Nopol

No

Nama Field

Tipe Data

Panjang

Keterangan

1.

Nobus

Text

5

Nomor Bus

2.

Nopol

Text

10

Nomor Polisi Bus

3.

Namasup

Text

25

Nama Supir Bus

4.

Tujuan

Text

25

Tujuan Bus

5.

Bangku

Text

5

Bangku Bus

6.

Berangkat

Date/Time

8

Keberangkatan Bus

7.

Jam

Date/Time

8

Jam Keberangkatan Bus

8.

Tarif

Text

6

Tarif Bus

Tabel 3.1 Struktur Database Bus

3.1.2 Tabel Database Jual Nama Tabel

: Jual

Nama Index I

: Tar

Nama Field Kunci I

: XTarif

Nama Index II

: XJual

Nama Field Kunci II

: Nobus, Berangkat, Nobangku

Nama Index III

: XUji

Nama Field Kunci III

: Notik, Berangkat, Nobus

No

Nama Field

Tipe Data

Panjang

Keterangan

1.

Nobus

Text

5

Nomor Bus

2.

Bangku

Text

5

Bangku Bus

3.

Tujuan

Text

25

Tujuan Bus

4.

Berangkat

Date/Time

8

Keberangkatan Bus

5.

Tarif

Text

6

Tarif Bus

6.

Notik

Text

6

Nomor Tiket Bus

7.

Napem

Text

25

Nama Pembeli Tiket Bus

8.

Tglbeli

Date/Time

8

Tanggal Pembelian Tiket

9.

Nobangku

Text

5

Nomor Bangku

10.

Bayar

Text

6

Pembayaran Tiket Bus

11.

Sisa

Text

6

Sisa Uang pembayaran

12.

Jam

Date/Time

8

Jam Keberangkatan Bus

Tabel 3.2 Struktur Database Jual

3.1.3 Algoritma Program

Program aplikasi ini terdiri dari beberapa program yaitu : Input, Edit, Cari, dan Hapus. Adapun algoritma dari program tersebut dapat dijabarkan sebagai berikut :

Algoritma Input Data Bus Langkah 1

: Deklarasikan database dan recordset

Langkah 2

: Buka dan aktifkan file database dan recordset

Langkah 3

: Masukkan field kunci, dalam hal ini field kunci adalah “Nobus” dan “Nopol”.

Langkah 4

: Bandingkan field kunci dengan data yang ada di database bus a. Jika ditemukan maka muncul pesan “Nomor bus sudah ada”, maka input lagi nomor yang lain. b. Jika tidak ditemukan, lakukan penginputan data dan lanjut ke langkah 5

Langkah 5

: Munculkan pesan “Apakah data sudah benar” a. Jika “YES” maka data akan disimpan kedalam database bus dan lanjut ke langkah 6 b. Jika “NO” maka kembali ke menu utama

Langkah 6

: Munculkan pesan “apakah data diinput ladi?” a. Jika “YES” maka kembali ke langkah 3 b. Jika “NO” maka kembali ke menu utama

Algoritma Input Penjualan Tiket Langkah 1

: Deklarasikan databae dan recordset

Langkah 2

: Buka file database dan recordset

Langkah 3

: Masukkan field kunci, dalam hal ini field kunci adalah “Nobus” a. Jika tidak ditemukan maka muncul pesan “ b. Jika ditemukan, tampilkan data dan lanjut ke field kunci II

Langkah 4

: Aktifkan field kunci II

Langkah 5

: Masukkan field kunci II dalam hal ini field kunci adalah “Notik” a. Jika ditemukan maka muncul pesan “Nomor tiket sudah terjual” b. Jika tidak ditemukan, maka lanjut ke langkah 6

Langkah 6

: Aktifkan field kunci III

Langkah 7

: Masukkan field kunci III, yaitu “Nomor Bangku” a. Jika ditemukan maka muncul pesan “Nomor bangku sudah terisi” b. Jika tidak ditemukan, maka lanjut ke langkah 8

Langkanh 8

: Masukkan pembayaran, jika kurang dari harga maka muncul pesan “Anda harus setor uang sebesar xxxxxx bos”

Langkah 9

: Klik tombol simpan, maka akan muncul pesan “Apakah data sudah benar….?” a.

Jika “YES”, data akan disimpan ditabel jual dan lanjut ke langkah 10

b. Jika “NO”, maka data tidak akan disimpan dan lanjut ke langkah 10 Langkah 10

: Pesan “Input data Lagi….?” a. Jika “YES” , maka masuk ke langkah 2 b. Jika “NO”, maka kembali ke menu utama

Algoritma Edit Data Penjualan Tiket Langkah 1

: Deklarasikan database dan recordset

Langkah 2

: Buka file database dan recordset

Langkah 3

: Masukkan field kunci, yaitu “Nobus” a. Jika tidak ditemukan maka muncul pesan “Nomor bus belum ada” b. Jika ditemukan, tampilakan data dan lanjut ke langkah 4

Langkah 4

: Aktifkan field kunci II

Langkah 5

: Masukkan field kunci II, yaitu “Notik a. Jika ditemukan maka muncul pesan “ Nomor tiket sudah terjual” b. Jika tidak ditemukan, maka lanjut ke langkah 6

Langkah 6

: Aktifkan field kunci III

Langkah 7

: Masukkan field kunci III, yaitu “Nobangku” a. Jika ditemukan maka muncul pesan “Nomor bangku sudah terisi” b. Jika tidak ditemukan, maka lanjut ke langkah 8

Langkah 8

: Klik tombol simpan maka akan muncul pesan “Data sudah Benar..?” a. Jika “YES”, maka data akan disimpan di table jual dan lanjut ke langkah 9 b. Jika “NO”, maka akan kembali ke menu utama

Algoritma Cari Data Penjualan Tiket Langkah 1

: Deklarasikan database dan recordset

Langkah 2

: Buka dan aktifkan file database dan recordset

Langkah 3

: Aktifkan kriteria dilakukan melalui 4 (empat) field yaitu : 1. Nomor tiket 2. Tanggal Berangkat 3. Nomor Bangku 4. Tarif Bandingkan data yang ada di kriteria pencarian dengan yang ada di dalam database jual a. Jika ditemukan, maka tampilkan de Dbgrid b. Jika tidak ditemukan, maka Dbgrid kosongkan

Langkah 4

: Jika tombol Keluar di klik, maka akan muncul pesan “Apakah anda mau keluar?” Jika “YES”, maka keluar dari program dan kembali ke menu utama.

Algoritma Hapus Data Penjualan Tiket Langkah 1

: Deklarasikan database dan recordset

Langkah 2

: Buka dan aktifkan file database dan recordset

Langkah 3

: Masukkan field kunci, yaitu “Nobus” a. Jika tidak ditemukan, maka muncul pesan “Nomor bus Tidak ada" b. Jika ditemukan maka masukkan field kunci II

Langkah 4

: Masukkan field kunci II a. Jika tidak ditemukan, maka muncul pesan “Data yang anda cari tidak ditemukan..!”

b. Jika ditemukan, tampilkan datanya dan lanjut ke langkah 5 Langkah 5

: Munculkan pesan “Apakah data akan dihapus” a. Jika “YES” maka data akan dihapus dan lanjut ke langakh 6 b. Jika “NO” maka data tidak dihapus dan lanjut ke langkah 6

Langkah 6

: Munculkan pesan “Hapus data lain ?” a. Jika “YES” maka masuk ke langkah 3 b. Jika “NO” maka kembali ke menu utama

Algoritma Laporan Data Bus dan Penjualan Tiket Langkah 1

: Tentukan kriteri laporan

Langkah 2

: Buka database yang akan dibuat laporan datanya a. Jika ditemukan, maka tampilkan data tersebut ke layer monitor b. Jika tidak ditemukan, maka muncul pesan “Data tidak ada”

Langkah 3

: Jika sudah selesai maka kembali ke menu utama.

BAB 4

IMPLEMENTASI SISTEM

4.1. Pengertian Implementasi Sistem

Implementasi sistem adalah suatu prosedur yang dilakukan untuk menyelesaikan desain sistem yang ada dalam dokumen desain sistem yang disetujui dan diuji kemudian diinstall guna dilakukan pemrosesan data dengan sistem yang baru atau sistem yang diperbaiki.

4.2. Tujuan Implementasi Sistem

Tujuan implementasi sistem adalah sebagai berikut : 1. Menyelesaikan desain sistem yang ada dalam dokumen desain sistem yang disetujui. 2. Menulis, menguji, dan mendokumentasikan program-program dan prosedurprosedur yang dilakukan oleh dokumen desain sistem yang disetujui. 3. Memastikan bahwa personil dapat menggunakan sistem baru yaitu dengan mempersiapkan pemakai dan melatih personil. 4. Memastikan bahwa konversi ke sistem baru berjalan secara benar yaitu dengan merencanakan, mengontrol dan melakukan instansi sistem baru secara benar.

5. Memperhitungkan bahwa desain sistem memenuhi permintaan pemakai yaitu dengan menguji sistem secara keseluruhan. 6. Memperhitungkan sistem yang telah dibuat sesuai kebutuhan dan keperluan yang ada.

4.3. Komponen Utama dalam Implementasi Sistem

Untuk mengolah data menggunakan computer haruslah mempunyai 3 (tiga) komponen utama, yaitu : 1. Hardware 2. Software 3. Brainware

4.3.1. Hardware

Hardware (perangkat keras) adalah komponen-komponen yang membentuk suatu sistem

komputer

yang

berhubungan

memungkinkan komputer dapat

dengan

komponen

lainnya,

sehingga

melakukan tugasnya. Hardware merupakan

komponen fisik dalam rangkaian komputer, sedangkan spesifikasi hardware yang dibuhkan adalah sebagai berikut : 1. Monitor 2. CPU (Central Procesing Unit) 3. Micro Processor 4. Harddisk untuk tempat program beroperasi dan juga sebagai tempat penyimpanan

5. Keyboard 6. Mouse 7. Printer 8. Kertas

4.3.2. Software

Software (perangkat lunak) adalah komponen dalam sistem komputer berupa program untuk mengatur hubungan antara hardware dan brainware serta mengawasi seluruh kegiatan CPU. Softwarejuga merupakan instruksi program yang dapat digunakan dalam komputer dan memberikan fungsi serta menmpilkan seperti apa yang diinginkan. Software yang diperlukan untuk menjalankan perangkat keras untuk aplikasi ini adalah menggunakan Microsoft Visual Basic 6.0, aplikasi Microsoft Access dan Crystal Report 7, serta anti virus untuk mengetahui terjadinya kerusakan sistem.

4.3.3. Brainware

Brainware adalah user (manusia) yang terlibat langsung didalam pengoperasian komputer dan yang akan melaksanakan semua kegiatan-kegiatan yang berhubungan dengan hardware dan software. User (manusia) yang terlibat langsung dalam sistem komputer dikategorikan dalam berbagai tingkatan, yaitu : 1. Operator, adalah user (manusia) yang bekerja mengoperasikan komputer untuk memasukkan data atau menjalankan program yang sudah ada.

2. Programmer, adalah user (manusia) yang bertugas membuat program atau software berdasarkan ketentuan yang sudah ada, meliputi : a. Menganalisa dan membuat program b. Membuat flowchart atau algoritma c. Memeriksa dan memperbaiki kesalahan program. 3. Sistem Analis, adalah user (manusia) yang bertugas mempelajari, menganalisa serta merancang sistem program untuk suatu masalah.

4.4. Pengujian Sistem

Adapun tujuan pengujian sistem ini adalah untuk memastikan aplikasi yang telah dibuat apakah sesuai dengan keinginan pemakai dan dapat digunakan oleh pemakai dan dioperasikan oleh operator sistem.

Beberapa tahapan pengujian sebelum mengimplementasikan aplikasi yaitu sebagai berikut : 1. Tahap Pengujian Bagian Dalam tahap ini biasanya pengujian dilakukan ke setiap modul program untuk memperhitungkan bahwa setiap modul program tersebut memenuhi spesifikasispesifikasinya. 2. Tahap Pengujian Integrasi Dalam tahap ini, menguji setiap kelompok logika modul-modul program untuk memperhitungkan bahwa setiap kelompok tersebut memenuhi spesifikasispesifikasi fungsi logika.

3. Tahap Pengujian Aplikasi Pada tahap ini, menguji aplikasi yang telah dibuat untuk memperhitungkan bahwa aplikasi baru tersebut telah memenuhi spesifikasi aslinya. 4. Tahap Pengujian Penerimaan Dalam tahap ini, pengujian bertujuan untuk mempertimbangkan bahwa semua komponen dalam sistem baru berada dalam keadaan memuaskan. 5. Tahap Pengujian Operasi dan Pengujian Lingkungan Dalam tahap ini, aplikasi yang telah dibuat tersebut dicoba kelingkungan yang sesungguhnya untuk memperhitungkan bahwa semua peralatan baru dan faktorfaktor lain dalam lingkungan, misalnya memasukkan data, dokumen, dan sebagainya, apakah sudah memuaskan.

4.5. Pemeliharaan Sistem

Adapun tujuan dari pemeliharaan sistem ini adalah sebagai beikut : 1. Mencegah modifikasi sistem yang akan menyebabkan masalah-masalah yang lain. 2. Mengganti pemeliharaan sistem dengan survey sistem jika modifikasi yang diminta relative besar 3. Membuat modifikasi sistem yang sesuai dengan kebutuhan organisasi. 4. Meminimalkan gangguan control dan gangguan operasi yang disebabkan oleh pemeliharaan sistem. 5. Menyempurnakan proses penyusunan sistem dan proses pemeliharaan sistem dengan menganalisa informasi tentang modifikasi sistem.

BAB 5

KESIMPULAN DAN SARAN

Kesimpulan

Dari pembahasan mengenai sistem informasi penjualan tiket bus pada CV. Mawar Selatan, maka penulis mengambil beberapa kesimpulan bahwa : 1. Melalui sistem yang dirancang, maka penjualan tiket bus pada CV. Mawar Selatan dapat ditingkatkan. 2. Sistem informasi yang dirancang untuk penjualan tiket bus pada CV. Mawar Selatan

sangat

sederhana,

sehingga

mempermudah

pemakai

dalam

pengoperasiannya. 3. Pembuatan program denngan menggunakan Visual Basic 6.0 lebih mudah dalam hal perancangan maupun untuk hasil akhirnya dan lebih mudah dimengerti oleh pemakai karena Visual Basic 6.0 merupakan bahasa pemograman berbasiskan windows.

Saran

Dalam hal ini, penulis akan memberikan sedikit saran yang kiranya dapat bermanfaat untuk kemajuan CV. Mawar Selatan. Adapun saran yang dapat penulis sampaikan adalah :

1. Untuk meningkatkan kinerja pegawai pada CV. Mawar Selatan disarankan agar menggunakan jasa komputer dengan memakai sistem informasi yang telah dirancang. 2. Diharapkan agar aplikasi ini dapat bermanfaat lebih dahulu oleh pemakai dalam pengolahan data. 3. Diharapkan adanya pengembangan lebih lanjut dari sistem informasi yang dirancang, sehingga menjadi sistem informasi yang terpadu untuk menanggulangi dan mengolah data yang lebih besar dimasa yang akan datang. 4. Diharapkan agar program ini dapat bermanfaat bagi para pembaca.

DAFTAR PUSTAKA

Alam, M. Agus J. 1999. Belajar Sendiri Microsoft Visual Basic 6.0. Jakarta : Elex Media Komputindo, Kelompok Gramedia. Anggota IKAPI. Andi, Krisbianti Paulus, Erwin Budi Setiawan. 2005. Sistem Informasi. Bandung : Informatika. Evangelos Petroutsos 2002. Menguasai Pemograman Database dengan Visual Basic 6.0, cetakan 1, Jakarta : PT. Elex Media Komputindo. Hartono, Jogiyanto. 2000. Pengenalan Komputer. Yogyakarta : Andi Kusumo, Ario Suryo. 2000. Buku Latihan Microsoft Visual Basic 6.0. Jakarta : PT. Elex Media Komputindo. Yung, Kok. 2000. Membangun Database dengan Visual Basic 6.0 dan Perintah SQL. Jakarta : PT. Elex Media Komputindo.

LISTING PROGRAM Menu Utama Dim DBBUS As Database Dim TBBUS As Recordset Private Sub BELI_Click() TBELI = InputBox("Masukkan Tanggal Beli :", "CETAK TANGGAL BELI") 'TBBUS.Index = "BERANG" 'TBBUS.Seek "=", VBERANGKAT 'If Not TBBUS.NoMatch Then If DataEnvironment2.rsBELI.State = adStateOpen Then DataEnvironment2.rsBELI.Close End If DataEnvironment2.BELI (TBELI) DataReport4.Show 'End If End Sub Private Sub BERANGKAT_Click() VBERANGKAT = InputBox("Masukkan Tanggal Berangkat :", "CETAK TANGGAL BERANGKAT") TBBUS.Index = "BERANG" TBBUS.Seek "=", VBERANGKAT If Not TBBUS.NoMatch Then If DataEnvironment2.rsBERANGKAT.State = adStateOpen Then DataEnvironment2.rsBERANGKAT.Close End If DataEnvironment2.BERANGKAT (VBERANGKAT) DATAREPORT3.Show Else pesan = MsgBox("DATA TIDAK ADA", vbInformation + vbOKOnly, "PESAN") End If End Sub Private Sub CADATA_Click() CARIBUS.Show vbModal End Sub Private Sub CAJUAL_Click() CARIJUAL.Show vbModal End Sub Private Sub EDDATA_Click() EDITBUS.Show vbModal End Sub

Private Sub EDJUAL_Click() EDITJUAL.Show vbModal End Sub Private Sub HADATA_Click() HAPUSBUS.Show vbModal End Sub Private Sub HAJUAL_Click() hapusjual.Show vbModal End Sub Private Sub INDATA_Click() INPUTBUS.Show vbModal End Sub Private Sub INJUAL_Click() INJUALTIK.Show vbModal End Sub Private Sub Label1_Click() End Sub Private Sub MDIForm_Activate() Skin1.LoadSkin App.Path + "\METALLIC.skn" 'Skin1.LoadSkin App.Path + "\WINAQUA.skn" Skin1.LoadSkin App.Path + "\Zhelezo.skn" 'Skin1.LoadSkin App.Path + "\GALAXY.skn" 'Skin1.LoadSkin App.Path + "\MAC.skn" Skin1.ApplySkin hWnd End Sub Private Sub MDIForm_Load() Set DBBUS = OpenDatabase(App.Path + "\BUS.MDB") Set TBBUS = DBBUS.OpenRecordset("BUS") End Sub Private Sub NOBUS_Click() TNOMOR = InputBox("MASUKKAN NOMOR BUS :", "CETAK NOMOR BUS") TBBUS.Index = "XNOBUS" TBBUS.Seek "=", TNOMOR If Not TBBUS.NoMatch Then If DataEnvironment1.rsNOBUS.State = adStateOpen Then DataEnvironment1.rsNOBUS.Close End If DataEnvironment1.NOBUS (TNOMOR)

DataReport2.Show Else pesan = MsgBox("DATA TIDAK ADA", vbInformation + vbOKOnly, "PESAN") End If End Sub Private Sub REG_Click() Shell "CONTROL INTL.CPL" End Sub Private Sub SEBUS_Click() If DataEnvironment1.rsLABUS.State = adStateOpen Then DataEnvironment1.rsLABUS.Close End If SELURUHBUS.Show End Sub Private Sub SEJUAL_Click() SELURUHPENJUALAN.Show End Sub Private Sub TARIF_Click() VTARIF = InputBox("Masukkan Jumlah Tarif :", "CETAK TARIF BUS") TBBUS.Index = "TAR" TBBUS.Seek "=", VTARIF If Not TBBUS.NoMatch Then If DataEnvironment1.rsTARIF.State = adStateOpen Then DataEnvironment1.rsTARIF.Close End If DataEnvironment1.TARIF (VTARIF) TARIFBUS.Show Else A = MsgBox("DATA TIDAK ADA", vbInformation + vbOKOnly, "PESAN") End If End Sub Private Sub TUJ_Click() TUJU = InputBox("Masukkan Tujuan Bus :", "CETAK TUJUAN BUS") If DataEnvironment1.rsTUJUAN.State = adStateOpen Then DataEnvironment1.rsTUJUAN.Close End If DataEnvironment1.tujuan (TUJU) DataReport5.Show End Sub Private Sub Y_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 INPUTBUS.Show

Case 2 EDITBUS.Show Case 3 CARIBUS.Show Case 4 HAPUSBUS.Show Case 5 A = MsgBox("Yakin Untuk Keluar !", vbInformation + vbYesNo, "PESAN") If A = vbYes Then End End If End Select End Sub Private Sub YA_Click() 'A = MsgBox("Yakin Data Akan Mengakhiri ?", vbQuestion + vbYesNo, "Pesan") 'If A = vbYes Then End 'End If End Sub

Input Data Bus Dim DBBUS As Database Dim TBBUS As Recordset Dim TBJUAL As Recordset Sub BENAR(A As Boolean) TXTNOPOL.Enabled = A TXTNAMASUP.Enabled = A TXTTANGGAL.Enabled = A TXTTUJUAN.Enabled = A TXTJAM.Enabled = A TXTTARIF.Enabled = A TXTBANGKU.Enabled = A CMDBATAL.Enabled = A End Sub Sub WARNA(B As String) TXTNOPOL.BackColor = B TXTNAMASUP.BackColor = B TXTTANGGAL.BackColor = B TXTJAM.BackColor = B TXTTARIF.BackColor = B TXTTUJUAN.BackColor = B TXTBANGKU.BackColor = B End Sub

Private Sub CMDBATAL_Click() Form_Load TXTNOBUS.SetFocus TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNOBUS.SelStart = 0 TXTNOPOL.Mask = " " TXTNOPOL.Mask = "CC #### CC" TXTNAMASUP.Text = "" TXTTUJUAN.Text = "" TXTTARIF.Text = "" TXTTANGGAL.Text = "" TXTJAM.Text = "" TXTBANGKU.Text = "" TXTNOBUS.SetFocus BENAR (False) WARNA (vbButtonFace) End Sub Private Sub CMDKELUAR_Click()s pesan = MsgBox("ANDA MAU KELUAR ?", vbCritical + vbYesNo, "PESAN") If pesan = vbYes Then Unload Me End If End Sub Private Sub CMDSIMPAN_Click() pesan = MsgBox("Apakah Data Sudah Benar ?", vbExclamation + vbYesNo, "PESAN") If pesan = vbYes Then TBBUS.AddNew TBBUS!NOBUS = TXTNOBUS.Text TBBUS!nopol = TXTNOPOL.Text TBBUS!NAMASUP = TXTNAMASUP.Text TBBUS!BERANGKAT = DateValue(Format(TXTTANGGAL.Text, "dd-MMyyyy")) TBBUS!JAM = TXTJAM.Text TBBUS!TARIF = TXTTARIF.Text TBBUS!tujuan = TXTTUJUAN.Text TBBUS!BANGKU = TXTBANGKU.Text TBBUS.Update End If pesan = MsgBox("Input Data Lagi ?", vbQuestion + vbYesNo, "PESAN") If pesan = vbYes Then TXTNOBUS.Mask = " " TXTNOBUS.Mask = ""

TXTNOBUS.Mask = "###" TXTNOPOL.Mask = " " TXTNOPOL.Mask = "CC #### CC" TXTNAMASUP.Text = "" TXTTUJUAN.Text = "" TXTTANGGAL.Text = "" TXTTARIF.Text = "" TXTJAM.Text = "" TXTBANGKU.Text = "" TXTNOBUS.SetFocus BENAR (False) WARNA (vbButtonFace) Else Unload Me End If End Sub Private Sub Form_Activate() TXTNOBUS.SetFocus TXTNOBUS.SelStart = 0 'Skin1.LoadSkin App.Path + "\METALLIC.skn" 'Skin1.LoadSkin App.Path + "\WINAQUA.skn" Skin1.LoadSkin App.Path + "\Zhelezo.skn" Skin1.ApplySkin hWnd End Sub Private Sub Form_Load() BENAR (False) WARNA (vbButtonFace) Set DBBUS = OpenDatabase("D:\PENJUALAN TIKET\BUS.MDB") Set TBBUS = DBBUS.OpenRecordset("BUS") CMDSIMPAN.Enabled = False End Sub Private Sub TXTBANGKU_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Val(TXTBANGKU.Text) < 1 Or Val(TXTBANGKU.Text) > 45 Then pesan = MsgBox("JUMLAH KURSI HARUS LEBIH KECIL 45 DAN LEBIH BESAR 1 !", vbCritical + vbOKOnly, "PESAN") TXTBANGKU.Text = "" TXTBANGKU.SetFocus Else CMDSIMPAN.Enabled = True CMDSIMPAN.SetFocus End If End If End Sub

Private Sub TXTFASILITAS_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTBANGKU.Enabled = True TXTBANGKU.BackColor = vbWhite TXTBANGKU.SetFocus End If End Sub Private Sub TXTMAX_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then CMDSIMPAN.SetFocus End If End Sub Private Sub TXTNAMAKON_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTNAMAKON.Text = UCase(TXTNAMAKON.Text) TXTTUJUAN.Enabled = True TXTTUJUAN.BackColor = vbWhite TXTTUJUAN.SetFocus End If End Sub Private Sub TXTJAM_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If TXTJAM.Text = Format(TXTJAM.Text, "hh:mm") Then TXTTUJUAN.SetFocus Else pesan = MsgBox("MASUKKAN FORMAT JAM YANG BENAR!", vbCritical + vbOKOnly, "PESAN") TXTJAM.Text = "" TXTJAM.SetFocus Exit Sub End If If Int(Val(Right(TXTJAM.Text, 2))) > 59 Then pesan = MsgBox("DETIK JAM HARUS LEBIH \ SAMA DENGAN KECIL 60!", vbCritical + vbOKOnly, "PESAN") TXTJAM.SetFocus Exit Sub End If End If End Sub Private Sub TXTNAMASUP_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Len(TXTNAMASUP.Text) = 0 Then pesan = MsgBox("TOLONG ISIKAN DATA !", vbCritical + vbOKOnly, "PESAN")

Exit Sub End If TXTNAMASUP.Text = UCase(TXTNAMASUP.Text) A = MsgBox("FORMAT TANGGAL ADALAH dd-mm-yyyy DAN HARUS LEBIH BESAR DARI " & Date & " YA !", vbInformation + vbOKOnly, "PESAN TANGGAL") TXTTANGGAL.SetFocus End If End Sub Private Sub TXTNOBUS_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Len(TXTNOBUS.ClipText) <= 0 Then pesan = MsgBox("NOMOR BUS HARUS DIISI !", vbCritical + vbOKOnly, "PESAN") Exit Sub End If TBBUS.Index = "XNOBUS" TBBUS.Seek "=", TXTNOBUS.Text If TBBUS.NoMatch Then TXTNOPOL.Mask = " " TXTNOPOL.Mask = "?? #### ??" TXTNOPOL.SelStart = 0 BENAR (True) WARNA (vbWhite) TXTNOPOL.SetFocus Else TXTNOPOL.Text = TBBUS!nopol TXTNAMASUP.Text = TBBUS!NAMASUP TXTTUJUAN.Text = TBBUS!tujuan TXTTANGGAL.Text = TBBUS!BERANGKAT TXTTARIF.Text = TBBUS!TARIF TXTJAM.Text = TBBUS!JAM TXTBANGKU.Text = TBBUS!BANGKU TXTNOBUS.SetFocus A = MsgBox("KODE BUS NOMOR " & TXTNOBUS & " SUDAH ADA", vbCritical + vbOKOnly, "PESAN") TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNOPOL.Mask = " " TXTNOPOL.Mask = "?? #### ??" TXTNAMASUP.Text = "" TXTTUJUAN.Text = "" TXTTARIF.Text = "" TXTTANGGAL.Text = "" TXTJAM.Text = ""

TXTBANGKU.Text = "" TXTNOBUS.SetFocus BENAR (False) WARNA (vbWhite) End If End If End Sub Private Sub TXTNOPOL_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then ' If Len(TXTNOPOL.ClipText) >= 0 Then ' X = MsgBox(" NOMOR POLISI JANGAN DIKOSONGKAN", vbCritical + vbOKOnly, "PESAN") ' TXTNOPOL.Mask = " " ' TXTNOPOL.Mask = "" 'TXTNOPOL.Mask = "?? #### ??" 'TXTNOPOL.SetFocus If Len(TXTNOPOL.ClipText) <= 0 Then pesan = MsgBox("NOMOR POLISI HARUS DIISI !", vbCritical + vbOKOnly, "PESAN") Exit Sub End If 'Exit Sub 'End If TXTNOPOL.Text = UCase(TXTNOPOL.Text) TXTNAMASUP.SetFocus End If If KeyCode = 13 Then TBBUS.Index = "XNOPOL" TBBUS.Seek "=", TXTNOPOL.Text If TBBUS.NoMatch Then TXTNAMASUP.SetFocus Else TXTNAMASUP.Text = TBBUS!NAMASUP TXTTUJUAN.Text = TBBUS!tujuan TXTJAM.Text = TBBUS!JAM TXTTANGGAL.Text = TBBUS!BERANGKAT TXTTARIF.Text = TBBUS!TARIF TXTBANGKU.Text = TBBUS!BANGKU TXTNOPOL.SetFocus X = MsgBox(" NOMOR POLISI " & TXTNOPOL & " SUDAH ADA", vbCritical + vbOKOnly, "PESAN") TXTNOPOL.Mask = " " TXTNOPOL.Mask = "" TXTNOPOL.Mask = "?? #### ??" TXTNAMASUP.Text = "" TXTTUJUAN.Text = ""

TXTTANGGAL.Text = "" TXTTARIF.Text = "" TXTJAM.Text = "" TXTBANGKU.Text = "" TXTNOPOL.SetFocus CMDSIMPAN.Enabled = True CMDBATAL.Enabled = True End If End If End Sub Private Sub TXTTANGGAL_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 And IsDate(TXTTANGGAL.Text) = True Then If CDate(TXTTANGGAL.Text) < Date Then pesan = MsgBox("TANGGAL HARUS LEBIH BESAR TANGGAL SEKARANG!", vbCritical + vbOKOnly, "PESAN") TXTTANGGAL.SetFocus Exit Sub End If If Not IsDate(TXTTANGGAL.Text) Then pesan = MsgBox("MASUKKAN FORMAT TANGGAL YANG BENAR!", vbCritical + vbOKOnly, "PESAN") TXTTANGGAL.Text = "" TXTTANGGAL.SetFocus Else TXTTANGGAL.Text = Format(TXTTANGGAL.Text, "dd - mm - yyyy") PESNA = MsgBox("FORMAT JAM ADALAH HH:MM!", vbCritical + vbOKOnly, "PESAN") TXTJAM.SetFocus End If End If End Sub Private Sub TXTTARIF_KeyDown(KeyCode As Integer, Shift As Integer) TXTBANGKU.SetFocus End Sub Private Sub TXTTUJUAN_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 'PEKANBARU 'PADANG 'SIBOLGA TXTBANGKU.Enabled = True If TXTTUJUAN.Text = "PEKANBARU" Then TXTTARIF.Text = 75000 TXTBANGKU.SetFocus ElseIf TXTTUJUAN.Text = "PADANG" Then

TXTTARIF.Text = 65000 TXTBANGKU.SetFocus ElseIf TXTTUJUAN.Text = "SIBOLGA" Then TXTTARIF.Text = 55000 TXTBANGKU.SetFocus Else A = MsgBox("MAAF KAMI TIDAK MELAYANI TUJUAN ANDA !", vbCritical + vbOKOnly, "PESAN") TXTTUJUAN.Text = "" TXTTUJUAN.SetFocus ' Exit Sub End If 'TXTBANGKU.SetFocus End If End Sub

Edit Data Bus Dim DBBUS As Database Dim TBBUS As Recordset Private Sub CMDBATAL_Click() TXTNOBUS.SetFocus TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNOBUS.SelStart = 0 TXTNOPOL.Mask = " " TXTNOPOL.Mask = "CC #### CC" TXTNAMASUP.Text = "" TXTTANGGAL.Text = "" TXTJAM.Text = "" TXTTARIF.Text = "" TXTTUJUAN.Text = "" TXTBANGKU.Text = "" TXTNOBUS.SetFocus BENAR (False) WARNA (vbButtonFace) End Sub Private Sub CMDKELUAR_Click() pesan = MsgBox("ANDA MAU KELUAR ?", vbCritical + vbYesNo, "PESAN") If pesan = vbYes Then Unload Me End If

End Sub Private Sub CMDSIMPAN_Click() pesan = MsgBox("Apakah Data Sudah Benar ?", vbQuestion + vbYesNo, "PESAN") If pesan = vbYes Then TBBUS.Edit TBBUS!NOBUS = TXTNOBUS.Text TBBUS!nopol = TXTNOPOL.Text TBBUS!NAMASUP = TXTNAMASUP.Text TBBUS!BERANGKAT = DateValue(Format(TXTTANGGAL.Text, "dd-MMyyyy")) TBBUS!JAM = TXTJAM.Text TBBUS!TARIF = TXTTARIF.Text TBBUS!tujuan = TXTTUJUAN.Text TBBUS!BANGKU = TXTBANGKU.Text TBBUS.Update

End If pesan = MsgBox("Edit Data Lagi ?", vbQuestion + vbYesNo, "PESAN") If pesan = vbYes Then TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNOPOL.Mask = " " TXTNOPOL.Mask = "CC #### CC" TXTNAMASUP.Text = "" TXTTUJUAN.Text = "" TXTTANGGAL.Text = "" TXTJAM.Text = "" TXTTARIF.Text = "" TXTBANGKU.Text = "" TXTNOBUS.SetFocus BENAR (False) WARNA (vbButtonFace) Else Unload Me End If End Sub Private Sub Form_Activate() TXTNOBUS.SetFocus 'Skin1.LoadSkin App.Path + "\METALLIC.skn" 'Skin1.LoadSkin App.Path + "\WINAQUA.skn" Skin1.LoadSkin App.Path + "\Zhelezo.skn" Skin1.ApplySkin hWnd End Sub

Private Sub Form_Load() Set DBBUS = OpenDatabase("D:\PENJUALAN TIKET\BUS.MDB") Set TBBUS = DBBUS.OpenRecordset("BUS") BENAR (False) WARNA (vbButtonFace) End Sub Sub BENAR(A As Boolean) TXTNOPOL.Enabled = A TXTNAMASUP.Enabled = A TXTTUJUAN.Enabled = A TXTTANGGAL.Enabled = A TXTJAM.Enabled = A TXTBANGKU.Enabled = A TXTTARIF.Enabled = A CMDSIMPAN.Enabled = A CMDBATAL.Enabled = A End Sub Sub WARNA(B As String) TXTNOPOL.BackColor = B TXTNAMASUP.BackColor = B TXTTUJUAN.BackColor = B TXTTANGGAL.BackColor = B TXTJAM.BackColor = B TXTTARIF.BackColor = B TXTBANGKU.BackColor = B End Sub Private Sub TXTBANGKU_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Val(TXTBANGKU.Text) < 15 Or Val(TXTBANGKU.Text) > 45 Then Z = MsgBox("JUMLAH BANGKU HARUS LEBIH KECIL 45!", vbCritical + vbOKOnly, "PESAN") TXTBANGKU.Text = "" TXTBANGKU.SetFocus Else CMDSIMPAN.SetFocus End If End If End Sub Private Sub TXTFASILITAS_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTBANGKU.SetFocus TXTBANGKU.SelLength = Len(TXTBANGKU.Text) End If End Sub

Private Sub TXTNAMAKON_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTTUJUAN.SetFocus TXTTUJUAN.SelLength = Len(TXTTUJUAN.Text) End If End Sub Private Sub TXTJAM_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTTUJUAN.SetFocus TXTTUJUAN.SelLength = Len(TXTTUJUAN.Text) End If End Sub

Private Sub TXTNAMASUP_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then pesan = MsgBox("FORMAT TANGGAL HARUS DD-MM-YYYY", vbInformation + vbOKOnly, "PESAN") TXTTANGGAL.SetFocus TXTTANGGAL.SelLength = Len(TXTTANGGAL.Text) End If End Sub Private Sub TXTNOBUS_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Len(TXTNOBUS.ClipText) <= 0 Then XX = MsgBox("ISIKAN NOMOR BUS YANG MAU DIEDIT", vbCritical + vbOKOnly, "PESAN") Exit Sub End If TBBUS.Index = "XNOBUS" TBBUS.Seek "=", TXTNOBUS If TBBUS.NoMatch Then BUS = MsgBox("NOMOR BUS " & TXTNOBUS & " TIDAK ADA ", vbCritical + vbOKOnly, "PESAN") TXTNOBUS.SetFocus TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" Exit Sub End If BENAR (True) WARNA (vbWhite) TXTNAMASUP.SetFocus TXTNOPOL.Enabled = False TXTNOPOL.BackColor = vbButtonFace TXTBANGKU.Enabled = False TXTBANGKU.BackColor = vbButtonFace

On Error Resume Next TXTNOPOL.Text = TBBUS!nopol TXTNAMASUP.Text = TBBUS!NAMASUP TXTTANGGAL.Text = Format(TBBUS!BERANGKAT, "dd-MM-yyyy") TXTJAM.Text = TBBUS!JAM TXTTUJUAN.Text = TBBUS!tujuan TXTTARIF.Text = TBBUS!TARIF TXTBANGKU.Text = TBBUS!BANGKU TXTNAMASUP.SelLength = Len(TXTNOPOL.Text)

End If End Sub Private Sub TXTNOPOL_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Len(TXTNOPOL.ClipText) <= 0 Then pesan = MsgBox("NOMOR POLISI JANGAN DIKOSONGKAN", vbCritical + vbOKOnly, "PESAN") Exit Sub End If TBBUS.Index = "XNOPOL" TBBUS.Seek "=", TXTNOPOL.Text If TBBUS.NoMatch Then TXTNAMASUP.SetFocus TXTNAMASUP.SelLength = Len(TXTNAMASUP.Text) Else A = MsgBox("DATA SUDAH ADA") End If End If End Sub Private Sub TXTTANGGAL_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If CDate(TXTTANGGAL.Text) < Date Then pesan = MsgBox("TANGGAL HARUS LEBIH BESAR DARI " & Date & "BOS!", vbCritical + vbOKOnly, "PESAN") TXTTANGGAL.SetFocus Exit Sub End If If Not IsDate(TXTTANGGAL.Text) Then pesan = MsgBox("MASUKKAN FORMAT TANGGAL YANG BENAR!", vbCritical + vbOKOnly, "PESAN") TXTTANGGAL.Text = "" TXTTANGGAL.SetFocus Else

TXTTANGGAL.Text = Format(TXTTANGGAL.Text, "dd - mm - yyyy") pesan = MsgBox("FORMAT JAM ADALAH HH:MM!", vbCritical + vbOKOnly, "PESAN") TXTJAM.SetFocus TXTJAM.SelLength = Len(TXTJAM.Text) End If End If End Sub Private Sub TXTTUJUAN_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 'PEKANBARU 'PADANG 'SIBOLGA TXTBANGKU.Enabled = True If TXTTUJUAN.Text = "PEKANBARU" Then TXTTARIF.Text = 75000 TXTBANGKU.SetFocus ElseIf TXTTUJUAN.Text = "PADANG" Then TXTTARIF.Text = 65000 TXTBANGKU.SetFocus ElseIf TXTTUJUAN.Text = "SIBOLGA" Then TXTTARIF.Text = 55000 TXTBANGKU.SetFocus Else A = MsgBox("MAAF KAMI TIDAK MELAYANI TUJUAN ANDA !", vbCritical + vbOKOnly, "PESAN") TXTTUJUAN.Text = "" TXTTUJUAN.SetFocus ' Exit Sub End If 'TXTBANGKU.SetFocus End If End Sub

Cari Data Bus Dim DBBUS As Database Dim TBBUS As Recordset Private Sub Command1_Click() pil = MsgBox("APAKAH ANDA MAU KELUAR ?", vbInformation + vbYesNo, "pil") If pil = vbYes Then

Unload Me End If End Sub Private Sub Form_Activate() TXTNOMOR.SetFocus TXTPOLISI.Enabled = False TXTPOLISI.BackColor = vbButtonFace TTUJUAN.Enabled = False TTUJUAN.BackColor = vbButtonFace 'Skin1.LoadSkin App.Path + "\METALLIC.skn" 'Skin1.LoadSkin App.Path + "\WINAQUA.skn" Skin1.LoadSkin App.Path + "\Zhelezo.skn" Skin1.ApplySkin hWnd End Sub Private Sub Form_Load() Set DBBUS = OpenDatabase("D:\PENJUALAN TIKET\BUS.MDB") Set TBBUS = DBBUS.OpenRecordset("BUS") End Sub Private Sub L1_Click() pil = MsgBox("ANDA MAU KELUAR ?", vbCritical + vbYesNo, "pil") If pil = vbYes Then Unload Me End If End Sub Private Sub L2_Click() pil = MsgBox("APAKAH ANDA MAU KELUAR ?", vbCritical + vbYesNo, "pil") If pil = vbYes Then Unload Me End If End Sub Private Sub TTUJUAN_Change() Data1.RecordSource = "SELECT * FROM BUS WHERE TUJUAN LIKE '" & TTUJUAN.Text & "*'" Data1.Refresh End Sub Private Sub TTUJUAN_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TTUJUAN.Text = "" TXTNOMOR.Enabled = True TXTNOMOR.BackColor = vbWhite TXTNOMOR.SetFocus

Data1.RecordSource = "SELECT * FROM BUS" Data1.Refresh TTUJUAN.Enabled = False TTUJUAN.BackColor = vbButtonFace End If End Sub

Private Sub TXTNOMOR_Change() Data1.RecordSource = "SELECT* FROM BUS WHERE NOBUS LIKE'" & TXTNOMOR.Text & "*'" Data1.Refresh End Sub Private Sub TXTNOMOR_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTNOMOR.Text = "" TXTPOLISI.Enabled = True TXTPOLISI.BackColor = vbWhite TXTPOLISI.SetFocus Data1.RecordSource = "SELECT * FROM BUS" Data1.Refresh TXTNOMOR.Enabled = False TXTNOMOR.BackColor = vbButtonFace End If End Sub Private Sub TXTPOLISI_Change() Data1.RecordSource = "SELECT*FROM BUS WHERE NOPOL LIKE'" & TXTPOLISI.Text & "*'" Data1.Refresh 'TXTNOMOR.Text = "" End Sub Private Sub TXTPOLISI_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTPOLISI.Text = "" TTUJUAN.Enabled = True TTUJUAN.BackColor = vbWhite TTUJUAN.SetFocus Data1.RecordSource = "SELECT*FROM BUS" Data1.Refresh TXTPOLISI.Enabled = False TXTPOLISI.BackColor = vbButtonFace End If End Sub

Hapus Data Bus Dim DBBUS As Database Dim TBBUS As Recordset Private Sub CMDBATAL_Click() Form_Load TXTNOBUS.SetFocus TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNOBUS.SelStart = 0 TXTNOPOL.Text = "" TXTTANGGAL.Text = "" TXTJAM.Text = "" TXTNAMASUP.Text = "" TXTTARIF.Text = "" TXTTUJUAN.Text = "" TXTBANGKU.Text = "" TXTNOBUS.SetFocus TXTNOBUS.BackColor = vbWhite BENAR (False) WARNA (vbButtonFace) End Sub Private Sub CMDHAPUS_Click() A = MsgBox("Apakah Data Akan Dihapus ??", vbInformation + vbYesNo, "PESAN :") If A = vbYes Then TBBUS.Delete End If pesan = MsgBox("Hapus Data Lagi ?", vbQuestion + vbYesNo, "PESAN") If pesan = vbYes Then CMDBATAL_Click Else Unload Me End If End Sub Private Sub CMDKELUAR_Click() pesan = MsgBox("ANDA MAU KELUAR ?", vbCritical + vbYesNo, "PESAN") If pesan = vbYes Then Unload Me End If End Sub

Private Sub Form_Activate() TXTNOBUS.SetFocus 'Skin1.LoadSkin App.Path + "\METALLIC.skn" 'Skin1.LoadSkin App.Path + "\WINAQUA.skn" Skin1.LoadSkin App.Path + "\Zhelezo.skn" Skin1.ApplySkin hWnd End Sub Private Sub Form_Load() Set DBBUS = OpenDatabase("D:\PENJUALAN TIKET\BUS.MDB") Set TBBUS = DBBUS.OpenRecordset("BUS") BENAR (False) WARNA (vbButtonFace) End Sub Sub BENAR(A As Boolean) TXTNOPOL.Enabled = A TXTNAMASUP.Enabled = A TXTTUJUAN.Enabled = A TXTJAM.Enabled = A TXTTARIF.Enabled = A TXTTANGGAL.Enabled = A TXTBANGKU.Enabled = A CMDHAPUS.Enabled = A CMDBATAL.Enabled = A End Sub Sub WARNA(B As String) TXTNOPOL.BackColor = B TXTNAMASUP.BackColor = B TXTTUJUAN.BackColor = B TXTTANGGAL.BackColor = B TXTTARIF.BackColor = B TXTJAM.BackColor = B TXTBANGKU.BackColor = B End Sub Private Sub TXTNOBUS_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TBBUS.Index = "XNOBUS" TBBUS.Seek "=", TXTNOBUS.Text If TBBUS.NoMatch Then pesan = MsgBox("NOMOR BUS " & TXTNOBUS.Text & " TIDAK ADA ! ", vbCritical + vbOKOnly, "PESAN") TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNOBUS.SetFocus TXTNOBUS.BackColor = vbWhite

TXTNOBUS.SelStart = 0 Exit Sub End If BENAR (True) WARNA (vbGreen) CMDHAPUS.SetFocus TXTNOBUS.BackColor = vbGreen TXTNOPOL.Text = TBBUS!nopol TXTNAMASUP.Text = TBBUS!NAMASUP TXTTANGGAL.Text = TBBUS!BERANGKAT TXTTARIF.Text = TBBUS!TARIF TXTJAM.Text = TBBUS!JAM TXTTUJUAN.Text = TBBUS!tujuan TXTBANGKU.Text = TBBUS!BANGKU End If End Sub

Input Penjualan Tiket Dim DBBUS As Database Dim TBBUS As Recordset Dim TBJUAL As Recordset Private Sub CMDBATAL_Click() TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNAMAPEM.Text = "" TXTTUJUAN.Text = "" TXTTANGGAL.Text = "" TXTJAM.Text = "" TXTBANGKU.Text = "" TXTNOBANGKU.Text = "" TXTTARIF.Text = "" TXTNOTIK.Mask = " " TXTNOTIK.Mask = "" TXTNOTIK.Mask = "######" TXTBAYAR.Text = "" TXTSISA.Text = "" TXTTANGGALBELI.Text = "" TXTNOBUS.SetFocus BENAR (False) WARNA (vbButtonFace) CMDSIMPAN.Enabled = False End Sub

Private Sub CMDKELUAR_Click() pesan = MsgBox("ANDA MAU KELUAR ?", vbQuestion + vbYesNo, "PESAN") If pesan = vbYes Then Unload Me Else TXTNOBUS.SetFocus End If End Sub Private Sub CMDSIMPAN_Click() A = MsgBox("Data Sudah Benar ?", vbExclamation + vbYesNo, "PERINGATAN") If A = vbYes Then TBJUAL.AddNew TBJUAL!NOBUS = TXTNOBUS.Text TBJUAL!NAMAPEM = TXTNAMAPEM.Text TBJUAL!TGLBELI = TXTTANGGALBELI.Text TBJUAL!tujuan = TXTTUJUAN.Text TBJUAL!BERANGKAT = TXTTANGGAL.Text TBJUAL!JAM = TXTJAM.Text TBJUAL!BANGKU = TXTBANGKU.Text TBJUAL!NOBANGKU = TXTNOBANGKU.Text TBJUAL!TARIF = TXTTARIF.Text TBJUAL!NOTIK = TXTNOTIK.Text TBJUAL!BAYAR = TXTBAYAR.Text TBJUAL!SISA = TXTSISA.Text TBJUAL.Update End If pesan = MsgBox("Input Data Lagi ?", vbQuestion + vbYesNo, "PESAN") If pesan = vbYes Then TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNAMAPEM.Text = "" TXTTUJUAN.Text = "" TXTTANGGAL.Text = "" TXTJAM.Text = "" TXTBANGKU.Text = "" TXTNOBANGKU.Text = "" TXTTANGGALBELI.Text = "" TXTSISA.Text = "" TXTBAYAR.Text = "" TXTTARIF.Text = "" TXTNOTIK.Mask = " " TXTNOTIK.Mask = "" TXTNOTIK.Mask = "######" TXTNOBUS.SetFocus BENAR (False) WARNA (vbButtonFace) Else

Unload Me End If End Sub Private Sub Form_Activate() TXTNOBUS.SetFocus 'Skin1.LoadSkin App.Path + "\METALLIC.skn" Skin1.LoadSkin App.Path + "\WINAQUA.skn" 'Skin1.LoadSkin App.Path + "\Zhelezo.skn" Skin1.ApplySkin hWnd End Sub

Private Sub Form_Load() Set DBBUS = OpenDatabase("D:\PENJUALAN TIKET\BUS.MDB") Set TBBUS = DBBUS.OpenRecordset("BUS") Set TBJUAL = DBBUS.OpenRecordset("JUAL") BENAR (False) WARNA (vbButtonFace) CMDSIMPAN.Enabled = False End Sub Private Sub Option1_Click() Unload Me End Sub Private Sub TXTASAL_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTTUJUAN.SetFocus End If End Sub Private Sub TXTBANGKU_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTNOTIK.SetFocus End If End Sub Private Sub TXTJAM_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then txtnobang.SetFocus End If End Sub Private Sub TXTNAMAPEN_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTNAMAPEN.Text = UCase(TXTNAMAPEN.Text)

TXTTANGGAL.SetFocus End If End Sub

Private Sub TXTBAYAR_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Val(TXTBAYAR.Text) < Val(TXTTARIF.Text) Then A = MsgBox("ANDA HARUS SETOR UANG SEBESAR " & TXTTARIF.Text & " BOS", vbCritical + vbOKOnly, "PESAN") TXTBAYAR.Text = "" TXTBAYAR.SetFocus Else CMDSIMPAN.Enabled = True CMDSIMPAN.SetFocus End If If Val(TXTBAYAR.Text) > Val(TXTTARIF.Text) Then TXTSISA.Text = Val(TXTBAYAR.Text) - Val(TXTTARIF.Text) Else TXTSISA = "0" End If End If End Sub Private Sub TXTNAMAPEM_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTNOBANGKU.SetFocus ' pesan = MsgBox("FORMAT TANGGAL YANG BENAR : DD-MM-YYYY", vbInformation + vbOKOnly, "PESAN") ' TXTTANGGALBELI.SetFocus End If End Sub Private Sub TXTNOBANGKU_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Len(TXTNOBANGKU.Text) <= 0 Then A = MsgBox("NOMOR BANGKU HARUS DIISI BOS", vbCritical + vbOKOnly, "PESAN") TXTNOBANGKU.SetFocus Exit Sub End If TBJUAL.Index = "XJUAL" TBJUAL.Seek "=", TXTNOBUS.Text, TXTTANGGAL.Text, TXTNOBANGKU.Text If TBJUAL.NoMatch Then TXTBAYAR.SetFocus Else TXTBAYAR.Text = TBJUAL!BAYAR TXTSISA.Text = TBJUAL!SISA

A = MsgBox("NOMOR BANGKU SUDAH TERISI", vbInformation + vbOKOnly, "PESAN") TXTNOBANGKU.Text = "" TXTBAYAR.Text = "" TXTSISA.Text = "" TXTNOBANGKU.SetFocus End If If Val(TXTNOBANGKU.Text) > Val(TXTBANGKU.Text) Then A = MsgBox("NOMOR BANGKU HARUS LEBIH KECIL " & TXTBANGKU.Text & " BOS", vbCritical + vbOKOnly, "PESAN") TXTNOBANGKU.Text = "" TXTNOBANGKU.SetFocus Exit Sub End If End If End Sub Private Sub TXTNOBUS_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Len(TXTNOBUS.ClipText) <= 0 Then A = MsgBox("NOMOR BUS HARUS DIISI !", vbCritical + vbOKOnly, "PESAN") Exit Sub End If TBBUS.Index = "XnoBus" TBBUS.Seek "=", TXTNOBUS.Text If TBBUS.NoMatch Then BENAR (False) WARNA (vbButtonFace) A = MsgBox("DATA BUS BELUM DIINPUT", vbCritical + vbOKOnly, "PESAN") TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNOBUS.SetFocus Else TXTTANGGALBELI.Text = Date BENAR (True) WARNA (vbWhite) TXTBANGKU.Text = TBBUS!BANGKU TXTTANGGAL.Text = TBBUS!BERANGKAT TXTTARIF.Text = TBBUS!TARIF TXTTUJUAN.Text = TBBUS!tujuan TXTBANGKU.Text = TBBUS!BANGKU TXTJAM.Text = TBBUS!JAM TXTNOTIK.SetFocus End If End If

End Sub Private Sub TXTNOPOL_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTNOPOL.Text = UCase(TXTNOPOL.Text) TXTBANGKU.SetFocus End If End Sub Private Sub TXTNOTIK_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TBJUAL.Index = "XUJI" TBJUAL.Seek "=", TXTNOTIK.Text, TXTTANGGAL.Text, TXTNOBUS.Text If TBJUAL.NoMatch Then TXTNAMAPEM.SetFocus Else TXTNAMAPEM.Text = TBJUAL!NAMAPEM TXTTANGGALBELI.Text = TBJUAL!TGLBELI TXTNOBANGKU.Text = TBJUAL!NOBANGKU TXTSISA.Text = TBJUAL!SISA TXTBAYAR.Text = TBJUAL!BAYAR TXTNOTIK.SetFocus A = MsgBox("NOMOR TIKET " & TXTNOTIK.Text & " SUDAH TERJUAL", vbCritical + vbOKOnly, "PESAN") TXTNOTIK.Mask = " " TXTNOTIK.Mask = "" TXTNOTIK.Mask = "######" TXTNAMAPEM.Text = "" TXTTANGGALBELI.Text = Date TXTNOBANGKU.Text = "" TXTBAYAR.Text = "" TXTSISA.Text = "" Exit Sub End If

If Len(TXTNOTIK.ClipText) <= 0 Then A = MsgBox("NOMOR TIKET HARUS DIISI", vbCritical + vbOKOnly, "PESAN") TXTNOTIK.SetFocus Exit Sub End If If Len(TXTNOTIK.ClipText) < 6 Then A = MsgBox("NOMOR TIKET HARUS 6 CHARACTER", vbCritical + vbOKOnly, "PESAN") TXTNOTIK.Mask = " " TXTNOTIK.Mask = ""

TXTNOTIK.Mask = "######" TXTNOTIK.SetFocus Exit Sub End If End If End Sub Private Sub TXTTANGGAL_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Len(TXTTANGGAL.Text) <= 0 Then A = MsgBox("TANGGAL HARUS DIISI", vbCritical + vbOKOnly, "PESAN") Exit Sub End If

TBJUAL.Index = "XTGL" TBJUAL.Seek "=", TXTTANGGAL.Text Data1.RecordSource = "SELECT * FROM JUAL WHERE TANGGAL LIKE '" & TXTTANGGAL.Text & "*'" Data1.Refresh If Val(TXTTANGGAL.Text) <> TANGGAL + 2 Then TXTJAM.SetFocus Else TXTJAM.Mask = TBJUAL!JAM txtnobang.Text = TBJUAL!NOBANGKU TXTASAL.Text = TBJUAL!ASAL TXTTUJUAN.Text = TBJUAL!tujuan TXTTARIF.Text = TBJUAL!TARIF A = MsgBox("NOMOR BUS " & TXTNOBUS.Text & " SEDANG BERANGKAT", vbCritical + vbOKOnly, "PESAN") TXTTANGGAL.Mask = " " TXTTANGGAL.Mask = "" TXTTANGGAL.Mask = "##-##-####" TXTJAM.Mask = " " TXTJAM.Mask = "" TXTJAM.Mask = "##:##" TXTBANGKU.Mask = "##" TXTJAM.Mask = " " TXTJAM.Mask = "" TXTJAM.Mask = "##:##" txtnobang.Mask = " " txtnobang.Mask = "" txtnobang.Mask = "##" TXTTARIF.Text = "" TXTASAL.Text = "MEDAN" TXTTUJUAN.Text = "" TXTTANGGAL.SetFocus

End If End If End Sub End Sub Private Sub TXTTARIF_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then CMDSIMPAN.SetFocus End If End Sub Sub BENAR(A As Boolean) TXTTANGGAL.Enabled = A TXTNAMAPEM.Enabled = A TXTTUJUAN.Enabled = A TXTJAM.Enabled = A TXTNOTIK.Enabled = A TXTBANGKU.Enabled = A TXTNOBANGKU.Enabled = A TXTTARIF.Enabled = A TXTTANGGALBELI.Enabled = A TXTBAYAR.Enabled = A TXTSISA.Enabled = A CMDBATAL.Enabled = A End Sub Sub WARNA(B As String) TXTNAMAPEM.BackColor = B TXTTUJUAN.BackColor = B TXTNOTIK.BackColor = B TXTBANGKU.BackColor = B TXTTANGGAL.BackColor = B TXTJAM.BackColor = B TXTTANGGALBELI.BackColor = B TXTBAYAR.BackColor = B TXTSISA.BackColor = B TXTNOBANGKU.BackColor = B TXTTARIF.BackColor = B End Sub Private Sub TXTTUJUAN_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If KeyCode = 13 Then If TXTTUJUAN.Text = "LINTONG NIHUTA" Then TXTTARIF.Text = "25000" ElseIf TXTTUJUAN.Text = "DOLOK SANGGUL" Then TXTTARIF.Text = "25000" ElseIf TXTTUJUAN.Text = "SIBORONGBORONG" Then

TXTTARIF.Text = "25000" ElseIf TXTTUJUAN.Text = "BARUS" Then TXTTARIF.Text = "35000" ElseIf TXTTUJUAN.Text = "PEKAN BARU" Then TXTTARIF.Text = "60000" ElseIf TXTTUJUAN.Text = "MANDUAMAS" Then TXTTARIF.Text = "45000" ElseIf TXTTUJUAN.Text = "PULAU KERINCI" Then TXTTARIF.Text = "70000" Else A = MsgBox("MAAF KAMI TIDAK MELAYANI TUJUAN ANDA!", vbCritical + vbOKOnly, "PESAN") If A = vbOK Then TXTTUJUAN.SetFocus Exit Sub End If End If CMDSIMPAN.SetFocus End If End If End Sub

Edit penjualan Tiket Dim DBBUS As Database Dim TBBUS As Recordset Dim TBJUAL As Recordset Private Sub BANGKU_Change() Data1.RecordSource = "SELECT * FROM JUAL WHERE NOBANGKU LIKE '" & BANGKU.Text & "*'" Data1.Refresh End Sub Private Sub BANGKU_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then BANGKU.Text = "" TARIF.Enabled = True TARIF.BackColor = vbWhite TARIF.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh BANGKU.Enabled = False BANGKU.BackColor = vbButtonFace

End If End Sub Private Sub BERANGKAT_Change() End Sub Private Sub BERANGKAT_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then BERANGKAT.Text = "" BANGKU.Enabled = True BANGKU.BackColor = vbWhite BANGKU.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh BERANGKAT.Enabled = False BERANGKAT.BackColor = vbButtonFace End If End Sub Private Sub BUS_Change() Data1.RecordSource = "SELECT * FROM JUAL WHERE NOBUS LIKE '" & BUS.Text & "*'" Data1.Refresh End Sub Private Sub BUS_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then BUS.Text = "" TIKET.Enabled = True TIKET.BackColor = vbWhite TIKET.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh BUS.Enabled = False BUS.BackColor = vbButtonFace End If End Sub Private Sub Command1_Click() pesan = MsgBox("APAKAH ANDA MAU KELUAR ?", vbCritical + vbYesNo, "PESAN") If pesan = vbYes Then Unload Me End If End Sub

Private Sub Form_Activate() TIKET.SetFocus TXTBERANGKAT.Enabled = False TXTBERANGKAT.BackColor = vbButtonFace BANGKU.Enabled = False BANGKU.BackColor = vbButtonFace TARIF.Enabled = False TARIF.BackColor = vbButtonFace 'Skin1.LoadSkin App.Path + "\METALLIC.skn" 'Skin1.LoadSkin App.Path + "\WINAQUA.skn" Skin1.LoadSkin App.Path + "\Zhelezo.skn" 'Skin1.LoadSkin App.Path + "\Zhelezo.skn" 'Skin1.LoadSkin App.Path + "\GALAXY.skn" 'Skin1.LoadSkin App.Path + "\MAC.skn" Skin1.ApplySkin hWnd End Sub Private Sub L1_Click() Unload Me End Sub Private Sub L2_Click() Unload Me End Sub Private Sub TARIF_Change() Data1.RecordSource = "SELECT * FROM JUAL WHERE tarif LIKE '" & TARIF.Text & "*'" Data1.Refresh End Sub Private Sub TARIF_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TARIF.Text = "" TIKET.Enabled = True TIKET.BackColor = vbWhite TIKET.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh TARIF.Enabled = False TARIF.BackColor = vbButtonFace End If End Sub

Private Sub TIKET_Change() Data1.RecordSource = "SELECT * FROM JUAL WHERE NOTIK LIKE '" & TIKET.Text & "*'" Data1.Refresh End Sub Private Sub TIKET_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TBJUAL.Index = TIKET.Text = "" TXTBERANGKAT.Enabled = True TXTBERANGKAT.BackColor = vbWhite TXTBERANGKAT.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh TIKET.Enabled = False TIKET.BackColor = vbButtonFace End If End Sub Private Sub TXTBERANGKAT_Change() Data1.RecordSource = "SELECT * FROM JUAL WHERE BERANGKAT LIKE '" & TXTBERANGKAT.Text & "*'" Data1.Refresh End Sub Private Sub TXTBERANGKAT_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTBERANGKAT.Text = "" BANGKU.Enabled = True BANGKU.BackColor = vbWhite BANGKU.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh TXTBERANGKAT.Enabled = False TXTBERANGKAT.BackColor = vbButtonFace End If End Sub

Cari Penjualan Tiket Dim DBBUS As Database Dim TBBUS As Recordset Dim TBJUAL As Recordset Private Sub BANGKU_Change() Data1.RecordSource = "SELECT * FROM JUAL WHERE NOBANGKU LIKE '" & BANGKU.Text & "*'" Data1.Refresh End Sub Private Sub BANGKU_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then BANGKU.Text = "" TARIF.Enabled = True TARIF.BackColor = vbWhite TARIF.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh BANGKU.Enabled = False BANGKU.BackColor = vbButtonFace End If End Sub Private Sub BERANGKAT_Change() End Sub Private Sub BERANGKAT_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then BERANGKAT.Text = "" BANGKU.Enabled = True BANGKU.BackColor = vbWhite BANGKU.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh BERANGKAT.Enabled = False BERANGKAT.BackColor = vbButtonFace End If End Sub Private Sub BUS_Change() Data1.RecordSource = "SELECT * FROM JUAL WHERE NOBUS LIKE '" & BUS.Text & "*'" Data1.Refresh End Sub

Private Sub BUS_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then BUS.Text = "" TIKET.Enabled = True TIKET.BackColor = vbWhite TIKET.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh BUS.Enabled = False BUS.BackColor = vbButtonFace End If End Sub Private Sub Command1_Click() pesan = MsgBox("APAKAH ANDA MAU KELUAR ?", vbCritical + vbYesNo, "PESAN") If pesan = vbYes Then Unload Me End If End Sub Private Sub Form_Activate() TIKET.SetFocus TXTBERANGKAT.Enabled = False TXTBERANGKAT.BackColor = vbButtonFace BANGKU.Enabled = False BANGKU.BackColor = vbButtonFace TARIF.Enabled = False TARIF.BackColor = vbButtonFace 'Skin1.LoadSkin App.Path + "\METALLIC.skn" 'Skin1.LoadSkin App.Path + "\WINAQUA.skn" Skin1.LoadSkin App.Path + "\Zhelezo.skn" 'Skin1.LoadSkin App.Path + "\Zhelezo.skn" 'Skin1.LoadSkin App.Path + "\GALAXY.skn" 'Skin1.LoadSkin App.Path + "\MAC.skn" Skin1.ApplySkin hWnd End Sub Private Sub L1_Click() Unload Me End Sub Private Sub L2_Click() Unload Me End Sub

Private Sub TARIF_Change() Data1.RecordSource = "SELECT * FROM JUAL WHERE tarif LIKE '" & TARIF.Text & "*'" Data1.Refresh End Sub Private Sub TARIF_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TARIF.Text = "" TIKET.Enabled = True TIKET.BackColor = vbWhite TIKET.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh TARIF.Enabled = False TARIF.BackColor = vbButtonFace End If End Sub Private Sub TIKET_Change() Data1.RecordSource = "SELECT * FROM JUAL WHERE NOTIK LIKE '" & TIKET.Text & "*'" Data1.Refresh End Sub Private Sub TIKET_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TBJUAL.Index = TIKET.Text = "" TXTBERANGKAT.Enabled = True TXTBERANGKAT.BackColor = vbWhite TXTBERANGKAT.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh TIKET.Enabled = False TIKET.BackColor = vbButtonFace End If End Sub Private Sub TXTBERANGKAT_Change() Data1.RecordSource = "SELECT * FROM JUAL WHERE BERANGKAT LIKE '" & TXTBERANGKAT.Text & "*'" Data1.Refresh End Sub

Private Sub TXTBERANGKAT_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TXTBERANGKAT.Text = "" BANGKU.Enabled = True BANGKU.BackColor = vbWhite BANGKU.SetFocus Data1.RecordSource = "SELECT * FROM JUAL" Data1.Refresh TXTBERANGKAT.Enabled = False TXTBERANGKAT.BackColor = vbButtonFace End If End Sub

Hapus Penjualan Tiket Dim DBBUS As Database Dim TBBUS As Recordset Dim TBJUAL As Recordset Private Sub CMDBATAL_Click() TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNAMAPEM.Text = "" TXTTUJUAN.Text = "" TXTTANGGAL.Text = "" TXTJAM.Text = "" TXTBANGKU.Text = "" TXTNOBANGKU.Text = " " TXTTARIF.Text = "" TXTNOTIK.Mask = " " TXTNOTIK.Mask = "" TXTNOTIK.Mask = "######" TXTBAYAR.Text = "" TXTSISA.Text = "" TXTNOBUS.SetFocus TXTTANGGALBELI.Text = "" TXTNOBUS.BackColor = vbWhite BENAR (False) WARNA (vbButtonFace) End Sub Sub BENAR(A As Boolean) TXTNAMAPEM.Enabled = A TXTTUJUAN.Enabled = A TXTBAYAR.Enabled = A TXTSISA.Enabled = A

TXTTANGGALBELI.Enabled = A TXTNOTIK.Enabled = A TXTBANGKU.Enabled = A TXTTANGGAL.Enabled = A TXTJAM.Enabled = A TXTNOBANGKU.Enabled = A TXTTARIF.Enabled = A CMDHAPUS.Enabled = A CMDBATAL.Enabled = A End Sub Sub WARNA(B As String) TXTNAMAPEM.BackColor = B TXTTUJUAN.BackColor = B TXTNOTIK.BackColor = B TXTBANGKU.BackColor = B TXTTANGGAL.BackColor = B TXTJAM.BackColor = B TXTNOBANGKU.BackColor = B TXTTARIF.BackColor = B TXTBAYAR.BackColor = B TXTSISA.BackColor = B TXTTANGGALBELI.BackColor = B End Sub

Private Sub CMDHAPUS_Click() A = MsgBox("Apakah Data Akan Dihapus ?", vbExclamation + vbYesNo, "PERINGATAN") If A = vbYes Then TBJUAL.Delete End If pesan = MsgBox("Hapus Data Yang Lain ?", vbQuestion + vbYesNo, "PESAN") If pesan = vbYes Then CMDBATAL_Click TXTNOBUS.BackColor = vbWhite Else Unload Me End If End Sub Private Sub CMDKELUAR_Click() pesan = MsgBox("ANDA MAU KELUAR ?", vbCritical + vbYesNo, "PESAN") If pesan = vbYes Then Unload Me End If End Sub

Private Sub Form_Activate() TXTNOBUS.SetFocus Skin1.LoadSkin App.Path + "\METALLIC.skn" 'Skin1.LoadSkin App.Path + "\WINAQUA.skn" 'Skin1.LoadSkin App.Path + "\Zhelezo.skn" Skin1.ApplySkin hWnd End Sub Private Sub Form_Load() Set DBBUS = OpenDatabase("D:\PENJUALAN TIKET\BUS.MDB") Set TBBUS = DBBUS.OpenRecordset("BUS") Set TBJUAL = DBBUS.OpenRecordset("JUAL") BENAR (False) WARNA (vbButtonFace) End Sub Private Sub TXTNOBUS_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then TBJUAL.Index = "XNOBUS" TBJUAL.Seek "=", TXTNOBUS.Text If TBJUAL.NoMatch Then pesan = MsgBox("NOMOR BUS " & TXTNOBUS.Text & " TIDAK ADA ! ", vbCritical + vbOKOnly, "PESAN") TXTNOBUS.Mask = " " TXTNOBUS.Mask = "" TXTNOBUS.Mask = "###" TXTNOBUS.SetFocus TXTNOBUS.BackColor = vbWhite TXTNOBUS.SelStart = 0 Exit Sub End If BENAR (True) WARNA (vbWhite) TXTNAMAPEM.Text = TBJUAL!NAMAPEM TXTTUJUAN.Text = TBJUAL!tujuan TXTNOTIK.Text = TBJUAL!NOTIK TXTJAM.Text = TBJUAL!JAM TXTBANGKU.Text = TBJUAL!BANGKU TXTTANGGAL.Text = TBJUAL!BERANGKAT TXTNOBANGKU.Text = TBJUAL!NOBANGKU TXTTARIF.Text = TBJUAL!TARIF TXTBAYAR.Text = TBJUAL!BAYAR TXTSISA.Text = TBJUAL!SISA TXTTANGGALBELI.Text = TBJUAL!TGLBELI TXTNOBUS.BackColor = vbYellow TXTNAMAPEM.BackColor = vbYellow TXTTUJUAN.BackColor = vbYellow TXTBAYAR.BackColor = vbYellow

TXTJAM.BackColor = vbYellow TXTSISA.BackColor = vbYellow TXTTARIF.BackColor = vbYellow TXTBANGKU.BackColor = vbYellow TXTTANGGAL.BackColor = vbYellow TXTTANGGALBELI.BackColor = vbYellow TXTNOTIK.BackColor = vbYellow TXTNOBANGKU.BackColor = vbYellow CMDHAPUS.SetFocus End If End Sub

LAYOUT MENU UTAMA

LAYOUT INPUT DATA

LAYOUT EDIT DATA

LAYOUT CARI DATA

LAYOUT HAPUS DATA

LAYOUT INPUT DATA PENJUALAN TIKET

LAYOUT EDIT DATA PENJUALAN TIKET

LAYOUT CARI DATA PENJUALAN TIKET

LAYOUT HAPUS PENJUALAN TIKET

LAYOUT LAPORAN BUS

LAYOUT LAPORAN PENJUALAN TIKET