SISTEM INFORMASI MANAJEMEN PERHOTELAN

DENGAN APLIKASI VISUAL BASIC STUDI KASUS PADA

PURI INDRAKILA HOTEL DAN COTTAGE UNGARAN

TUGAS AKHIR

Disusun dalam Rangka Menyelesaikan Studi Diploma III

untuk memperoleh Gelar Ahli Madya

Oleh :
Nama : Henny Khusniatiy
NIM : 4151304021
Prodi : D3 Statistika Terapan dan Komputasi
Jurusan : Matematika

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS NEGERI SEMARANG
2007
 ABSTRAK

Henny Kusniati, 2007. Sistem Informasi Manajemen Perhotelan Dengan

Aplikasi Visual Basic Studi Kasus Pada Puri Indrakila Hotel dan Cottage
Ungaran, Tugas Akhir, D3 Statistika Terapan dan Komputasi Jurusan Matematika
FMIPA Universitas Negeri Semarang.

Puri Indrakila Hotel dan Cottage Ungaran memiliki data diantaranya adalah
data tamu, data keluar masuk tamu data karyawan dan data administrasi, namun
pengolahannya masih bersifat manual dan membutuhkan waktu yang sangat lama
dalam proses pengadministrasiannya, oleh karena itu perlu dicari alternatif dalam
penanganan data tersebut. Kalau kita cermati bersama, komputer merupakan
solusi terbaik dalam pengolahan data perhotelan. Komputer mampu memecahkan
masalah, bukan hanya dalam perhitungan tetapi juga dalam kemampuan
menyimpan dan memberikan informasi . walaupun demikian dalam masyarakat
modern komputer banyak dimanfaatkan sebagai pusat data (database) dibanding
pengunaan lainnya. Karena peran database yang sangat menonjol. Pemrosesan
basis data menjadi perangkat andalan yang kehadiranya sangat diperlukan, dan
tidak hanya mempercepat perolehan informasi, tetapi juga dapat meningkatkan
pelayanan terhadap tamu Hotel. Tidak hanya sekedar informasi kepada tamu,
tetapi dapat langsung dipantau oleh pemilik hotel tapa harus menunggu laporan
bulanan dari petugas.
Berdasarkan latar belakang tersebut, maka permasalahan yang diambil adalah
bagaimana cara pembuatan sistem database yang terpusat dengan menggunakan
sistem biling sehingga data yang dimasukkan tidak ada pada computer
pengentrian data, tetapi pada server yang langsung dapat dipantau oleh
pemiliknya, serta pengelolaannya dengan menggunakan bahasa pemrograman
Microsoft Visual Studio. Bagaimana proses kerja program sehingga dapat diakses
pada berbagai komputer pelayanan yang ada, tetapi tetap pada satu informasi
(server)
Tujuan dari penulisan ini adalah untuk memudahkan petugas front desk hotel
dalam menangani semua informasi kamar, tamu dan pengunjung hotel, serta
membuat beragam laporan yang diperlukan sehingga pelayanan kepada tamu dan
pengunjung menjadi lebih maksimal, cepat dan akurat, untuk dapat melayani
tamu, pengunjung dan pengguna jasa hotel lainnya secara cepat dan memuaskan
sehingga menimbulkan image yang baik mengenai hotel.
Pembuatan sistem manajemen perhotelan ini menerapkan bahasa
pemrograman yang disusun oleh programer-programer yang handal dan
berpengalaman tentang Microsoft Visual Basic, juga perancangan sistem basis
data dari suatu Database Management System (DBMS). Hasil kegiatan yang akan
dilaksanakan adalah program manajemen database perhotelan. Dan bagaimana
sistem manajemen perhotelan tersebut dapat bekerja untuk memaksimalkan
kepuasan tamu hotel.

iii
 MOTTO DAN PERSEMBAHAN

MOTTO
¾ “Hidup Berawal Dari Mimpi, Maka Mimpilah Yang Setinggi-Tingginya”
¾ “Dengan Kepandaian Semua Pertanyaan Akan Terjawabkan, Dengan Kecerdasan
Semua Jawaban Dapat Diwujudkan”
¾ “Jangan Takut Salah Atau Disalahkan”
¾ “Lebih Baik Kalah Dengan Orang Bijak, Daripada Menang Dengan Orang Bodoh”
¾ “Jangan Ada Penyesalan Dalam Hidup, Jadikan Suatu Kesalahan Sebagai Tolak
Ukur Untuk Mendapatkan Kesuksesan”
¾ “Keinginan Menggapai Cita-Cita Mampu Mengalahkan Segalanya”
¾ “Sekolah Hanyalah Salah Satu Sarana, Sedangkan Ilmu Adalah Modal Paling
Utama”

PERSEMBAHAN
¾ Bapak serta Ibu yang selalu menyayangiku dan paling
kusayangi
¾ Danu Agung Prihambodo SH. Yang aku sayangi
¾ Teman-teman D3 Staterkom ‘04
¾ Almamater (UNNES)

iv
 KATA PENGANTAR

Alhamdulillahirabbil’alamiin, puji syukur senantiasa saya panjatkan kehadirat

Allah SWT atas segala karunia dan limpahan rahmat-Nya, sehingga Saya dapat
menyelesaikan laporan Tugas Akhir (TA) yang berjudul “SISTEM
INFORMASI MANAJEMEN PERHOTELAN DENGAN APLIKASI
VISUAL BASIC STUDI KASUS PADA PURI INDRAKILA HOTEL DAN
COTTAGE UNGARAN” ini dengan tepat waktu.
Penulis sangat menyadari bahwa dalam penyusunan laporan Tugas Akhir ini
tidak lepas bantuan dari semua pihak. Pada kesempatan kali ini penulis
menyampaikan rasa terimakasih yang sebesar-besarnya kepada:
1. Kedua Orang Tua
2. 1. Dr. Sudijono Sastroatmojo, [Link], rektor UNNES
3. Drs. Kasmadi Imam S, M.S Dekan Fakultas Matematika dan Ilmu
Pengetahuan Alam UNNES
4. Drs. Supriyono, [Link], Ketua Jurusan Matematika FMIPA UNNES
5. Dra. Nur Karomah Dwidayati, [Link], Ketua Program Studi D3 Statistika
Terapan dan Komputasi (D3 Staterkom) Jurusan Matematika FMIPA
Universitas Negeri Semarang
6. Dr. St Budi Waluya, [Link] Dosen Pembimbing 1
7. Drs. M. Chotim, [Link] Dosen Pembimbing 2
8. Drs. Wuryanto, [Link], Dosen Wali D3 Staterkom Reguler 2004
9. Teman-teman D3 Staterkom ‘04
10. Semua pihak yang telah membantu saya dalam menyusun Tugas Akhir ini
ini, baik secara langsung maupun tidak langsung
Semoga dengan semua jasa yang telah diberikan mendapatkan ganti yang
lebih berarti dari Allah SWT.
Akhirnya semoga penyusunan Tugas Akhir ini bermanfaat bagi semua pihak
yang membutuhkan.
Semarang, 2007
Penulis

v
 DAFTAR ISI

Halaman

HALAMAN JUDUL........................................................................................... i

PENGESAHAN .................................................................................................. ii

ABSTRAK .......................................................................................................... iii

MOTTO DAN PERSEMBAHAN ...................................................................... iv

KATA PENGANTAR ........................................................................................ v

DAFTAR ISI....................................................................................................... vi

DAFTAR TABEL............................................................................................... ix

DAFTAR GAMBAR .......................................................................................... x

DAFTAR LAMPIRAN....................................................................................... xii

BAB I PENDAHULUAN

A. Latar Belakang Masalah....................................................................... 1

B. Rumusan Masalah dan Pembatasannya ............................................... 3

C. Tujuan dan Manfaat ............................................................................. 4

D. Sistematika Penyusunan Laporan ........................................................ 5

BAB II LANDASAN TEORI

A. Sistem Administrasi Perhotelan Puri Indrakila Hotel dan Cottage

Ungaran................................................................................................ 6

B. Basis Data ............................................................................................ 7

C. Microsoft Visual Basic......................................................................... 16

D. Pemprograman ...................................................................................... 40

vi
 E. Kerangka Berfikir.................................................................................. 25

BAB III METODE PENELITIAN

A. Ruang Lingkup Penelitian.................................................................... 27

B. Fokus Penelitian dan Cara Pengambilan Data ..................................... 27

C. Sistem Rancangan................................................................................ 28

D. Analisis Data........................................................................................ 29

BAB IV HASIL DAN PEMBAHASAN

A. Studi Kelayakan ................................................................................... 30

B. Rancangan Pendahuluan ...................................................................... 31

C. Hasil Pemprograman............................................................................ 40

D. Hasil Pengujian Program dan Pembahasan.......................................... 47

BAB V PENUTUP

A. Simpulan .............................................................................................. 49

B. Saran .................................................................................................... 50

DAFTAR PUSTAKA ........................................................................................ 51

LAMPIRAN ....................................................................................................... 92

vii
 DAFTAR TABEL

Tabel 4.1 Tabel Pegawai .............................................................................55

viii
 DAFTAR GAMBAR

Halaman

1. Tampilan Menu Login .................................................................................... 40

2. Tampilan Menu Informasi............................................................................... 41

3. Tampilan Menu Status Room.......................................................................... 42

4. Tampilan Menu Update Kamar ....................................................................... 43

5. Tampilan menu Check In ................................................................................ 43

6. Tampilan Menu Check Out ............................................................................. 44

7. Tampilan Display pada Form .......................................................................... 45

8. Tampilan Display pada Report........................................................................ 45

9. Tampilan User Account................................................................................... 45

10. Tampilan Kirim Pesan..................................................................................... 46

11. Tampilan Deteksi Komputer Active................................................................ 47

12. Tampilan Data Kepegawaian .......................................................................... 47

13. Tampilan Login Admin ................................................................................... 48

14. Tampilan Display Sirkulasi Data .................................................................... 48

15. Tampilan Peta Hotel........................................................................................ 49

ix
 DAFTAR LAMPIRAN

Lampiran 1 Data Tabel Kamus Data................................................................ 54

Lampiran 2 Source Code.................................................................................. 55

x
 BAB I

PENDAHULUAN

A. LATAR BELAKANG

Pendataan administrasi pada manajemen perhotelan memerlukan

ketepatan mekanisme dan penataan yang teroganisir agar data dapat terkemas

dan terjaga keamanannya dengan baik, seiring pesatnya teknologi dan

kemudahan-kemudahan yang ditawarkan didalamnya, kini instansi-instansi

baik swasta maupun negeri memanfaatkan fasilitas teknologi dalam

pengolahan data-data yang dulu diolah secara manual diubah kedalam pola

komputerisasi yang mempermudah proses pengentrian dan pencarian data-data

yang telah tersimpan dalam database. Database tersebut dibuat dengan tujuan

agar proses kerja lebih optimal dan dapat dilakukan secara tepat dan tepat

dengan tingkat kesalahan yang sedikit.

Perusahaan perhotelan memiliki data-data diantaranya adalah data

tamu, data keluar masuk tamu data karyawan dan data administrasi, namun

pengolahannya masih bersifat manual dan membutuhkan waktu yang sangat

lama dalam proses penyimpanannya, oleh karena itu perlu dicari alternatif

dalam penanganan data tersebut. Kalau kita cermati bersama, komputer

merupakan solusi terbaik dalam pengolahan data perhotelan.

Komputer mampu memecahkan masalah, bukan hanya dalam

perhitungan, tetapi juga dalam kemampuan menyimpan dan memberikan

informasi, walaupun demikian dalam masyarakat modern komputer banyak

1
 2

dimanfaatkan sebagai pusat data (database) dibanding pengunaan lainnya.

Karena peran database yang sangat menonjol. Pemrosesan basis data menjadi

perangkat andalan yang kehadiranya sangat diperlukan, dan tidak hanya

mempercepat perolehan informasi, tetapi juga dapat meningkatkan pelayanan

terhadap tamu hotel.

Sistem administrasi hotel yang ada pada Puri Indrakila Hotel dan

Cottage Ungaran masih memerlukan banyak perubahan, terutama untuk

pendataan yang memusat pada server serta pengorganisasian komputer-

komputer yang terhubung pada suatu jaringan. Laporan-laporan yang harus

menunggu lama masih perlu diperbaiki sehingga diharapkan dapat setiap saat

dipantau oleh manager hotel.

Pembuatan suatu sistem server yang sering disebut dengan billing

memudahkan pengoperasian yang dilakukan oleh front desk hotel untuk

mengentri data maupun pencarian data. Data yang masuk tidak disimpan pada

komputer yang bersangkutan tempat pengentrian data tetapi langsung pada

server yang dapat dipantau oleh pemiliknya tanpa harus menanyakan pada

petugas front desk hotel. Keefektifan ini memudahkan pemilik hotel untuk

mengetahui segala sesuatu yang berhubungan dengan tamu hotel maupun

informasi dari tamu hotel.

Perkembangan teknologi database tidak lepas dari perkembangan

perangkat lunak dan perangkat keras, salah satu perangkat lunak

perkembangan aplikasi yang popular adalah Microsoft Visual Basic. dimana

bahas pemrograman yang mutakhir Microsoft Visual Basic didesain untuk

 3

dapat memanfaatkan fasilitas yang tersedia dalam Microsoft Windows dan

