Perintah Dasar Foxpro
PERINTAH-PERINTAH VISUAL FOXPRO
1. Membuat Directory baru
· Set defa to …:\
2. Melihat Isi Tabel
· List
3. Mengubah Struktur data
· List Stru
4. Mengubah Struktur Data
· Modi stru/Append
5. Menutup Database
· Close Database
6. Membuka Database
· Use “nama database”
7. Menyisipkan record
· Go (no. yg dituju) è insert
8. Perintah menyaring Data
di close all dulu
use mhs
· Set Filter to
· Ex : Set filter to jurusan =”Elektro”
9. Perintah menampilkan data dr no.2 sampai no.6
· Ex: for recno ()>2 and recno () <7
· 2 atau 7 bisa diganti sesuai data yg diinginkan
10. Perintah menampilkan data dr no.2 sampai no.6 jurusan Elektro
· Ex: list for recno ()>2 and recno () <7 jurusan="elektro">
Membuat Listing Program dengan FoxPro
11. Membuat command dg file
· modi comm “nama file”
12. memanggil command
· Do “nama file”
13. untuk membatalkan perintah delete
· Recall all
16. Pencarian data
a. locate è database/table data tidak perlu di index
b. Find è database harus di-index
c. Seek è database harus di-index
kunci untuk indek disesuaikan dg kebutuhan dlm pencarian data(NIM,Nama,jur,dll)
Langkah-langkah:
1. Tabel data harus diaktifkan / dibuka lebih dulu (Use ...)
2. Berikan perintah index
(index on (nama field) to nimndx)
set status off
set scoreboard off
do while .t.
clear
use mhs
@3,2
say
"-----------------------------------------------------------------------------------------------------------------------------------------------"
@4,2 say "| No.induk | Namamhs | jurusan | IPK | alamat | kota |"
@5,2
say
"-----------------------------------------------------------------------------------------------------------------------------------------------"
for i=0 to 7
?" | | | | | | |"
@6+i,7 say nim
@6+i,21 say namamhs
@6+i,38 say jurusan
@6+i,59 say IPK
@6+i,69 say Alamat
@6+i,86 say kota
skip
endfor
?" -------------------------------------------------------------------------------------------------------------------------------------------------"
use mhs index nimndx
vnim= space (4)
p=space (1)
@20,7 say "inputkan data yang akan di cari ?"get vnim
read
seek vnim
if not found []
@21,7 say" data tidak diketemukan !!!"
else
@25,7 say " no induk :"+ nim
@26,7 say " nama :" + namamhs
@27,7 say " jurusan :" + jurusan
@28,7 say " ipk :"
@28,12 say ipk
endif
@30,7 say " ingin cari lagi [y/t]"get p
read
seek p
if (p="y") or (p="Y") then
loop
else
exit
endif
enddo
untuk menampilkan program input data :
set status off
set scoreboard off
do while .t.
clear
use mhs
@3,2
say
"-----------------------------------------------------------------------------------------------------------------------------------------------"
@4,2 say "| No.induk | Namamhs | jurusan | IPK | alamat | kota |"
@5,2
say
"-----------------------------------------------------------------------------------------------------------------------------------------------"
for i=0 to 12
?" | | | | | | |"
@6+i,7 say nim
@6+i,21 say namamhs
@6+i,38 say jurusan
@6+i,59 say IPK
@6+i,69 say Alamat
@6+i,86 say kota
skip
endfor
?" -------------------------------------------------------------------------------------------------------------------------------------------------"
use mhs index nimndx
vnim = space (4)
vnama = space (20)
vjur = space (10)
vipk = 0.00
p=space (1)
@25,7 say " no induk :"get vnim
@26,7 say " nama :" get vnama
@27,7 say " jurusan :" get vjur
@28,7 say " ipk :" get vipk
read
append blank
replace nim with vnim
replace namamhs with vnama
replace jurusan with vjur
replace ipk with vipk
@30,7 say " ingin input data lagi [y/t]"get p
read
seek p
if (p="y") or (p="Y") then
loop
else
exit
endif
enddo
reindex
untuk mengubah inputan data yang bertipe char menjadi bertipe date :
contoh :
Vtgllhr = space (8)
Vtgllhr = ctod(“ - - “)
Ctod untuk mengconverter dari char menjadi date.
yuhuuu...bermanfaat sekali
BalasHapusobeng set 5 in 1