PENDAHULUAN
1.1 Latar Belakang
Perkembangan peradaban manusia telah banyak mendorong kemajuan dibidang ilmu dan teknologi dengan cepat. Keingintahuan manusia yang sangat besar terhadap segala sesuatu yang mendorong untuk terciptanya sesuatu penemuan-penemuan yang sangat bermanfaat dan berguna bagi kehidupan manusia. Dimana setiap kehidupan manusia tidak lepas dari kebutuhan akan informasi.
Komputer adalah suatu perangkat yang dapat mengolah data menjadi informasi,dengan cepat dan akurat. Kehadiran computer semakin terasa mempengaruhi kehidupan dan pekerjaan manusia yang dulunya dilakukan secara manual (tanpa dibantudengan peralatan) dan kini dilakukan secara digital yaitu dengan menggunakan system komputerisasi.
Begitu pula pada lingkungan Rukun Tetangga (RT) sebagai pimpinan yang berhubungan langsung dengan penduduk setempat, RT tersebut menginginkan adanya sistem komputerisasi untuk menangani segala masalah warganya,baik itu menyangkut data-data penduduk, pembuatan Kartu Tanda Penduduk, Pembuatan Kartu Keluarga dan lain-lain.
Salah satu bagian yang perlu penanganan secara khusus, cepat, tepat dan akurat adalah entri data laporan penduduk, yang masih dilakukan secara manual, karena itu dengan dikembangkannya sistem ini maka mempermudah dan mempercepat dalam melakukan pengecekan data.
Banyak cara yang dilakukan oleh seorang ahi program agar hal tersebut dapat diatasi, karena banyak alternatife yang menjadi arah untuk melaksanakan hal tersebut, mulai dari memanfaatkan Bahasa Pemrograman Foxpro,Pascal dan Ctt.
Dalam laporan ini penulis menggunakan Bahasa Pemrograman Foxpro untuk menyelesaikan permasalahan tersebut,karena Bahasa Pemrograman Foxpro lebih terstuktur dan terinci dalam penyusunan database, record, field dan dapat juga menampilkan laporan sesuai dengan keinginan.
1.2 Permasalahan
Permasalahan yang terjadi pada pendataan warga di kelurahan kampung satu RT (15) adalah proses pendataan warga masih di lakukan secara manual,sehingga memerlukan waktu yang sangat lama untuk pencarian data warga dan data-data tersebut tidak terjamin keakuratannya. Selain itu untuk melakukan pemantauan jumlah warga pendatang dan warga meninggalkan lokasi kampung satu RT (15) dapat ditangani dengan baik.
1.3 Rumusan Masalah
Adapun rumusan masalahnya sebagai berikut:
Penentuan langkah apa yang harus dilakukan untuk menangani agar pendataan warga penduduk dapat dilakukan secara cepat,tepat dan akurat secara komputerisasi sehingga proses pelaporan dan mendapatkan informasi dapat dilakukan dengan baik.
1.4 Batasan Masalah
Batasan masalah tersebut adalah sebagai berikut:
1. Proses komputerisasi yang di lakukan pada penelitian adalah untuk pendataan setiap kepala keluarga yang telah memiliki mempunyai KK (kartu keluarga).
2. Sistem yang diambil untuk program ini adalah entry data, hapus data, edit data dan laporan.
1.5 Tujuan Penelitian dan Manfaat Penelitian
1.5.1 Tujuan Pokok
Untuk menghasilkan sebuah sistem pendataan penduduk dalam
Rukun Tetangga (RT) 15 Kampung Satu Tarakan dengan
menggunakan Pemrograman Foxpro.
1.5.2 Tujuan Institusi
Sebagai persyaratan untuk menyelesaikan salah satu kelulusan
matakuliah D3, yaitu mata kuliah Tugas Pemrograman I.
1.5.3 Manfaat bagi penulis adalah menambah pengetahuan dalam bidang pemrograman dengan menggunakan Program Foxpro untuk mengatasi masalah yang menjadi kendala bagi kelurahan mana saja khususnya bagi kelurahan Kampung Satu tersebut.
1.5.4 Manfaat bagi pembaca diharapkan dari penelitian ini dapat dijadikan
Sebagai referensi atau acuan untuk menyusun bentuk lain yang hampir mirip atau sebagai bahan baru bagi penulisan untuk dikembangkan lebih lanjut.
1.5.5 Diharapkan hasil dari penelitian ini dapat bermanfaat untuk
mempermudah dalam Pendataan Warga RT (15) Kampung Satu.
Sebagai contoh untuk pelaksanaan system komputerisasi dalam
Pendataan Warga RT (15).
1.6 Metode Penelitian
Metode yang digunakan dalam melakukan penelitian adalah sebagai berikut:
1. Metode studi pustaka
Metode studi pustaka merupakan suatu metode yang penyusun gunakan dengan cara membaca buku-buku yang berhubungan dengan Tugas Pemrograman (TP) 1 dan melalui itulah penyusun dapat membuat suatu program.
2. Implementasi Program
Penyusun mencoba menerapkan program yang penyusun buat pada pembuatan pendataan warga RT (15) Kampung Satu.
1.7 Mata Kuliah Pandukung
Pelaksanaan penelitian ini didukung oleh beberapa materi yang disajikan pada perkuliahan antara lain:
1. Pemrograman Database.
2. Analisis Sistem Informasi.
BAB II
LANDASAN TEORI
2.1 Sejarah Perkembangan Bahasa Pemrograman Foxpro
Seorang ahli NASA bernama Wayne Ratlif menulis suatu program untuk aplikasi bisnis pada waktu senggangnya dan memasarkanya dengan nama Vulcan, tetapi tidak sukses dipasaran. Sementara itu George Tate, ahli di dalam mereparasi komputer yang kemudian menjadi ahli pemasaran software bersama-sama dengan Hal Lachlee mengadakan kontrak dengan Wayne Ratlif untuk memasarkan Vulcan. Nama Vulcan kemudian dirubah menjadi dBASE-II seakan-akan merupakan software yang terbaru. Hasil dari peningkatan dBASE sebelumnya dBASE-I tidak pernah ada. dBASE-II tersebut dipasarkan pada tahun 1981 dengan nama perusahaannya Asthon-Tate yang sebenarnya merupakan paket DBMS (Database Management System ) yang merupakan bahasa tingkat tinggi. dBASE-II langsung menguasai pasaran dan menjadi program yang laris. dBASE-II pertama kali digunakan untuk komputer 16-bit dengan operasi PC-DOS atau MS-DOS. Perkembangan selanjutnya dari dBASE-II adalah dBASE-III dan kemudian berganti nama menjadi FOXPRO.
Data mempunyai jenjang mulai dari karakter-karakter (Characters), item data (data item atau field), record, file dan kemudian database. Jenjang ini dapat digambarkan sebagai berikut :
Karakter-karakter.
Karakter merupakan bagian data yang terkecil, dapat berupa karakter numerik, huruf ataupun karakter-karakter khusus yang membentuk suatu item data.
Field
Suatu field mengambarkan suatu record yang menunjukkan suatu item data. Misalnya nama, alamat dan lain sebagainya. Kumpulan dari field membentuk suatu record.
Record
Kumpulan dari field membentuk suatu record. Record menggambarkan suatu unit data individu yang tertentu.
File
Kumpulan dari beberapa table merupakan kumpulan Record-record yang mengambarkan satu kesatuan data yang sejenis.
Database
Kumpulan dari file membentuk suatu database.
2.2 Pemrograman Bahasa Foxpro
2.21 Perintah Masuk Ke Foxpro
Start, Program, Accessories, MSDOS Promp, setelah masuk ke layar MSDOS Promp, berikan perintah :
Gambar perintah masuk ke foxpro
1. Aktifkan direktory kerja.
C:\>D: [ Enter ]
D:\>CD_Foxpro [ Enter ]
2. Setelah aktif dalam direktori folder, kemudian masuk ke dalam foxpro dengan memberikan perintah :
D:\>F:\fox26\fox [ Enter ]
2.2.2 Pembuatan Tabel
Sebelum lebih lanjut memulai, terlebih dahulu harus dibuat suatu tabel sebagai tempat field yang akan dibuat dengan dua cara :
1. Melalui perintah yang diketikan pada jendela perintah (command), langkahnya
ketik :
Create nama_tabel
2. Apabila melalui menu langkahnya :
1. Pilih menu File (menekan Alt+F)
2. Pilih New
3. Pilih Database
4. Pilihlah tombol OK dan tekan Enter
2.2.3 Mengakhiri pembuatan struktur tabel
Pilihlah tombol OK kemudian tekanlah Enter dan akan tampil pilihan
Yes atau No
Pilih Yes kalau bermaksud memasukkan data sekarang
Pilih No kalau tidak bermaksud memasukkan data sekarang
2.2.4 Memasukkan data ke dalam tabel
Jika memilih ”yes”, dapat secara langsung memasukan data kedalamnya
2.2.5 Mengakhiri pemasukkan data
Apabila tidak ada lagi data yang hendak dimasukan ke tabel, dapat menekan tombol ”Ctrl” dan ”W” secara bersamaan ”(Ctrl+W)”. Tombol ”Ctrl+End” juga dapat dipakai gunakan untuk keperluan ini. Alternatif lain, yaitu dengan melakukan langkah sebagai berikut :
Memilih menu “file”
Memilih sub menu “Close”
2.2.6 Menutup tabel
Jika tidak lagi bermaksud memproses tabel, maka perlu menutup tabel tersebut dengan cara :
Close Database nama file
2.2.7 Mengaktifkan suatu tabel
Seandainya bermaksud melakukan pengaksesan terhadap tabel yang telah ditutup, tabel perlu dibuka terlebih dahulu dengan cara :
Pilihlah menu “File”
Pilihlah sub menu “Open”
Kemudian sorotlah tabel yang ingin dibuka dan tekan ”Enter”
Atau dengan mengetikkan perintah ”USE NAMA TABEL” pada command
2.2.8 Menampilkan data
Data yang telah disimpan dalam tabel dapat ditampilkan dengan menggunakan perintah ”List”.
2.2.9 Menambah data
Menambah data ke tabel yang telah ada dapat dilakukan dengan mudah, yaitu dengan cara :
Pilih menu ”Record (Alt+R)”, pilih submenu ”Append” atau pada jendela perintah, berikan perintah ”Append”.
2.2.10 Melihat struktur tabel
Struktur tabel dapat diperoleh dengan mudah. Cukup mengetikkan perintah “List Structure”
Contoh :
USE nama_file
List Structure
2.2.11 Merubah struktur tabel
Untuk memodifikasi struktur tabel, perintah yang diperlukan yaitu Modify Structure, sebagai contoh : Use nama file
“Modify Structure”
Setelah muncul layar, dapat memilih pilihan
2.2.12 Menghapus isi tabel
Semua record yang ada pada suatu tabel dapat dikosongkan secara permanen dengan memberikan perintah :
Delete all
Pack
BAB III
IMPLEMENTASI PROGRAM
3.1 Bagan Alir Dokumen
Bagan Alir Dokumen adalah bagan yang menujukan alir dokumen yang berupa formulir-formulir yang ada dan merupakan gambaran kegiatan secara keseluruhan yang digambarkan dengan simbol sebagai brikut.
Simbol Penjelasan
Arah aliran dokumen
Menunjukan dokumen input dan output baik untuk proses manual, mekanik atau komputer
Menunjukan proses kompure
Menunjukan media penyimpanan dokumen pada proses manual atau diarsipkan
Menunjukan proses manual
Penghubung aliran dokumen pada halaman yang berbeda
Menunjukan proses penghubung
Adapun seluruh kegiatan yang berhubungan dengan pendataan aktivitas laboratorium (LAB) adalah sebagai berikut :
Mahasiswa Asisten LAB
1
2
3
4
5
6
7
9
8
9
Gambar 1.3 Bagan Alir Dokumen
Narasi :
1. Buku kegiatan (LAB) bebas
2. Asisten menyerahkan buku kegiatan (LAB) bebas ke mahasiswa
3. Mahasiswa mengisi bukunkegiatan (LAB) bebas
4. Buku kegiatan (LAB) yang telah diisi oleh mahasiswa diserahkan ke Asisten
(LAB) bebas
5. Asisten (LAB) bebas mengiput kegiatan mahasiswa (LAB) bebas
6. Data kegiatan mahasiswa (LAB) bebas
7. Pembuatan kegiatan (LAB) bebas mahasiswa
8. Laporan kegiatan (LAB) bebas mahasiswa
9. Arsip
3.2 Diagram Alir Data
Diagram Alir Data ialah alat yang digunakan untuk menggambarkan suatu sistem yang telah ada atau sistem baru yang akan dikembangkan secara logika tanpa mempertimbangkan lingkungan fisik di mana data tersebut mengalir atau di mana data tersebut disimpan. Pada tahap analisis, pengguna notasi Diagram Alir Data ini sangat membantu dalam komunikasi dengan sistem untuk pemahaman secara logika.
Simbol-simbol DAD dan penjelasan
Simbol Penjelasan
Merupakan simbol arus dari suatu proses
Merupakan simbol arus dari suatu proses
Merupakan simbol dari external entity yang terlibat langsung ke dalam sistem
Merupakan simbol media penyimpanan
Adapun, Diagram Alir Data dari sistem adalah :
DAD Laboratorium (LAB) Bebas
Diagram Context
b
Gambar 3.2. Diagarm Context
Keterangan :
a. Buku Kegiatan (LAB)
b. Daftar kegiatan mahasiswa yang telah diisi
DAD Laboratorium (LAB) Bebas
Level 0
Gambar 3.3 DAD level 0
Keterangan :
a. Buku kwegiatan (LAB)
b. Buku kegiatan (LAB) yang telah diisi
c. Simpan ke file mahasiswa
Level 1.1
F Mahasiswa
B.1
D
Gambar 3.4 DAD level 1
Keterangan:
A.1 Buku kegiatan (LAB) bebas
B.1 Daftar kegiatan mahasiswa yang talah diisi
C.1 Merakam mahasiswa
D.1 Membaca data
3.3 Desain Database
Adapun Desain database yang dipergunakan dalam sistem informasi ini adalah :
3.1 Nama file database : Mhs.Dbf
Nama Type Width Dec
No urut Character 4
Nama Character 20
Nim Date 9
Jam masuk Character 10
Tanggal Date 9
Keperluan Character 10
Tabel 3.1 Mahasiswa
3.2 Nama file database : Asis.Dbf
Nama Type Width Dec
Kode Character 5
Nama Character 20
Lab Character 1
Jamker Character 5
Tabel 3.2 Asis
3.4 Layout Program
Layout program sebagai berikut :
3.4.1 Menu Program
Menu program terdiri dari file Nourut, file Nim,file Nama. Masing-masing file terdiri dari isi data dan laporan, form isi data berfungsi untuk menginput file-file yang belum ada, sedangkan form laporan menampilkan semua keluaran dari form isi data. Bentuk layout dari menu program sebagai berikut :
Gambar 4.1 Menu Program
3.4.2 Form Isi Data Mahasiswa
Form ini berfungsi sebagai penginputan data mahasiswa/mahasiswi
Bentuk layout dari form ini sebagai berikut :
Gambar 4.2 Isi Data Mahasiswa
3.4.3 Form Ubah Data Mahasiswa
Form Ubah Data Pelanggan berisi penginputan data Pelanggan.
Bentuk layout dari form ini sebagai berikut :
Gambar 4.3 Ubah Data Mahasiswa
3.4.4 Form Hapus Data Mahasiswa
Form Hapus Data Pelanggan berisi penginputan data Pelanggan.
Bentuk layout dari form ini sebagai berikut :
Gambar 4.4 Hapus Data Pelanggan
3.4.5 Form Laporan Data Mahasiswa
Form laporan data mahasiswa/mahasiswi ini menampilkan keluaran dari form isi data mahasiswa. Bentuk layout dari form ini sebagai berikut :
Gambar 4.5 Laporan Data Mahasiswa
3.4.6 Form Isi Data Asisten
Form Isi Data Asisten berisi penginputan data Asisten.
Bentuk layout dari form ini sebagai berikut :
Gambar 4.6 Isi Data Asisten
3.4.7 Form Rubah Data Asisten
Form Rubah Data Asisten berisi penginputan data Asisten.
Bentuk layout dari form ini sebagai berikut :
Gambar 4.7 Rubah Data Asisten
3.4.8 Form Hapus Data Asisten
Form Hapus Data Asisten berisi penginputan
Bentuk layout dari form ini sebagai berikut :
Gambar 4.8 Hapus Data Asisten
3.4.9 Form Laporan Data Asisten
Form ini menampilkan data-data Asisten yang bekerja dibagian Laboratorium (LAB) AMIK PPKIA TARAKANITA RAHMAWATI. Bentuk layout dari form ini sebagai berikut :
Gambar 4.9 Laporan Data Asisten
3.5 Sarana Penunjang
Dalam menjalankan sistem pendataan aktivitas laboratorium (LAB) Bebas tentunya diperlukan sistem operasi untuk mengoperasikan komputer tersebut. Sebagai dasar patokan utama untuk menjalankan aplikasi, dalam hal ini yang berkaitan dengan beberapa kebutuhan seputar komputer, yaitu hardware dan software yang bagaimanakah yang memenuhi syarat, akan dijelaskan di bawah ini :
3.5.1 Sarana Hardware (Perangkat keras)
Sarana perangkat keras yang diperlukan, untuk menjalankan aplikasi tersebut adalah sebagai berikut :
1. Komputer IBM PC AT atau kompetibelnya
2. Processor intel Pentium II keatas
3. Memori (RAM) 64 MB
4. Harddisk 1,2 GB
5. Printer
6. Keyboard dan Mouse.
7. Monitor
3.5.2 Sarana Software (Perangkat Lunak)
Selain kebutuhan akan perangkat keras, juga terdapat beberapa pemenuhan kebutuhan perangkat lunak, yang lebih banyak membicarakan tentang instalasi program dan aplikasi, berikut di bawah ini penjelasannya :
1. Sistem operasi Microsoft Windows 9x (dapat berupa Windows 95, 95 OSR II,98, SE ) atau Windows NT ( minimal versi 4.0 ) atau Windows 2000 atau Windows ME.
2. Sistem Pemrograman Foxpro.
BAB IV
PENUTUP
5.1 Kesimpulan
Program Aktivitas laboratorium (LAB) Bebas merupakan sebuah dukungan terhadap sistem yang sedang berjalan saat ini. Dengan sistem tersebut diharapakan:
1. Terciptanya sebuah efisiensi pekerjaan bagi semua para karyawan untuk dapat selalu, dengan serta melakukan proses penyewaan VCD, dikarenakan terhadapnya penghematan waktu dan tenaga.
2. Keakuratan hasil yang lebih, diperoleh dengan sistem komputerisasi dengan sedikit operasional namun menghasilkan sebuah keluaran yang maksimal.
3. Program ini juga membuat para pemakainya untuk selaluh betah dikarenakan pemakaian yang mudah dan perawatan yang tidak menghamburkan biaya.
4. Kelemahan dari program ini adalah tampilan yang kurang begitu efektif, mengingat program ini masih berupa program under-DOS (disk Operating Sistem)
5.2 Saran
Dalam pembuatan program ini, masih terdapat kekurangan-kekurangan, untuk itu diharapkan bagi mahasiswa-mahasiswi dapat mengembangkan program dengan mempertimbangkan hal-hal
Komputerisasi dilakukan untuk proses pendataan aktivitas laboratorium (LAB) Bebas ,1 LAB hanya 20 unit komputer. Untuk itu agar dapat dikembangkan dengan penambahan komputer.
Proses komputerisasi pada Aktivitas Laboratorium (LAB) Bebas tidak sepenuhnya komputerisasi mengingat ada beberapa proses yang hanya dapat dilakukan secara manual.
DAFTAR PUSTAKA
1. Amik Ppkia 2006; Sistem Komputerisasi Peminjaman Buku Perpustakaan
dengan Bahasa Foxpro; Tarakan.
2. Amik Ppkia; 2006; Pendataan Aktivitas Laboratorium (LAB) Bebas
Komputerisasi dengan Bahasa Pascal; Tarakan.
LISTING PROGRAM
File Isi Data Mahasiswa
SET TALK OFF
SET DATE ITAL
SET CENTURY ON
SELE A
USE BARANG
INDEX ON KODE TO IKODE.IDX
else
DO WHILE .T.
cNOURUT = SPACE(4)
cNIM = SPACE(24)
cNAMA = SPACE(1)
dJAM_MSK = SPACE(1)
cKEPERLUAN = {' / / '}
COBA=SPACE(1)
@ 8,17 to 17,62 double
@ 7,26 to 9,51
@ 8,27 SAY ' ISI DATA MAHASISWA '
@10,39 SAY "NOURUT : "
@11,20 SAY "NIM : "
@12,20 SAY "NAMA : "
@13,20 SAY "JAM_MSK : [ ] "
@14,20 SAY "KEPERLUAN : [ ] "
@15,20 SAY "TANGGL : "
READ
IF cKODE=SPACE(4)
ENDI
SEEK upper(cKODE)
IF FOUND()
WAIT WINDOW ' DATA SUDAH ADA ... '
ENDI
WAIT WINDOW ' ISI DATA BARU ... '
@10,50 SAY "" GET dTGL_MASUK
@12,34 SAY "" GET cJUDUL
@13,36 SAY ""GET cJENIS
read
DO CASE
CASE cJENIS = 'H' or cJENIS='h'
nBJENIS = 1750
cNJENIS = 'Horor'
CASE cJENIS = 'A' or cJENIS='a'
nBJENIS = 1750
File Ubah Data Mahasiswa
SET TALK OFF
SET DATE ITAL
SET CENTURY ON
SELE A
USE BARANG
INDEX ON KODE TO IKODE.IDX
else
SET INDEX TO IKODE.IDX
endif
DO WHILE .T.
cKODE = SPACE(4)
cJUDUL = SPACE(25)
cJENIS = SPACE(1)
cASAL = SPACE(1)
dTGL_MASUK = {' / / '}
nBIAYA = 0
nBJENIS = 0
nBASAL = 0
cNJENIS = SPACE(8)
cNASAL = SPACE(8)
cYT = SPACE(1)
@ 8,17 to 17,62 double
@ 7,26 to 9,51
@ 8,27 SAY ' RUBAH DATA V C D '
@10,39 SAY "TGL MASUK : "
@11,20 SAY "KODE VCD : "
@12,20 SAY "JUDUL FILM : "
@13,20 SAY "JENIS FILM : [ ] "
@14,20 SAY "ASAL NEGARA : [ ] "
@15,20 SAY "BIAYA SEWA : Rp. "
@11,34 SAY "" GET cKODE
READ
IF cKODE=SPACE(4)
EXIT
ENDI
SEEK UPPER(cKODE)
IF FOUND()
cKODE = A->KODE
cJUDUL = A->JUDUL
dTGL_MASUK = A->TGL_MASUK
nBIAYA = A->BIAYA
cNJENIS = A->NJENIS
cNASAL = A->NASAL
@ 17,23 SAY " YAKIN INGIN DIRUBAH ... (Y/N) ?"GET cYT
READ
IF cYT='Y' OR cYT='y'
ELSE
LOOP
ENDIF
ELSE
@ 17,30 SAY" DATA TIDAK ADA ... "
read
DO CASE
CASE cJENIS = 'H' or cJENIS='h'
nBJENIS = 1750
cNJENIS ='Horor'
CASE cJENIS = 'A' or cJENIS='a'
nBJENIS = 1750
cNJENIS ='Action'
CASE cJENIS = 'K' or cJENIS='k'
nBJENIS = 1500
cNJENIS ='Komedi'
CASE cJENIS = 'B' or cJENIS='b'
nBJENIS = 1500
cNJENIS ='Berseri'
ENDC
READ
DO CASE
CASE cASAL = 'H' OR cASAL = 'h'
nBASAL = 1000
cNASAL = 'HINDIA'
CASE cASAL = 'I' OR cASAL = 'i'
nBASAL = 1000
cNASAL = 'INDONESIA'
CASE cASAL = 'B' OR cASAL = 'b'
nBASAL = 500
cNASAL = 'BARAT'
CASE cASAL = 'C' OR cASAL = 'c'
nBASAL = 500
cNASAL = 'CHINA'
ENDD
File Hapus Data VCD
SET TALK OFF
SET DATE ITAL
SET CENTURY ON
SELE A
USE BARANG
INDEX ON KODE TO IKODE.IDX
else
SET INDEX TO IKODE.IDX
endif
DO WHILE .T.
cKODE = SPACE(4)
cJUDUL = SPACE(25)
cJENIS = SPACE(1)
cASAL = SPACE(1)
dTGL_MASUK = {' / / '}
nBIAYA = 0
nBJENIS = 0
nBASAL = 0
cNJENIS = SPACE(8)
cNASAL = SPACE(8)
cYT = SPACE(1)
CLEAR
@ 8,17 to 17,62 double
@ 8,27 SAY ' HAPUS DATA V C D '
@10,39 SAY "TGL MASUK : "
@11,20 SAY "KODE VCD : "
@12,20 SAY "JUDUL FILM : "
@13,20 SAY "JENIS FILM : [ ] "
@14,20 SAY "ASAL NEGARA : [ ] "
@15,20 SAY "BIAYA SEWA : Rp. "
@11,34 SAY "" GET cKODE
READ
SEEK upper(cKODE)
IF FOUND()
cKODE = A->KODE
cJUDUL = A->JUDUL
dTGL_MASUK = A->TGL_MASUK
nBIAYA = A->BIAYA
cNJENIS = A->NJENIS
cNASAL = A->NASAL
@ 17,25 SAY" DATA INGIN DIHAPUS (Y/T) =" GET cYT
READ
ENDIF
ENDDO
File Laporan Data VCD
SET TALK OFF
SET DATE ITAL
CLOSE DATABASE
SELE A
USE BARANG
if(!file("IKODE.IDX"))
INDEX ON KODE TO IKODE.IDX
else
SET INDEX TO IKODE.IDX
endif
clear
@ 0, 0 say "ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ"
@ 1, 0 say "ﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟ"
@ 1, 0 say "ﾛﾛ"
@ 1,78 say "ﾛﾛ"
@2+c,0 say "ﾛﾛ ﾛ ﾛ ﾛ ﾛ ﾛ ﾛﾛ"
next
@ 3, 0 say "ﾛﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾛﾛ"
@24, 0 say "ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ"
B=1
DO WHILE .not. eof()
set color to 'bg+/n'
@ 0,23 say "ﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍ"
set color to 'b+r/n'
@ 0,27 say " Laporan Data Barang "
set color to 'b+r/n'
@ 2, 3 SAY "Tgl_Masuk"
@ 2,16 SAY "Kode"
@ 2,30 SAY "J u d u l"
@ 2,51 SAY "Jenis"
@ 2,61 SAY "A s a l"
@ 2,72 SAY "Harga"
@ 1, 0 say "ﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟ"
@ 1,78 say "ﾛﾛ"
@2+c,0 say "ﾛﾛ ﾛ ﾛ ﾛ ﾛ ﾛ ﾛﾛ"
next
@ 3, 0 say "ﾛﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾛﾛ"
@24, 0 say "ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ"
ENDIF
enddo
wait''
File Isi Data Pelanggan
CLOSE DATA
SET TALK OFF
SET DATE ITAL
SET CENTURY ON
SELE A
USE PELANGGAN
INDEX ON NOMOR TO INOMOR.IDX
else
endif
DO WHILE .T.
cNOMOR = SPACE(3)
cNAMA = SPACE(20)
cALAMAT = SPACE(25)
cTELEPON = SPACE(5)
dTGL_MASUK = {' / / '}
@ 8,16 to 17,63 double
@ 7,24 to 9,54
@ 8,25 SAY ' ISI DATA PELANGGAN '
@10,40 SAY "TGL MASUK : "
@12,20 SAY "NO. ANGGOTA : "
@13,20 SAY "N A M A : "
@14,20 SAY "A L A M A T : "
@15,20 SAY "No. TELEPON : "
@12,35 SAY "" GET cNOMOR
READ
SEEK UPPER(cNOMOR)
IF FOUND()
@10,51 SAY " "+DTOC(A->TGL_MASUK)
@13,35 SAY " "+(A->NAMA)
@14,35 SAY " "+(A->ALAMAT)
@15,35 SAY " "+(A->TELEPON)
@ 17,30 SAY" DATA SUDAH ADA... "
ENDIf
@ 17,30 SAY" ISI DATA BARU ... "
@10,51 SAY "" GET dTGL_MASUK
@13,35 SAY "" GET cNAMA
@14,35 SAY "" GET cALAMAT
@15,35 SAY "" GET cTELEPON
read
APPEND BLANK
REPL A->NOMOR WITH cNOMOR
REPL A->NAMA WITH cNAMA
REPL A->ALAMAT WITH cALAMAT
REPL A->TELEPON WITH cTELEPON
REPL A->TGL_MASUK WITH dTGL_MASUK
ENDD
File Ubah Data Pelanggan
CLOSE DATA
SET TALK OFF
SET DATE ITAL
SET CENTURY ON
SELE A
USE PELANGGAN
INDEX ON NOMOR TO INOMOR.IDX
else
SET INDEX TO INOMOR.IDX
endif
DO WHILE .T.
cNOMOR = SPACE(3)
cNAMA = SPACE(20)
cALAMAT = SPACE(25)
cTELEPON = SPACE(5)
dTGL_MASUK = {' / / '}
cJWB = SPACE(1)
@ 8,16 to 17,63 double
@ 7,24 to 9,54
@ 8,25 SAY ' KOREKSI DATA PELANGGAN '
@10,40 SAY "TGL MASUK : "
@12,20 SAY "NO. ANGGOTA : "
@13,20 SAY "N A M A : "
@14,20 SAY "A L A M A T : "
@15,20 SAY "No. TELEPON : "
@12,35 SAY "" GET cNOMOR
READ
IF cNOMOR=SPACE(3)
EXIT
ENDI
IF FOUND()
cNOMOR = A->NOMOR
cNAMA = A->NAMA
cALAMAT = A->ALAMAT
cTELEPON = A->TELEPON
dTGL_MASUK = A->TGL_MASUK
@ 17,25 SAY" YAKIN INGIN DIRUBAH ... (Y/N) ?"GET cJWB
READ
IF cJWB='Y' OR cJWB='y'
ENDIF
ELSE
@ 17,30 SAY" DATA TIDAK ADA ... "
ENDIf
@10,51 SAY "" GET dTGL_MASUK
@13,35 SAY "" GET cNAMA
@14,35 SAY "" GET cALAMAT
@15,35 SAY "" GET cTELEPON
read
ENDD
File Hapus Data Pelanggan
CLOSE DATA
SET TALK OFF
SET DATE ITAL
SET CENTURY ON
SELE A
USE PELANGGAN
INDEX ON NOMOR TO INOMOR.IDX
else
SET INDEX TO INOMOR.IDX
endif
DO WHILE .T.
cNOMOR = SPACE(3)
cNAMA = SPACE(20)
cALAMAT = SPACE(25)
cTELEPON = SPACE(5)
dTGL_MASUK = {' / / '}
cYT = SPACE(1)
@ 8,16 to 17,63 double
@ 7,24 to 9,54
@ 8,25 SAY ' HAPUS DATA PELANGGAN '
@10,40 SAY "TGL MASUK : "
@12,20 SAY "NO. ANGGOTA : "
@13,20 SAY "N A M A : "
@14,20 SAY "A L A M A T : "
@15,20 SAY "No. TELEPON : "
@12,35 SAY "" GET cNOMOR
READ
IF cNOMOR=SPACE(3)
EXIT
ENDI
IF FOUND()
cNOMOR = A->NOMOR
cNAMA = A->NAMA
cALAMAT = A->ALAMAT
cTELEPON = A->TELEPON
dTGL_MASUK = A->TGL_MASUK
@ 17,25 SAY" DATA INGIN DIHAPUS (Y/T) = " GET cYT
READ
IF cYT='Y' OR cYT='y'
ENDIF
ELSE
@ 17,30 SAY" DATA TIDAK ADA ... "
ENDIf
ENDDO
File Laporan Data Pelanggan
SET TALK OFF
CLOSE DATABASE
SELE A
USE PELANGGAN
INDEX ON NOMOR TO INOMOR.IDX
else
SET INDEX TO INOMOR.IDX
endif
@ 0, 0 say "ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ"
@ 1, 0 say "ﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟ"
@ 1, 0 say "ﾛﾛ"
@ 1,78 say "ﾛﾛ"
for c=0 to 22
@2+c,0 say "ﾛﾛ ﾛ ﾛ ﾛ ﾛ ﾛﾛ"
next
@ 3, 0 say "ﾛﾛﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾛ"
@24, 0 say "ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ"
DO WHILE .not. eof()
@ 0,23 say "ﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍﾍ"
@ 0,26 say " Laporan Data Pelanggan "
@ 2, 4 SAY "NoA"
@ 2,14 SAY "N a m a"
@ 2,34 SAY "A l a m a t"
@ 2,57 SAY "Telp."
@ 2,67 SAY "Tgl_Masuk"
@ 4+B, 4 SAY A->NOMOR
@ 4+B,12 SAY A->NAMA pict "!!!!!!!!!!!!"
@ 4+B,29 SAY A->ALAMAT
@ 4+B,57 SAY A->TELEPON
@ 4+B,67 SAY A->TGL_MASUK
CLEAR
@ 0, 0 say "ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ"
@ 1, 0 say "ﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟ"
@ 1, 0 say "ﾛﾛ"
@ 1,78 say "ﾛﾛ"
for c=0 to 22
@2+c,0 say "ﾛﾛ ﾛ ﾛ ﾛ ﾛ ﾛﾛ"
next
@ 3, 0 say "ﾛﾛﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾛﾛ"
@24, 0 say "ﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛﾛ"
ENDIF
enddo
File Isi Data Transaksi
CLOSE DATA
SET TALK OFF
SET DATE ITAL
SET CENTURY ON
SELE A
USE BARANG
INDEX ON KODE TO IKODE
SELE B
USE PELANGGAN
INDEX ON NOMOR TO INOMOR
SELE C
USE HEADER
INDEX ON NOTA TO INOTA1.IDX
SELE D
USE DETAIL
INDEX ON NOTA TO INOTA2.IDX
sele c
SET RELA TO C->NOMOR INTO B
SELE d
SET RELA TO D->KODE INTO A,D->NOTA INTO C
DO WHILE .T.
cNOTA = SPACE(5)
dPINJAM = {' \ \ '}
cNOMOR = SPACE(3)
cKODE = SPACE(4)
nJUMLAH = 0
dKEMBALI = {' \ \ '}
read
IF cNOTA=SPACE(5)
EXIT
ENDIF
IF FOUND()
@ 9,20 SAY "Nota sudah digunakan"
dKEMBALI=dPINJAM+A @ 22,30 SAY "" GET dKEMBALI
@ 23,65 SAY "TERIMA KASIH
ENDIF
sele c
append blank
REPL C->NOTA WITH cNOTA
REPL C->PINJAM WITH dPINJAM
REPL C->KEMBALI WITH dKEMBALI
REPL C->JUMLAH WITH nJUMLAH
REPL C->NOMOR WITH cNOMOR
ENDDO
File Laporan Data Transaksi
SET TALK OFF
CLOSE DATABASE
SELE A
USE BARANG
INDEX ON KODE TO IKODE.IDX
SELE B
USE PELANGGAN
INDEX ON NOMOR TO INOMOR.IDX
SELE C
USE HEADER
INDEX ON NOTA TO INOTA1.IDX
SELE D
USE DETAIL
INDEX ON NOTA TO INOTA2.IDX
sele c
SET RELA TO C->NOMOR INTO B
SELE d
SET RELA TO D->KODE INTO A,D->NOTA INTO C
DO WHILE .not. eof()
@ 0,26 say " Laporan Data Penyewaan "
FOR I=1 TO 79
@ 5,I SAY "Ä"
NEXT I
FOR I=7 TO 79
@ 3,I SAY "Ä"
NEXT I
set color to 'b+r/BG+'
FOR I=2 TO 4
@ I,1 SAY " "
NEXT I
set color to 'b+r/B+'
@ 2,7 SAY " "
set color to 'b+r/BG+'
@ 2,29 SAY " "
set color to 'b+r/B+'
@ 2,46 SAY " "
set color to 'b+r/BG+'
@ 3, 2 SAY "Nota"
@ 2,33 SAY "Pelanggan"
set color to 'N+/B+'
@ 2,14 SAY "Tanggal"
@ 2,60 SAY "Barang"
@ 4, 7 SAY " Pinjam "
@ 4,29 SAY " NoA"
@ 4,46 SAY " Kode"
@ 4,73 SAY " Harga "
set color to 'b+r/bg+'
@ 4,18 SAY " Kembali "
@ 4,33 SAY " Nama "
@ 4,51 SAY " Judul "
@ 5+B, 2 SAY d->NOTA
@ 5+B,19 SAY C->KEMBALI
@ 5+B,34 SAY B->NAMA
@ 5+B,52 SAY A->JUDUL PICT "!!!!!!!!!!!!!!!!!!!!!"
SKIP
NEXT I
@ 6+B,38 SAY "TOTAL HARGA PERHALAMAN : Rp."
@ 6+B,69 SAY C
EXIT
ENDIF
NEXT I
@ 6+B,38 SAY "TOTAL HARGA PERHALAMAN : Rp."
@ 6+B,69 SAY C
@ 7+B,38 SAY "TOTAL HARGA KESELURUHAN : Rp."
@ 7+B,69 SAY D
wait''
File Menu
set talk off
set status off
set menu off
set color to b/gr
set color to gr+/b
set deli on
set deli to '[]'
public blok
clear
judul = "MENU UTAMA VCD PADA RENTAL DISC JOVI "
do while .t.
@ 3,7 to 19,70 Double
@ 4,15 say "DJ MENU UTAMA DJ "
@ 5,11 say "ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ"
@ 7,10 say " 1. ISI DATA VCD "
@ 9,10 say " 2. UBAH DATA VCD "
@ 11,10 say " 3. HAPUS DATA VCD "
@ 18,28 say " 11. KELUAR "
@ 13,10 say " 4. ISI DATA PELANGGAN "
@ 15,10 say " 5. UBAH DATA PELANGGAN "
@ 7,39 say " 6. HAPUS DATA PELANGGAN "
@ 9,39 say " 7. TRANSAKSI "
@ 11,39 say " 8. LAP.BARANG "
@ 13,39 say " 9. LAP.PELANGGAN "
@ 15,39 say " 10. LAP.DATA PENYEWA "
@ 20,20 say " Pilihan Anda [ 1 Sampai 11 ] : " get pil pict "99"
read
do case
case pil=1
do ISIDAT.prg
case pil=2
do EDITDATA.prg
case pil=3
do DELDATA.prg
case pil=4
DO ISIPLG.PRG
case pil=5
do EDITPLG.prg
case pil=6
do DELPEL.prg
case pil=7
do PINJAM.prg
case pil=8
do LAPDATA.prg
case pil=9
do LAPPEL.prg
case pil=10
do LAPPIN.prg
case pil=11
close database
exit
otherwise
@23,11 say " Pilihan Anda Salah,Tekan ENTER,..!!"
endcase
enddo
Tidak ada komentar:
Posting Komentar