merupakan Softwere yang biasa digunakan untuk membuat program yang

cukup sederhana tetapi banyak cakupan yang dapat dikerjakan. Pengunaan

bahasa pemprograman Visual Basic dalam penanganan database merupakan

kemajuan teknologi dalam perkembangan basis data maupun aplikasi lain

yang langsung dapat berhubungan dengan komputer. Dalam menangani data

yang besar program Microsof Visual Basic sangat efektif dibanding sistem

pemprosesan manual yang lakukan maupun dengan dengan program yang

diakses melalui sebuah komputer. Dengan menggunakan Microsof Visual

Basic kegiatan ini dimaksudkan untuk membuat program database perhotelan

dengan sistem server yang digunakan untuk memantau seluruh kegiatan

pengadministrasian

Pada penulisan tugas akhir ini Microsoft Visual Basic

diimplementasikan menciptakan aplikasi sistem administrasi data Puri

Indrakila Hotel dan Cottage Ungaran, untuk dapat memudahkan

pengadministrasian data hotel yang selalu dapat dipantau oleh manajer hotel.

B. PERUMUSAN MASALAH DAN PEMBATASANNYA

1. Rumusan Masalah

Dari latar belakang tersebut di atas, maka permasalahan yang muncul

adalah bagaimana cara membuat dan mengolah program database tamu

dan data administrasi pada suatu usaha perhotelan yang terhubung dengan

satu komputer yang terpusat (server) serta proses kerja program sehingga
 4

dapat menghasilkan sistem database perhotelan yang langsung dapat

dipantau oleh pemiliknya?

2. Pembatasan masalah

Pada database ini dibuat sistem database untuk pengolahan data-data

yang ada di hotel yang digunakan untuk mempermudah pengumpulan data

supaya dapat dipantau langsung oleh pemilik hotel tanpa harus menunggu

laporan bulanan dari petugas front desk hotel. Bahasa pemprograman yang

digunakan adalah bahasa pemprograman Microsoft Visual Basic.

C. TUJUAN DAN MANFAAT

1. Tujuan Penelitian

Tujuan penelitian ini adalah untuk mengetahui bagaimana tamu dan data

administrasi pada suatu usaha perhotelan yang terhubung dengan satu

komputer yang terpusat (server) diolah, serta proses kerja program

sehingga dapat menghasilkan sistem database perhotelan yang langsung

dapat dipantau oleh pemiliknya.

2. Manfaat Penelitian

a. Bagi pihak manajemen hotel

1) Mempermudah dalam pengentrian dan pencarian data.

2) Memudahkan manajer hotel dalam mengawasi operasional hotel

sehari-hari dan mengevaluasi kemajuan penerimaan atau

pendapatan hotel sehingga dapat diambil keputusan yang tepat dan

cepat untuk terus meningkatkan pendapatan hotel.

 5

b. Bagi programer

1) Mengetahui keunggulan aplikasi program Microsoft Visual Basic.

2) Dapat menggunakan keunggulan Microsoft Visual Basic tersebut

dalam penanganan database perhotelan.

D. SISTEMATIKA LAPORAN

BAB I : PENDAHULUAN

Pada bab I berisi tentang latar belakang masalah, perumusan

masalah dan pembatasannya, tujuan dan manfaat penelitian.

BAB II : LANDASAN TEORI

Pada bab II berisi tentang konsep dasar sistem administrasi

perhotelan Puri Indrakila Hotel Dan Cottage ungaran, basis data,

dan sekilas tentang Microsoft Visual Basic.

BAB III : METODOLOGI PENELITIAN

Pada bab III berisi tentang ruang lingkup penelitian, metode

pengumpulan data, sistem rancangan, dan analisis data.

BAB IV : PEMBAHASAN

Pada bab IV berisi tentang rancangan sistem informasi

manajemen administrasi perhotelan.

BAB V : PENUTUP

Pada bab V berisi tentang simpulan dan saran.

 BAB II

LANDASAN TEORI

A. Sistem Administrasi Perhotelan Puri Indrakila Hotel dan Cottage

Ungaran

Tamu hotel memesan kamar (reservasi atau booking) melalui telepon,

petugas front desk langsung membuka program dan mendata pemesanan.

Program kemudian menginformasikan data-data kamar yang sudah dipesan,

dan memberitahukan jika kamar tersebut telah dipesan oleh tamu lain. Pada

hari tamu datang (check-in), petugas akan diingatkan bahwa tamu tersebut

akan melakukan check-in. Setelah tamu masuk, program segera membuat

formulir pendaftaran tamu (registration card) dan semua tagihan secara

otomatis. Saat tamu keluar (check-out) dan melakukan pembayaran.

Pemesanan kamar atau kamar tamu yang sedang dipakai dapat dialihkan ke

kamar lain sesuai keinginan tamu atau hotel. Tagihan dan pembayaran kamar

dapat dirinci per kamar maupun per tamu.

Untuk menyiapkan strategi pemasaran hotel, Manajer Hotel

memerlukan data-data tamu dan kamar secara cepat sehingga dapat

mengambil keputusan yang tepat dalam waktu yang cepat. Program ini

menyediakan semua kebutuhan Manager. Dengan memakai program ini,

manajemen hotel tidak kalah dengan hotel-hotel Bintang 4 atau 5 yang sudah

memiliki program manajemen hotel tersendiri dan umumnya dibeli dengan

nilai ratusan juta Rupiah.

6
 7

Program manajemen hotel ini merupakan program yang membantu

petugas front desk untuk menangani semua informasi berkaitan dengan kamar,

tamu dan pengunjung hotel serta membuat laporan-laporan yang dibutuhkan

pihak manajemen dalam mengembangkan promosi hotel (Anonim, 2007:2).

B. Basis Data

Sebelum basis data dibahas akan lebih baik jika istilah data dan

informasi dibahas terlebih dahulu.

1. Data dan Informasi

Data menyatakan nilai-nilai yang secara aktual terkandung dalam

basis data sedangkan informasi digunakan untuk menyatakan makna nilai

ketika dipahami oleh pengguna. Informasi adalah hasil analisis dan sintesis

terhadap data. Dengan kata lain, informasi dapat dikatakan sebagai data

yang telah diorganisasikan ke dalam bentuk yang sesuai dengan kebutuhan

seseorang, entah itu manajer, staf ataupun orang lain didalam suatu

organisasi atau perusahaan (Kadir, 1999: 7).

Dalam buku Database Management System (Kruglinski,1986:12)

disebutkan “A database is an organized collection of interrelated data

specifically, database is a complete collection of data, pointers, tabels,

indexs, dictionaries and so on”, atau dengan kata lain data apapun yang

terorganisir yang saling berhubungan dan terkoneksi dengan lengkap

merupakan suatu basis data.

 8

Banyak ilmuwan di bidang informasi menerima definisi standar:

“Informasi adalah data yang digunakan dalam pengambilan keputusan”

(Encyclopedia of Computer Science and Enginering) (Kadir, 1999: 8).

Alasannya adalah bahwa informasi bersifat relatif, relatif terhadap

situasi, relatif terhadap waktu saat keputusan harus diambil, juga relatif

terhadap pembuat keputusan bahkan juga terhadap latar belakang

pengambil keputusan. Hal senada diungkapkan oleh Mc Donough,

sebagaimana diungkapkan oleh Everest (Kadir, 1999: 8).

Segala sesuatu yang dianggap penting pada suatu waktu bisa saja

tidak berguna pada waktu yang lain. Ada kemungkinan pula bahwa

sesuatu yang dianggap penting oleh pengambil keputusan tidak dianggap

penting bagi orang lain (Kadir, 1999: 8).

2. Hirarki Data

Secara tradisional, data diorganisasikan kedalam suatu hirarki yang

terdiri atas elemen data, rekaman (record), dan berkas (file).

1) Elemen Data

Elemen data adalah satuan data terkecil yang tidak dapat dipecah lagi

menjadi unit lain yang bermakna (Kadir, 1999: 8).

2) Rekaman

Rekaman adalah gabungan sejumlah elemen data yang saling terkait.

Dalam sistem basis data relasional, rekaman biasa disebut dengan

istilah tupel baris (Kadir, 1999: 8).

 9

3) Berkas

Himpunan dari seluruh rekaman yang bertipe sama membentuk sebuah

berkas. Berkas dapat dikatakan sebagai kumpulan rekaman data yang

berkaitann dengan suatu objek. Dalam sistem basis data relasional,

berkas mewakili semua komponen yang disebut tabel atau relasi

(Kadir, 1999: 8).

3. Basis Data

Istilah basis data banyak menimbulkan interpretasi yang berbeda. Pada

saat maraknya perangkat lunak dBASE II dan dBASE II Plus, sebuah

berkas (dengan ekstensi DBF) biasa disebut basis data. Istilah yang tidak

tepat ini, meskipun telah merasuk ke sejumlah pemrogram, akhirnya

diluruskan kembali oleh pencipta perangkat lunak basis data yang lain.

Menurut Febbri dan Schwab (Kadir, 1999: 9), basis data adalah sistem

berkas terpadu yang dirancang terutama untuk meminimalkan

pengulangan data.

Menurut Date (Kadir, 1999: 9), sistem basis data adalah sistem

komputerisasi yang tujuan utamannya adalah memelihara informasi dan

membuat informasi tersebut tersedia saat dibutuhkan.

Pengguna basis data bisa melakukan berbagai operasi, antara lain:

a. menambahkan file baru ke sistem basis data;

b. menambahkan file baru ke sistem basis data;

c. mengosongkan berkas;

d. menyisipkan data ke suatu berkas;

 10

e. mengambil data yang ada pada suatu berkas;

f. mengubah data pada suatu berkas;

g. menghapus data pada suatu berkas; dan

h. menyajikan suatu informasi yang diambil dari sejumlah berkas.

4. Data Base Management System (DBMS)

Pengertian secara umum, DBMS diartikan sebagai software yang

akan menentukan bagaimana data diorganisasikan, disimpan, diubah,

diambil kembali, pengaturan mekanisme pengamanan data, mekanisme

pemakaian data secara bersama, mekanisme pengolahan data dalam

lingkungan multiuser.

DBMS adalah suatu program komputer yang digunakan untuk

memasukkan, mengubah, menghapus, memanipulasi, dan memperoleh

data informasi dengan praktis dan efisien (Kadir, 1999: 17). Tujuan

DBMS adalah untuk mempermudah penciptaan struktur data dan

membebaskan pemrograman dari masalah penyusunan file yang kacau.

DBMS sebagai antarmuka bagi pemakai dalam mengorganisasikan

database yang disusunnya. Pemakai dapat berinteraksi dengan mudah dan

praktis dengan menggunakan perintah-perintah yang sederhana yang di

buat dalam suatu bahasa.

Pada beberapa DBMS tersedia fasilitas query yang memudahkan

pengguna untuk memperoleh informasi. Pengguna yang tidak memilki

kemampuan pemrograman pun dengan mudah bisa menggunakan fasilitas

query tersebut.
 11

Keuntungan basis data terhadap sistem pemrosesan berkas adalah:

a. kemubaziran data terkurangi;

b. integritas;

c. independensi data;

d. konsisten data;

e. berbagi data;

f. sekuritas data.

(Kadir, 1999: 17)

5. Komponen Utama DBMS Menurut Kadir (1999:18) adalah sebagai

berikut.

a. Perangkat Keras (Hardware)

Berupa komputer dan bagian-bagian di dalamnya, seperti procesor,

memori dan harddisk. Komponen inilah yang melakukan pemrosesan

dan juga untuk menyimpan basis data.

b. Data

Data di dalam basis data mempunyai sifat terpadu (Integrated), berkas-

berkas data yang ada pada basis data saling terkait, tetapi kemubaziran

data tidak akan terjadi. Sifat lain yang dimiliki data adalah berbagi data

(shared), bahwa data dapat dipakai oleh sejumlah pengguna sewaktu-

waktu apabila dibutuhkan.

c. Perangkat Lunak ( Software )

Berkedudukan antara basis data (data yang tersimpan dalam harddisk)

dan pengguna. Berperan melayani permintaan-permintaan pengguna.

 12

d. Pengguna

Pengguna dapat diklasifikasikan menjadi tiga kategori:

1) Pemrogram aplikasi, yaitu orang yang membuat program aplikasi

menggunakan basis data.

2) Administrator basis data, yaitu orang yang bertanggung jawab

terhadap pengelolaan basis data.

3) Pengguna akhir, yaitu orang yang mengoperasikan program.

Pengguna akhir dibagi menjadi dua yaitu:

a) Pengguna aplikasi adalah orang yang mengoperasikan program

aplikasi yang dibuat oleh pemrogram aplikasi.

b) Pengguna interaktif adalah orang yang dapat memberikan

perintah-perintah beraras tinggi pada antarmuka basis data yang

tersedia.

6. Abstraksi Data

Untuk mendukung kepraktisan, DBMS menyedikan pandangan

abstrak terhadap data bagi pengguna. DBMS berusaha menyembunyikan

detail bagaimana data disimpan dan dipelihara. Namun tentu saja hal ini

dilakukan dengan sedapat mungkin mengusahakan data agar dapat diakses

secara efisien.

Abstraksi data dalam DBMS dibagi menjadi tiga lapis yang saling

