Belajar Foxpro

Memulai Visual Foxpro
Langkah-langkah menjalankan Visual Foxpro
1. Klik Start-Programs
2. Klik Microsoft Visual FoxPro 9.0
3. Akan tampil jendela Visual Foxpro
Layar Visual Foxpro
Gambar 1-1 Tampilan jendela Microsoft Visual Foxpro
Penjelasan :
Pada jendela tersebut terdapat:
Menu Bar yang berisi sejumlah item menu ( File, Edit, Program, dsb), yang dapat dipilih dengan
mengklik atau menekan Alt + huruf bergaris bawah dari menu.
Toolbar yang berisi sejumlah icon perintah.
Status Bar, terletak dibagian bawah dan menampung informasi aktifitas dalam layar.
Command Window . Jendela ini sangat berguna untuk mengetikkan perintah Visual Foxpro
secara interaktif.
Properties – Desktop, jendela ini sangat berguna untuk mengatur form dan pengaturan lain-lain
tergantung kebutuhan system yang akan anda buat.
Task Pane Manager, jendela ini berisikan informasi tentang project yang telah dibuat
sebelumnya
Menentukan drive data atau direktori kerja
Sebelum membuat project, pastikan bahwa anda sudah menyiapkan direktori kerja terlebih dahulu.
Misalkan kita akan membuat direktori/folder bernama latihan pada drive C:\.
Langkah-langkah :
1. Membuat direktori melalui jendela Command:
Ketikkan MD C:\Swelo, akhiri dengan ENTER.
2. Aktiflah pada direktori tersebut.
Ketikkan SET DEFA TO C:\ Swelo, lalu ENTER
Membuat Project
Sebelum membuat project terlebih dahulu anda harus mengetahui apa itu project?
Project Manager merupakan titik sentral kita dalam mengelola data dan objek dalam Visual Foxpro.
Dalam project inilah semua komponen atau objek program dibuat atau dimodifikasi hingga tahap
kompilasi file Exe dilakukan Sebuah project adalah kumpulan dari file, data, dokumen, dan objek Visual
Foxpro lainnya yang disimpan dalam satu file yang berekstensi .PJX
Langkah-langkah :
1. Klik menu File
2. Klik New, maka akan muncul jendela seperti gambar dibawah
3. Klik Project
4. Klik tombol New File, maka akan tampil jendela create untuk menyimpan project yang anda buat
5. Ketikkan nama project, misalnya swelodiary.PJX
6. Klik tombol Save
Selain langkah-langkah diatas anda juga bisa membuat project dengan menggunakan jendela
command
Langkah-langkahnya jauh lebih sederhana, cukup dengan mengetikkan
CREATE PROJECT swelodiary
Akan tampil jendela Project Manager berikut :
Keterangan Project Manager
- Tab All, akan menampilkan semua tab mulai dari Data sampai tab Other
- Tab Data, digunakan untuk menyimpan atau membuat database, tabel dan query
- Tab Documents, untuk menyimpan atau membuat form, report dan label
- Tab Class, untuk menyimpan atau membuat program dalam bentuk class
- Tab Code, untuk menyimpan atau membuat program yang berbentuk file teks (.PRG)
- Tab Other, untuk menyimpan menu atau file pendukung program misalnya file gambar, icon dan
sebagainya.
- Tombol New, untuk membuat komponen baru dalam project, misalnya tabel, form dan sebagainya.
- Tombol Add, untuk menambahkan komponen yang sudah ada ke dalam project.
- Tombol Modify, untuk memperbaiki desain dari komponen dalam project.
- Tombol Run, untuk menjalankan(Run) objek misalnya, Form, file program .Prg.
- Tombol Remove, untuk menghapus salah satu komponen dar dalam project.
- Tombol Build, untuk membuat suatu file aplikasi (.EXE)
Menutup Project Manager
1. Klik menu File
2. Klik Close
Membuka Project Manager
1. Klik menu File
2. Klik Open
3. Tentukan nama project manager dan lokasinya
4. Klik OK
Menghapus File dari Project Manager
1. Klik salah satu tab dari Project Manager, misalkan Form
2. Klik salah satu nama file yang akan dihapus
4. Klik tombol Remove, dan akan tampil layar dialog yang berisi pilihan:
o Remove : file terhapus dari project tetapi tidak terhapus dari harddisk
o Delete : file terhapus dari project dan sekaligus terhapus dari harddisk (permanen)
o Cancel : membatalkan pilihan penghapusan
Menambahkan File ke dalam Project Manager
Jika sebelum file project dibuat, sudah ada file yang dibuat baik tabel, form,laporan atau apa saja
yang berhubungan dengan project manager tetapi belum dimasukkan maka dapat dimasukkan ke dalam
project manager dengan cara:
1. Klik salah satu tab dari Project Manager, misalkan Form
2. Klik tombol Add
3. Akan tampil kelompok file yang termasuk kelompok form
4. Pilih salah satu file yang akan ditambahkan kemudian pilih OK

