Modul Fox Pro

Pemrograman Visual FoxPro

Pengenalan Visual FoxPro

ISUA L FOXPRO PENGENALAN V ISUA

VISUA L FOXPRO BAHAS AHASA PEMROGR MROGRAMAN AMAN VISUA Visua l Microsoft Visua Fo Fo xPro Pro a tau sering ng d isin isingka gkatt denga de nga n FoxPr FoxPro o meru me rupa pa ka n sua sua tu ba hasa visua l Visua l pemrograman visua yang berorientasi pada d a t a b a se . Microsoft Visua FoxPro sebenarnya penerus FoxPro

da ri generasi ge nerasi sebelumny eb elumnya a , yaitu Fo Fo xPro Pro fo r DOS DO S, FoxPro FoxPro fo r Windows, FoxPro 5.0, dan seterusnya. Windows,

Beriku erikutt ini ini ada lah beb erap erap a elemen la la ya r ya ya ng ada a da pad a FoxPro: oxPro:

J ende endella C o m m a n d / C o m m a n d W in in d o w 

Visua l seba ga i tempa tempa t memberik memberika n perint perinta a h sec seca a ra langsung langsung kepa da Microsoft Microsoft Visua FoxPro atau

d enga n kata la in dapa da pa t pula d iartik artika n seba seba ga i altern alterna a tif tif da lam memberik memberika n perint perinta a h sela sela in menggunakan M e n u B a r atau atau To olBar .

Untuk Untuk menamp ilka lka n ata a tau u menutup tekan tombo to mboll CT C TRL+F2 a tau p ilih ilih WINDOW, kemudian COMMAND WINDOW. WINDOW.

Form Designer Form Designer 

sebuah eb uah jendela yang b erfun erfungsi gsi untuk untuk mer mera a nca ng tampila tampila n program program ya ng akan d ibuat. bua t. Pad Pad a w i n d o w ini dapat ditambahkan beberapa kontrol sebagai media untuk memudahkan dalam

menggunakan pr p rogram

Suzan Agustr Agustr i

1



Form C o ntrol 

kumpulan tools (ko (ko ntrol) ntrol) yang ya ng be rfungsi untuk meranc a ng tampil ta mpila an program ya ya ng akan d ibuat.

VIEW, TOOLBAR, kemudian klik Untuk menampilkan atau menutup, pilih VIEW, klik pada pad a kota k C ontrols, lalu OK. pilihan Form Controls

Beberap eb erap a fungsi Fo rm Co ntrols: ntrols: 