berkaitan (Kadir, 1999: 21), tiga lapis yang dimaksud adalah sebagai

berikut.
 13

a. Lapis Fisis

Lapis fisis merupakan lapis terendah dalam abstraksi data. Lapis

ini menjelaskan bagaimana data sesunnguhnya disimpan. Pada lapis

inilah struktur data dijabarkan secara rinci.

b. Lapis Konseptual

Lapis konseptual bersifat lebih tinggi daripada lapis fisis. Lapis ini

menjabarkan data apa saja yang sesungguhnya disimpan dalam dalam

basis data, dan juga menjabarkan hubungan-hubungan antar data.

c. Lapis Pandangan

Lapis pandangan merupakan lapis tertinggi dalam abstraksi data.

Pada lapis ini pengguna hanya mengenal struktur data yang sederhana,

yng berorientasi pada pengguna. Data yang dikenal oleh masing-

masing pengguna bisa berbeda-beda dan barangkali hanya mencakup

sebagian dari basis data.

7. Macam Perintah Data Base Management System (DBMS)

Untuk mengelola dan mengorganisasikan data perlu adanya

semacam perintah/bahasa yang digunakan, sebagai berikut: (Kadir, 1999:

29).

a. Data Definition Language (DDL)

DDL adalah perintah-perintah yang biasa digunakan oleh

administrator basis data (DBA) untuk mendefinisikan skema ke DBMS.

Skema adalah deskripsi lengkap tentang struktur medan, rekaman, dan

hubungan data pada basis data.

 14

DDL juga dipakai untuk mendefinisikan subskema, merupakan

pandangan bagi pengguna terhadap basis data. Subskema merupakan

himpunan bagian dari skema dan dapat menjadi mekanisme

pengamanan sistem basis data, yakni dengan mengatur hak

pengaksesan item-item dalam basis data.

b. Data Manipulation Language (DML)

DML adalah perintah-perintah yang digunakan untuk

mempermudah pemakai malakukan akses, memanipulasi dan

mengambil data dari database.

Secara khusus DQL mengenal query, merupakan bagian dari

DML. Query adalah fasilitas yang memungkinkan pengguna dengan

ilmu pengetahuan tentang komputer yang terbatas ataupun tidak, bisa

mengetahui bahasa pemrograman, dan dapat meminta informasi

terhadap basis data.

DML menurut Kadir (1999: 31) pada dasarnya dibagi menjadi

dua:

1) Prosedural, yang menuntut pengguna menentukan data apa saja

yang diperlukan dan bagaimana cara mendapatkannya.

2) Nonprosedural, yang menuntut pengguna menetukan data apa saja

yang diperlukan tanpa harus menyebutkan cara mendapatkannya.

Secara khusus, bagian DML ada yang disebut DQL (Dalam

literatur terkadang DQL dibedakan dengan DML). DQL hanya sering

disebut bahasa query. DQL adalah fasilitas yang memungkinkan

 15

pengguna dengan pengetahuan yang terbatas ataupun tidak mengetahui

bahasa pemrograman dapat meminta informasi terhadap basis data

(Kadir, 1999: 31). Sebagai contoh, pengguna dapat memberikan

perintah.

8. Perancangan Basis Data

Perancangan basis data menurut Kadir (1999: 39) ada 3 tahapan,

yaitu:

a. Perancangan basis data secara konseptual, merupakan upaya untuk

membuat model yang masih bersifat konsep.

b. Perancangan basis data secara logis, merupakan tahapan untuk

memetakan model konseptual ke model basis data yang akan dipakai.

Namun sebagai mana perancangan basis data secara konseptual,

perancangan ini tidak tergantung pada DBMS yang dipakai. Itulah

sebabnya perancangan basis data secara logis kadang disebut pemetaan

model data.

c. Perancangan basis data secaara fisis, merupakan tahapan untuk

menuangkan perancangan basis data yang bersifat logis menjadi basis

data fisis yang tersimpan pada media penyimpan eksternal.

9. Sejarah Kemunculan Basis Data

Menurut sejarah, sistem pemrosesan data terbentuk setelah masa

sistem pemrosesan berkas. Sistem pemrosesan manual dan sistem

pemrosesan berkas. Sistem pemrosesan manual (berbasis kertas)

merupakan bentuk pemrosesan yang menggunakan dasar berupa setumpuk

 16

rekaman yang tersimpan pada rak-rak berkas. Jika suatu berkas diperlukan,

berkas tersebut harus dicari dalam rak-rak tersebut.

Pada saat awal penerapan sistem komputer, sekelompok rekaman

disimpan pada sejumlah berkas secara terpisah. Sistem yang menggunakan

pendekatan seperti ini biasa disebut sebagai sistem pemrosesan berkas.

Sistem ini tentu saja memiliki kelebihan dari pada sistem pemrosesan

manual, yaitu dalam kecepatan dan keakuratannya. Sistem pemrosesan

berkas menurut Kadir (1999: 18) memiliki kekurangan dalam hal:

1) kemubaziran data;

2) keterbatan berbagai data;

3) ketidakkonsistenan; dan

4) kekurangan luwesan.

Sistem pemrosesan basis data dimaksudkan untuk mengatasi

kelemahan-kelemahan yang ada pada sistem pemrosesan data. Sistem

seperti ini dikenal dengan sebutan Data Base Management System

(DBMS).

C. Microsoft Visual Basic

Microsoft Visual Basic adalah bahasa pemrograman yang digunakan

untuk membuat aplikasi Windows yang berbasis grafis. Visual Basic

merupakan event drivent programming (pemrograman terkendali kejadian)

artinya program menunggu sampai adanya respon dari pemakai berupa event

atau kejadian tertentu (tombol diklik, menu dipilih, dan lain-lain). Selain itu
 17

program ini juga bisa diaplikasikan dengan program yang lain seperti

Microsoft access, Macromedia flash, Microsoft word, Power Point, dan

aplikasi-aplikasi yang lain.

1. Aplikasi-aplikasi dalam Visual Basic

a) Form

Form adalah windows atau jendela di mana akan dibuat user

interface/tampilan. Pada bagian ini biasanya berisi tentang field-field

yang dibuat sebagai tempat pemasukan data.

b) Kontrol (Control)

Kontrol adalah tampilan berbasis grafis yang dimasukkan pada form

untuk membuat interaksi dengan pemakai. Contoh: text box, label,

command dan lainnya.

c) Properti (Properties)

Properti adalah nilai/karakteristik yang dimiliki oleh sebuah obyek

Visual Basic. Contoh: name, size, caption, text, dan lain-lain.

d) Metode (Methods)

Metode adalah serangkaian perintah yang sudah tersedia pada suatu

obyek yang diminta dapat diminta untuk mengerjakan tugas khusus.

e) Prosedur Kejadian (Event Prosedures)

Prosedur kejadian adalah kode yang berhubungan dengan suatu obyek.

Kode ini dieksekusi ketika respon dari pemakai berupa event tertentu.
 18

f) Prosedur Umum

Prosedur umum merupakan kode yang tak berhubungan dengan suatu

obyek.

g) Modul

Modul adalah kumpulan dari prosedur umum dan definisi konstanta

yang digunakan oleh aplikasi.

2. Tampilan Layar Visual Basic sebagai berikut:

a) Main Windows

Gambar 2.1. Tampilan Utama Visual Basic

Main windows seperti gambar 2.1 terdiri dari title bar (baris judul),

menu bar, dan toolbar. Baris judul berisi nama proyek, mode operasi

Visual Basic sekarang, dan form yang aktif. Menu Bar merupakan menu

drop-down yang dapat mengontrol operasi dalam lingkungan Visual

Basic. Toolbar berisi kumpulan gambar yang mewakili perintah yang

ada di menu. Jendela utama juga menampilkan lokasi dari form yang
 19

aktif relatif terhadap sudut kiri atas layar (satuan ukuranya twips). Dapat

dilihat pada gambar 2.1.

b) Form Windows

Form Windows adalah pusat dari pengembangan aplikasi

Visual Basic. Di sini tempat untuk “menggambar” aplikasinya. Dapat

dilihat pada gambar 2.2.

Gambar 2.2. Tampilan Form Pada Visual Basic

c) Project Windows

Berguna untuk menampilkan daftar form dan modul proyek.

Proyek merupakan kumpulan dari modul form, modul class, modul

standar dan file sumber yang membentuk suatu aplikasi. Dapat dilihat

pada gambar 2.3.

 20

Gambar2.3. Tampilan Project Pada Visual Basic

d) Toolbox

Toolbox adalah kumpulan dari obyek yang digunakan untuk

membuat user interface serta kontrol bagi pemogram aplikasi. Dapat

dilihat pada gambar2. 4.

Gambar 2.4. Tampilan Toolbox Pada Visual Basic

e) Properties Windows

Berisi daftar struktur setting properties yang digunakan pada

sebuah obyek terpilih. Kotak drop-down pada bagian atas jendela

berisi daftar semua obyek pada form yang aktif. Ada dua tab tampilan
 21

yaitu Alphabetic (urut abjad) dan Categorized (urut berdasar

kelompok). Di bawah bagian kotak terdapat properti dari obyek

terpilih. Dapat dilihat pada gambar 2.5.

Gambar 2.5. Tampilan Properties Pada Visual Basic

f) Form Layout Windows

Berfungsi menampilkan posisi form relatif terhadap layar

monitor. Dapat dilihat pada gambar 2.6.

Gambar 2.6. Tampilan Form Layout Pada Visual Basic

D. Pemprograman

1. Susunan Bahasa Pemrograman

Sebelum mulai menyusun suatu program, maka sebelumnya

menyusun sebuah daftar instruksi-instruksi mesin yang diatur secara logis

 22

yang dinamakan programming. Program mula-mula diberi kode dalam

suatu bahasa program adalah mutlak supaya komputer dapat melaksanakan

pekerjaan-pekerjaan yang diinginkan menurut prosedur yang direncanakan

oleh pemakainya. Instruksi-instruksi ini harus dapat ditafsirkan oleh

komputer dan dengan demikian ditulis dengan bahasa komputer.

Mengingat sebuah program dengan cepat sudah menelan ratusan atau

ribuan instruksi, maka hal-hal semacam itu menuntut banyak waktu dan

perhatian. Instruksi-instruksi pada programming yang ada, dapat

digunakan dalam pananganan untuk pembuatan sistem manajemen data

pegawai dan data tamu hotel pada Puri Indrakilla Hotel dan Cottage

Ungaran. Sistem komputerisasi menggunakan program Microsoft Visual

Basic akan menjadikan pekerjaan menjadi ringan, efisien, dan tidak

memakan banyak waktu.

2. Perancangan Sistem dalam Proses Kerja Pemprograman

Perancangan basis data merupakan langkah untuk menentukan

basis data yang diharapkan dapat mewakili seluruh kebutuhan pengguna,

penyusunan basis data ini berlandaskan kamus aliran data yang dibuat.

Perancangan sistem tidak lepas dari penentuan kunci atau primary key.

Penentuan kunci merupakan hal yang paling pokok pada basis data, tidak

sekedar sebagai metode untuk mengakses suatu baris tertentu, tetapi

sekaligus juga dapat menjadi pengenal unik (tidak ada yang kembar)

terhadap tabel. Setelah semua tabel dinormalisasi (memenuhi kriteria

normalisasi), maka proses perancangan basis data secara fisik mulai

 23

dilakukan. Perancangan biasanya menghasilkan dokumentasi perancangan

dalam bentuk spesifikasi program dan Bagan Struktur Sistem. Spesifikasi

Program dipakai sebagai petunjuk bagi pemrogram agar dengan mudah

dapat menggunakannya ke dalam program, sedangkan Bagan Struktur

Sistem memperlihatkan seluruh program dalam sistem baru dan hirarki

kontrol terhadap program-program tersebut (Kadir, 1999: 39).

Pada umumnya para perancang proses memberi kemungkinan

untuk langsung, sesudah diterjemahkan maka langsung meneruskan

pengerjaan data yang sesungguhnya. Setelah perancangan proses selesai

dilakukan, maka tahapan selanjutnya adalah mengimplementasikan sistem

(basis data) mencakup pengkodean program, pengujian (menjalankan)

program, pemasangan program, dan apabila pengguna perlu latihan, maka

diberi pelatihan kepada pengguna. Dalam hal ini aplikasi mulai

dioperasikan oleh pengguna untuk melakukan berbagai kegiatan atau

transaksi (Kadir, 1999: 39).

3. Komponenen Perancangan Basis Data Konseptual

a. Entitas

Entitas sering juga disebut tipe entitas atau kelas entitas.

Entitas menyatakan objek atau kejadian. Pada model relasional, entitas

akan menjadi tabel.

b. Atribut

Atribut adalah item data yang menjadi bagian dari suatu entitas.

Istilah lain atribut adalah properties.

 24

c. Hubungan

Hubungan adalah asosiasi atau kaitan antara dua entitas.

d. Kekangan

Kekangan digunakan untuk melindungi integritas data

(misalnya, melindungi kesalahan sewaktu melakukan pengisian data).

e. Domain

Domain adalah himpunan nilai yang berlaku bagi suatu atribut.

Kekangan domain mendefinisikan nama, tipe, format, panjang, dan

nilai masing-masing item data.

f. Integritas Referensial

Integritas referensial adalah aturan-aturan yang mengatur

