2 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)

untuk menampilkan program cari data dan menggunakan looping

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.