label, label, membuat ob jek label (keteranga (keteranga n da ri t e x t b o x)



textbox, textbox, membuat kotak i n p u t data eric , serta d a t e data satu baris bertipe t e x t / c h a r a c t e r , num eric .



c ommand but b utton, tombo l aksi aksi sep seperti erti,, Keluar, Ceta C etak, k, Ed Ed it, Hapus Hap us,, Add, Ad d, da d a n lain-la lain-la in



shape, shape, membua membua t gamba r kota k a tau garis pada pa da form . Kemudian pilih SEND TO BAC K pada m e n u FORMAT.



optiongroup, optiongroup, input data da ta ber b erupa upa b eberapa pili pilihan han dengan c ara klik klik pada pa da bulatan bulatan



checkbox, checkbox, i n p u t da ta berupa beb erap erapa a pili pilihan denga n ca ra klik lik pada kotak.



editbox, editbox, membuat i n p u t da ta denga n ba nyak nyak ba ris/memo



combobox, combobox, i n p u t data berupa beberapa pilihan dengan memilih list / da ftar ftar pilihan pilihan



mena mpilkan an data dalam bentuk tabel grid, menampilk

Format umum kontrol:

] thisform.[kontrol].[c o n t r o l ke ke y w o r d

Properties 

untuk menga tur sifa ifa t dari da ri kontrol kontrol progr prog ram ya ng di d iguna kan. Denga n jendela jendela ini ini p r o g r a m m e r dapa da pa t mengganti wa wa rna, menetuka menetuka n lebar, menentukan pa nja nja ng da ri sebuah eb uah kontrol, kontrol, da n lain-lain. lain-lain.

Untuk menamp ilkan, ilkan, klik klik i c o n pada t o o l b a r (gambar tangan memegang kertas).

Suzan Agustr Agustr i

2



Beberapa fungsi Prop erties: 

caption, memberi nama pa da form / kontrol



autotext, menyesua ikan leba r tampilan c a p t i o n



maxlength, membatasi jumlah pengisian da ta untuk tipe d a ta Character



inputmask , kontrol textbox hanya dapat di-i n p u t dan menampilkan angka. Pada Properties diisi angka 9 sebanyak ma ksimum jumlah digit dari angka tersebut.



enabled, me-nonaktifkan kontrol aga r tidak bisa ditulis (denga n memilih True)



read only, membuat kontrol hanya dapat dibaca saja tetapi tidak dapat di-i n p u t (dengan memilih True)



name, nama kontrol untuk menulis ba hasa p erintah



password char, tampilan pada p a ssw o rd



backstyle: - Opaque, untuk latar putih - Transparent, untuk latar warna form



control box, jika False, maka logo FoxPro p ada form akan hilang



format, mengubah tampilan isian kontrol, cont. E untuk tampilan isian tangga l, !untuk huruf kap ital

MERANCANG FORM Langkah da sar membuat Form: 1. Membuat Project 2. Membuat form pada Form Designer 3. Menambahkan beberapa kontrol dari Form Controls pada form untuk meranc ang 4. Mengatur nilai form dan kontrolnya pada Properties 5. Mengetik bahasa perinta h/ kode program p ada form dan kontrol yang telah dirancang/dibuat

Menyimpan Form: - Pilih FILEpada m e n u b a r, SAVE, kemudian ketik nama form - Pilih FILEpada m e n u b a r, SAVE AS, kemudian ketik nama form

Menjalankan Form: - Klik i c o n ru n pada saa t form terbuka/aktif - Atau, pada Command Window ketik:

do form [form ] - Ata u, tekan tombol C TRL+E

Beberapa jenis Procedure: 

Activate, tampilan pertama kali program dijalankan



Click , perinta h dieksekusi jika kontrol di klik

Suzan Agustr i

3





Init



Load, perintah dieksekusi pada saat aplikasi dijalanka n



Unload, perintah d ieksekusi pada saat ap likasi a kan ditutup



InteractiveChange, perintah dieksekusi pa da saa t kontrol d iisi



LostFocus, perintah d ieksekusi setelah kontrol d iisi da n meneka n tomb ol enter

Nila i awal input textbox:

[t e x t b o x] .value =’ ’

Nila i awal o u t p u t textbox berupa angka:

[t e x t b o x] .value =0

Input text box ke tabel bertipe da ta karakter:

replace [field ] with [t e x t b o x] .value

Input text box ke tabel bertipe data numerik:

replace [field ] with val([t e x t b o x ] .value)

Input text box ke tabel bertipe data tanggal:

replace [field ] with ctod([t e x t b o x] .value)

Menampilkan isi tabel ke t e x t b o x :

[t e x t b o x] .value =[field ]

Kata perintah eksekusi text box bertip e data numerik (untuk i np u t t e xt b o x ) :

val([t e x t b o x ] .value)

Suzan Agustr i

4



Kata perintah eksekusi text box bertip e data numerik (untuk o u p u t / hasil perhitunga n t e xt b o x ) :

[t e x t b o x] .value

Operator Aritmatika ^



pemangkatan

*



perkalian

/



pembagian

+



penjumlahan

-



pengurangan

>



lebih da ri

>=



lebih da ri atau sama dengan

<



kurang da ri

<=



kurang dari atau sama dengan

=



sama denga n

<>



tidak sama dengan

AND



dan

OR



atau

Operator Relasi

Op erator Logika

Penggunaan WITH THISFORM pada saat pengetikan kata perintah, untuk mewakili seluruh thisform pa da tiap kata p erintah (lebih dari satu thisform), dan diakhiri denga n END WITH atau ENDW

Menampilkan garisba wah d i Command Button: 1.

Pilih Command Button

2.

Pada Properties, pilih Caption

3.

Ketik \ < tepa t sebelum huruf yang aka n diberi ga ris bawah

Suzan Agustr i

5


IF ELSE

I F E LSE

Format perintah untuk format tangga l pa da Proc edure Load dan Object Form:

set century on set date british

Set century on untuk i n p u t tahun pa da kontrol tangga l bejumlah 4 d i g i t Set date british untuk format tangga l: dd/ mm/yyyy

Merap ikan ka ta p erintah: 1. BEAUTIFY pa da menu TOOLS 2. Pilih continuation lines 3. Klik run

Format perinta h if-else:

if ([kontrol]) [op erator relasi] [nilai] then [perintah1] else [perintah2] end if

Format perinta h if-else-if:

if ([kontrol]) [op erator relasi] [nilai] then [perintah1] else if ([kontrol]) [op erator relasi] [nilai] then [perintah2] …. …. end if end if

Suzan Agustr i

6


OPTION GROUP

OPTION GROUP

I n p u t kontrol berda sarkan Enter:

1.

Klik VIEW pada MENU

2.

Klik TAB ORDER

3.

Klik kontrol sesuai dengan urutan yang diinginkan yang dimulai dari urutan p ertama

Menamba h kontrol option group pada form : 1.

Pilih dan klik option group di Form Controls

2.

Klik di form

3.

Pada saat o p t io n g r o u p terpilih, pilih Button Count di Properties

4.

Ketik jumlah pilihan o p t io n g r o u p

Nila i awal option group:

[option group].value =1 Nilai 1 pada option group menanda kan jika piliha n pertama pa da kontrol tersebut terpilih, nilai 2 jika pilihan kedua terpilih, da n seterusnya.

Menamp ilkan isi tab el ke kontrol optiongroup:

[option group].value = [field ]

Format p erinta h eksekusi kontrol option group:

if [option group].value =1 then [perintah] .... .... else if [option group].value = 2 then [perintah] .... .... .... .... end if end if

Suzan Agustr i

7


OPTION GROUP

Memasukkan data kontrol option group ke tabel:

if [option group].value =1 then replace [field ] with ‘[keterangan]’ else if [option group].value =2 then replace [field ] with ‘[keterangan]’ .... .... end if end if

Suzan Agustr i

8


CHECK BOX

CHECK BOX

Nila i awal c h e c k

b o x :

[check box].value = 0 Nilai 0 pada

check box

c h e c k b o x mena ndakan

menanda kan bahwa kontrol tersebut tida k terpilih, sedangkan nilai 1 pa da kontrol terpilih.

J ika [check box].enabled =.f., berarti c h e c k

b o x terseb ut

tida k aktif (tida k da pa t dipilih).

J ika [check box].enabled =.t., berarti c h e c k

b o x tersebut

aktif (dapat dipilih).

Format p erinta h eksekusi kontrol check box:

if [c h e c k b o x].value =1 then [perintah] .... .... end if

Menamp ilkan isi tabel ke kontrol c h e c k

b o x :

if [field ] =‘[keterangan]’ [c h e c k b o x].value =1 end if

Memasukkan data kontrol c h e c k

b o x ke

tabel:

if [c h e c k b o x].value =1 replace [field ] with ‘[keterangan]’ end if

Suzan Agustr i

9


COMBO BOX

COMBO BOX

Pe n c a b a n g a n C A SE 

digunakan sebag ai pengg anti IF ELSE IF

Format perintah C ASE:

do case case [syarat1] [perintah1] case [syarat2] [perintah2] …. …. otherwise [perintah_lainnya] end case

Properties pada combo box: 

Row Source Type, menentukan sumber data dari kontrol combobox (dengan memilih Value)



Row Source, nilai yang akan d ipilih untuk tampilan p ilihan pa da

fo rm

(antar nilai dipisah dengan

koma) 

Style, membuat kontrol combobox hanya d ap at dipilih saja (denga n memilih dropdown list)

Nila i awal combo box:

[c o m b o b o x] .listindex =0 Nila i 0 pa da c o m b o b o x menandakan ba hwa kontrol tersebut dalam keadaan tida k terpilih jika a plikasi dija lanka n, seda ngkan nilai 1 pa da c o m b o b o x menandakan kontrol terseb ut menampilkan pilihan pertama.

Format combo box pada saat eksekusi:

[c o m b o b o x] .displayvalue

Suzan Agustr i

10


COMBO BOX

Menampilkan isi tabel ke c o m b o b o x :

[c o m b o b o x] .displayvalue =[field ]

Memasukkan data combobox ke tabel:

].displayvalue =‘[keterangan]’ if [c o mb ob o x replace [field ] with ‘[keterangan]’ else .... .... end if

Suzan Agustr i

11


Tabel

TA B E L

Tipe Data Variab el dan Fie ld character



karakter

currency



bilangan uang

date



tanggal

date time



tangga l dan waktu

logical



logika, sepertiTrueatau False

numeric



bilanga n numerik

double



bilangan desimal ga nda

float



bilangan desimal

general



ob jek OLE

Tipe Data Fie ld

integer memo

bilangan b ulat 

memo/keterangan

Langkah membuat tab el: 1.

Dari Project Manager, pilih t a b DATA

2.

Pilih FREE TABLES, kemudian klik NEW

3.

Pilih NEW TABLE

4.

Simpan nama tabel

5.

Ketik nama field , tipe, panjang karakter, J ika field tersebut merupakan p rima ry key , beri i n d e x ascending

6. J ika ingin langsung mengisi record pa da tabel, klik yes. J ika tida k, klikno

Input data pa da tab el:

1.

Pilih tabel pada Project Manager, kemudian klik BROWSE

2.

Klik m e n u VIEW, kemudian pilih APPEND MODE

3.

Isi tabel

Hapusdata p ada tab el: 1.

Pilih tabel pada Project Manager, kemudian klik BROWSE

2.

Pilih r e c o r d yang akan dihapus

3.

Klik m e n u TABLE, kemudian klik DELETE RECORDS

4.

Ulangi langkah 2 da n langka h 3

5.

Setelah semua r e c o r d terpilih, klik menu TABLE

6.

Pilih REMOVE DELETED RECORDS

Suzan Agustr i

12


Tabel

Prop erties pada grid: 

Record Source, sumber data yang berasal dari tabel (p a t h nama tabel)



Read Only, kontrol grid hanya da pa t dibac a (dengan memilih true)

Penga turan Grid: 1. Klik ka nan pada g rid , pilih BUILDER 2. Pada t a b GRID ITEM, pilih nama tabelnya 3. Kemudia n pada Available Fields, pilih nama-nama field untuk ditampilka n pa da grid dengan mengklik i c o n panah kanan 4. Klik OK

Penga turan grid untuk tamp ilan form : 1. Klik ka nan pada g rid , pilih EDIT 2. Pilih nama field 3. Pada Properties, pilih Caption 4. Ubah nama field sesuai yang d iinginkan

Menampilkan da ta/ record ke c o n t r o l GRID:

[grid ].refresh

Menghubungkan Fo rm denga n Tab el (pad a Pr o c e d u re LOAD):

close tables all use ‘[p a t h / letak tabel di komputer]’ set order to tag [p ri m a ry ke y tabel]

Menampilkan R e c o r d Pertama/ First pada Tab el:

go top thisform.activate

Suzan Agustr i

13


Tabel

Menampilkan R e c o r d Terakhir/ La st pad a Tab el:

go bottom thisform.activate

Menampilkan R e c o r d Sebelumnya/ Previous pada Tab el:

skip -1 if bof() go top endi thisform.activate

Menampilkan R e c o r d Setelahnya/ Next pa da Tab el:

skip 1 if eof() go bottom endi thisform.activate

Tombol pa da Kotak Dia log Pesan/ Me ssag e Bo x : KOD 0 1 2 3 4 5

KETERANGAN Tombol OK Tombol OK dan CANC EL Tombol ABORT, RETRY, da n IGNORE Tombol YES, NO, dan CANC EL Tombol YES dan NO Tombol RETRY da n C ANCEL

Simbol pa da Kotak Dia log Pesan: KOD 16 32 48 64

Suzan Agustr i

Tanda Tanda Tanda Tanda

KETERANGAN stop/b erhenti (silang) tanya seru (segitiga) informasi

14


Tabel

Menampilkan kotak dialog d engan tombolnya:

[kode tombol]+[kode simbol]

Menamp ilkan pesan melalui kotak pesan:

messagebox(“[isi pesan]”, [tombol pe san], “[judul pesan]”)

Mencari record pada tabel b erda sarka n form :

locate for left([field ], [jum karakter field pd tab el]) = alltrim([t e xt b o x] .value)

Pengecekan d ata/ record di form ad a d i tabel:

if found()

Menampilkan da ta/ record da ri tabel ya ng telah ditemuka n:

set filter to left([field ], [jum karakter field pd tab el]) =alltrim([text box].value)

Suzan Agustr i

15


Update pada Form

UPDA TE

PADA FO RM

Menyiapkan rec ord untuk di-inp ut pa da tabel:

append blank

VALIDASI Pengecekan c o n t r o l kosong:

]) if empty ([c on trol

Mendeteksi seluruh isi c o n t r o l yang terisi:

seek alltrim ([c o n t r o l] )

EDIT Menampilkan isi tabel ke c o n t r o l:

[c o n t r o l] =[field ]

DELETE Menghapus reco rd pa da tabel ditulis di tiga PROC EDURE, ya itu: 1.

LOAD, penyetelan hapus r e c o r d pada saa t program dijalankan.

set deleted on

Suzan Agustr i

16


2.

Update pada Form

UNLOAD, membatalkan penyetelan hapus rec ord , dan menghapus record yang dipilih di tabel pa da saa t program selesai dijalankan.

set deleted off pack

3.

CLICK pada co m ma nd b utton , perintah untuk menghapus r e c o r d .

delete

Suzan Agustr i

17


Database

D A

T A

B A

S E

D a t a b a se /basisdata merupa ka n tempat menyimpan da ta suatu informasi. Denga n d a t a b a se , tabel

da pat diorganisa sikan da n digunakan seca ra bersamaan.

Membuat d a t a b a se : 1. Buka Project Manager 2. Pilih DATABASESpada DATA 3. Klik NEW, kemudian simpa n d a t a b a se da n tutup d a t a b a se 4. Buka kembali Project Manager 5. Pilih d a t a b a se yang telah disimpan 6. Pilih TABLES, kemudian klik ADD 7. Pilih tabel yang a kan dimasukkan di d a t a b a se pada kotak dialog Select table name 8. Buka kembali d a t a b a se yang telah disimpan dengan mengklik MODIFY 9. Pada D a t a b a se D e si g n e r , klik kanan field di Indexes, kemudian pilih MODIFY 10. Klik t a b INDEXES, ubah Type menjadi Primary 11. Selanjutnya klik dan d r a g fi e ld di indexes dari tabel tersebut ke field di indexes pada tabel yang akan dihubungkan 12. J ika sebuah garis penghubung muncul, maka field pada kedua tabel tersebut telah terhubung 13. Tutup jendela Database Designer

Membuka b eberapa tab el seca ra b ersamaa n pada P r o c e d u r e LOAD:

close tables all select 1 use “[p a t h nama tab el]” set order to tag [p ri m a ry ke y tab el 1] select 2 use “[p a t h nama tab el]” set order to tag [p ri m a ry ke y tab el 1] .... ....

Suzan Agustr i

18


Database

Penambahan nomor otomatis di tabel pada form pada P r o c e d u r e Activate:

select [nomor tabel] reindex go bottom with thisform if empty (field ) [kontrol] =1 else [kontrol] =[field ] +1 endif endwith

Suzan Agustr i

19


Report

REPO RT

Langkah membuat r e p o r t : 1.

Klik REPORTpa da PROJ ECT MANAG ER.

2.

Klik NEW, kemudian NEW REPORT.

3.

Klik VIEW pada t o o lb a r, pilih DATA ENVIRONMENT.

4.

Klik ka nan di semba rang tempat pada kotak dialog d a ta e n v i r o nm e n t , kemudian pilih ADD.

5.

Pililh nama tabel (ata u beberapa tabel) yang a kan dijad ikan repori dengan klik ADD.

6. Tutup kotak dialog add table or view. 7.

D ra g f ie l d pada tabel yang akan dijad ikan r e p o r t ke b agian d e t a i l pada report design er .

8. Tutup kotak dialog d a t a e n v ir o n m e n t , kemudia n atur posisi field yang telah d itamba hkan di bagia n d e t a i l tersebut.

9.

Buat judul kolom beserta judul r e p o r t dengan menggunakan rep ort c ontrol pada b agian p a g e h e a d e r .

10. Simpan r e p o r t . 11. Buat f o r m untuk menjalankan r e p o r t tersebut.

Menampilkan r e p o r t di layar:

report form “[nama r e p o r t ]” preview

Mencetak r e p o r t pada printer :

report form “[nama r e p o r t ]” to printer

Suzan Agustr i

20


Menu

M EN U

Langkah membuat m e n u : 1.

Seb elumnya , buatlah terlebih da hulu bentuk tampilan m e n u .

2.

Klik OTHER pada p r o j e c t m a n a g e r .

3.

Klik NEW, kemudian NEW MENU.

4.

Pada m e n u l e v e l m e n u b a r , ketik nama m e n u utama pada p r o m p t .

5. J ika pada m e n u utama tersebut terdapat s u b m e n u , klik CREATE, kemudian ketik nama su b m e n u pada p r o m p t , da n seterusnya sampa i s u b m e n u terakhir. 6.

Pada su b m e n u tera khir maupun m e n u yang tidak memiliki s u b m e n u , ganti s u b m e n u menjadi command pad a kolom result .

7.

Ketik ka ta perintah disebelah kana nnya .

8.

Setelah semua kata perintah diketik pada m e n u dan s u b m e n u terakhir, klik VIEW pada t o o l b a r, kemudian pilih GENERAL OPTIONS.

9.

Centang TOP-LEVELFORM pad a kotak dialog g e n e r a l o p t io n s, setela h itu klik OK untuk menutup kotak dialog.

10. Klik MENU pada t o o l b a r, kemudia n pilih GENERATE. 11. Simpan m e n u ya ng telah dibuat tersebut. 12. Klik GENERATE untuk membuat ekstensi mpr menjadi mpx. 13. Tutup m e n u d e sig n e r. 14. Buat f o r m untuk menjalankan m e n u terseb ut. 15. Setelah membuat fo rm , klik sembarang tempat pada f o rm tersebut, kemudia n ga nti s h o w w i n d o w pada properties menjadi 2 - as top-le vel form . 16. Ketik ka ta perintah pada o b j e c t fo r m dan p r o c e d u r e INIT. 17. Buka seluruh f o rm yang digunakan pada menu. 18. Klik semba rang tempat pad a f o r m tersebut, kemudian ga nti s h o w w i n d o w pada properties menjadi 1 - in top-leve l form .

19. Ganti w i n d o w t y p e pada p rop erties menjadi 1 - m o d a l . 20. Simpan f o r m tersebut. 21. Lakukan langkah 18 samp ai 20 pa da f o r m lain yang digunakan pada m e n u . 22. Pada Project Manager, pilih f o rm m e n u , kemudian klik kana n, pilih SETMAIN.

SELALU LAKUKAN G ENERATE MENU SETIAP TERJADI PERUBAHAN PADA MENU !

Menampilkan ga mbar pada form : 1.

Klik IMAGE pada f o rm c o n t ro l .

2.

Klik pa da f o r m yang akan ditambahkan gambar.

3.

Atur ukuran c o n t o l im a g e .

Suzan Agustr i

21


4.

Menu

Pada jendela p r o p e r t i e s, pilih PICTURE, klik kotak segi empat (…) yang berada di sebelah kanan kotak f o r m u l a pada p r o p e r t i e s.

5.

Pilih file ga mba r, kemudian klik OK .

6.

Ganti 2 –stre c th pada strecth di p r o p e r t i e s.

Menjalankan form pada m e n u :

do form “[nama form ]”

Menjalankan r e p o r t pada m e n u :

report form “[nama r e p o r t ]” preview

Menga khiri m e n u :

application.activeform.release()

Menjalankan form m e n u :

do “[nama m e n u ].mpr” with this, .t.

Suzan Agustr i

22

Modul Fox Pro

Recommend Documents