hubungan antara kunci primer dengan kunci tamu milik tabel-tabel

yang berada dalam suatu basis data relasional untuk menjaga

konsistensi data. Tujuan integritas referensial adalah untuk menjamin

agar elemen dalam suatu tabel yang menunjuk ke suatu pengenal unik

pada suatu baris pada tabel lain benar-benar menunjuk ke suatu nilai

yang memang ada.

Macam integritas referensial ada tiga, yaitu: (Kadir, 1999: 47).

1. Penambahan (Insert ),

2. Penghapusan (Delete), dan

3. Peremajaan (Update).

Integritas referensial pada peremajaan memungkinkan

pengubahan suatu kunci pada suatu tabel menyebabkan semua nilai

 25

pada tabel lain yang tergantung pada tabel tersebut juga akan dirubah

(dikenal dengan istilah cascade update) (Kadir, 1999: 47).

E. Kerangka Berfikir

Selain perusahaan perhotelan yang berbintang, perusahaan perhotelan

yang ada sekarang ini juga tidak lepas dari data yang selalu berubah tiap tahun

dan memerlukan penanganan khusus untuk merubah data-data tesebut dengan

waktu yang singkat. Keefektifan administrasi hotel dapat berjalan lancar

apabila didukung dengan kemampuan penanganan basis data secara

komputerisasi, dalam hal ini menggunakan Microsoft Visual Basic diterapkan

pada basis data yang diharapkan dapat meningkatkan keefektifan sistem

administrasi perhotelan di Puri Indrakila Hotel dan Cottage Ungaran.

Dalam penelitian ini dilakukan beberapa langkah dalam pembuatan

aplikasi sistem yang dibuat. Sehingga langkah-langkah yang ditempuh dapat

di jabarkan sebagai berikut.

1. Observasi pada Puri Indrakilla Hotel dan Cottage Ungaran

2. Perancangan sistem basis data administrasi Puri Indrakilla Hotel dan

Cottage Ungaran

3. Penerjemahan analisis sistem basis data pada bahasa pemrograman dengan

Microsoft Visual Basic

Data yang ada pada hotel seringkali menggunakan sistem pemprosesan

berkas. Untuk mengurangi kekurangan dengan sistem pemrosesan berkas,

maka perlu dilakukan dengan sistem yang lebih baik yaitu dengan
 26

menggunakan sistem basis data. Untuk menangani data dengan menggunakan

sistem basis data, dilakukan perancangan basis data, perancangan basis data

tersebut terbagi menjadi 3 tahapan, antara lain perancangan basis data secara

konseptual, perancangan basis data secara logis, dan perancangan basis data

secara fisis.

Setelah melalui perancangan basis data kemudian dilakukan dilakukan

penerjemahan ke dalam bahasa pemprograman untuk menghasilkan sebuah

program yang dapat membantu dalam menangani basis data. Dalam hal ini

menggunakan bahasa pemprograman Microsoft Visual basic.

Tahapan-tahapan tersebut diatas merupakan proses untuk dapat

menghasilkan sebuah program. Setelah terbentuk sebuah program, maka

langkah terakhir adalah pengujian program untuk meyakinkan bahwa program

tersebut merupakan program yang membantu dalam menangani basis data

dalam sistem manajemen perhotelan.

 BAB III

METODE PENELITIAN

A Ruang Lingkup Penelitian

Penelitian ini dilakukan untuk membuat suatu program basis data

sistem administrasi data perhotelan. Basis data yang akan dibuat merupakan

basis data sistem manajemen administrasi data perhotelan yaitu mengenai data

pegawai dan data tamu hotel dengan menggunakan bahasa pemprograman

yaitu menggunakan Microsoft Visual Basic.

Pembuatan basis data sistem manajemen administrasi data perhotelan

Puri Indrakila Hotel dan Cottage Ungaran dibuat dengan menggunakan bahasa

pemrograman Microsoft Visual Basic. Dengan demikian pembahasan hanya

mengacu pada penanganan basis data secara komputerisasi dengan Microsoft

Visual Basic.

B Fokus Penelitian dan Cara Pengambilan Data

1. Fokus Penelitian

a. Dalam pembuatan sistem manajemen administrasi data perhotelan Puri

Indrakila Hotel dan Cottage Ungaran data pegawai dan data tamu hotel

yang terorganisir dari komputer yang terhubung dalam jaringan dengan

sistem server atau manajemen data terpusat pada sebuah komputer

yang akan menjadi fokus dari penelitian ini.

27
 28

2. Cara Pengambilan Data

Metode pengambilan data yang dilakukan dalam penelitian ini

meliputi metode literatur, observasi.

a. Metode Observasi

Observasi lapangan dilakukan untuk mendapatkan informasi yang

berkaitan dengan sistem administrasi data hotel, guna memperoleh

gambaran dan dapat menemukan solusi terbaik guna pemecahannya..

b. Metode Literatur

Metode literatur dilakukan dengan mengumpulkan data dari buku-

buku pemrograman, artikel-artikel bahasa pemrograman dan

kepustakaan lainnya yang mendukung penyusunan tugas akhir ini.

Hal-hal yang berhubungan dengan metode ini adalah sebagai berikut.

1) Mempelajari sistem administrasi data hotel.

2) Mempelajari sistem basis data.

3) Mempelajari struktur bahasa pemrograman Microsoft Visual Basic.

C Sistem Rancangan

Metode yang dilakukan dalam penelitian ini adalah merancang dan

membuat program basis data sistem informasi manajemen Puri Indrakilla

Hotel dan Cottage Ungaran dengan langkah-langkah antara lain:

1. mempersiapkan alat dan bahan yang diperlukan;

2. membuat rancangan basis data;

3. membuat diagram relasi antar entitas;

 29

4. menerjemahkan diagram alir program ke dalam bahasa pemrograman

Microsoft Visual Basic;

5. membuat program basis data pada Microssoft Visual Basic;

6. mengkompilasi program;

7. menguji program; dan

8. merevisi program apabila diperlukan.

Metode penelitian dalam hal ini meliputi perancangan yang kemudian

diwujudkan dengan menggunakan Software Mocrosft Visual Basic.

D Analisis Data

Hasil perancangan dan pembuatan diuraikan secara deskriptif naratif.

Penafsiran dan penarikan kesimpulan dilakukan berdasarkan tiap langkah

dalam pembuatan program. Simpulan akhir ditentukan dengan berhasil

tidaknya program dapat dijalankan sesuai dengan rancangan. Indikator

keberhasilan didasarkan pada penerapan rancangan basis data, yaitu dengan

membandingkan sebelum memakai rancangan basis data (manual) dengan

sesudah memakai rancangan basis data.

 BAB IV

PEMBAHASAN

A. Studi Kelayakan

Puri Indrakilla Hotel dan Cottage Ungaran di berdiri sejak tahun 1994,

lokasi Puri Indrakilla Hotel dan Cottage Ungaran dapat ditempuh dari Kota

Semarang sekitar dua puluh menit melalui jalan tol, untuk menuju bandara

tersedia taxi dari hotel. Tepatnya di jalan Yos Sudarso No. 42 Ungaran, yang

terletak di kaki Gunung Ungaran.

Puri Indrakilla telah mendapatkan tanda penghargaan Sapta Pesona dari

Gubernur Kepala Daerah Provinsi Jawa Tengah, khususnya pesona alam,

sejuk dan bersih. Puri Indrakilla dengan tarif hotel kelas melati, memiliki

pelayanan hotel berbintang. Sehingga diharapkan tamu hotel dapat merasa

nyaman ketika singgah di Puri Indrakilla Hotel dan Cottage Ungaran.

Beberapa obyek wisata di seputar Puri Indrakilla Hotel dan Cottage

Ungaran adalah sebagai berikut.

1. Kolam renang Tirto Argo

2. Bandungan

3. Rawa Pening

4. Museum Kereta Api

5. Palagan Ambarawa.

Puri Indrakilla Hotel dan Cottage Ungaran memberikan pelayanan

pengolahan data untuk informasi pengunjung, wisata dan pengelolaan sistem

30
 31

perhotelan. Lokasi dari Puri Indrakilla Hotel dan Cottage Ungaran dapat

dilihat pada gambar 4.1 di bawah ini.

Gambar 4.1 Lokasi Puri Indrakilla Hotel dan Cottage Ungaran

B. Rancangan Pendahuluan

Tahap rancangan pendahuluan menentukan ruang lingkup proyek atau

sistem yang ditangani, yang selanjutnya dijabarkan dalam bentuk diagram alir

dan konteks (Kadir, 1999:40). Diagram alir adalah sebuah proses pembentuk

siklus yang digunakan untuk mempermudah dalam perancangan sistem basis

data.
 32

Pembuatan basis data sistem administrasi data hotel dilakukan dengan

pembuatan Data Flow Diagram (DFD). DFD merupakan alat untuk

mendokumentasikan proses dalam suatu sistem yang menekankan fungsi pada

sistem, cara menggunakan informasi yang tersimpan serta pemindahan

informasi antar fungsi dalam sistem.

Data Check In
Front Desk Data Check Out
Hotel Data Informasi

Sistem
Pengolahan
Data

Pencari Informasi Informasi

Umum Kamar Tamu Hotel
Informasi

Gambar 4.2 DFD Konteks Sistem Administrasi Data Hotel

Diagram diatas memperlihatkan bahwa sistem berinteraksi dengan empat

terminal, yaitu bagian front desk hotel, sistem pengolahan data, tamu hotel

serta pencari informasi. Tanda panah menunjukkan masukan dan keluaran

sistem.

C. Tahapan Analisis Sistem

 33

Tahapan perancangan sistem dibagi menjadi tiga bagian. Tiga bagian

perancangan sistem adalah sebagai berikut.

1. Perancangan Sistem Basis Data

Perancangan basis data merupakan langkah untuk menentukan basis data

yang diharapkan dapat mewakili seluruh kebutuhan pengguna. Penyusunan

basis data ini didasarkan pada kamus aliran data yang telah dibuat pada

tahap sebelumnya.

Perancangan basis data secara konseptual terdiri atas tiga langkah berikut:

a. penentuan entitas pada basis data

b. pendefinisian hubungan antar entitas

c. penerjemahan hubungan antar entitas

Dalam Kadir (1999:46) langkah-langkah tersebut melibatkan komponen-

komponen yang terstruktur seperti dalam gambar 4.3.

Model Data Logis

Entitas Atribut Hubungan Kekangan

Kunci Kandidat Kunci Asing Integritas Domain

f i

Kunci Primer Kunci Alternatif

Penambahan Peremajaan Penghapusan

Nama Tipe Format Panjang Nilai

Gambar 4.3 Tahapan Perancangan Basis Data (Kadir, 1999:46)

Penjelasan komponen-komponen di atas sebagai berikut.

 34

a. Entitas

Entitas sering disebut dengan kelas entitas atau tipe,. Entitas

menyatakan obyek atau kejadian. Pada basis data ini yang disebut

entitas adalah data check in, data jenis check out, data pegawai, data

kamar. Pada model database relasional, entitas disebutkan dalam tabel.

b. Atribut

Atribut merupakan item data yang menjadi bagian dari entitas. Istilah

lain dari atribut adalah properti. NIP, nama pegawai, alamat

merupakan suatu atribut.

c. Hubungan (Relation)

Hubungan adalah kaitan dari dua entitas. Misalnya antara pegawai dan

kegiatannya terdapat hubungan yang berupa Pegawai A menjalankan

sistem administrasi. Pada model relasional, hubungan akan menjadi

kunci tamu.

d. Kekangan

Kekangan digunakan untuk melindungi integritas data, misalnya

melindungi kesalahan waktu pengisian data.

e. Domain

Domain merupakan nilai yang berlaku pada suatu atribut. Kekangan

domain mendefinisikan nama, tipe, format, panjang, serta nilai dari

masing-masing item data. Misalnya tipe data char, numeric, atau jenis

lainnya pada perangkat lunak sistem basis data. Char menyatakan tipe
 35

karakter, dapat berupa gabungan beberapa huruf, simbol, dan angka.

numeric menyatakan tipe bilangan.

f. Integritas referensi

Integritas referensi merupakan aturan-aturan yang mengatur hubungan

antara kunci primer dengan kunci tamu milik tabel-tabel yang terdapat

pada suatu sistem basis data relasional untuk menjaga konsistensi data.

Tujuan dari integritas referensi adalah untuk menjamin elemen dari

suatu tabel yang menunjukkan ke suatu pengenal unik pada suatu baris

pada tabel lain yang benar-benar menunjuk ke nilai yang ada itu.

Sebagai contoh ada suatu aturan yang tidak memperkenankan jenis

biaya pada data biaya dihapus jika jenis biaya tersebut dipakai oleh

tabel lain. Macam integritas data ada tiga, yaitu:

1) penambahan (insert)

2) penghapusan (delete)

3) peremajaan (update)

pembagian ini didasarkan pada operasi yang dilakukan.

Integritas referensional pada peremajaan memungkinkan pengubahan

suatu kunci pada tabel yang menyebabkan semua nilai pada tabel lain

yang tergantung pada tabel tersebut juga berubah.

2. Perancangan Sistem Aplikasi

Perancangan sistem database menggambarkan secara umum

bentuk sistem yang akan atau telah berlangsung. Tujuan perancangan