Membuat Database
File database dalam VFP adalah suatu file yang diberi ekstensi .DBC. Suatu database bisa berisi
beberapa tabel atau query atau View
Langkah-langkah :
1. Dari Project Manager, klik tab Data
2. Klik Database
3. Klik tombol New
4. Ketikkan nama database, misalnya dbswelo
Akan tampil jendela database
5. Tutuplah jendela tersebut
Pada pembuatan program my swelo diary yang akan kita buat tidak perlu menggunakan database cukup
table yang berdiri sendiri
Membuat Tabel
1. Dari Project Manager, klik tab Data
2. Klik pada free tables , klik tombol New
3. Klik tombol New Table
4. Ketikkan nama tabel misalnya : buku.Dbf
5. Klik Save. Akan tampil jendela Table Designer.
Setelah jendela Table Designer tampil, rancanglah struktur table sebagai berikut :
Selanjutnya buatlah struktur table yang kedua :
Komponen Perancangan Form
Membuat Form
Form adalah objek dasar dalam pemrograman Visual. Karena form ini merupakan tempat atau
landasan meletakkan berbagai objek dan kontrol untuk keperluan perancangan interface program.
Cara menampilkan form:
1. Dari Project Manager, klik tab Documents
2. Klik kelompok Forms
3. Klik tombol New, klik tombol New Form
4. Akan tampil jendela Design Form
Jendela Forms Control Toolbar
Form Control Toolbar merupakan jendela yang sangat penting, karena jendela ini menyediakan
berbagai komponen yang bisa kita pasangkan pada form dalam mendesain user interface program.
Cara menampilkan Form Control Toobar:
1. Klik menu View
2. Klik Form Control Toolbar
Keterangan :
Pointer
Bukan merupakan suatu kontrol; gunakan icon ini ketika anda ingin memilih kontrol yang sudah
berada pada form.
Kontrol Label
Menampilkan teks , tetapi pemakai tidak dapat berinteraksi dengannya
Kontrol Text Box
Pada textbox, pemakai dapat mengisi atau menampilkan teks atau nilai dari sutu hasil proses
Kontrol Edit Box
Berguna untuk menuliskan teks memo (teks yang melebihi satu baris)
Kontrol Command Button
Berguna untuk membuat tombol perintah atau tombol tekan
Kontainer Command Group
Berguna untuk membuat kelompok tombol perintah
Kontainer Option Button
Berguna untuk membuat grup pilihan. Pemakai hanya dapat memilih satu diantara opsi tersebut.
Kontrol Check Box
Memberikan perintah pilihan Benar(True)/Salah{False) atau Yes/No. Pemakai dapat memilih
beberapa check box yang ada.
Kontrol Combo Box
Untuk memilih daftar pilhan yang ada atau mengetikkan pilihan
Kontrol List Box
Untuk memilih suatu pilihan dari suatu daftar.
Kontrol Spinner
Untuk memasukkan nilai numerik. Nilai tersebut dapat diketik oleh pemakai atau dengan meng-klik
tombol panah di sebelah kanan untuk menaikkan atau menurunkan nilai numerik.
Kontainer Grid
Digunakan untuk menampilkan data dalam bentuk tabel (baris-kolom), seperti pada browse
Kontrol Image
Berguna untuk memasukkan data gambar atau image
Kontrol Timer
Digunakan untuk mengeksekusi waktu kejadian pada suatu rutin program termasuk selang waktu
(interval)
Kontainer Page Frame
Berguna untuk membuat frame halaman. Di sini setiap halaman mirip dengan sebuah form tersendiri
Kontainer OLE
Berguna untuk menampilkan objek hasil olahan dari program-program yang mendukung OLE
(Object Linking and Embedding) seperti Ms Excel, Ms Graph, Ms PhotoShop, dan sebagainya.
Kontrol OLE
Berbeda dengan kontainer OLE yang memuat objek di luar Visual Foxpro, maka objek yang
tersimpan dalam kontrol OLE merupakan objek yang tersimpan dalam field general dalam tabel DBF
Foxpro.
Kontrol Garis
Berguna untuk membuat objek garis dalam form
Kontrol Shape
Berguna untuk membuat objek geometris misalnya segiempat, lingkaran, ellips, dan sebagainya
Kontainer Container
Digunakan untuk membuat objek kontainer, yang dapat diisi objek lain
Kontainer Separator
Digunakan untuk membuat objek separator
Kontrol Hyperlink
Digunakan untuk membuat objek hyperlink
Jendela Properties
Jendela ini berguna sebagai tempat mengatur nilai-nilai properti dari setiap objek saat
perancangan.
Cara menampilkan jendela Properties:
1. Klik menu View
2. Klik Properties
Akan tampil jendela properties
Aku dah males bertele-tele skarang kita langsung aja yach membuat form my swelo diary
Buka jendela form, cara membuatnya seperti yang telah aku terangkan diatas
Masukkan beberapa komponen yang akan digunakan sebagai gambar berikut :
Komponen-komponen yang digunakan sebagai berikut
No Object Properti Nilai
1 Form1 Autocenter
Windowtype
showwindow
.T.
1 – Modal
1 – In Top-Level Form
2 Label1 Caption Prihal-
3 Label2 Caption Isi Diary
4 Label3 Caption FontSize
5 Label4 Caption FontName
6 Label5 Caption Alignment
7 Label6 Caption No. Index
8 Label7 Caption Tanggal
Name lbltgl
Text1 Name Text1
Text2 Name
Backstyle
Style
Txtkode
0 – Transparent
1 – 2.x @SAY
Text3 Name txttgl
Edit1 Name edtisi
Combo1 Name Combo1
Combo2 Name Combo2
Combo3 Name Combo3
Command1 Name Command1
Command2 Name Command2
Command3 Name Command3
Vfpskin21 rskin
skinname
.T.
SerenXP
Langkah- langkah membuat procedure buatan sebagai berikut
1. Pilih menu bar Form
2. Klik new method
3. Maka akan tampil jendela berikut
4. Pada kotak isian name di isi dengan nama batal lalu klik add
Menuliskan script program :
Object : Form1 Procedure : Load
SET TALK OFF
SET CENTURY ON
SET DATE ITALIAN
SET DELETED ON
SET BELL on
?CHR(7)
CLOSE TABLES ALL
SET EXCLUSIVE OFF
SET NOTIFY off
SET CARRY off
SET MULTILOCKS ON
IF ! USED("Buku")
USE buku SHARED IN 0
ELSE
SELECT buku
ENDIF
SELECT buku
SET ORDER TO KODE && KODE
Object : Form1 Procedure : Activate
thisform.txtTgl.Value= DATE()
thisform.edtIsi.Enabled= .F.
thisform.command1.Enabled= .F.
thisform.command2.Enabled= .F.
Object : Form1 Procedure : Init
lcLastSetPath = SET('PATH')
lcLastSetDir = SET('DIRECTORY')
lcLastSetTalk = SET('TALK')
SET TALK OFF
lcSys16 = SYS(16)
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
CD LEFT(lcProgram, RAT("\", lcProgram))
CD LEFT(lcProgram, RAT("\", lcProgram))
*----------------------------------------*
PUBLIC _up, _down
Object : Form1 Procedure : batal
thisform.text1.Value=""
thisform.edtIsi.Value=""
thisform.combo1.DisplayValue=""
thisform.combo2.DisplayValue=""
thisform.combo3.DisplayValue=""
Object : Form1 Procedure : keluar
LOCAL Tinggi,Mulai
UNLOCK ALL
Tinggi=(_SCREEN.ACTIVEFORM.HEIGHT/50)
FOR Mulai=1 TO Tinggi
_SCREEN.ACTIVEFORM.HEIGHT=_SCREEN.ACTIVEFORM.HEIGHT+50
_SCREEN.ACTIVEFORM.TOP=(_SCREEN.ACTIVEFORM.HEIGHT+;
_SCREEN.ACTIVEFORM.HEIGHT)/2
_SCREEN.ACTIVEFORM.WIDTH=_SCREEN.ACTIVEFORM.WIDTH-50
_SCREEN.ACTIVEFORM.LEFT=(_SCREEN.ACTIVEFORM.WIDTH+;
_SCREEN.ACTIVEFORM.WIDTH)/2
DOEVENTS
NEXT Mulai
_SCREEN.ACTIVEFORM.RELEASE
RETURN
Object : Form1 Procedure : menu
LOCAL _selec
_selec=0
DEFINE POPUP menúcontex SHORTCUT RELATIVE FROM
MROW(),MCOL()
DEFINE BAR 2 OF menúcontex PROMPT ".::. Red"
DEFINE BAR 5 OF menúcontex PROMPT ".::. Deztiny"
DEFINE BAR 7 OF menúcontex PROMPT ".::. FakeXP"
DEFINE BAR 9 OF menúcontex PROMPT ".::. Float"
DEFINE BAR 12 OF menúcontex PROMPT ".::. Commander"
DEFINE BAR 15 OF menúcontex PROMPT ".::. SerenXP"
DEFINE BAR 16 OF menúcontex PROMPT ".::. Alien"
DEFINE BAR 19 OF menúcontex PROMPT ".::. Pistons"
DEFINE BAR 20 OF menúcontex PROMPT ".::. Browzer"
ON SELECTION BAR 2 OF menúcontex _selec=2
ON SELECTION BAR 5 OF menúcontex _selec=5
ON SELECTION BAR 7 OF menúcontex _selec=7
ON SELECTION BAR 9 OF menúcontex _selec=9
ON SELECTION BAR 12 OF menúcontex _selec=12
ON SELECTION BAR 15 OF menúcontex _selec=15
ON SELECTION BAR 16 OF menúcontex _selec=16
ON SELECTION BAR 19 OF menúcontex _selec=19
ON SELECTION BAR 20 OF menúcontex _selec=20
ACTIVATE POPUP menúcontex
DO case
CASE _selec=2
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="red"
thisform.vfpskin21.changeskin
CASE _selec=5
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="deZ"
thisform.vfpskin21.changeskin
CASE _selec=7
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="fakexp"
thisform.vfpskin21.changeskin
CASE _selec=9
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="float"
thisform.vfpskin21.changeskin
CASE _selec=12
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="Commander"
thisform.vfpskin21.changeskin
CASE _selec=15
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="SerenXP"
thisform.vfpskin21.changeskin
CASE _selec=16
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="Alien"
thisform.vfpskin21.changeskin
CASE _selec=19
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="Pistons"
thisform.vfpskin21.changeskin
CASE _selec=20
THISFORM.Caption="KwK Initial Studio [ Input Diary
]"
thisform.vfpskin21.skinname="br"
thisform.vfpskin21.changeskin
ENDCASE
Object : Form1 Procedure : nomor
SELECT buku
c=thisform.txtKode.Value
A='000'
B=LTRIM(STR(RECCOUNT()+1))
NO=left(A,200-LEN(B))+B
TAHUN=LTRIM(STR(YEAR(DATE())))
THISFORM.txtKode.Value=NO+'~ KwK ~ '+TAHUN
Object : Form1 Procedure : simpan
a=thisform.txtKode.Value
b=thisform.txtTgl.Value
c=thisform.edtIsi.Value
IF ! SEEK(ALLTRIM(A))
IF RLOCK()
=MESSAGEBOX("TABEL SEDANG DIPAKAI USER LAIN",0+16,"PROSES
PENYIMPANAN GAGAL")
RETURN
ELSE
INSERT INTO buku(kode,tgl,isi);
value(A,b,c)
ENDIF
UNLOCK
RETURN
ENDIF
THISFORM.Batal
THISFORM.text1.SetFocus
THISFORM.Nomor
Object : txtkode Procedure : init
thisform.nomor
Object : Text1 Procedure : lostfocus
cno=Thisform.txtKode.Value
cno2=ALLTRIM(Thisform.text1.Value)
a=cno2+' ~ '+cno
Thisform.txtKode.Value=a
thisform.edtIsi.Enabled= .t.
thisform.command1.Enabled= .T.
thisform.command2.Enabled= .T.
Object : Command1 Procedure : click
thisform.simpan
THISFORM.BAtal
THISFORM.Nomor
THISFORM.TEXt1.SetFocus
thisform.command1.Enabled= .F.
thisform.command2.Enabled= .F.
Object : Command2 Procedure : click
thisform.batal
thisform.nomor
thisform.Activate
thisform.text1.SetFocus
Object : Command3 Procedure : click
thisform.keluar
Object : Combo1 Procedure : interactivechange
IF thisform.combo1.DisplayValue="Monotype Corsiva"
thisform.edtIsi.FontName= "Monotype Corsiva"
ELSE
IF thisform.combo1.DisplayValue="Times New Roman"
thisform.edtIsi.FontName= "Times New Roman"
ELSE
thisform.edtIsi.FontName= "Arial Narrow"
ENDIF
endif
Object : Combo2 Procedure : interactivechange
IF thisform.combo2.DisplayValue="8"
thisform.edtIsi.FontSize= 8
ELSE
IF thisform.combo2.DisplayValue="9"
thisform.edtIsi.FontSize= 9
ELSE
IF thisform.combo2.DisplayValue="10"
thisform.edtIsi.FontSize= 10
else
IF thisform.combo2.DisplayValue="11"
thisform.edtIsi.FontSize= 11
ELSE
IF thisform.combo2.DisplayValue="12"
thisform.edtIsi.FontSize= 12
ELSE
IF thisform.combo2.DisplayValue="14"
thisform.edtIsi.FontSize= 14
ELSE
IF thisform.combo2.DisplayValue="16"
thisform.edtIsi.FontSize= 16
ELSE
IF thisform.combo2.DisplayValue="18"
thisform.edtIsi.FontSize= 18
ELSE
IF thisform.combo2.DisplayValue="20"
thisform.edtIsi.FontSize= 20
else
IF thisform.combo2.DisplayValue="22"
thisform.edtIsi.FontSize= 22
ELSE
IF thisform.combo2.DisplayValue="24"
thisform.edtIsi.FontSize= 24
ELSE
IF thisform.combo2.DisplayValue="26"
thisform.edtIsi.FontSize= 26
ELSE
thisform.edtIsi.FontSize= 28
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
Object : Combo3 Procedure : interactivechange
IF thisform.combo3.DisplayValue="Left"
thisform.edtIsi.Alignment= 0
else
IF thisform.combo3.DisplayValue="Right"
thisform.edtIsi.Alignment= 1
ELSE
IF thisform.combo3.DisplayValue="Center"
thisform.edtIsi.Alignment= 2
ENDIF
ENDIF
ENDIF
Sekarang dah jam 2.30 dini hari n aku hanya ditemani segelas kopi hitam itupun
dah hampir habis, mau beli lagi diburjo hujan ga reda-reda, malam ini dingin
banget… Satu form dah selese dan kini dah tiba waktunya aku untuk sleep…..
My name Cyberfox
“tutor ini kubuat untuk kekasih yang bukan lagi pacarku”
“sesungguhnya aku masih sangat sayang ma dia”
“maafkan aku……..”
“to my swelo [keti]”
Thank’s to
- fox-id crew
• Om Taz
• Mztolo
• Batman Kasarung
• Firgiawansyah
• Sinyonamakoe
• CyberFox
• Om Tejos
http://www.fox-id.org
- Amik Profesional Makassar
- My Parent
- My Brother n Sister
- My Swelo (keti)
- My Best Friend
http://www.kwkinitial.wordpress.com