1 SMS GATEWAY UNTUK INFORMASI JADWAL PENERBANGAN Skripsi Diajukan untuk Memenuhi Salah Satu Syarat Memperoleh Gelar Sarjana Teknik Jurusan Teknik Info...
SMS GATEWAY UNTUK INFORMASI JADWAL PENERBANGAN Skripsi Diajukan untuk Memenuhi Salah Satu Syarat Memperoleh Gelar Sarjana Teknik Jurusan Teknik Informatika
Disusun Oleh :
Yosephine Irma Setyorini NIM
: 995314082
JURUSAN TEKNIK INFORMATIKA FAKULTAS TEKNIK UNIVERSITAS SANATA DHARMA YOGYAKARTA 2007
1
2
SMS GATEWAY FOR FLIGHT SCHEDULE INFORMATION
A Thesis Presented as Partial Fulfillment of the Requirements to Obtain the Sarjana Teknik Degree in Informatics Engineering
By :
Yosephine Irma Setyorini Student Number : 995314082
INFORMATICS ENGINEERING STUDY PROGRAM DEPARTEMENT OF INFORMATICS ENGINEERING FACULTY OF ENGINEERING SANATA DHARMA UNIVERSITY YOGYAKARTA 2007
3
4
5
Tugas Akhir ini aku persembahkan untuk semua orang yang aku sayangi dan aku cintai... untuk Mama dan kedua kakakku (Mas Fitri dan Mas Hari) tanpa doa dan dukungan kalian aku tidak bisa apa-apa... Dan untuk Papa... Pa,Irma dah lulus...semoga Irma bisa jadi anak kebanggan Papa lagi... Terimakasih untuk semuanya...aku sayang kalian... ~~ God Bless You All ~~
6
Kegagalan adalah kesuksesan yang tertunda Kita hidup untuk belajar... Dari kehidupan, kita dapat belajar banyak hal.... Jika kita mau berusaha dan memiliki niat, maka kita akan mendapatkan apa yang kita inginkan
7
KATA PENGANTAR
Puji dan syukur penulis panjatkan kehadapan Tuhan Yang Maha Esa, atas berkat dan rahmat-Nya penulis dapat menyelesaikan Tugas Akhir dengan judul “SMS GATEWAY FOR FLIGHT SCHEDULE“. Tugas Akhir ini penulis buat sebagai salah satu syarat untuk memperoleh gelar Sarjana Strata 1 (S1) Teknik, jurusan Teknik Informatika di Universitas Sanata Dharma Yogyakarta.
Terselesaikannya Tugas Akhir ini tidak lepas dari dukungan dari berbagai pihak. Untuk itu ijinkanlah penulis untuk menghaturkan terima kasih yang sebesar-besarnya kepada: •
Ketua Jurusan Teknik Informatika, Ibu Maria Agnes Polina. Terima kasih atas bantuan dan masukkannya selama ini.
•
Bapak J.B. Budi Dharmawan, sebagai dosen pembimbing I.
•
Bapak Puspaningtyas S. Adi, sebagai dosen pembimbing II terima kasih atas bimbingan dan masukkannya selama penulis mengerjakan Tugas Akhir.
•
Bapak Budi Susanto, terima kasih atas bantuannya.
•
Seluruh staff Laboratorium Jurusan Teknik Informatika. Kepada Pak Bele, terima kasih atas semua masukkannya dan supportnya.
•
Buat Mama, makasih atas doanya.
•
Buat sahabatku...yang sangat mengerti aku dan sudah menemaniku selama 7 tahun lebih...Rivandra...makasih ya...kamu benar...semua yang kamu bilang ke aku selalu benar....
8
•
Buat sahabat2ku Ari “Ijo”makasih dah jadi teman curhatku dan makasih dukungan dan nasihatnya selama ini...dan Destya makasih ya.....
•
Buat tercintaku...Baskoro...terima kasih atas doa, cinta, dan dukungannya...I love u n always do...walau kita tidak bisa bersama, kamu tetap hadiah terindah yang diberikan Tuhan ke aku...
•
Kepada keluarga Lempongsari...terima kasih Tante atas semua nasihatnya dan semua-muanya...maaf, Irma sering ngeyel ma Tante...
•
Buat semua teman-teman TI angkatan 99....Wiwied, Andi, Kris, Anna, Kyky, Wanto, Dian dan lain-lainnya...maaf aku ga bisa sebutin kalian satu per satu...makasih ya....
•
Buat almamaterku....trimakasih....
Penulis sangat menyadari dalam pembuatan dan penulisan Tugas Akhir ini masih banyak kekurangan dan jauh dari sempurna. Penulis juga berharap semoga Tugas Akhir ini dapat berguna bagi siapapun.
Halaman Persetujuan ......................................................................................... iii Halaman Pengesahan ......................................................................................... iv Halaman Persembahan ...................................................................................... v Halaman Motto .................................................................................................. vi Halaman Kata Pengantar ................................................................................. vii Halaman Daftar Isi ........................................................................................... ix Halaman Daftar Gambar ................................................................................. xiii Halaman Daftar Tabel .................................................................................... xiv ABSTRAKSI ................................................................................................... xvi ABSTRACT ..................................................................................................... xvii Pernyataan Keaslian Karya ........................................................................... xviii
BAB I PENDAHULUAN 0.1. Latar Belakan Masalah ............................................................................... 1 0.2. Batasan Masalah ......................................................................................... 2 0.3. Rumusan Masalah ...................................................................................... 2 0.4. Maksud dan Tujuan .................................................................................... 3 0.5. Metodologi ................................................................................................. 3 0.6. Sistematika Isi ............................................................................................ 5
BAB II LANDASAN TEORI
10
2.1. Short Message Services (SMS) ................................................................. 7 2.2. Cara Kerja Short Message Service (SMS) ................................................ 7 2.3. Komponen MobileFBUS........................................................................... 9 2.4. Pengertian Active Server Pages (ASP) ................................................... 11 2.5. Cara Kerja ASP ....................................................................................... 12 2.6. Struktur ASP ........................................................................................... 13 2.7. ActiveX Data Object ............................................................................... 12 2.8. Koneksi ASP Dengan Database .............................................................. 14 2.9. Dasar Structured Query Language (SQL) ............................................... 15
BAB III ANALISIS dan PERANCANGAN SISTEM 3.1. Gambaran Umum Sistem ........................................................................ 17 3.2. Analisa Sistem ......................................................................................... 17 3.2.1. Data Flow Diagram (DFD) ......................................................... 17 •
DFD Level 1 untuk Proses 1 .................................................. 21
•
DFD Level 2 untuk Proses 1 .................................................. 22
•
DFD Level 2 untuk Proses 2 .................................................. 23
•
DFD Level 1 untuk Proses 3 .................................................. 24
3.2.2. Analisa Sumber Daya ................................................................. 25 2.2.1. Analisa Perangkat Keras ........................................................ 25 2.2.2. Analisa Perangkat Lunak ....................................................... 25
Perancangan Interface untuk User ......................................... 23
.3.2.2.
Perancangan Interface untuk Administrator ........................... 30
BAB IV IMPLEMENTASI PROGRAM dan ANALISA HASIL IMPLEMENTASI PROGRAM 0.1.Implementasi Program ............................................................................. 35 4.1.1. Implementasi Web ......................................................................... 36 4.1.1.1. Koneksi Database .................................................................. 36 4.1.1.2. Halaman Utama (index.asp) .................................................. 36 4.1.1.3. Halaman Jadwal Kedatangan dan Keberangkatan ................ 39 4.1.1.4. Halaman airline.asp ............................................................... 41 4.1.1.5. Halaman Edit Jadwal ............................................................. 43 4.1.1.6. Halaman Tambah Data .......................................................... 46 4.1.2. Implementasi SMS Gateway .......................................................... 47 4.2. Analisa Hasil Implementasi Program ...................................................... 50 4.2.1. Analisa Hasil Pengujian Perangkat Lunak ..................................... 49 4.2.2. Analisa Hasil Pengujian Perangkat Keras ...................................... 50 4.2.3. Kelebihan dan Kekurangan Program ............................................. 54
12
BAB V KESIMPULAN dan SARAN 5.1. Kesimpulan ............................................................................................. 56 5.2. Saran ........................................................................................................ 56 DAFTAR PUSTAKA LAMPIRAN
13
DAFTAR GAMBAR
Gambar 2.1 Skema cara kerja SMS Gambar 2.2 Ketikkan script tersebut dari menu Run milik Windows Gambar 2.3 Jika komponen berhasil diinstal, akan muncul pesan diatas Gambar 3.1. Context Diagram Gambar 3.2. Bagan Berjenjang Gambar 3.3. Overview Diagram untuk User dan Admin Gambar 3.4. DFD Level 1 Proses 1 Gambar 3.5. DFD Level 2 Proses 1 untuk proses Requesting SMS Gambar 3.6. DFD Level 2 Proses 1 untuk proses Processing message Gambar 3.7. DFD Level 1 Proses 3 untuk proses Add & Update Schedule Gambar 3.8. Relasi antar tabel Gambar 3.9. Relasi antar tabel Gambar 3.10. Tampilan halaman Login Administrator Gambar 3.11. Tampilan halaman jika terjadi kesalahan Login Gambar 3.12. Tampilan halaman jadwal penerbangan Gambar 3.13. Tampilan halaman update jadwal Gambar 3.14. Tampilan halaman form update jadwal Gambar 3.15. Tampilan halaman form add jadwal Gambar 3.16. Tampilan halaman Laporan SMS Gambar 3.17. Tampilan halaman Logout Gambar 4.1. halaman index.asp Gambar 4.2. halaman cek.asp jika nama dan/atau password salah
14
Gambar 4.3. halaman cek.asp jika nama dan/atau password benar Gambar 4.4. halaman dep.asp Gambar 4.5. halaman arr.asp Gambar 4.6. halaman airline.asp Gambar 4.7. halaman frmeditair.asp Gambar 4.8. halaman depedit.asp Gambar 4.9. halaman arredit.asp Gambar 4.10. halaman formedit.asp Gambar 4.11. halaman adds.asp Gambar 4.12. Tampilan aplikasi SMS Gateway
15
DAFTAR TABEL
Tabel 2.1. Tabel Fitur MobileFBUS 1.5 Tabel 3.1. Input dan Output kesatuan luar Tabel 3.1. Tabel Schedule Tabel 3.2. Tabel Maskapai Tabel 3.3. Tabel Message Tabel 3.4. Format SMS request oleh user Tabel 3.6. Format SMS reply oleh server Tabel 4.1. Komponen-komponen Aplikasi SMS Gateway
16
ABSTRAKSI
SMS atau Short Messaging Sevices merupakan salah satu fasilitas telepon selular (ponsel) yang paling banyak digunakan saat ini karena biayanya murah, prosesnya cepat, dan juga dapat langsung diterima oleh tujuan. Dalam Tugas Akhir ini SMS Gateway akan diimplementasikan kedalam informasi jadwal penerbangan, baik jadwal kedatangan maupun jadwal keberangkatan. Aplikasi SMS Gateway dalam Tugas Akhir ini dibangun menggunakan Visual Basic 6, dengan menggunakan komponen MobileFBUS 1.5. sebagai komponen penghubung antara ponsel dengan komputer. Untuk proses update data pada data base menggunakan sistem berbasis web yang dibangun menggunakan teknologi ASP. Untuk data base-nya sendiri menggunakan Ms.Access XP. Sistem ini ada mempunyai 2 proses, yaitu: proses menerima SMS dan mengirim SMS, dan proses update data. Proses mengirim dan menerima SMS adalah proses dimana user dalam hal ini pengirim SMS mengirimkan SMS yang berisi informasi yang diinginkan sesuai dengan formatnya, kemudian aplikasi SMS Gateway akan mengirimkan balasan sesuai dengan informasi yang diinginkan. Sedangkan untuk proses update data dilakukan oleh Admin yang bertugas dan bertanggung jawab atas semua keakuratan data yang ada. Aplikasi SMS Gateway ini sudah dapat digunakan untuk mengirim dan menerima SMS secara manual, dan diharapkan aplikasi ini dapat berjalan secara otomatis atau bersifat autorespon.
17
ABSTRACT
SMS or Short Messaging Services represent one of facility cell phone (ponsel) which is at most used in this time because expense cheap, it’s process quickly, as well as earing direct accepted by target. In this Final Duty, SMS Gateway will implementation into air transport schedule information, schedule of arrival also departure schedule. This final Duty Application SMS Gateway builded to use Visual Basic 6, by using MobileFBUS1.5 component as link component between cell phone with computer. To process update data at database using web-based system with ASP technology, for the database itself using Ms.AccessXP. In this system have 2 process, that is: accepting SMS and sending SMS process, and updating data process. Accepting and sending SMS process is process where user in this case consignor SMS deliver SMS containing information the desired as according to format, then SMS Gateway Application will deliver reciprocation as according to desired information. While to process update data conducted by commisioned Admin and be in control off all existing accuracy. This SMS Gateway application have applicable to send and recieve SMS in manual and expected this application can ambulatory automatically or have autoresponds.
18
PERNYATAAN KEASLIAN KARYA
Saya menyatakan dengan sesungguhnya bahwa skripsi yang saya tulis ini tidak memuat karya atau bagian karya orang lain, kecuali telah disebutkan dalam kutipan dan daftar pustaka sebagaimana layaknya sebuah karya ilmiah.
Yogyakarta, Februari 2007 Penulis
Yosephine Irma Setyorini
19
BAB I PENDAHULUAN
1.1. Latar Belakang Masalah Saat ini dunia telekomunikasi berkembang dengan cepat. Salah satunya adalah perkembangan dari teknologi telepon selular (ponsel), saat ini fungsi dari telepon selular tidak hanya untuk telepon saja melainkan dapat juga digunakan untuk mengirim pesan atau lebih dikenal dengan SMS (Short Message Services) maupun MMS (Multimedia Message Services) dimana dengan memanfaatkan teknologi ini dimungkinkan para pengguna ponsel dapat mengirim pesan tidak hanya berupa teks saja melainkan dapat mengirimkan gambar, suara, dan teks sekaligus, selain itu juga dapat juga untuk mengirim e-mail dan juga dapat digunakan untuk browsing internet dengan WAP atau dengan GPRS. Walaupun teknologi dan fitur yang ditawarkan pada setiap ponsel terus berkembang tetapi masyarakat masih menyukai fitur SMS dan saat ini SMS telah dijadikan trend bahkan hobi, disamping murah fitur ini dipunyai oleh semua tipe ponsel apakah itu ponsel lama ataupun ponsel yang terbaru. Dalam Tugas Akhir ini fitur SMS dimanfaatkan untuk mengetahui jadwal kedatangan maupun keberangkatan pesawat terbang yang ada di Bandara Adisucipto. Untuk up-dating informasi pada bandara menggunakan web-based system atau sistem berbasis web, sehingga bandara dapat dengan mudah dan cepat mengubah informasi status pesawat yang berangkat dan tiba. Selain melalui SMS, informasi jadwal penerbangan ini juga dapat diakses melalui web. Dalam tugas akhir ini teknologi untuk membangun webnya menggunakan
20
teknologi ASP. Menggunakan ASP karena dengan memanfaatkan teknologi ASP maka web yang dibangun akan menjadi web yang bersifat dinamis.
I.2. Batasan Masalah Dalam penulisan tugas akhir ini permasalahan yang ada akan dibatasi hanya pada: 1. Masalah akan dibatasi hanya pada informasi jadwal kedatangan dan keberangkatan pesawat di Bandara Adisucipto. 2. Aplikasi SMS Gateway yang digunakan untuk melayani reply dari request user (pengguna ponsel). Komponen yang digunakan untuk membangun infrastruktur ini adalah menggunakan MobileFBUS 1.5. 3. Aplikasi SMS Gateway yang digunakan untuk menghubungkan ponsel dengan database server. 4. Pemanfaatan teknologi ASP untuk membangun web database informasi jadwal penerbangan, baik kedatangan maupun keberangkatan. Serta digunakan untuk proses peng-update-an informasi. 5. Perancangan struktur dan implementasi halaman web yang digunakan untuk proses update informasi.
I.3. Rumusan Masalah Dari latar belakang masalah yang telah dikemukakan, maka dapat dirumuskan permasalahan sebagai berikut: 1. Bagaimana memanfaatkan fitur SMS yang terdapat disetiap ponsel untuk memperoleh informasi jadwal penerbangan melalui SMS Gateway?
21
2. Bagaimana membangun dan mengimplementasikan SMS Gateway? 3. Bagaimana menerapkan teknologi ASP pada web database untuk meng-update informasi? 4. Bagaimana membangun dan merancang sistem dan implementasinya pada proses peng-update-an informasi?
I.4. Maksud dan Tujuan Adapun maksud dan tujuan dari pembuatan Tugas Akhir ini adalah: 1. Memanfaatkan fitur SMS untuk memperoleh informasi jadwal penerbangan. 2. Memanfaatkan teknologi ASP dalam membangun sebuah web database untuk mempermudah proses update data.
I.5. Metodologi Metodologi dalam pembuatan tugas akhir ini adalah metodologi dengan pendekatan terstruktur, adapun teknik-teknik yang digunakan tersebut adalah sebagai berikut: 1. Menentukan topik permasalahan. Sebelum mengerjakan tugas akhir ini terlebih dahulu menentukan topik permasalahan yang akan dipecahkan di dalam tugas akhir ini. 2. Studi Literatur. Studi literatur atau studi pustaka ini bertujuan untuk mendapatkan informasi dan landasan teori untuk mendasari atau melandasi dalam pembuatan tugas akhir. 3. Tahap identifikasi topik. Tahap identifikasi topik ini merupakan langkah pertama yang dilakukan dalam
22
tahap analisis sistem. Masalah-masalah yang ada dapat diidentifikasikan sebagai pertanyaan yang akan dipecahkan. 4. Tahap analisa sistem. Tahap analisa sistem ini merupakan tahap untuk menganalisa sistem informasi jadwal penerbangan. Cara yang dilakukan untuk menganalisa sistem tersebut adalah dengan mengidentifikasi kebutuhan dan pengumpulan data yang diperlukan sesuai dengan kebutuhan sistem yang akan dibangun. Alat yang dipakai dalam penganalisaan sistem tersebut adalah menggunakan diagram prosedur dan diagram arus data (DAD). 5. Tahap disain atau perancangan. Tahap disain atau perancangan ini meliputi perancangan struktur sistem, perancangan untuk input maupun output, perancangan untuk user interface, dan perancangan database. 6. Implementasi. Tahap ini merupakan tahap implementasi dari semua analisa dan perancangan yang telah dibuat. Tahap ini juga meliputi pembuatan program untuk pembuatan program. Dalam tahap ini program bantu yang digunakan untuk pembuatan user interface adalah menggunakan Macromedia Dreamweaver, menggunakan Visual Basic 6 untuk pembuatan aplikasi SMS Gateway, Ms. Access XP untuk database dan ASP sebagai programming language. 7. Testing Tahap testing ini merupakan tahap yang paling akhir dalam pembuatan tugas akhir ini. Pada tahap ini semua program yang telah dibuat akan diuji coba dan selanjutnya dipresentasikan.
23
I.6. Sistematika Isi Sistematika penulisan tugas akhir ini adalah: BAB I PENDAHULUAN Dalam bab ini berisi tentang latar belakang masalah, rumusan masalah, batasan masalah, maksud dan tujuan dari pembuatan tugas akhir, metode-metode yang digunakan dalam mengumpulkan data yang diperlukan, serta sistematika isi dari penulisan tugas akhir ini. BAB II LANDASAN TEORI Dalam bab ini mengemukakan teori-teori yang mendukung perancangan SMS Gateway, dan perancangan web dengan menggunakan teknologi ASP dan perancangan database servernya. BAB III ANALISIS dan PERANCANGAN SISTEM Dalam Bab ini akan dijelaskan tahap-tahap analisa dan perancangan dari pembuatan aplikasi tersebut, serta perancangan database dan tampilannya. BAB IV IMPLEMENTASI PROGRAM dan ANALISA HASIL IMPLEMENTASI PROGRAM Dalam bab ini berisi tentang bagaimana mengimplementasiakan aplikasi yang telah dibuat. Serta analisa hasil dari keseluruhan proses pembuatan tugas akhir. BAB V KESIMPULAN dan SARAN Dalam bab ini berisi kesimpulan dan saran dari penulisan tugas akhir ini.
24
BAB II LANDASAN TEORI
2.1. Short Message Services (SMS) Short Message Services (SMS), yang juga dikenal sebagai text messaging, mobile messaging, atau alphanumeric paging merupakan fitur jaringan selular digital. Dimana dapat mengirim pesan pendek dalam bentuk teks maupun numerik ke dan dari telepon selular digital, telepon seluler dan e-mail (Karuturi, 2002). SMS juga merupakan sebuah layanan yang banyak diaplikasikan pada sistem komunikasi tanpa kabel yang memungkinkan dilakukannya pengiriman pesan dalam bentuk alphanumeric antar terminal pelanggan (ponsel) atau antara terminal pelanggan dengan sistem eksternal seperti email, paging, voice mail, dan sebagainya (Romzi Imron, 2004).
2.2. Cara Kerja Short Message Service (SMS) Mekanisme utama yang dilakukan dalam sebuah sistem SMS adalah melakukan pengiriman short message dari suatu terminal ke terminal yang lain (dalam hal ini adalah ponsel). Hal ini dapat dilakukan berkat adanya sebuah entitas dalam sistem SMS yang bernama Short Message Service Center (SMSC) atau disebut juga Message Center (MC). SMSC merupakan sebuah perangkat yang melakukan tugas store and forward trafik short message, di dalamnya termasuk penentuan atau pencarian rute tujuan akhir dari short message tersebut. Layanan SMS merupakan sebuah layanan yang bersifat nonreal time dimana sebuah short message dapat di-submit ke suatu tujuan tanpa memperdulikan apakah tujuan tersebut aktif atau tidak. Apabila tujuan terdeteksi tidah aktif maka sistem akan menunda pengiriman ke tujuan sampai tujuan aktif. Jadi pada
25
dasarnya sebuah sistem SMS akan menjamin delivery suatu short message hingga sampai ke tujuan. Tetapi jika suatu short message melampaui batas waktu tertentu maka akan dihapus dan dinyatakan gagal kirim. (Romzi Imron, 2004) Pesan singkat atau SMS yang dikirim dari ponsel (mobile originated) tidak langsung dikirimkan ke ponsel penerima (mobile terminated), tetapi dikirim terlebih dahulu ke SMS Center (SMSC), baru kemudian persan tersebut diteruskan ke ponsel tujuan/penerima. Gambar 2.1 menunjukkan skema cara SMS (Gunawan, 2003).
Originator
SMS Center
Reciever
Gambar 2.1 Skema cara kerja SMS
Untuk dapat melakukan pengiriman pesan dan penerimaan pesan maka yang harus dilakukan adalah melakukan koneksi ke SMSC. Terdapat beberapa cara untuk melakukan koneksi ke SMSC (Gunawan, 2003), yaitu : 1. Menggunakan terminal, berupa GSM modem atau ponsel. 2. Koneksi langsung ke SMSC. Untuk melakukan koneksi ini diperlukan protokol penghubung, protokol penghubung yang umum digunakan adalah UCP, SMPP, CIMD2, OIS, dan TAP. 3. Menggunakan Software bantu.
2.3. Komponen MobileFBUS 1.5 Untuk dapat mengakses ponsel melalui komputer maka diperlukan kabel data
26
yang di hubungkan ke COM1 atau COM2 pada komputer. Dan komponen yang digunakan adalah MobileFBUS. Komponen MobleFBUS ini dapat diperoleh dengan men-download dari www.softwarecave.com. Komponen MobileFBUS ini digunakan hanya untuk semua tipe ponsel GSM Nokia. Keuntungan dari komponen iniadalah tidak dmembutuhkan spesifikasi ponsel yang canggih, tetapi sebaliknya ponsel yang digunakan adalah ponsel-ponsel Nokia tipe lama seperti tipe Nokia 3210, 3215, dan sebagainya. Jadi bersifat ekonomis. Komponen MobileFBUS terdapat 2 versi, yaitu versi lite dan versi professional. Perbedaannya adalah untuk versi lite dapat diperoleh dengan hanya men-download-nya secara gratis, sedangkan untuk versi professional didapat dengan membayar atau membeli terlebih dahulu di perusahaan softwarecave tersebut. Pada Tugas Akhir ini versi yang digunakan adalah versi lite, karena hanya dengan menggunakan versi yang lite, program sudah dapat dibangun. Berikut adalah fitur-fitur yang dipunyai oleh MobileFBUS:
Fitur
Versi Lite
Versi Profesional
SMS sending and reveiving
Y
Y
Ringtone management
T
Y
Incoming SMS Event
T
Y
Operator logo management
Y
Y
Startup logo management
T
Y
Caller group logo management
T
T
Picture messages
T
Y
Date and Time management
Y
Y
IMEI and Phone information
T
Y
Startup text management
Y
Y
Phonebook management
Y
Y
27
Fitur
Versi Lite
Versi Profesional
Phone status
Y
Y
Dialing/DTMF
Y
Y
Monitoring features
Y Y Tabel 2.1. Fitur MobileFBUS1.5.
Untuk dapat menggunakan komponen ini maka terlebih dulu meng-copy file: 4. gjfbus15.dll 5. MFBUS15.ocx 6. MFBUS15.oca Ke
dalam
direktori
<WINDOWS>\system
pada
Windows
98,
atau
ke
<WINDIR>\system32 pada Windows NT. Setelah ketiga file tersebut di-copy, kemudian daftarkan MFBUS15.ocx ke dalam registry windows dengan mengetikkan perintah : regsvr32 MFBUS15.ocx. Seperti pada gambar 2.3 dibawah ini.
Gambar 2.2 Ketikkan script tersebut dari menu Run milik Windows
Gambar 2.3 Jika komponen berhasil diinstal, akan muncul pesan diatas
28
Setelah proses instalasi tersebut selesai maka komponen MobileFBUS ini dapat digunakan dalam aplikasi yang akan dibuat dengan Visual Basic, dan komponen ini akan muncul dengan nama “MobileFBUS control v1.5” dalam Visual Basic komponen list.
2.4. Pengertian Active Server Pages (ASP) ASP adalah merupakan salah satu teknologi yang dikembangkan oleh Microsoft yang diluncurkan sekitar tahun 1996. ASP merupakan teknologi server-side scripting, yang artinya segala proses programnya dilakukan di server sebelum dikirimkan ke client. Client akan menerima hasil output dalam bentuk HTML biasa. Server-side scripting ini merupakan kebalikan dari client-side scripting dimana seluruh proses programnya dilakukan di client contohnya JavaScript (Gaos,2001). ASP menurut (Kurniawan, 2000) adalah teknologi server-side scripting yang dikembangkan oleh Microsoft yang memungkinkan untuk menjalankan ActiveX Script dan ActiveX Server Component dimana gabungan kedua teknologi ini memungkinkan untuk membuat web yang dinamis.
2.5. Cara Kerja ASP Jika seorang programmer akan mendeteksi apakah script yang dibuat masih terdapat kesalahan atau tidak, atau hanya ingin melihat apakah hasil eksekusi script telah berjalan dengan baik atau tidak, hal itu tidaklah mudah dilakukan sebab tidak semua script yang server side dapat dieksekusi begitu saja sebelum dikirim ke web server, kecuali komputer tersebut terhubung ke jaringan intranet atau internet dimana
29
server yang bersangkutan memiliki program khusus untuk menjalankan script tersebut. Tetapi disisi lain komputer yang banyak dimiliki pada umumnya adalah komputer yang tidak terhubung ke jaringan intranet atau internet, maka script tersebut harus dikirim ke web server melalui FTP dan baru dieksekusi. Tetepi jika menggunakan ASP hal tersebut tidak akan terjadi karena Microsoft telah membuat sebuah program kecil yang membuat komputer menjadi virtual web server. Apabila sistem operasi yang digunakan adalah Windows 95/98 nama program tersebut adalah Personal Web Server (PWS), tetapi jika menggunakan Windows NT nama program tersebut adalah Internet Information Server (IIS). 2.6. Struktur ASP Menurut (Gaos, 2001) ASP dapat dipisahkan menjadi tiga bagian, yaitu: 1. ASP object. ASP object terdiri dari enam objek, yaitu: Application, Session, Response, Request, Server, dan Object Context. Format penulisan object-object ASP adalah sebagai berikut: Object.(collection\method\property\event) (“variabel”) 2. Bahasa Scripting. Pada bahasa scripting inilah object-object ASP dimanipulasi sesuai dengan yang dikehendaki. Bahasa scripting yang diberikan oleh Microsoft adalah VBScript dan JScript. Jika menggunakan bahasa scripting selain VBScript maka harus memberikan pengenal di baris teratas pada sebuah halaman ASP, pengenal tersebut sebagai berikut: <%@LANGUAGE=bahasascripting%> 3. ActiveX Server Component. Objek ASP hanya sebuah penghubung antara halaman HTML dengan program yang ada di server. Dan bahasa scripting digunakan untuk membuat alur logika yang diperlukan. Sedangkan untuk
30
melakukan akses ke database, dan program lain diperlukan ActiveX Server Component. ActiveX Server Component yang dipakai dalam halaman ASP: Set objConn = Server.CerateObject(“ADODB.Connection”) Kode program ASP dapat disimpan di mana saja dalam sebah halaman HTML. Sebagai pengenal kode tersebut adalah kode ASP, maka kode ASP tersebut ditempatkan diantara tag <% dan %>.
2.7. ActiveX Data Object ActiveX Data Object atau disingkat ADO adalah medel akses data yang digunakan untk berinteraksi dengan database. Kuntungan ADO adalah mudah digunakan, kecepatan tinggi, menggunakan sedikit memori. ADO tersusun dari beberapa object, yaitu: 1. Error Object Error object berfungsi untuk menangani terjadinya kesalahan. 2. Connection Object Connection object digunakan untuk membuat hubungan dengan database yang akan diakses. Untuk mendeklarasikannya digunakan perintah sebagai berikut: Set ObjConn = Server.CreateObject(“ADODB.Connection”) 3. Recordset Object Recordset object digunakan untuk mengolah dan memanipulasi data dalam tabel. 4. Command Object Command object digunakan untuk menjalankan string SQL, stored procedures, atau queries.
31
2.8. Koneksi ASP Dengan Database Untuk menghubungkan ASP dengan database dilakukan dengan menggunakan OLE DB: Provider=Microsoft.Jet.OLEDB.4.0;Data Source=letak file/namafile.mdb Contoh: <% set conn = Server.CreateObject(“ADODB.Connection”) conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb” %>
2.9. Dasar Structured Query Language (SQL) SQL adalah bahasa yang dikhususkan untuk mengoperasikan perintah-perintah yang berhubungan dengan database. Perintah-perintah SQL dinyatakan dalam bahasa Inggris yang sederhana dan mempunyai struktur linear dalam baris yang terurut. Pada umumnya SQL digunakan untuk melihat, menambah, dan menghapus data. A. Pernyataan SELECT Pernyataan SELECT berfungsi untuk mengambil data dari sebuah database. Sintaksnya sebagai berikut: SELECT namakolom/* FROM namatabel Jika menggunakan karakter *, maka data dapat diambil dari semua kolom yang terdapat pada tabel dari sebuah database. B. Pernyataan SELECT dengan WHERE Pernyataan SELECT yang disertai dengan WHERE digunakan untuk memperkecil jumlah data yang akan di-query sesuai kondisi yang akan diberikan.
32
C. Pernyataan SELECT dengan ORDER BY Pernyataan ini digunakan untuk mengurutkan data yang akan ditampilkan. Pengurutan data ini dapat berupa urut naik (Ascending) maupun urut turun (Descending). D. Pernyataan INSERT Pernyataan ini digunakan untuk memasukkan data ke dalam database. Sintaksnya adalah sebagai berikut: INSERT
INTO
namatabel
(kolom1,
kolom2,
kolom3)
VALUES
(‘nilai1’,’nilai2’,’nilai3’) E. Pernyataan UPDATE Pernyataan ini digunakan untuk meng-UPDATE data-data yang ada dalan sebuah tabel. Sintaksnya adalah sebagai berikut: UPDATE namatabel SET kolom1 = nilai1 WHERE kolom2 = nilai2 Jika tidak menggunakan WHERE maka pernyataan UPDATE akan mengubah seluruh data yang terdapat pada tabel. F. Pernyataan DELETE Pernyataan ini digunakan untuk menghapus data dalam suatu tabel. Sintaksnya adalah sebagai berikut: DELETE FROM namatabel WHERE kolom = nilai
33
BAB III ANALISA dan PERANCANGAN SISTEM
3.1. Gambaran Umum Sistem Sistem yang akan dibangun dalam Tugas Akhir ini adalah Sistem Informasi Jadwal Penerbangan di Bandara Adisucipto yang dapat diakses melalui SMS. Dimana user dapat menanyakan informasi jadwal penerbangan, baik jadwal kedatangan maupun jadwal keberangkatan dengan mengirimkan SMS. Sedangkan untuk administrator atau admin, seorang administrator dapat mengubah atau meng-update data yang ada melalui web. Tujuan dari sistem ini adalah untuk memudahkan dan mempercepat user dalam memperoleh informasi jadwal penerbangan yang ada di Bandara Adisucipto Yogyakarta.
3.2. Analisa Sistem Pada tahap analisa sistem ini bertujuan untuk menganalisa semua kebutuhan sistem yang akan dibangun, dalam hal ini sistem informasi jadwal penerbangan.
3.2.1. Data Flow Diagram (DFD) 1. Identifikasi kesatuan luar sistem Kesatuan luar yang ada dalam sistem informasi jadwal penerbangan ini adalah sebagai berikut: a. User
34
b. Administrator (Admin) 2. Identifikasi Input dan Output Sistem Untuk input dan output yang terlibat dengan kesatuan luar pada sistem ini adalah sebagai berikut: Kesatuan luar
Input
Output
SMS Request User
User
-
Password, SMS Reply
Admin_name,
Admin
Schedule data Tabel 3.1. Input dan Output kesatuan luar
A. Context Diagram
SMS Request User
a User
SMS Reply
0 Flight Schedule Inf. Sys.
Password, Admin_name, Schedule data
Gambar 3.1. Context Diagram
b Admin
B. Bagan Berjenjang
0 Flight Schedule Inf. Sys.
1.1 Requesting SMS
1.2.1.P
1.2.2P
Check message
Store message
1
2P
3
Requesting & Replying SMS
Login Admin
Add & Update Schedule
1.2 Processing message
1.2.2P Classify message
3.1P
3.2P
Update Schedule
Add Schedule
1.3P Replying SMS
1.2.3P Taking data from server
Gambar 3.2. Bagan Berjenjang 19
20
C. Overview Diagram (DFD Level 0)
1
a
SMS Request User
User
SMS Reply
Requesting & Replying SMS
Schedule data
1 Schedule 2 Message
message detail
Password, Admin_name, Schedule data
2P Login Admin
Password & Admin_name accepted
b Admin
3 Add & Update Schedule
Updated & Added Schedule 1 Schedule Schedule data
Gambar 3.3. Overview Diagram untuk User dan Admin
21
D. DFD Level 1 untuk Proses 1
1 a User
SMS Request User
1.1 Requesting SMS
message
2 Message
message detail message not accepted
1.2 Processing reply message
Schedule data 1 Schedule
Schedule data
SMS Reply 1.3P Replying SMS
Gambar 3.4. DFD Level 1 Proses 1
21
E. DFD Level 2 untuk Proses 1
1.1 1.1P
Request information
1.2.1P Check message
message not accepted
message accepted 1.2.2P Store message
Message 2 Message
Gambar 3.5. DFD Level 2 Proses 1 untuk proses Requesting SMS
Gambar 3.6. DFD Level 2 Proses 1 untuk proses Processing message
1.3P
21
G. DFD Level 1 untuk Proses 3
3 3.1P Add Schedule
New Schedule
1 Schedule 3.2P Update Schedule
Updated Schedule Schedule Data
Gambar 3.7. DFD Level 1 Proses 3 untuk proses Add & Update Schedule
21
3.2.3. Analisa Sumber Daya Dalam analisa sumber daya ini berisi mengenai sumber daya – sumber daya yang dibutuhkan untuk membangun sistem informasi jadwal penerbangan, dilihat dari kebutuhan sumber daya perangkat keras dan perangkat lunak yang dibutuhkan oleh server, gateway, dan user.
3.2.3.1. Analisa Perangkat Keras Perangkat keras yang dibutuhkan untuk mengembangkan sistem ini adalah: a. Untuk Server (selama pembuatan program) -
Prosesor AMD Duron 800
-
Hard disk 40 GB
-
Memori 256 MB SDRAM
b. Untuk SMS Gateway -
Ponsel Nokia (dalam tugas akhir ini menggunakan ponsel Nokia 3310)
-
Operator (dalam tugas akhir ini menggunakan Mentari)
-
Kabel data 5 in 1 untuk Nokia dan Siemens
c. Untuk User/client -
Ponsel (dapat menggunakan semua jenis tipe dan merek ponsel, dalam tugas akhir ini menggunakan ponsel Motorola C380)
-
Operator (dapat menggunakan semua operator, dalam tugas akhir ini menggunakan operator Indosat M3)
3.2.3.2. Analisa Perangkat Lunak Teknologi perangkat lunak yang digunakan untuk mengembangkan sistem ini
21
adalah: a) Untuk Server -
Sistem Operasi Windows 2000 Professional
-
Web browser Internet Explorer versi 5
-
Web server IIS
-
ASP sebagai bahasa pemrograman
-
Ms. Access XP untuk database
b) Untuk SMS Gateway -
Visual Basic 6 untuk aplikasi SMS Gateway jadwal penerbangan
-
Komponen
MobileFBUS
1.5
(dapat
di-download
di
www.softwarecave.com)
3.3. Perancangan Sistem Perancangan sistem ini dilakukan setelah tahap analisa. Pada tahap ini bertujuan untuk memberi gambaran secara umum tentang sistem yang akan dibangun.
3.3.1. Perancangan Database Data base merupakan kumpulan dari data yang saling berhubungan satu dengan yang lainnya, tersimpan dalam simpanan luar suatu sistem dan digunakan suatu perangkat lunak tertentu untuk memanipulasinya. Data base merupakan salah satu komponen penting dalam sistem informasi karena berfungsi sebagai penyedia informasi bagi pengguna / user.
3.3.1.1. E-R Diagram
21
E-R Diagram ini digunakan untuk menunjukkan relasi antar tabel, dan sebagai awal dari perancangan database dari sistem ini. IDMaskapai * NamaMaskapai
NoPenerbangan * IDMaskapai ** Kota Jam Hari Keterangan
Gambar 3.9. Relasi antar tabel Pada sistem yang akan dibangun ini mempunyai 2 (tabel) tabel, yaitu: tabel maskapai ,dan tabel schedule. Dimana relasi antar tabelnya telah digambarkan diatas. Untuk Tabel SMS tidak mempunyai relasi, sebab tabel tersebut merupakan tabel tunggal. Struktur tabel-tabel yang akan dibangun adalah sebagai berikut:
21
Nama Field
Tipe Data
Ukuran
NoPenerbangan
Char
10
IDMaskapai
Char
10
Kota
Char
10
Jam
Date/Time
-
Hari
Char
30
Keterangan
Char
4
Tabel 3.1. Tabel Schedule
Nama Field
Tipe Data
Ukuran
IDMaskapai
Char
10
NamaMaskapai
Char
20
Tabel 3.2. Tabel Maskapai
Nama Field
Tipe Data
Ukuran
Autonumber
-
Char
20
Tgl
Date/Time
-
Jam
Date/Time
-
IsiPesan
Char
160
Status
Char
5
ID NoHP
Tabel 3.3. Tabel Message
3.3.2. Perancangan Interface Perancangan interface dibagi menjadi 2 (dua), yaitu: -
Perancangan interface untuk user
-
Perancangan interface untuk administrator
21
3.3.2.1. Perancangan Interface untuk User Perancangan interface untuk user ini berupa format tulisan yang berupa text yang tertera pada layar ponsel. A. Format untuk SMS request yang dilakukan oleh user Format Pesan DEP
(spasi)
MASKAPAI
KOTA ARR
Keterangan (spasi) Format pesan jadwal keberangkatan. Contoh : DEP GARUDA JKT
(spasi)
MASKAPAI
KOTA
(spasi) Format
pesan
jadwal
kedatangan.
Contoh : ARR LION SBY Tabel 3.4. Format SMS request oleh user
B. Format untuk SMS reply Format Pesan
Keterangan
No.Penerbangan (spasi) Jam (spasi) Format SMS reply. Contoh : GA-110 HARI
07:30 DIALY, GA-112 11:50 DIALY Tabel 3.6. Format SMS reply oleh server
3.3.2.2. Perancangan Interface untuk Administrator Perancangan interface untuk administrator ini digunakan untuk meng-update data jadwal penerbangan dengan menggunakan metode berbasis web. Maksudnya adalah data di-update melalui website yang terhubung melalui internet. Halamanhalaman yang digunakan oleh administrator yaitu: A. Halaman Login
21
Pada halaman login ini seorang administrator melakukan login untuk dapat masuk kedalam sistem untuk melakukan update. FLIGHT SCHEDULE INFORMATION
LOGIN ADMIN
:
Name
xxxxxx
Password :
xxxxxx
Login
Reset
Date/Time
Gambar 3.10. Tampilan halaman Login Administrator
B. Halaman Pesan Salah Pesan salah ini akan muncul apabila administrator melakukan kesalahan login. Kesalahan ini dapat terjadi bila administrator salah memasukkan password atau nama. FLIGHT SCHEDULE INFORMATION
LOGIN ADMIN Sorry, you’ve wrong password please try again
:
xxxxxx
Password :
xxxxxx
Nama
Login
Reset
Gambar 3.11. Tampilan halaman jika terjadi kesalahan Login
21
C. Halaman Menu Utama Halaman menu utama ini merupakan tampilan menu pilihan. Jadi administrator dapat memilih halaman mana yang akan dibuka. FLIGHT SCHEDULE INFORMATION Schedule | Update | Add | Logout
Flight Schedule
Flight No. xx-xxx xx-xxx
Airlines xxxx xxxx
City xxx xxx
Prev 10
Time xx.xx xx.xx
Day xxx xxx
State xxx xxx
Next 10
Gambar 3.12. Tampilan halaman jadwal penerbangan
D. Halaman Update Jadwal Penerbangan Halaman ini digunakan untuk meng-update jadwal penerbangan. FLIGHT SCHEDULE INFORMATION
Schedule | Update | Add | Logout
Update/Delete Schedule
Flight No. xx-xxx xx-xxx
Airlines xxx xxx
City xxxx xxxx
Prev 10
Time xx.xx xx.xx
Day xxx xxx
State xxx xxx
Next 10
Gambar 3.13. Tampilan halaman update jadwal
Action Update/Delete Update/Delete
21
F. Halaman Form Update Jadwal Penerbangan Halaman ini digunakan untuk meng-update jadwal penerbangan. FLIGHT SCHEDULE INFORMATION
Schedule | Update | Add | Logout
Update Schedule
Flight No.
:
xxxxxx
Airlines
:
xxxxxx
City
:
xxxxxx
Time
:
xx.xx
Day
:
xxxxx
State
:
xxxxxx
Save Gambar 3.14. Tampilan halaman form update jadwal
H. Halaman Add Halaman ini digunakan untuk memilih menu Add.
21
FLIGHT SCHEDULE INFORMATION
Schedule | Update | Add | Logout
Add Schedule
Flight No.
:
xxxxxx
Airlines
:
xxxxxx
City
:
xxxxxx
Time
:
xx.xx
Day
:
xxxxx
State
:
xxxxxx
Gambar 3.15. Tampilan halaman form add Save jadwal Add Airline
Airlines ID
:
xxxxxx
Company
:
xxxxxx
Save
I. Halaman Logout FLIGHT SCHEDULE INFORMATION
Logout
Thank You… You’ve been logged out from system…
Gambar 3.17. Tampilan halaman Logout
21
BAB IV IMPLEMENTASI PROGRAM dan ANALISA HASIL IMPLEMENTASI PROGRAM
Program apliksi SMS Gateway ini dibangun bertujuan untuk menerima SMS dari user dan mengirimkan kembali SMS yang berisi informasi yang dibutuhkan user dalam hal ini orang yang membutuhkan informasi jadwal penerbangan, baik kedatangan maupun keberangkatan. Sehingga dengan hanya mengirimkan sebuah SMS, user dapat mengetahui informasi yang mereka butuhkan . Selain aplikasi SMS Gateway dibangun juga aplikasi web, aplikasi ini dibuat untuk memudahkan admin dalam meng-update setiap perubahan jadwal.
4.1. Implementasi Program Dalam implementasi ini terdapat 2 buah program, yaitu: aplikasi web sebagai web maintenance dan program aplikasi SMS Gateway. Aplikasi web dibangun hanya untuk admin dimana admin mempunyai tugas dan hak untuk meng-update setap perubahan jadwal penerbangan yang ada. Dan program aplikasi SMS Gateway berfungsi untuk menerima SMS dari user dan mengirimkan informasi yang diminta oleh user. Untuk membangun aplikasi web digunakan ASP dan menggunakan Visual Basic 6 dan menggunakan komponen MobileFBUS 1.5 sebagai komponen penghubung ponsel dengan PC dalam membangun aplikasi SMS Gateway. Sedangkan untuk databasenya menggunakan Ms. Access XP.
21
4.1.1. Implementasi Web 4.1.1.1. Koneksi Database Untuk menampilkan sebuah informasi yang diambil dari tabel dari sebuah database maka diperlukan suatu model akses yang digunakan untuk berinteraksi dengan database yang disebut ADO atau ActiveX Data Object. Pada web ini digunakan model akses ADO OLE DB ( Object Linking and Embedding Database). Script yang digunakan dalam web ini adalah sebagai berikut: '---buka koneksi dan deklarasi recordset--set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\penerbangan.mdb" set rst = server.createobject("ADODB.Recordset")
4.1.1.2. Halaman Utama (index.asp) Tampilan halaman utama ini adalah halaman log in. Dimana sebelum masuk kedalam sistem, admin harus memasukkan nama dan password terlebih dahulu.
Gambar 4.1. halaman index.asp
21
Jika nama dan password yang dimasukkan salah maka akan muncul pesan kesalahan seperti pada gambar dibawah ini:
Gambar 4.2. halaman cek.asp jika nama dan/atau password salah
Berikut adalah script yang digunakan dalam proses pengecekan nama dan password pada waktu Admin melakukan log in. <% strpass1=request.Form("admname") strpass2=request.Form("admpass") if strpass1="admin" and strpass2="irma" then set session("admname")= nothing set session("admpass")= nothing session.Abandon() %>
<% else %>
<% end if %>
Tetapi jika proses log in benar maka Admin dapat langsung masuk ke dalam system, seperti pada tampilan dibawah ini.
21
Gambar 4.3. halaman cek.asp jika nama dan/atau password benar
4.1.1.3. Halaman Jadwal Kedatangan dan Keberangkatan Untuk tampilan halaman jadwal kedatangan dan keberangkatan sama hanya saja yang berbeda adalah informasinya. Untuk halaman keberangkatan diberi nama dep.asp dan untuk halaman kedatangan diberi nama arr.asp. Berikut adalah tampilan dari tabel jadwal keberangkatan dan jadwal kedatangan.
21
Gambar 4.4. halaman dep.asp
Gambar 4.5. halaman arr.asp Pada tabel informasi ini terdapat 10 record per halamannya, dan record berikutnya dapat dilihat dengan meng-klik tombol NEXT 10, atau meng-klik tombol PREV 10 jika ingin melihat record sebelumnya. Berikut ini adalah script yang digunakan:
21
•
Script untuk memanggil tabel, yaitu : Untuk halaman dep.asp adalah : strsql = "select * from schedule where Keterangan ='DEP' order by Kota"
Untuk halaman arr.asp adalah : strsql = "select * from schedule where Keterangan ='ARR' order by Kota"
•
Script untuk mengatur tampilan record per halaman, yaitu : '---menampilkan 10 record per halaman--rst.open strsql,conn,adOpenStatic rst.pagesize = 10 '---mengatur halaman--if btn = "Prev 10" or btn = "Next 10" then select case btn case "Prev 10" if page > 1 then page = page - 1 else page = 1 end if case "Next 10" if rst.absolutepage < rst.pagecount then page = page + 1 else page = rst.pagecount end if case else page = 1 end select end if rst.AbsolutePage = page %>
4.1.1.4. Halaman airline.asp Halaman ini berisi daftar nama-nama maskapai yang tercatat melakukan penerbangan di Bandara Adi Sucipto. Pada halaman ini Admin dapat meng-edit maupun menghapus daftar maskapai, halaman ini diberi nama airline.asp.
21
Gambar 4.6. halaman airline.asp
Jika Admin akan menghapus data maskapai maka Admin hanya meng-klik link DELETE, tetapi jika Admin hanya akan melakukan perbahan atau meng-edit data maskapai maka Admin dapat memilih link EDIT maka link tersebut akan menuju ke halaman yang berfungsi untuk proses editing, halaman ini berupa form. Halaman ini diberi nama frmeditair.asp.
21
Gambar 4.7. halaman frmeditair.asp
Pada halaman frmeditair.asp diatas Admin dapat langsung mengubah data maskapai dengan cepat dan kemudian dapat langsung disimpan dengan meng-klik tombol SAVE, kemudian akan muncul halaman pemberitahuan kalau data telah terupdate. Berikut adalah script yang digunakan untuk melakukan proses edit dan delete data maskapai : •
Script yang digunakan untuk meng-edit data diberi nama editair.asp, berikut adalah scriptnya : <% '---edit data--rst("IDMaskapai")=request.form("id") rst("NamaMaskapai")=request.form("company") rst.update rst.close conn.close set rst=nothing set conn=nothing end if %>
21
•
Script yang digunakan untuk menghapus data diberi nama delairline.asp. Berikut adalah scriptnya:
.
<% '---delete data--rst("IDMaskapai")=request.form("id") rst("NamaMaskapai")=request.form("company") rst.delete rst.update conn.close set rst=nothing set conn=nothing end if %>
4.1.1.5. Halaman Edit Jadwal Untuk halaman edit jadwal ini tampilan halaman edit jadwal keberangkatan dan kedatangan sama. Untuk edit jadwal keberangkatan diberi nama depedit.asp dan untuk jadwal kedatangan diberi nama arredit.asp. Pada halaman depedit.asp maupun arredit.asp Admin dapat langsung memilih apakah akan melakukan penghapusan data atau kah hanya akan merubah data pada tabel. Jika akan melakukan penghapusan data atau record dari tabel maka Admin dapat memilih link DELETE, maka data akan terhapus dari tabel dan akan muncul pesan “DATA SUCCESSFULLY DELETED” yang berarti data telah terhapus. Tetapi jika Admin memilih link EDIT maka link tersebut akan menuju ke halaman formedit.asp.
21
Gambar 4.8. halaman depedit.asp
Gambar 4.9. halaman arredit.asp
21
Gambar 4.10. halaman formedit.asp Halaman formedit.asp ini berisi record data jadwal pesawat yang akan di-edit atau diubah. Jika telah selesai melakukan editing maka data dapat langsung disimpan dengan meng-klik tombol SAVE, dan akan muncul pesan “DATA SUCCESSFULLY EDITED” yang berarti data telah berhasil di-edit. Berikut adalah script yang digunakan dalam proses edit data dan penghapusan data: •
Script editor.asp ini digunakan untuk mengganti informasi yang telah diedit melalui formedit.asp dan kemudian disimpan sebagai informasi yang baru. <% ‘---edit data--rst("NoPenerbangan")=request.form("flight") rst("IDMaskapai")=request.form("airline") rst("Kota")=request.form("city") rst("Jam")=request.form("time") rst("Hari")=request.form("day") rst("Keterangan")=request.form("state") rst.update rst.close conn.close set rst=nothing set conn=nothing end if
21
%>
•
Script delete.asp digunakan untuk menghapus record data sesuai dengan querystring yang dipanggil. Script ini hamper sama dengan script editor.asp hanya saja bagian ‘--edit data--- diganti dengan script berikut ini: '---delete data--rst.delete rst.update
4.1.1.6. Halaman Tambah Data Halaman ini diberi nama adds.asp. Halaman ini berfungsi untuk menambah record data baik pada penambahan jadwal penerbangan baru maupun penambahan maskapai baru.
Gambar 4.11. halaman adds.asp
Script yang digunakan adalah sebagai berikut : •
Script untuk menambah record jadwal penerbangan baru ini diberi nama addsche.asp. Scriptnya adalah sebagai berikut : <% rst.addnew rst("NoPenerbangan")=request.form("flight")
21
rst("IDMaskapai")=request.form("airline") rst("Kota")=request.form("city") rst("Jam")=request.form("time") rst("Hari")=request.form("day") rst("Keterangan")=request.form("state") rst.update %> Jika data yang dimasukkan sudah ada dalam tabel maka akan muncul pesan “DATA ALREADY EXIST” yang berarti data yang dimasukkan sudah ada dalam tabel. Tetapi jika data berhasil ditambahkan akan muncul pesan “DATA SUCCESSFULLY ADDED”.
•
Script untuk menambah record maskapai baru ini diberi nama addco.asp. Untuk script addco.asp ini sama dengan script addsche.asp hanya diganti pada bagian berikut : rst.addnew rst("IDMaskapai")=request.form("airlineid") rst("NamaMaskapai")=request.form("airlinename") rst.update
4.1.2. Implementasi SMS Gateway Cara kerja SMS Gateway dalam Tugas Akhir ini adalah: 1. Nomor ponsel pengirim dan pesan SMS yang diterima oleh SMS Gateway akan dimasukkan ke tabel message. 2. SMS Gateway akan memproses pengambilan data dari database sesuai dengan format SMS yang telah ditentukan. 3. Kemudian SMS Gateway akan mengirim balik SMS balasan kepada user yang mengirimkan SMS. Cara kerja program aplikasi ini adalah: 1. Menghubungkan ponsel dengan komputer 2. Memindah inbox yang ada di ponsel ke dalam database komputer. 3. Pengecekan format SMS yang telah ditentukan.
21
4. Proses pengambilan data dari tabel schedule sesuai dengan format SMS yang telah ditentukan. 5. Mengirimkan SMS balasan kepada user. 6. Menghentikan program. Dalam membangun sebuah aplikasi SMS Gatewy diperlukan beberapa komponenkomponen penting. Komponen-komponen tersebut adalah sebagai berikut: Kontrol
Properti
Nilai
Form
Name
frmSMS
Combo Box
Name
cmbBox
CommandButton1
Name
CmdInbox
CommandButton2
Name
CmdSend
List1
Name
ListBox
Text Box1
Name
txtIsi
Text Box2
Name
txtReply
Text Box3
Name
txtNo
Timer
Name
Timer1
Enabled
True
Interval
1000
Name
FBUS
Visible
False
MFBUS15Control
Tabel 4.1. Komponen-komponen Aplikasi SMS Gateway Berikut ini adalah tampilan utama dari aplikasi SMS Gateway pada Tugas Akhir ini.
21
Gambar 4.12. Tampilan aplikasi SMS Gateway
Untuk menjalankan aplikasi ini terlebih dahulu menghubungkan ponsel dengan komputer menggunakan kabel data. Pada awal program dijalankan Admin harus memilih COM port yang akan digunakan., jika koneksi benar maka akan muncul pesan “Connected” tapi jika koneksi salah maka akan muncul pesan “Connection Failed”. Script yang digunakan untuk menghubungkan ponsel dengan komputer adalah sebagai berikut: On Error GoTo pesan FBUS.Connect cmbBox.Text If FBUS.Connected = True Then MsgBox "Connected" End If Screen.MousePointer = vbHourglass FBUS.SMS.Refresh Screen.MousePointer = vbDefault pesan: If Err <> 0 Then
21
MsgBox "Connection Failed" End If
SMS Inbox berisi daftar SMS yang masuk dan tersimpan dalam inbox ponsel. Jika daftar SMS tersebut di-klik maka akan muncul pesan yang ada didalamnya, pesan tersebut akan ditampilkan pada text box yang terdapat dibawah daftar SMS Inbox. Untuk memunculkan daftar SMS Inbox dan menampilkan pesannya digunakan script sebagai berikut ini: Untuk menampilkan daftar SMS Inbox : Dim i As Integer, sMsg As String List1.Clear With FBUS Set mSmsBox = .SMS.Inbox For i = 1 To mSmsBox.Count With mSmsBox(i) If .Sender <> "" Then sMsg = .DateTime & " from : " & .Sender End If End With List1.AddItem sMsg Next i End With Set m_SmsBox = Nothing
Untuk menampilkan isi SMS : txtIsi.Text = "" If List1.ListIndex >= 0 Then txtIsi.Text = mSmsBox(List1.ListIndex + 1).Text End If Replying text adalah text box yang berfungsi untuk menuliskan SMS balasan yang akan dikirim ke user atau pengirim SMS Request. Panjang Replying text ini adalah maksimal 160 karakter. Script untuk mengirim pesan balasan adalah sebagai berikut:
21
Private Sub cmdSend_Click() If txtNo.Text <> "" Then FBUS.SendSMSMessage txtNo.Text, txtReply.Text MsgBox "Message sent..." Else MsgBox "Input sender number..." End If End Sub
4.2. Analisa Hasil Implementasi Program 4.2.1. Analisa Hasil Pengujian Perangkat Lunak Dari pengujian program aplikasi dalam hal ini menggunakan ponsel Nokia 3310, program dapat digunakan dengan baik. Web yang dibangun untuk peng-update-an data oleh admin juga dapat berjalan baik. Fungsi dari aplikasi ini adalah sebagai penghubung antara ponsel yang mengirimkan SMS, server dalam hal ini adalah komputer yang menyimpan data jadwal penerbangan, dengan ponsel penerima SMS. Dimana prosesnya adalah sebagai berikut: 1. User mengirimkan SMS dengan format tertentu ke nomor informasi. 2. SMS Gateway menerima SMS tersebut melalui ponsel penerima pesan, kemudian dilakukan pengecekan apakah SMS yang diterima sesuai dengan format yang terlah ditentukan atau tidak. 3. Kemudian jika sesuai maka SMS yang diterima akan diproses untuk mengambil data yang ada di database sesuai dengan permintaan. Jika format SMS tidak sesuai maka SMS Gateway akan mengirimkan pesan gagal kepada pengirim. 4. Setelah diproses semua maka SMS Gateway akan mengirimkan SMS balasan yang berisi informasi yang diinginkan pengirim menggunakan ponsel penerima. Fungsi dari web pada Tugas Akhir ini adalah untuk mempermudah admin untuk melakukan proses update data. Prosesnya adalah sebagai berikut:
21
1. Admin melakukan login dengan mengisi nama dan password telebih dahulu. 2. Setelah admin masuk ke sistem, maka admin langsung dapat melakukan proses update data. Dari uji coba hasil program dapat dianalisa bahwa: 1. Dari sisi user, program ini dapat mempermudah masyarakat yang membutuhkan informasi
jadwal
penerbangan
untuk
mendapatkan
informasi
yang
dibutuhkannya. 2. Dari sisi admin, admin dimudahkan dalam peng-update-an data karena sistem yang digunakan berbasis web yang dibangun dengan menggunakan teknologi ASP (Active Server Page). 3. Dari sisi program itu sendiri, program aplikasi dibangun menggunakan bahasa pemrograman Visual Basic dengan menggunakan komponen MobileFBUS, komponen ini dapat di-download di situs www.softwarecave.com. Aplikasi ini berfungsi untuk memproses SMS yang masuk, dan setelah diproses sesuai dengan permintaan maka program akan mengirim SMS balasan ke ponsel pengirim melalui ponsel penerima dalam hal ini berfungsi sebagai modem. Untuk sistem web yang digunakan untuk proses update data dibangun menggunakan teknologi ASP. Dan untuk database yang digunakan dalam Tugas Akhir ini adalah MS. Access XP. 4.2.2. Analisa Hasil Pengujian Perangkat Keras Perangkat keras yang dibutuhkan untuk membangun sistem ini adalah: a) Untuk Server (selama pembuatan program) -
Prosesor AMD Duron 800
-
Hard disk 40 GB
21
-
Memori 256 MB SDRAM
b) Untuk SMS Gateway -
Ponsel Nokia (dalam tugas akhir ini menggunakan ponsel Nokia 3310)
-
Operator (dalam tugas akhir ini menggunakan Mentari)
-
Kabel data 5 in 1 untuk Nokia dan Siemens
c) Untuk User/client -
Ponsel (dapat menggunakan semua jenis tipe dan merek ponsel, dalam tugas akhir ini menggunakan ponsel Motorola C380)
-
Operator (dapat menggunakan semua operator, dalam tugas akhir ini menggunakan operator Indosat M3)
Dari hasil pengujian dengan menggunakan perangkat keras yang tersebut diatas, program dapat berjalan dengan baik. 4.2.3. Kelebihan dan Kekurangan Program Setiap program mempunyai kelebihan dan kekurangan, berikut ini adalah kelebihan dan kekurangan yang ada pada program yang dibuat dalam Tugas Akhir ini. Kelebihan program: 1. Untuk menggunakan program ini pengembang tidak perlu menggunakan perangkat keras komputer yang berspesifikasi tinggi, dan begitu pula untuk penggunaan ponselnya. 2. User tidak perlu mendaftarkan nomor ponselnya terlebih dahulu. 3. Admin dapat mudah melakukan peng-update-an karena sistem dibuat dengan web based system atau sistem berbasis web yang dibangun menggunakan ASP. 4. User dapat cepat memperoleh informasi yang diinginkan dengan cara yang mudah.
21
Kekurangan program: 1. Web yang dibangun masih dalam keadaan offline. 2. Keterbatasan karakter yang disediakan oleh ponsel yaitu hanya 160 karakter, yang mengakibatkan jika pesan terlalu panjang maka persan tersebut akan terpotong. 3. Jika user tidak mengetahui format pengiriman SMS nya maka user akan terus menerima pesan error. 4. Aplikasi ini masih bersifat manual belum autorespon. SMS yang akan dikirim harus diketikkan terlebih dahulu.
21
BAB V PENUTUP
5.1. Kesimpulan Kesimpulan dari pembuatan program aplikasi dalam Tugas Akhir ini adalah: 1. Dalam Tugas Akhir ini terdapat 2 sistem, yaitu: program aplikasi SMS Gateway dan sistem peng-update-an data. Program aplikasi SMS Gateway yang dibangun diharapkan untuk memudahkan user umum dalam hal ini adalah orang-orang yang membutuhkan informasi jadwal penerbangan, dalam memperoleh informasi secara cepat dan mudah. Dan sistem peng-update-an data yang dibangun berbasis web menggunakan ASP ini diharapkan untuk memudahkan user admin dalam melakukam proses update data, dalam hal ini user admin adalah orang yang bertugas dan bertanggung jawab atas semua keakuratan data yang ada 2. Komponen MobileFBUS1.5 digunakan untuk mengkoneksikan antara ponsel dengan komputer. 3. Program aplikasi SMS Gateway ini sudah dapat berfungsi untuk menerima dan mengirimkan SMS, hanya saja belum bersifat autorespon. 5.2. Saran Dari program aplikasi ini disarankan agar: 1. Dapat diimplementasikan langsung ke masyarakat umun. 2. Web yang digunakan untuk meng-update data masih dilakukan secara offline, untuk mempermudah admin dalam meng-update data ada baiknya dilakukan secara online.
21
DAFTAR PUSTAKA
Budicahyanto, Dwi. Membangun Aplikasi Handphone dengan FBUS dan Visual Basic. Yogyakarta : Andi Offset, 2004. Rozidi, Romzi Imron. Membuat Sendiri SMS Gateway Berbasis Protokol PMPP. Yogyakarta : Andi Offset, 2004. Kurniawan, Andi. Belajar Sendiri Microsoft Active Server Pages. Jakarta : Elex Media Komputindo, 2000. Gaos, Bottie Gaos. Buku Pintar Internet Active Server Pages. Jakarta : Elex Media Komputindo, 2001.
21
LAMPIRAN
Reader.vbp Private mSmsBox As FBSmsBox Private Sub cmbBox_click() On Error GoTo pesan FBUS.Connect cmbBox.Text If FBUS.Connected = True Then MsgBox "Connected" End If Screen.MousePointer = vbHourglass FBUS.SMS.Refresh Screen.MousePointer = vbDefault pesan: If Err <> 0 Then MsgBox "Connection Failed" End If End Sub Private Sub cmdinbox_Click() FBUS.SMS.Refresh Dim i As Integer, sMsg As String List1.Clear With FBUS Set mSmsBox = .SMS.Inbox For i = 1 To mSmsBox.Count With mSmsBox(i) If .Sender <> "" Then sMsg = .DateTime & " from : " & .Sender End If End With List1.AddItem sMsg Next i End With Set m_SmsBox = Nothing End Sub Private Sub cmdSend_Click() If txtNo.Text <> "" Then FBUS.SendSMSMessage txtNo.Text, txtReply.Text MsgBox "Message sent..." Else MsgBox "Input sender number..." End If End Sub Private Sub Form_Load()
21
With cmbBox .AddItem "COM1" .AddItem "COM2" .AddItem "COM3" End With End Sub Private Sub List1_Click() txtIsi.Text = "" If List1.ListIndex >= 0 Then txtIsi.Text = mSmsBox(List1.ListIndex + 1).Text End If txtNo.Text = "" If List1.ListIndex >= 0 Then txtNo.Text = mSmsBox(List1.ListIndex + 1).Sender End If End Sub Private Sub txtReply_Change() jum = Len(txtReply.Text) lblChar.Caption = 160 - jum End Sub
If you haven't account for this system, please close this window...!!!
cek.asp <% strpass1=request.Form("admname") strpass2=request.Form("admpass") if strpass1="admin" and strpass2="irma" then set session("admname")= nothing set session("admpass")= nothing session.Abandon() %>
<marquee direction="left">WELCOME TO FLIGHT SCHEDULE SYSTEMS....
<% dim conn,rst,strsql,btn,page,i strsql = "select * from schedule where Keterangan ='DEP' order by IDMaskapai" '---buka koneksi dan deklarasi recordset--set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" set rst = server.createobject("ADODB.Recordset") '---menentukan halaman aktif--btn = request("btn") if request.form("page") = "" then page = 1 else page = request.form("page") end if
21
'---menampilkan 10 halaman--rst.open strsql,conn,adOpenStatic rst.pagesize = 10 '---mengatur halaman--if btn = "Prev 10" or btn = "Next 10" then select case btn case "Prev 10" if page > 1 then page = page - 1 else page = 1 end if case "Next 10" if rst.absolutepage < rst.pagecount then page = page + 1 else page = rst.pagecount end if case else page = 1 end select end if rst.AbsolutePage = page %>
FLIGHT NO.
AIRLINE
CITY
TIME
DAY
<% for i = 1 to rst.pagesize %>
<%=rst("NoPenerbangan")%>
<%=rst("IDMaskapai")%>
<%=rst("Kota")%>
<%=rst("Jam")%>
<%=rst("Hari")%>
<% rst.movenext if rst.EOF then exit for end if next %>
<% dim conn,rst,strsql,btn,page,i strsql = "select * from schedule where Keterangan ='ARR' order by IDMaskapai" '---buka koneksi dan deklarasi recordset--set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" set rst = server.createobject("ADODB.Recordset") '---menentukan halaman aktif--btn = request("btn") if request.form("page") = "" then page = 1 else page = request.form("page") end if '---menampilkan 10 halaman--rst.open strsql,conn,adOpenStatic rst.pagesize = 10 '---mengatur halaman--if btn = "Prev 10" or btn = "Next 10" then select case btn case "Prev 10" if page > 1 then page = page - 1 else page = 1 end if case "Next 10" if rst.absolutepage < rst.pagecount then page = page + 1
21
else page = rst.pagecount end if case else page = 1 end select end if rst.AbsolutePage = page %>
FLIGHT NO.
AIRLINE
CITY
TIME
DAY
<% for i = 1 to rst.pagesize %>
<%=rst("NoPenerbangan")%>
<%=rst("IDMaskapai")%>
<%=rst("Kota")%>
<%=rst("Jam")%>
<%=rst("Hari")%>
<% rst.movenext if rst.EOF then exit for end if next %>
airline.asp
21
<marquee> AIRLINES LIST
AIRLINES LIST
<% dim conn,rst,strsql '---buka koneksi dan deklarasi recordset--set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" strsql = "SELECT * FROM maskapai order by IDMaskapai" set rst = server.createobject("ADODB.Recordset") rst.Open strsql, conn %>
<% dim conn,rst,strsql,btn,page,i strsql = "select * from schedule where Keterangan ='DEP' order by IDMaskapai" '---buka koneksi dan deklarasi recordset--set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" set rst = server.createobject("ADODB.Recordset") '---menentukan halaman aktif--btn = request("btn") if request.form("page") = "" then page = 1 else page = request.form("page") end if '---menampilkan 10 halaman--rst.open strsql,conn,adOpenStatic rst.pagesize = 10 '---mengatur halaman--if btn = "Prev 10" or btn = "Next 10" then select case btn case "Prev 10" if page > 1 then page = page - 1 else page = 1 end if case "Next 10" if rst.absolutepage < rst.pagecount then page = page + 1 else page = rst.pagecount end if case else page = 1 end select end if rst.AbsolutePage = page %>
<% dim conn,rst,strsql,btn,page,i strsql = "select * from schedule where Keterangan ='ARR' order by IDMaskapai"
21
'---buka koneksi dan deklarasi recordset--set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" set rst = server.createobject("ADODB.Recordset") '---menentukan halaman aktif--btn = request("btn") if request.form("page") = "" then page = 1 else page = request.form("page") end if '---menampilkan 10 halaman--rst.open strsql,conn,adOpenStatic rst.pagesize = 10 '---mengatur halaman--if btn = "Prev 10" or btn = "Next 10" then select case btn case "Prev 10" if page > 1 then page = page - 1 else page = 1 end if case "Next 10" if rst.absolutepage < rst.pagecount then page = page + 1 else page = rst.pagecount end if case else page = 1 end select end if rst.AbsolutePage = page %>
<% rst.movenext if rst.EOF then exit for end if next %>
editor.asp <% response.Buffer=true %> <% dim list list = "Click " _ & "here to go back to list....." if request.QueryString("flight") <> "" then dim conn, rst '---koneksi database--set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" '---deklarasi sql--set rst = server.CreateObject("ADODB.Recordset") strsql = " select * from schedule where NoPenerbangan='" & request.QueryString("flight") & "'" rst.open strsql,conn,1,3
21
'---edit data--rst("NoPenerbangan")=request.form("flight") rst("IDMaskapai")=request.form("airline") rst("Kota")=request.form("city") rst("Jam")=request.form("time") rst("Hari")=request.form("day") rst("Keterangan")=request.form("state") rst.update rst.close conn.close set rst=nothing set conn=nothing end if %>
<% response.Write("...DATA EDITED...") %>
<%response.Write(list) %>
airedit.asp <% response.Buffer=true %> <% set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" set rst = server.createobject("ADODB.Recordset") strsql="select * from maskapai" rst.open strsql,conn,1,3 rst("IDMaskapai") = rst(0).value rst("NamaMaskapai") = rst(1).value rst.delete rst.update rst.close conn.close set rst = nothing set conn = nothing %>
<pre>
frmeditair.asp
21
<marquee> EDIT AIRLINE
EDIT AIRLINE
<% if request.QueryString("airID") <> " " then set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" set rst = server.createobject("ADODB.Recordset") strsql="select * from maskapai where IDMaskapai='" & request.QueryString("airID") & "'" rst.open strsql,conn %> <pre> <% rst.close set rst=nothing end if %>
editair.asp <% response.Buffer=true %> <% dim list list = "Click " _ & "here to go back to list....."
21
if request.QueryString("airID") <> "" then dim conn, rst '---koneksi database--set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" '---deklarasi sql--set rst = server.CreateObject("ADODB.Recordset") strsql = " select * from maskapai where IDMaskapai='" & request.QueryString("airID") & "'" rst.open strsql,conn,1,3 '---edit data--rst("IDMaskapai")=request.form("id") rst("NamaMaskapai")=request.form("company") rst.update
rst.close conn.close set rst=nothing set conn=nothing end if %>
<% response.Write("...DATA EDITED...") %>
<%response.Write(list) %>
delete.asp <% response.Buffer=true %> <% dim list list = "Click " _ & "here to go back to list....."
rst.close conn.close set rst=nothing set conn=nothing %>
<% response.Write("DATA DELETED") %>
<% response.Write(list) %>
adds.asp
<marquee>ADD SCHEDULE AND AIRLINE
If the airport have a new Airline, add new Airline in the Airline form and add new schedule in the Flight Schedule form. Or you can add new Flight Schedule (if the Airline listed on airport already) and/or add new Airline only...
FLIGHT SCHEDULE
<pre>
AIRLINES
<pre>
addsche.asp <% response.Buffer=true %> <% dim list, back list = "
" on error resume next set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" set rst = server.createobject("ADODB.Recordset") strsql="select * from schedule" rst.open strsql,conn,1,3 rst.addnew rst("NoPenerbangan")=request.form("flight") rst("IDMaskapai")=request.form("airline") rst("Kota")=request.form("city") rst("Jam")=request.form("time")
21
rst("Hari")=request.form("day") rst("Keterangan")=request.form("state") rst.update if Err.number<>0 then response.Write(back) else response.Write(list) end if rst.close conn.close set rst = nothing set conn = nothing %>
" on error resume next set conn = server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\penerbangan.mdb" set rst = server.createobject("ADODB.Recordset") strsql="select * from maskapai" rst.open strsql,conn,1,3 rst.addnew rst("IDMaskapai")=request.form("airlineid") rst("NamaMaskapai")=request.form("airlinename") rst.update if Err.number<>0 then response.Write(back) else response.Write(list) end if
21
rst.close conn.close set rst = nothing set conn = nothing