sistem ini adalah untuk mengendalikan atau memecah tugas kedalam

 36

beberapa model atau sub-sub program kemudian untuk dipakai ke dalam

sistem komputerisasi.

a. Perancangan Basis Data

1) Membuat Database

Untuk membuat database dari Visual Basic digunakan VisData

dengan format Microsoft Access langkah-langkahnya sebagai

berikut:

a). Dari jendela Visual Basic pilih menu Add-Ins kemudian pilih

Visual Data Manager (VisData).

Gambar 4.4. VisData

b). Pilih menu File, Lalu New kumudian pilih Microsoft Access,

dan pilih Version 7.0 MDB

Gambar 4.5. Membuat Database Microsoft Access

c). Selanjutnya akan ditampilkan kotak dialog Select Microsoft

Access Data to Create. Pilihlah folder atau direktori pada kotak

 37

Save in untuk menyimpan database yang akan dibuat, lalu

simpan sesuai dengan nama database yang dibuat.

Gambar 4.6. Menu Select Microsoft Access Database to Create

d). Tekan Save

e). Selanjutnya membuat tabel, langkah-langkahnya adalah sebagai

berikut.

(1) Klik kanan pada jendela Database (Database Windows),

kemudian dari tampilan menu yang tampak pilih New Table

Gambar 4.7. Membuat Tabel

Dari tabel VisData ketikkan nama tabelnya pada kotak

Table Name. Dan isikan field–field pada kotak Field List

 38

Gambar 4.8. Tabel Struktur

(1) Klik tombol Add Field untuk membuat field baru dan

buat field sebagai berikut

No Nama Field Tipe Data Lebar

1. NIP Text 15

2. Nama Text 50

3. Alamat Text 25

4. Tempat_Lahir Text 25

5. Tanggal_Lahir Date / Time 15

6. Jenis _Kelamin Text 50

7. Agama Text 50

8. Alamat Text 20

9. Tahun_Masuk Text 20

Tabel 4.1. Tabel Pegawai

(2) Kemudian klik Build the Table untuk menyimpan struktur

tabel yang telah dibuat.

(3) Klik Close

 39

f). Selanjutnya dengan langkah yang sama dibuat tabel pegawai,

tabel data tamu, tabel check in, tabel check out, tabel kamar

dan tabel biaya (tabel lain terdapat pada lampiran 1).

3. Tahap Implementasi Sistem

a. Tahap Pengkodean

Pada tahap pengkodean ini yang dilakukan adalah pengembangan

aplikasi dengan pemprograman visual disertai dengan penulisan kode

program (listing program).

b. Tahap Pengujian Program

Pada tahap pengujian program ini adalah dengan menguji

mengenai adanya kesalahan–kesalahan dalam pembuatan program.

Kesalahan-kesalahan yang terjadi dalam pengujian program adalah

sebagai berikut:

1) Kesalahan Bahasa (Language Error)

Kesalahan bahasa adalah kesalahan dalam penulisan kode

program yang tidak sesuai dengan kriteria dari bahasa program

yang dipakai.

2) Kesalahan Proses

Kesalahan yang muncul ketika proses eksekusi program

dilakukan. Kesalahan ini mengakibatkan program akan berhenti

sebelum selesai pada saatnya karena program tidak menemukan

objek yang sedang dijalankan.

 40

3) Kesalahan Logika

Kesalahan logika dalam pembuatan program aplikasi sangat

sulit untuk ditemukan. Program akan tetap memproses dan

didapatkan hasilnya, namun hasilnya tidak sesuai dengan yang

diharapkan.

B. Hasil Pemrograman

Dari pembuatan program sistem komputerisasi pada Puri Indrakilla

Hotel dan Cottage Ungaran dengan Microsoft Visual Basic untuk pengolahan

data pegawai dan tamu hotel diperoleh hasil sebagai berikut.

1. Form Menu Login

Tampilan form menu utama awal menjalankan program database

pada Puri Indrakilla Hotel dan Cottage Ungaran adalah sebagai berikut.

Gambar 4.9. Tampilan Menu Login

 41

Pada form menu login terdapat beberapa dua menu pilihan yaitu

informasi umum dan login untuk administrator. Menu ini hanya dapat

digunakan untuk memasuki program aplikasi yang dibuat. Untuk

menginput atau mengedit data terlebih dahulu masuk menu administrator

dan isikan user name dan password kemudian login.

2. Menu Informasi

Tampilan form informasi memberikan informasi status kamar

maupada kondisi kamar pada Puri Indrakilla Hotel dan Cottage Ungaran

adalah sebagai berikut.

Gambar 4.10. Tampilan Menu Informasi

3. Menu Utama

Menu Utama ditujukan untuk form utama jalannya akses, menu ini

digunakan untuk measuk menuju data-data lain yang berhubungan.

Masing-masing dari menu menampilkan proses dari masing masing data.

 42

a. Menu Status room

Menu status room seperti gambar 4.11 digunakan untuk

pencarian informasi seperti jenis kamar dan fasilitasnya. Menu ini juga

menunjukkan apakah kamar yang dicari tersebut apakah kosong

ataukah isi. Langkah-langkah pencarian data adalah sebagai berikut.

1) Tulis criteria yang akan dicari dan klik cari mak akan muncul di

semua texbox.

2) Pilih check untuk criteria pencarian agar semua textbox aktif dan

dapat diganti isinya.

3) Setelah check box diisi, maka tekan tombol cari dan kemudian

hasil pencarian baik isi maupun kosong dapat dilihat pada form.

Gambar 4.11. Tampilan Menu Status Room

 43

b. Menu Update Kamar

Menu Update kamar seperti gambar 4.14 digunakan untuk

mencari, menambah, dan menghapus data tamu yang menginap

berdasarkan nomor kamar, status kamar dan jenis kamar.

Gambar 4.14. Tampilan Menu Update Kamar

c. Tampilan Menu Check In

Gambar 4.12. Tampilan Menu Check In

 44

Menu check seperti gambar 4.12 digunakan untuk memasukkan

datadari tamu hotel yang menginap. Pada form ini terkoneksi dengan

beberapa form yaitu check out serta edit.

d. Tampilan Menu Check Out

Gambar 4.13. Tampilan Menu Check Out

Menu check out seperti gambar 4.13 digunakan untuk

melakukan upload data tamu hotel yang pergi meninggalkan hotel.

Pada form ini terkoneksi dengan beberapa form yaitu check in, room

status serta edit.

e. Tampilan Displai Data pada Form

Displai data pada form seperti gambar 4. 14 adalah data Hotel

yang berisi data check in, data check out dan data pegawai. Misalnya

data check out meliputi no, nama tamu, alamat tamu, tanggal masuk,

tanggal keluar, jenis kamar dan total pembayaran.

 45

Gambar 4.14. Tampilan Displai Data pada Form

f. Tampilan Displai Data pada Report

Displai data pada report seperti gambar 4.15 merupakan data

report tentang data pengunjung yang menginap meliputi nama, alamat,

kamar, dan cost.

Gambar 4.15. Tampilan Displai Data pada Report

 46

g. Tampilan User Account

Menu user Account seperti gambar 4.16 digunakan untuk

mengakses User Account pegawai.

Gambar 4.16. Tampilan User Account

h. Tampilan Kirim Pesan

Menu tampilan kirim pesan seperti gambar 4. 17 diperuntukkan

bagi user untuk mengirim pesan terhadap komputer lain yang

terkoneksi.

Gambar 4.17. Tampilan Kirim Pesan

 47

i. Tampilan Deteksi Komputer Aktif

Tampilan Deteksi Komputer Aktif seperti gambar 4. 18

digunakan untuk melakukan sharing terhadap port yang terbuka.

Gambar 4.18. Tampilan Deteksi Komputer Aktif

j. Data Kepegawaian

Data pegawai seperti gambar 4.19 merupakan tab pegawai yang

berisi nam, NIP, alamat, jenis kelamin, tanggal lahir, alamat dan

jabatan.

Gambar 4.19. Tampilan Data Kepegawaian

 48

k. Login Admin

Login admin seperti gambar 4.20 digunakan memasuki

sirkulasi pendataan yang dilakukan oleh account.

Gambar 4.20. Login Admin

l. Displai sirkulasi data

Sirkulasi data seperti dalam gambar 4.21 digunakan oleh

manager hotel untuk melihat pendataan oleh account yang aktif.

Account pegawai yang aktif terlihat dalam form ini, begitu juga semua

tamilan data tamu.

Gambar 4.21. Tampilan Display data Admin

 49

m. Peta Hotel

Tampilan Lokasi seperti dalam gambar 4.22 memperlihatkan

lokasi hotel bagi tamu yang berkunjung ke hotel..

Gambar 4.22. Tampilan Lokasi Informasi

C. Hasil Pengujian Program dan Pembahasan

Program database ini menggunakan program Microsoft Visual Basic

dengan bahasa basic sebagai bahasa dalam pembuatan program aplikasi

database ini. Program dibuat untuk membuat sistem informasi mengenai data-

data yang ada pada Puri Indrakilla Hotel dan Cottage Ungaran khususnya

tamu hotel dan informasi kamar hotel. Tentunya program database ini

mempunyai kelebihan dan kekurangan.

Program database ini memiliki keunggulan dibandingkan dengan

pengolahan secara manual yang selama ini masih digunakan pada Puri

Indrakilla Hotel dan Cottage Ungaran. Keunggulan program database ini

antara lain dalam pencarian data yang lebih praktis dan efisien tanpa harus
 50

mencari satu persatu data-data yang ada atau file-file yang ada pada komputer.

Program ini juga dilengkapi dengan cetak data. Program ini juga mempunyai

kelebihan dalam hal keamanan data yaitu data yang telah tersimpan tidak

dapat diubah, ditambah atau dihapus karena untuk masuk ke menu input dan

menu edit harus memasukaan nama dan password terlebih dahulu. Pada sistem

aplikasi ini juga mempunyai kelebihan, program ini selalu berada pada di atas

sistem operasi, sehingga pada saat program dijalankan, maka komputer yang

digunakan tidak dapat digunakan untuk bermain-main sehingga dapat

membatasi pegawai dalam kinerja komputer yang digunakan.

Program aplikasi database ini juga masih memiliki kekurangan yaitu,

mengenai menu program yang masih kurang lengkap. Diantaranya adalah data

gaji pegawai dikarenakan penulis belum bisa mendapatkan karena data

dirahasiakan. Penulis hanya mendapatkan data kamar, jenis dan harga kamar

hotel beserta daftar fasilitasnya.

 BAB V

PENUTUP

A. Simpulan

Dari hasil pembahasan, simpulan yang diambil adalah perancangan

sistem basis data Puri Indrakilla Hotel dan Cottage Ungaran melalui

beberapa tahapan. Pertama, tahap studi kelayakan untuk melakukan

identifikasi kebutuhan di Puri Indrakilla Hotel dan Cottage Ungaran.

Identifikasi kebutuhan di Puri Indrakilla Hotel dan Cottage Ungaran

meliputi: kondisi obyektif Puri Indrakilla Hotel dan Cottage Ungaran.

Kedua, tahap rencana pendahuluan untuk menentukan sistem yang

ditangani. Pada tahap ini dilakukan dengan membuat diagram alir data

konteks. Ketiga, tahap analisis sistem untuk menjelaskan lebih detail dari

tahap rencana pendahuluan. Keempat, tahap implementasi sistem yang

merupakan tahap akhir dalam perancangan basis data yang meliputi

pengkodean prgram, cara kerja program, hasil proses kerja program,

pengujian program sehingga dihasilkan basis data pegawai, data check in,

check out serta kamar di Puri Indrakilla Hotel dan Cottage Ungaran. Cara

kerja program dimulai dari tampilan awal yaitu form awal, untuk membuka

program terlebih dahulu memasukkan password. Sistem sharing port yang

dibuat memudahkan manager hotel melihat komputer-komputer yang

terbuka atau digunakan, dengan memanfaatkan message net send

49
 50

memudahkan pengiriman pesan peringatan bagi yang tidak berkepentingan,

atau dengan kata lain terpantau langsung.

B. Saran

1. Manajemen data tamu hotel, informasi kamar hotel serta data karyawan

bagian penting manajemen perhotelan, jadi diharapkan sudah

menggunakan teknologi komputer dan memanfaatkan komputer untuk

memudahkan basis data sistem administrasi data hotel.

2. Sistem administrasi data perhotelan yang semakin lama semakin banyak

dan komplek, membuat sistem administrasi seperti ini harus selalu di

update setiap waktu sesuai dengan perkembangan.

 DAFTAR PUSTAKA

Andi. 2001. Microsoft Visual Basic 6.0. Yogyakarta: Andi Offset

Anonim. 2007. Sistem Manajemen Hotel, Hotel Pro 2007.

[Link] (23 Maret 2007).

Kadir, A. 1999. konsep dan tuntunan praktis basis. Yogyakarta: Andi offset

Kruglinski, D. 1986. Database Management System. California: Osborus MC

Grow Hill.

Kurniawan, T. 2003. Tip trik Unik Visual Basic. Jakarta: PT Elex Media
Kompetindo

Marlinda, L. 2004. Sistem Basis Data. Yogyakarta: CV Andi Offset.

Pandia, H. 2002. Visual Basic Tingkat Lanjut. Yogyakarta: Andi Offset

53
 54

Lampiran 1

Tabel 1 Kamus Data

Nama Field Type Lebar (Width)

Nama_Pegawai Char 25

NIP Char 12

TTL_Pegawai Day, Date

Jenis_Kelamin Char 10

Alamat_pegawai Varchar 150

Jabatan Char 30

User_Name Char 30

Password Char 25

Nama_tamu Char 25

Alamat_tamu Varchar 150

Jenis_kelamin Char 10

Telepon Char 15

Tanggal_CheckIn Date

Jam_Masuk Time

Tanggal_CheckOut Date

Jam_Keluar Time

Nomor_Kamar Integer 5

Jenis_Kamar Char 20

Status_Kamar Char 20
 55

Lampiran 2

Source Code
Menu Login
Option Explicit
Private X, y As Integer

Private Sub CmdKeluar_Click()

[Link] = True
End Sub

Private Sub Command3_Click()

X = 1500
y=y+1
For y = 1 To X
If y = X Then
simpan
[Link]
[Link]
End If
With ProgressBar1
.Min = 0
.Max = X
.Value = y
End With
Next
End Sub

Private Sub Command4_Click()

If [Link] = "" Or [Link] = "" Then
MsgBox "Periksa Data Anda!", 0, "Konfirmasi"
Else
[Link] = "select * from TabUser WHERE Nama like '" & TxtUser
& "'"
[Link]
If [Link] Then
MsgBox "ID " & TxtNama & " Belum Terdaftar ", 0, "Peringatan"
[Link] = "select * from TabUser"
[Link]
[Link]
Else
[Link] = "select * from TabUser WHERE Password like '" &
TxtPassword & "'"
[Link]
If [Link] Then
 56

MsgBox "Password Salah ", 0, "Peringatan"

[Link] = "select * from TabUser"
[Link]
[Link]
Else
[Link] = True
End If
End If
End If
End Sub

Private Sub Form_Activate()

[Link] = ""
[Link]
[Link]
[Link] = [Link] & ("\konfigurasi\[Link]")
End Sub

Private Sub Form_Load()

[Link] = False
[Link] = False
[Link] = False
[Link] = [Link] & ("\[Link]")
[Link] = "TabUser"
[Link] = 1
[Link] = [Link] & ("\[Link]")
[Link] = "TabUser"
[Link] = 1
[Link] = [Link] & ("\[Link]")
[Link] = "TabPengunjung"
[Link] = 2
[Link] = 0
[Link] [Link] + "\skins\[Link]"
[Link] hWnd
End Sub

Private Sub Timer1_Timer()

X = 25
y=y+1
If y > X Then
End
[Link] = False
Exit Sub
End If
With ProgressBar1
.Min = 0
 57

.Max = X
.Value = y
End With
End Sub

Private Sub Timer2_Timer()

Time
End Sub

Private Sub Timer3_Timer()

time2
End Sub

Sub Time()
X = 25
y=y+1
If y > X Then
simpan
[Link]
[Link]
[Link] = False
Exit Sub
End If
With ProgressBar1
.Min = 0
.Max = X
.Value = y
End With
End Sub
Sub time2()
X = 25
y=y+1
If y > X Then
[Link]
Unload Me
[Link] = False
Exit Sub
End If
With ProgressBar1
.Min = 0
.Max = X
.Value = y
End With
End Sub
Private Sub TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 58

[Link] = True
Call Time
End If
End Sub

Private Sub TxtPassword_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
If [Link] = "" Or [Link] = "" Then
MsgBox "Periksa Data Anda!", 0, "Konfirmasi"
[Link]
Else
[Link] = "select * from TabUser WHERE Nama like '" & TxtUser
& "'"
[Link]
If [Link] Then
MsgBox "ID " & TxtNama & " Belum Terdaftar ", 0, "Peringatan"
[Link] = "select * from TabUser"
[Link]
[Link]
Else
[Link] = "select * from TabUser WHERE Password like '" &
TxtPassword & "'"
[Link]
If [Link] Then
MsgBox "Password Salah ", 0, "Peringatan"
[Link] = "select * from TabUser"
[Link]
[Link]
Else
[Link] = True
End If
End If
End If
End If
End Sub

Private Sub TxtUser_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
[Link]
End If
End Sub
Sub simpan()
If [Link] = "" Then
MsgBox "Masukkan Nama Anda", vbInformation, "Perhatian"
[Link]
Else
 59

With [Link]
.AddNew
!Nama = [Link]
'!No = [Link]
.Update
End With
[Link]
End If
End Sub

Menu Informasi

Private Sub CCari_Click()

If [Link] = "" Then
MsgBox "Periksa Data Anda!", 0, "Konfirmasi"
Else
[Link] = "select * from checkin WHERE Nama like '" & TxtNama
& "*'"
[Link]
[Link]
If [Link] Then
MsgBox "Tidak Terdapat Nama Yang Mirip ", 0, "Peringatan"
[Link] = "select * from checkin"
[Link]
Else
End If
End If
End Sub

Private Sub Command2_Click()

[Link] = [Link] & "\" & [Link]
[Link]
End Sub

Private Sub Dir1_Change()

[Link] = [Link]
End Sub

Private Sub Drive1_Change()

[Link] = [Link]
End Sub

Private Sub CmdCari_Click()

If [Link] = True Then
cari
 60

Else
cari1
End If
End Sub

Private Sub Command1_Click()

[Link]
[Link]
[Link]
End Sub

Private Sub Form_Activate()

[Link] = "select * from tabroom where status LIKE '" & Text7 & "'"
[Link]
[Link] = [Link]
[Link] = "select * from tabroom where status LIKE '" &
"DIPESAN" & "'"
[Link]
[Link] = [Link]

With [Link]
.MoveLast
End With
With [Link]
.MoveLast
[Link] = !KamarNo
End With
[Link] = 30 - Val([Link])
[Link] = Val([Link])
[Link] = Val([Link]) + Val([Link]) + Val([Link])
End Sub

Private Sub Form_Load()

[Link] = [Link] & ("\[Link]")
[Link] = "TabRoom"
[Link] = [Link] & ("\[Link]")
[Link] = "TabRoom"
[Link] = 1
[Link] = [Link] & ("\[Link]")
[Link] = "TabPengunjung"
[Link] = 1
[Link] = [Link] & ("\[Link]")
[Link] = "checkin"
[Link] = 1
[Link] = [Link] & ("\[Link]")
[Link] = "checkin"
 61

[Link] = 1
[Link] = [Link] & ("\Konfigurasi\[Link]")

[Link] [Link] + "\Skins\[Link]"

[Link] hWnd
End Sub
Sub cari1()
If [Link] = "" Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan)!", 0,
"Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Status like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan) ", 0,
"Peringatan"
[Link] = "select * from TabRoom"
[Link]
Else
End If
End If
End Sub

Sub cari()
If [Link] = "" Then
MsgBox "Periksa Data Anda!", 0, "Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Nomer like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Masukkan Nomor Kamar Antara dari 1001 s.d 1030 ", 0,
"Peringatan"
[Link] = "select * from TabRoom"
[Link]
Else
End If
End If
End Sub

Private Sub Option1_Click()

[Link] = True
End Sub
 62

Private Sub Option2_Click()

[Link] = True
End Sub

Menu Status Room

Private Sub CmdCari_Click()
If [Link] = True Then
cari
Else
If [Link] = True Then
cari1
Else
cari3
End If
End If
End Sub

Private Sub Command1_Click()

[Link]
[Link]
End Sub

Private Sub Command2_Click()

[Link]
[Link]
End Sub

Private Sub CmdFirst_Click()

With [Link]
.MoveFirst
[Link] = !Nama
[Link] = !Alamat
[Link] = !Umur
[Link] = !Sex
[Link] = !Phone
[Link] = !TanggalMasuk
[Link] = !Jam
[Link] = !KamarNo
End With
End Sub

Private Sub CmdLast_Click()

With [Link]
.MoveLast
 63

[Link] = !Nama
[Link] = !Alamat
[Link] = !Umur
[Link] = !Sex
[Link] = !Phone
[Link] = !TanggalMasuk
[Link] = !Jam
[Link] = !KamarNo
End With
End Sub

Private Sub CmdNext_Click()

On Error GoTo a
If [Link] <> True Then
With [Link]
.MoveNext
[Link] = !Nama
[Link] = !Alamat
[Link] = !Umur
[Link] = !Sex
[Link] = !Phone
[Link] = !TanggalMasuk
[Link] = !Jam
[Link] = !KamarNo
End With
If [Link] = True Then
[Link]
MsgBox "Data Terakhir", vbInformation, "Informasi"
End If
End If
a:
MsgBox "Data Setelahnya", vbInformation, "Pesan"
End Sub

Private Sub CmdPrev_Click()

On Error GoTo a
If [Link] = True Then
With [Link]
.MoveFirst
[Link] = !Nama
[Link] = !Alamat
[Link] = !Umur
[Link] = !Sex
[Link] = !Phone
[Link] = !TanggalMasuk
[Link] = !Jam
 64

[Link] = !KamarNo
End With
MsgBox "Data Pertama", vbInformation, "Informasi"
'If [Link] <> True Then
Else
With [Link]
.MovePrevious
[Link] = !Nama
[Link] = !Alamat
[Link] = !Umur
[Link] = !Sex
[Link] = !Phone
[Link] = !TanggalMasuk
[Link] = !Jam
[Link] = !KamarNo
End With
End If
a:
MsgBox "Data Sebelumnya", vbInformation, "Pesan"
End Sub

Private Sub Form_Activate()

'[Link] = True
'[Link] = ""
'[Link]
End Sub

Private Sub Form_Load()

[Link] = [Link] & ("\[Link]")
[Link] = "TabRoom"
[Link] = 2
[Link] = 0
[Link] = [Link] & ("\[Link]")
[Link] = "TabRoom"
[Link] = 1
[Link] = [Link] & ("\[Link]")
[Link] = "checkin"
[Link] = 2
[Link] = 0
[Link] [Link] + "\Skins\[Link]"
[Link] hWnd

[Link] = [Link] & ("\konfigurasi\[Link]")

[Link] = [Link] & ("\konfigurasi\[Link]")
[Link] = [Link] & ("\Konfigurasi\[Link]")
[Link] = [Link] & ("\Konfigurasi\[Link]")
 65

[Link] = [Link] & ("\Konfigurasi\[Link]")

End Sub

Private Sub Option1_Click()

[Link] = True
End Sub

Private Sub Option2_Click()

[Link] = True
End Sub

Sub cari()
If [Link] = "" Then
MsgBox "Periksa Data Anda!", 0, "Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Nomer like '" & TxtCari
& "'"
[Link]
[Link]
With [Link]
.Index = "kamarnodex"
.Seek "=", [Link]
If Not .NoMatch Then
[Link] = !Nama
[Link] = !Alamat
[Link] = !Umur
[Link] = !Sex
[Link] = !Phone
[Link] = !TanggalMasuk
[Link] = !Jam
[Link] = !KamarNo
[Link]
Else
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End If
End With
'End If
If [Link] Then
 66

MsgBox "Masukkan Nomor Kamar Antara dari 1001 s.d 1030 ", 0,
"Peringatan"
[Link] = "select * from TabRoom"
[Link]
Else
End If
End If
End Sub
Sub cari1()
If [Link] = "" Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan)!", 0,
"Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Status like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan) ", 0,
"Peringatan"
[Link] = "select * from TabRoom"
[Link]
Else
End If
End If
End Sub
Sub cari3()
If [Link] = "" Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan)!", 0,
"Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Jenis like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Periksa Jenis Kamar (Biasa atau VIP) ", 0, "Peringatan"
[Link] = "select * from TabRoom"
[Link]
Else
End If
End If
End Sub
Private Sub Option3_Click()
[Link] = True
End Sub
 67

Menu Check In

Private Sub CCari_Click()

If [Link] = "" Then
pesan = MsgBox("Masukkan Nomor Kamar", vbQuestion, "Pesan")
[Link]
Else
With [Link]
.Index = "kamarnodex"
.Seek "=", TNomorKamar
If Not .NoMatch Then
[Link] = !TanggalMasuk
[Link] = !Jam
[Link] = !Sex
[Link] = !Nama
[Link] = !Umur
[Link] = !Alamat
[Link] = !Phone
[Link] = True
Else
pesan = MsgBox("KAMAR NOMOR " + [Link] + _
" MASIH KOSONG ", vbInformation, "Informasi")
[Link]
[Link]
[Link] = False
TUTUP
End If
End With
End If
End Sub

Private Sub CmdCari_Click()

If [Link] = True Then
cari
Else
If [Link] = True Then
cari1
Else
cari3
End If
End If
End Sub

Private Sub Cmdcheckin_Click()

[Link] = False
[Link] = True
 68

[Link] = True
[Link] = False
[Link] = False
End Sub

Private Sub CmdEdit_Click()

[Link] = True
[Link] = False
[Link] = False
[Link] = True
[Link] = True
[Link] = [Link] & ("\konfigurasi\[Link]")
End Sub

Private Sub CmdLihat_Click()

If [Link] = "" Then
pesan = MsgBox("Masukkan Nomor Kamar.....", vbQuestion, "Pesan")
[Link] = "1001"
[Link]
Else
With [Link]
.Index = "NoDex"
.Seek "=", [Link]
If Not .NoMatch Then
[Link] = !Nomer
[Link] = !Jenis
[Link] = !Status
Else
[Link]
End If
End With
If [Link] = "KOSONG" Then
[Link] = True
Else
[Link] = False
End If
End If
If [Link] = "KOSONG" Then
[Link] = "ISI"
Else
[Link] = "KOSONG"
End If
If [Link] = "KOSONG" Or [Link] = "Kosong" Or [Link] =
"kosong" Then
[Link] = False
End If
 69

End Sub

Private Sub CmdLihatStatus_Click()

End Sub

Private Sub CmdRefesh_Click()

[Link]
[Link]
[Link]
End Sub

Private Sub CmdSimpan_Click()

simpan
simpan1
[Link] = ""
[Link] = ""
[Link] = ""
End Sub

Private Sub CmdTambah_Click()

[Link] = True
kosongkan
End Sub

Private Sub Combo1_Change()

End Sub

Private Sub ComboKamar_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then
[Link]
End If
End Sub

Private Sub Command2_Click()

If [Link] = "" Or [Link] = "" Or [Link] = "" Or [Link] =
"" Then
pesan = MsgBox("Data Harus DiIsi Semua ", vbInformation, _
"Perhatian")
'[Link]
Else
On Error GoTo simpan
With [Link]
.Edit
!TanggalMasuk = [Link]
 70

!Jam = [Link]
!Sex = [Link]
!Nama = [Link]
!Umur = [Link]
!Alamat = [Link]
!Phone = [Link]
.Update
End With
With [Link]
.Edit
!Nomer = [Link]
!Jenis = [Link]
!Status = [Link]
.Update
End With
simpan:
MsgBox "Data Telah Tersimpan", vbInformation, "Pesan"
[Link] = False
[Link]
TUTUP1
[Link] = False
[Link]
End If
End Sub

Private Sub Command3_Click()

[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link]
[Link] = True
[Link] = False
End Sub

Private Sub Command4_Click()

[Link]
[Link]
End Sub

Private Sub Command5_Click()

[Link]
[Link]
End Sub
 71

Private Sub Form_Activate()

[Link] = "1001"
[Link]
End Sub

Private Sub Form_Load()

[Link] = [Link] & ("\[Link]")
[Link] = "TabRoom"
[Link] = 1

[Link] = [Link] & ("\[Link]")

[Link] = "checkin"
[Link] = 0
[Link] = 2
[Link] = [Link] & ("\[Link]")
[Link] = "TabRoom"
[Link] = 0
[Link] = 2

[Link] [Link] + "\skins\[Link]"

[Link] hWnd

[Link] = [Link]
[Link] = [Link]

For i = 1001 To 1030

[Link] i
Next i
For i = 1001 To 1030
[Link] i
Next i

End Sub
Sub cari()
If [Link] = "" Then
MsgBox "Periksa Data Anda!", 0, "Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Nomer like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Masukkan Nomor Kamar Antara dari 1001 s.d 1030 ", 0,
"Peringatan"
[Link] = "select * from TabRoom"
[Link]
 72

End If
End If
End Sub
Sub cari1()
If [Link] = "" Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan)!", 0,
"Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Status like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan) ", 0,
"Peringatan"
[Link] = "select * from TabRoom"
[Link]
End If
End If
End Sub
Sub cari3()
If [Link] = "" Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan)!", 0,
"Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Jenis like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Periksa Jenis Kamar (Biasa atau VIP) ", 0, "Peringatan"
[Link] = "select * from TabRoom"
[Link]
Else
End If
End If

End Sub

Private Sub Option1_Click()

[Link] = True
End Sub

Private Sub Option2_Click()

[Link] = True
End Sub
 73

Private Sub Option3_Click()

[Link] = True
End Sub

Sub kosongkan()
[Link] = True
[Link] = True
[Link] = True
OpLaki_laki.Enabled = True
[Link] = True
[Link] = True
[Link] = True

[Link] = ""
[Link] = ""
[Link] = ""
OpLaki_laki.Value = False
[Link] = False
[Link] = ""
[Link] = ""
[Link]
End Sub

Sub simpan()
If [Link] = "" Or [Link] = "" Or _
[Link] = "" Or _
[Link] = "" Or [Link] = "" Then
pesan = MsgBox("Data Harus DiIsi Semua ", vbInformation, _
"Perhatian")
[Link]
Else
With [Link]
.Index = "kamarnodex"
.Seek "=", ComboKamar
If Not .NoMatch Then
MsgBox "Kamar Nomor " + ComboKamar + " Sudah Terisi ",
vbInformation, "PESAN"
[Link]
Else
With [Link]
.AddNew
!TanggalMasuk = [Link]
!Jam = [Link]
If OpLaki_laki.Value = True Then !Sex = "Laki-Laki" Else !Sex =
"Perempuan"
 74

!Nama = [Link]
!Umur = [Link]
!Alamat = [Link]
!Phone = [Link]
!KamarNo = [Link]
.Update
End With
kosongkan
[Link]
[Link] = False
[Link]
End If
End With
End If
End Sub

Sub simpan1()
If [Link] = "KOSONG" Then
With [Link]
.Edit
!Nomer = [Link]
!Jenis = [Link]
!Status = [Link]
.Update
End With
Else
MsgBox "Kamar Sudah Terisi", vbInformation, "Pesan"
End If
End Sub

Private Sub TNomorKamar_KeyPress(KeyAscii As Integer)

If Not (KeyAscii = vbKeyBack Or _
KeyAscii >= Asc("0") And _
KeyAscii <= Asc("9") Or _
KeyAscii = 13) Then
KeyAscii = 0
End If
End Sub
Sub TUTUP()
[Link] = False
[Link] = False
[Link] = False
OpLaki_laki.Enabled = False
[Link] = False
[Link] = False
 75

[Link] = False
End Sub
Sub TUTUP1()
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub

Private Sub TxtAlamat_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then
[Link]
End If
End Sub

Private Sub TxtCari_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then
If [Link] = True Then
cari
Else
If [Link] = True Then
cari1
Else
cari3
End If
End If
End If
End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then
[Link]
End If
End Sub
Private Sub TxtPhone_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
[Link]
End If
End Sub
Private Sub TxtUmur_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
[Link]
End If
End Sub
 76

Menu CheckOut
Option Explicit

Private Sub CmdCari_Click()

If [Link] = True Then
cari
Else
If [Link] = True Then
cari1
Else
cari3
End If
End If
End Sub
Sub cari()
If [Link] = "" Then
MsgBox "Periksa Data Anda!", 0, "Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Nomer like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Masukkan Nomor Kamar Antara dari 1001 s.d 1030 ", 0,
"Peringatan"
[Link] = "select * from TabRoom"
[Link]
End If
End If
End Sub
Sub cari1()
If [Link] = "" Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan)!", 0,
"Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Status like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan) ", 0,
"Peringatan"
[Link] = "select * from TabRoom"
[Link]
End If
 77

End If
End Sub
Sub cari3()
If [Link] = "" Then
MsgBox "Periksa Status Pengisian (Biasa atau VIP)!", 0, "Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Jenis like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Periksa Jenis Kamar (Biasa atau VIP) ", 0, "Peringatan"
[Link] = "select * from TabRoom"
[Link]
Else
End If
End If
End Sub

Private Sub Cmdcaridata_Click()

[Link]
[Link]
End Sub

Private Sub Cmdcheckin_Click()

[Link]
[Link]
End Sub

Private Sub Command1_Click()

hitung
End Sub

Private Sub Command2_Click()

If [Link] = "0" Or [Link] = "" Then
MsgBox "Coba Periksa Total Biaya Penginapan Dahulu", vbInformation, "Pesan"
Else
With [Link]
.AddNew
!TanggalMasuk = [Link]
!Sex = [Link]
!Nama = [Link]
!Umur = [Link]
!Alamat = [Link]
!Phone = [Link]
!KamarNo = [Link]
 78

!TanggalKeluar = [Link]
!TipeKamar = [Link]
!LamaMenginap = [Link]
!TotalPembayaran = [Link]
.Update
End With
With [Link]
.Edit
!Status = [Link]
.Update
End With
[Link]
[Link]
[Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
End If
End Sub

Private Sub CommandCari_Click()

cari4
cari5
cari6
[Link]
End Sub

Private Sub Form_Activate()

[Link]
End Sub

Private Sub Form_Load()

[Link] = [Link] & ("\[Link]")
[Link] = "TabRoom"
[Link] = 1
 79

[Link] = [Link] & ("\[Link]")

[Link] = "checkin"
[Link] = 0
[Link] = 2
[Link] = [Link] & ("\[Link]")
[Link] = "TabRoom"
[Link] = 0
[Link] = 2
[Link] = [Link] & ("\[Link]")
[Link] = "CheckOut"
[Link] = 0
[Link] = 2
[Link] = [Link] & ("\[Link]")
[Link] = "TabBiaya"
[Link] = 0
[Link] = 2

[Link] [Link] + "\skins\[Link]"

[Link] hWnd
End Sub

Private Sub Option1_Click()

[Link] = True
End Sub

Private Sub Option2_Click()

[Link] = True
End Sub

Private Sub Option3_Click()

[Link] = True
End Sub

Sub cari4()
If [Link] = "" Then
MsgBox "Masukkan Nomor Kamar(1001 s.d 1030)!", 0, "Konfirmasi"
Else
With [Link]
.Index = "kamarnodex"
.Seek "=", [Link]
If Not .NoMatch Then
[Link] = !Nama
[Link] = !Alamat
[Link] = !Umur
[Link] = !Sex
[Link] = !Phone
 80

[Link] = !TanggalMasuk
[Link] = !Jam
Else
MsgBox "Kamar Ini Belum Terisi, Coba Periksa Status!!", vbInformation,
"Pesan"
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End If
End With
End If
End Sub

Sub cari5()
With [Link]
.Index = "NoDex"
.Seek "=", [Link]
If Not .NoMatch Then
[Link] = !Jenis
Else
[Link] = ""
End If
End With
End Sub

Sub cari6()
With [Link]
.Index = "JenisDex"
.Seek "=", [Link]
If Not .NoMatch Then
[Link] = !Biaya
Else
[Link] = ""
End If
End With
End Sub

Sub hitung()
[Link] = Val([Link]) * Val([Link])
[Link] = Val([Link]) -
Val([Link])
End Sub
 81

Private Sub TNOMERKAMAR_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
cari4
cari5
cari6
End If
End Sub

Menu Update Kamar

Option Explicit

Private Sub CmdCari_Click()

If [Link] = True Then
cari
Else
If [Link] = True Then
cari1
Else
cari3
End If
End If
With [Link]
.Index = "NoDex"
.Seek "=", [Link]
If Not .NoMatch Then
[Link] = !Nomer
[Link] = !Status
[Link] = !Jenis
Else
[Link] = ""
[Link] = ""
[Link] = ""
End If
End With
End Sub

Private Sub Command1_Click()

[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = ""
[Link] = ""
[Link] = ""
 82

[Link]

End Sub

Private Sub Command2_Click()

If [Link] = "" Or [Link] = "" Or [Link] = "" Then
MsgBox "Data Harus DiIsi Semua ", vbInformation, _
"Perhatian"
[Link]
Else
With [Link]
.Index = "NoDex"
.Seek "=", [Link]
If Not .NoMatch Then
MsgBox "Kamar Nomor " + TxtNomor + " Sudah Ada ", vbInformation,
"PESAN"
[Link]
Else
With [Link]
.AddNew
!Nomer = [Link]
!Jenis = [Link]
!Status = [Link]
.Update
End With
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End If
End With
End If
End Sub

Private Sub Command3_Click()

[Link] = False
[Link] = True

[Link] = True
[Link] = False
End Sub

Private Sub Command4_Click()

[Link] = True
[Link] = False
 83

[Link] = True
[Link] = False
End Sub

Private Sub Command5_Click()

If [Link] = "" Or [Link] = "" Then
MsgBox "Data Harus DiIsi Semua ", vbInformation, _
"Perhatian"
Else
With [Link]
.Edit
!Jenis = [Link]
!Status = [Link]
.Update
End With
[Link] = False
[Link] = False
[Link] = False
End If
End Sub

Private Sub Command6_Click()

[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link]
End Sub

Private Sub Command7_Click()

If [Link] = "" Or [Link] = "" Or [Link] = "" Then
MsgBox "Tidak Ada Data yang Dihapus", vbInformation, _
"Perhatian"
Else
MsgBox "Apakah Anda Yakin Akan Menghapusnya?", vbQuestion +
vbOKCancel, "Periksa"
If vbOK Then
[Link]
[Link] = False
End If
End If
End Sub

Private Sub Form_Load()

[Link] = [Link] & ("\[Link]")
[Link] = "TabRoom"
 84

[Link] = 1

[Link] = [Link] & ("\[Link]")

[Link] = "TabRoom"
[Link] = 0
[Link] = 2

[Link] [Link] + "\skins\[Link]"

[Link] hWnd
End Sub

Sub cari()
If [Link] = "" Then
MsgBox "Periksa Data Anda!", 0, "Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Nomer like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Masukkan Nomor Kamar Antara dari 1001 s.d 1030 ", 0,
"Peringatan"
[Link] = "select * from TabRoom"
[Link]
End If
End If
End Sub
Sub cari1()
If [Link] = "" Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan)!", 0,
"Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Status like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan) ", 0,
"Peringatan"
[Link] = "select * from TabRoom"
[Link]
End If
End If
End Sub
Sub cari3()
If [Link] = "" Then
 85

MsgBox "Periksa Status Pengisian (isi, kosong, atau dipesan)!", 0,

"Konfirmasi"
Else
[Link] = "select * from TabRoom WHERE Jenis like '" & TxtCari
& "'"
[Link]
[Link]
If [Link] Then
MsgBox "Periksa Jenis Kamar (Biasa atau VIP) ", 0, "Peringatan"
[Link] = "select * from TabRoom"
[Link]
Else
End If
End If
End Sub

Private Sub Option1_Click()

[Link] = True
End Sub

Private Sub Option2_Click()

[Link] = True
End Sub

Private Sub Option3_Click()

[Link] = True
End Sub

Displai Data Pada Form

Private Sub Cmdcheckin_Click()

[Link] = True
Dim No As Integer
[Link] = 18
[Link]
[Link]
[Link] Tab(32); "DATA CHECK IN"
[Link] = 8
'GARIS$ = String(87, "~")
[Link] Tab(2); GARIS
'[Link] " Dicetak Tanggal : " + Format(Date, " dddd, dd-mm-yyyy")
[Link] Tab(2); GARIS
[Link] Tab(2); "!";
[Link] Tab(5); "NO";
[Link] Tab(10); "!";
 86

[Link] Tab(13); "NAMA";

[Link] Tab(35); "!";
[Link] Tab(37); "ALAMAT";
[Link] Tab(63); "!";
[Link] Tab(65); "UMUR";
[Link] Tab(87); "!";
[Link] Tab(92); "JENIS KELAMIN";
[Link] Tab(113); "!";
[Link] Tab(115); "TELEPHONE";
[Link] Tab(140); "!";
[Link] Tab(142); "KAMAR";
[Link] Tab(157); "!"
[Link] Tab(2); GARIS
With [Link]
Do While Not .EOF
No = No + 1
[Link] Tab(2); "!";
[Link] Tab(5); No;
[Link] Tab(10); "!";
[Link] Tab(13); !Nama;
[Link] Tab(35); "!";
[Link] Tab(37); !Alamat;
[Link] Tab(63); "!";
[Link] Tab(65); !Umur;
[Link] Tab(87); "!";
[Link] Tab(92); !Sex;
[Link] Tab(113); "!";
[Link] Tab(115); !Phone;
[Link] Tab(140); "!";
[Link] Tab(142); !KamarNo;
[Link] Tab(157); "!"
.MoveNext
Loop
[Link] Tab(2); GARIS
[Link] ;
[Link] ;
[Link] Tab(2); GARIS
End With
[Link] = True
[Link]
End Sub

Private Sub Cmdcheckout_Click()

[Link] = True
Dim No As Integer
Dim LABA_TOTAL As Double
 87

[Link] = 18
[Link]
[Link]
[Link] Tab(32); "DATA CHECK OUT"
[Link] = 8
'GARIS$ = String(87, "~")
[Link] Tab(2); GARIS
'[Link] " Dicetak Tanggal : " + Format(Date, " dddd, dd-mm-yyyy")
[Link] Tab(2); GARIS
[Link] Tab(2); "!";
[Link] Tab(5); "NO";
[Link] Tab(10); "!";
[Link] Tab(13); "NAMA";
[Link] Tab(35); "!";
[Link] Tab(37); "ALAMAT";
[Link] Tab(62); "!";
[Link] Tab(65); "TANGGAL MASUK";
[Link] Tab(87); "!";
[Link] Tab(89); "TANGGAL KELUAR";
[Link] Tab(113); "!";
[Link] Tab(115); "JENIS KAMAR";
[Link] Tab(140); "!";
[Link] Tab(142); "PEMBAYARAN";
[Link] Tab(157); "!"
[Link] Tab(2); GARIS
With [Link]
Do While Not .EOF
No = No + 1
[Link] Tab(2); "!";
[Link] Tab(5); No;
[Link] Tab(10); "!";
[Link] Tab(13); !Nama;
[Link] Tab(35); "!";
[Link] Tab(37); !Alamat;
[Link] Tab(62); "!";
[Link] Tab(65); !TanggalMasuk;
[Link] Tab(87); "!";
[Link] Tab(89); !TanggalKeluar;
[Link] Tab(113); "!";
[Link] Tab(115); !TipeKamar;
[Link] Tab(140); "!";
[Link] Tab(142); !TotalPembayaran;
[Link] Tab(157); "!"
LABA_TOTAL = LABA_TOTAL + !TotalPembayaran
.MoveNext
Loop
 88

[Link] Tab(2); GARIS

[Link] ;
[Link] Tab(2); "!";
[Link] Tab(4); "PENDAPATAN HOTEL = Rp. "; LABA_TOTAL;
[Link] Tab(157); "!"
[Link] ;
[Link] Tab(2); GARIS
End With
[Link] = True
[Link]
End Sub

Private Sub Cmddatapegawai_Click()

[Link] = True
Dim No As Integer
[Link] = 18
[Link]
[Link]
[Link] Tab(32); "DATA KEPEGAWAIAN"
[Link] = 8
'GARIS$ = String(87, "~")
[Link] Tab(2); GARIS
'[Link] " Dicetak Tanggal : " + Format(Date, " dddd, dd-mm-yyyy")
[Link] Tab(2); GARIS
[Link] Tab(2); "!";
[Link] Tab(5); "NO";
[Link] Tab(10); "!";
[Link] Tab(13); "NAMA";
[Link] Tab(35); "!";
[Link] Tab(37); "NIP";
[Link] Tab(57); "!";
[Link] Tab(60); "JENIS KELAMIN";
[Link] Tab(80); "!";
[Link] Tab(85); "TEMPAT/TGL LAHIR";
[Link] Tab(110); "!";
[Link] Tab(114); "ALAMAT";
[Link] Tab(130); "!";
[Link] Tab(132); "JABATAN";
[Link] Tab(157); "!"
[Link] Tab(2); GARIS
With [Link]
Do While Not .EOF
No = No + 1
[Link] Tab(2); "!";
[Link] Tab(5); No;
[Link] Tab(10); "!";
 89

[Link] Tab(13); !Nama;

[Link] Tab(35); "!";
[Link] Tab(37); !Nip;
[Link] Tab(57); "!";
[Link] Tab(60); !JenisKelamin;
[Link] Tab(80); "!";
[Link] Tab(85); !TTL;
[Link] Tab(110); "!";
[Link] Tab(114); !Alamat;
[Link] Tab(130); "!";
[Link] Tab(132); !Jabatan;
[Link] Tab(157); "!"
.MoveNext
Loop
[Link] Tab(2); GARIS
[Link] ;
[Link] ;
[Link] Tab(2); GARIS
End With
[Link] = True
[Link]
End Sub

Private Sub CmdPrint1_Click()

[Link] = False
'[Link]
End Sub

Private Sub Command1_Click()

[Link] = False
[Link]
End Sub

Private Sub Form_Load()

[Link] = [Link] & ("\[Link]")
[Link] = "checkin"
[Link] = 0
[Link] = 2
[Link] = [Link] & ("\[Link]")
[Link] = "CheckOut"
[Link] = 0
[Link] = 2
[Link] = [Link] & ("\[Link]")
[Link] = "TabPegawai"
[Link] = 0
[Link] = 2
 90

[Link] [Link] + "\skins\[Link]"

[Link] hWnd
End Sub

User Account

Private Sub CBATAL_Click()

MATI
[Link] = ""
[Link] = ""
[Link] = [Link] & ("\Aplikasi\[Link]")
End Sub

Private Sub CCari_Click()

cari
End Sub

Private Sub CDAFTAR_Click()

[Link] = "NAMA PEGAWAI"
[Link] = True
[Link] = True
[Link]
[Link] = [Link] & ("\konfigurasi\[Link]")
End Sub

Private Sub CHAPUS_Click()

End Sub

Private Sub Command2_Click()

Unload Me
End Sub

Private Sub CVALIDASI_Click()

If [Link] = "" Or [Link] = "" Or [Link] = "" Then
pesan = MsgBox("Ada data yang belum terisi", vbInformation, _
"Perhatian")
[Link]
Else
[Link] = "select * from TabUser WHERE Nama like '" &
TNAMA & "'"
[Link]
If [Link] Then
 91

With [Link]
.AddNew
!Nama = [Link]
!Password = [Link]
.Update
End With
[Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
[Link] = "select * from TabUser"
[Link]
Else
MsgBox "Pegawai Yang Bernama " & TNAMA & " Sudah Di Data. ",
vbInformation, "Pesan"
[Link] = False
[Link] = False
End If
End If
End Sub

Private Sub Form_Load()

[Link] = [Link] & ("\[Link]")
[Link] = "TabPegawai"
[Link] = 2
[Link] = 0
[Link] = [Link] & ("\[Link]")
[Link] = "TabUser"
[Link] = 1
[Link] = [Link] & ("\[Link]")
[Link] = "TabUser"
[Link] = 2
[Link] = 0

MATI
[Link] [Link] + "\Skins\[Link]"
[Link] hWnd

[Link] = [Link] & ("\Aplikasi\[Link]")

End Sub

Private Sub TCARI_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
cari
 92

End If
If Not (KeyAscii = vbKeyBack Or _
KeyAscii >= Asc("0") And _
KeyAscii <= Asc("9") Or _
KeyAscii = 13) Then
KeyAscii = 0
End If
[Link] = 10
End Sub

Private Sub TNAMA_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
[Link]
End If
End Sub

Private Sub TPAS1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
[Link]
End If
End Sub

Sub kosongkan()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = False
[Link] = False
End Sub

Sub cari()
If [Link] = "" Then
pesan = MsgBox("Masukkan Nama Pegawai Dulu...", vbQuestion, "Pesan")
[Link] = ""
[Link]
Else
With [Link]
.Index = "NIPDEX"
.Seek "=", [Link]
If Not .NoMatch Then
[Link] = !Nama
[Link] = True
' [Link] = True
[Link] = True
[Link] = True
 93

[Link]
Else
pesan = MsgBox("PEGAWAI YANG MEMPUNYAI NIP " + [Link] +
" BELUM TERDATA ", vbInformation, "Informasi")
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link]
[Link] = ""
[Link]
End If
End With
End If
End Sub

Sub MATI()
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub

Menu Kirim Pesan

Private Sub CancelButton_Click()
Unload Me
End Sub
Private Sub Command1_Click()
If [Link] = 1 Then
Dim Number As Integer
Number = 0
Do While Number <= [Link]
Shell ("net send " & [Link] & " " & [Link]) 'inputing the textboxes into
command line as varibles
Number = Number + 2
Loop
Else
Shell ("net send" & " " & [Link] & " " & [Link])
End If
End Sub
 94

Private Sub Command2_Click()

[Link]
End Sub

Private Sub Form_Load()

[Link] [Link] + "\skins\[Link]"
[Link] hWnd
End Sub

Private Sub OKButton_Click()

[Link] = "15"
Unload Me
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

Command1_Click
KeyAscii = 0
End If
End Sub

Displai Komputer
Option Explicit
Public dir As String
Public dir2 As String
Private Sign(4096) As String
Private pass(4096) As String
Private prof(4096) As String
Private prek(4096) As String
Dim stopit As Boolean

Private Sub Command1_Click()

sendping
End Sub

Private Sub Command2_Click()

stopping
End Sub

Private Sub Command3_Click()

End
End Sub
 95

Private Sub mabout_Click()

' [Link] vbModal
End Sub

Private Sub Command4_Click()

cariip
End Sub

Private Sub Form_Load()

[Link] = "[Link]"
End Sub

Private Sub Text2_Change()

cariip
[Link] = Sign(0) & "." & pass(0) & "." & prof(0) & "." & "255"
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then 'If the key pressed is ENTER
sendping 'Call to procedure called "sendping"
End If
If KeyAscii = 27 Then
stopping 'Call to "stopping" procedure
End If
End Sub

Private Sub Timer1_Timer()

If Not makeping(dir) Then
[Link] = False
End If
[Link] = Len(Text1)
End Sub

Private Sub sendping()

Dim ass As Integer
If Trim(Text2) = "" Then
MsgBox "Masukkan ip atau host", vbCritical + vbOKOnly
Exit Sub
End If
'Text1 = ""

stopit = True
For ass = CInt(prek(0)) To 255
 96

MsgBox ass
dir = Sign(0) & "." & pass(0) & "." & prof(0) & "." & CStr(ass)
[Link] "Pinging " & dir & "..." & makeping(dir)
[Link]
Next ass
'[Link] = True 'Activated the TIMER control
End Sub
Private Sub stopping()
'Text1 = Text1 & vbCrLf & "Ping to " & dir & " has stopped"
stopit = False

End Sub
Public Sub cariip()
Dim sIn As String
Dim swords() As String
Dim X As Long
Dim data() As String
Dim datapass() As String
Dim dataprofil() As String

sIn = [Link]
swords = Split(sIn)
ReDim Preserve swords(UBound(swords) - 1)
sIn = ""

For X = LBound(swords) To UBound(swords)

data = Split(swords(X), ".")
Sign(X) = data(0)
pass(X) = data(1)
prof(X) = data(2)
prek(X) = data(3)
Next X
Exit Sub
End Sub