Tip dan trik Visual dBASE 5.5

. Minggu, 17 Mei 2009
0 komentar

BAB I
MENGENAL BAHASA PEMROGRAMAN
VISUAL dBASE 5.5

Visual dBase adalah salah satu bahasa pemrograman database dibawah sistim operasi Windows. dBase diciptakan pada tahun 1995 oleh Borland International, Inc. untuk menggantikan bahasa pemrograman dBase yang sudah terkenal sejak 1984.

MENJALANKAN VISUAL dBASE 5.5

Setelah Visual dBase selesai Anda install ke dalam komputer Anda, selanjutnya cara menjalankan Visual dBase adalah sebagai berikut (Windows XP):

1. Klik Start, kemudian sorot All Programs.
2. Keluar seluruh program yang ada dalam Windows Anda, sorot Visual dBase.
3. Keluar dua belas buah pilihan, klik Visual dBase.
4. Sekarang Anda sudah siap bekerja dengan Visual dBase

Dengan cara yang sama, demikian juga menjalankan Visual dBase jika Anda menggunakan Windows 2000 atau Windows 98.

KOMPONEN-KOMPONEN VISUAL dBASE

Visual dBase 5.5 terdiri dari beberapa komponen, antara lain: Title (Judul), Menu Bar (baris menu), Icon, Jendela Navigator dan Jendela Command.




Jendela Command terdiri atas 2 panel, yaitu Panel Atas sebagai tempat untuk memberikan perintah dan Panel Bawah untuk melihat hasil dari pelaksanaan perintah.


PERINTAH DASAR JENDELA COMMAND

Ada 6 perintah dasar dalam Visual dBase yang harus kita ketahui, yaitu :

PERINTAH
KETERANGAN
└> atau tombol ENTER
Untuk lanjut ke baris berikutnya
? atau print
Untuk mencetak ke printer atau untuk melihat hasil pencetakan ke layar pada baris berikutnya.
?? atau double print
Untuk mencetak ke printer atau untuk melihat hasil pencetakan ke layar pada baris yang sama.
Clear
Bersihkan layar
* atau && (tanda bintang atau double amphersand dalam program)
Keterangan yang tidak diproses oleh Visual dBase.
; atau titik koma
Tanda penghubung untuk lanjut ke baris berikutnya.

MEMAHAMI CURRENT DIRECTORY PADA JENDELA NAVIGATOR

Current Directory adalah directory atau folder yang sedang digunakan saat ini (directory yang aktif). Directory merupakan bagian dari media penyimpanan data permanent (hard disk, diskette, flash disk, cd atau dvd). Sebuah media penyimpanan data permanent dapat dibagi atas beberapa bagian. Umpamanya sebuah hardisk dapat dibagi atas dua atau lebih bagian, bagian-bagian yang dipilah-pilah ini harus diberikan nama, misalnya hard disk yang kita miliki kita bagi atas 4 (empat) bagian yang diberi nama dengan saya , kamu, kita dan mereka. Untuk lebih jelasnya dapat anda lihat pada gambar dibawah ini.



Untuk membuat directory kita gunakan perintah MD (Make Directory) dan untuk mengaktifkannya kita gunakan perintah CD (Change Directory).
Contoh :
1. Kita akan membuat sebuah directory yang bernama Saya didalam partisi E pada hard disk, maka kita ketikkan di Command Window :
MD E:\SAYA

2. Kita akan membuat sebuah directory yang bernama Saya didalam partisi E pada hard disk, maka kita ketikkan di Command Window :
CD E:\SAYA

Maka dalam jendela Navigator akan tampak sebagai berikut :


JENIS DATA DAN OPERATOR

Ada 4 (empat) jenis data yang akan kita pelajari saat ini, untuk jenis data selengkapnya akan kita pelajari dalam semester berikutnya.

DATA
KETERANGAN
Numeric (bilangan)
Data yang dapat dioperasikan dalam matematika, misalnya tambah, kurang, kali maupun bagi.
Contoh : 0 – 9
Character (huruf)
Data yang tidak dapat dioperasikan dalam matematika, karena data ini hanya dapat digabungkan saja.
Contoh :
A – Z dan 0-9
Logical (logika)
Data yang hanya memiliki 2 kemungkinan, yaitu : benar (.T. atau true) dan salah (.F. atau false).
Date (tanggal)
Data yang terdapat dalam kalender.

Sedangkan operator yang dapat digunakan dalam jenis data adalah :

1. Operator perhitungan.

DATA
CONTOH
/ atau bagi
?10/5
* atau kali
?10*5
+ atau tambah
?10+5
- atau kurang
?10-5
^ atau pangkat
?10^5
** sama dengan pangkat
?10**5

2. Operator relasi.

DATA
CONTOH
< lebih kecil dari
?10<5
> lebih besar dari
?10>5
<> tidak sama dengan
?10<>5
<= lebih kecil atau sama dengan
?10<=5
>= lebih besar atau sama dengan
?10>=5
== persis sama dengan
?10==5

3. Operator logika.

DATA
CONTOH
.AND. kedua logika benar
?10<5>5
.OR. salah satu logika benar
?10>5 .OR. 10<5
.NOT. tidak benar atau tidak salah
?.NOT. 10>5
?.NOT. 10<5

4. Operator string (karakter).

DATA
CONTOH
+ Penggabungan huruf atau kata
?”AMIK”+”STIEKOM”
$ Bagian dari kata atau sub string
?”I” & “AMIK”
? “I” & “STIEKOM”











BAB II
PROGRAM

Program adalah kumpulan dari perintah-perintah untuk melaksanakan tugas tertentu.

MEMBUAT PROGRAM

Kita akan membuat program yang bernama Latih, ketikkan di Command Window
CREATE COMMAND LATIH
atau
MODIFY COMMAND LATIH.

Setelah tampil jendela Procedure Editor, ketikkan program dibawah ini :
SET TALK OFF
CLEAR
?”AMIK”+”STIEKOM”
?”PERHITUNGAN”
?”---------------------“
?”10+5=”
??10+5
?”10-5=”
??10-5


MENYIMPAN PROGRAM

Setelah program selesai dibuat, maka program tersebut dapat disimpan dengan salah satu cara dibawah ini :
1. Tekan tombol Ctrl+W pada keyboard.
2. Klik menu File+Save and Close

Kita dapat melihat hasil dari penyimpanan program dengan mengklik tombol program yang terdapat dalam jendela navigator. Setelah tombol ini diklik, maka program latih yang telah kita buat akan tampil disana dengan nama Latih.Prg.
Prg atau program adalah nama belakang atau extention yang diberikan oleh Visual dBase kepada file program kita.


MENJALANKAN PROGRAM

Anda dapat menjalankan program dengan salah satu cara dibawah ini :
1. Klik ganda Latih.prg yang terdapat dalam jendela Navigator.
2. Klik kanan Latih.prg yang terdapat dalam jendela Navigator, lalu klik Do.
3. Ketikkan dalam Command Window
DO LATIH

MEMPERBAIKI PROGRAM

Kadang kala didalam pembuatan program kita melakukan kesalahan, hal ini terlihat pada saat program dijalankan akan tampil jendela Program Alert.


Jika tampil jendela Program Alert, maka klik tombol Fix untuk melakukan perbaikan. Pada tampilan jendela Program Alert diatas, Visual dBase memberitahu bahwa terdapat kesalahan pada baris pertama (Line 1), dimana ada sesuatu yang hilang (kurang) dalam phrase ON/OFF atau TO (Error: Something is missing. Expecting : ON/OFF or TO phrase. Hal ini ternyata benar, karena setelah tombol Fix di klik, maka kursor akan berhenti pada baris 1, dan disana terdapat kesalahan, yaitu kurang memberikan huruf F pada perintah SET TALK OFF


Perbaikilah perintah SET TALK OF menjadi SET TALK OFF, kemudian simpan kembali program Latih.Prg tersebut.








































BAB III
PENGOLAHAN FILE

File program yang sudah ada (Latih.Prg) dapat kita olah dengan ketentuan yang tidak boleh dilanggar, yaitu :
1. Nama file asal (source code) tidak boleh sama dengan file tujuan, apabila akan diolah didalam directory yang sama.
2. Nama file asal (source code) boleh sama dengan file tujuan, apabila akan diolah didalam directory yang berbeda.
3. File tidak dalam keadaaan aktif atau sedang dijalankan.
4. Nama file harus lengkap dengan ekstensinya (extention).

MENGGANDAKAN FILE

Kita akan menggandakan file Latih.Prg dengan nama Praktek.prg didalam directory yang sama, ketikkan di Command Window :
COPY FILE LATIH.PRG TO PRAKTEK.PRG


Kita akan menggandakan file Latih.Prg dengan nama Latih.prg didalam directory yang berbeda, ketikkan di Command Window :
COPY FILE LATIH.PRG TO E:\SAYA\LATIH.PRG



MENGGANTI NAMA FILE

Penggantian nama file hanya dapat dilakukan didalam directory yang sama.

Kita akan menggandakan file Latih.Prg dengan nama Praktek.prg , ketikkan di Command Window :
RENAME LATIH.PRG TO PRAKTEK.PRG


MENGHAPUS NAMA FILE

Kita akan menghapus file Praktek.prg , ketikkan di Command Window :
ERASE PRAKTEK.PRG
Atau
DELETE FILE PRAKTEK.PRG













BAB IV
VARIABEL

Variabel adalah tempat penyimpanam sementara didalam memory komputer (clipboard). Di katakan sementara karena variabel akan hilang jika komputer macet (hang), komputer mati (turn off) dan jika komputer di hidupkan ulang (reset). Pemberian nama variable (declaration variable) memiliki ketentuan sebagai berikut :
1. Maximum 10 huruf.
2. Huruf awal tidak boleh berupa angka .
3. Tidak ada spasi.
4. Tidak ada tanda baca.
5. Jika terdiri dari dua kata boleh menggunakan garis bawah (underscore).

Penggunaan Variabel terbagi dua, yaitu :
1. Secara langsung, yaitu nilai variabel langsung diberikan pada saat deklarasi variable.
Contoh :
Ketikkan pada command windows
Modify command Latih1
Set talk off
Clear
A=15
B=6
C=A+B
?C

2. Secara tidak langsung, yaitu nilai variabel diberikan pada saat program dijalankan. Hal ini dapat dilakukan dengan menggunakan 2 perintah, yaitu :
a. Accept, untuk data karakter.
b. Input, untuk data bilangan (numeric).

Contoh :
Ketikkan pada Command Windows

Modify Command Latih2
Set talk off
Clear
Accept “Masukkan nama langganan :” to NAMA
Input “ Jumlah lembar foto copy :” to LEMBAR
Input “Harga per lembar : “ to HARGA
Biaya=LEMBAR*HARGA
?
?”Biaya foto copy : Rp. “,Biaya





BAB V
FUNGSI

Fungsi adalah program bantu untuk pengolahan jenis data, jenisnya adalah:

FUNGSI STRING

String adalah kumpulan dari huruf (character). Dalam Bahasa Indonesia kita menyebutnya sebagai kata.
Ada beberapa fungsi bantu untuk mengolah string yang biasa dipakai dalam pembuatan program, yaitu :

1. LTRIM, yaitu untuk menghilangkan spasi disebelah kiri stringContoh:Ketikkan di command windowModify Command Latih3
Set Talk Off
Clear
A=“ Amik”
B=“ Stiekom”
C=“ Sumatera Utara”
?Ltrim(A)+Ltrim(B)+LTrim(C)
? A+B+C

2. LEFT, untuk menghasilkan karakter yang dihitung dari kiri string
Ketikkan di Command WindowModify command Latih4
Set talk Off
Clear
A=“sumatera”
B=“utara”
?Left(A,3)
?Left(B,2)

3. LEN, untuk menghitung jumlah karakter dalam sebuah string
Ketikkan di Command Window
Modify command Latih5
Set talk Off
Clear
A=“sumatera”
B=“utara”
?Len(A)
?Len(B)

4. AT, untuk menghitung letak karakter dalam sebuah string, jika terdapat lebih dari satu karakter yang dicari, maka Visual dBase hanya akan menghitung letak karakter yang pertama kali ditemukan.
Ketikkan di Command WindowModify command Latih6
Set talk Off
Clear
A=“sumatera”
B=“utara”
?At(“t”,A)
?At(“a”,B)

5. LOWER, untuk merubah string menjadi huruf kecilKetikkan di Command WindowModify command Latih7
Set talk Off
Clear
A=“AMIK”
B=“Stiekom”
?Lower(A)
?Lower(B)

6. UPPER, untuk merubah string menjadi huruf besarKetikkan di Command WindowModify command Latih8
Set talk Off
Clear
A=“amik”
B=“Stiekom”
?Upper(A)
?Upper(B)

7. SUBSTR, untuk memotong string diposisi tertentu sebanyak sekian kaliKetikkandiCommandWindowModify command Latih9
Set talk Off
Clear
A=“AMIK”
B=“SIEKOM”
?Substr(A,2,2)
?Substr(B,3,3)

8. VAL, untuk merubah string menjadi bilangan (numeric)Ketikkan di Command WindowModify command Latih10
Set talk Off
Clear
A=“1”
B=“2”
?Val(A)+Val(B)
?A+B

9. RIGHT, untuk menghasilkan karakter yang dihitung dari kanan stringKetikkan di Command WindowModify command Latih11
Set talk Off
Clear
A=“sumatera”
B=“utara”
?Right(A,3)
?Right(B,3)

10. RTRIM, untuk menghilangkan spasi disebelah kanan stringketikkan di command windowModify Command Latih12
Set Talk Off
Clear
A=“Amik ”
B=“Stiekom ”
C=“SumateraUtara ”
?Rtrim(A)+Rtrim(B)+RTrim(C)

11. REPLICATE, untuk mengulang string sebanyak sekian kaliketikkan di command windowModify Command Latih13
Set Talk Off
Clear
A=“HA ”
B=“HI ”
?Replicate(A,10)
?Replicate(B,5)

12. STUFF, untuk menyisip dan menghilangkan string ketikkan di command windowModify Command Latih14
Set Talk Off
Clear
A=“Terang bulan”
B=“sekali”
?Stuff(A,8,0,B)
?Stuff(B,8,3,B)

TEMPLATE DAN PICTURE

Merupakan cara penyusunan format data masukan dan data keluaran. Jenis template adalah :
A untuk data character (huruf A-Z)
9 untuk data bilangan (numeric 0-9)
# untuk data bilangan (numeric 0-9) dan spasi
X untuk data character (huruf A-Z dan 0-9)
! mengganti huruf kecil menjadi huruf besar
, pemisah ribuan
. pemisah decimal

Contoh :
Ketikkan pada Command WindowModify Command Latih15
Set talk off
Clear
Accept “Nama Pegawai : “ to NAMA
Input “Jam kerja :” to JAM
Input “Upah per jam :” to UPAH
Jlh=JAM*UPAH
?”Upah yang diterima”+NAMA+“adalah = Rp “+;
Transform(Jlh,”999,999,999.99”)

Selain template, kita juga dapat menggunakan fungsi Picture yang diawali dengan simbol @ untuk memformat data masukan dan data keluaran, yaitu :
@! mengganti huruf kecil menjadi huruf besar
@B meletakkan bilangan rata kiri
@A untuk menampung data karakter
@E format data tanggal dd/mm/yy
@( memberikan tanda kurung pada bilangan negatif

Contoh template akan kita praktekkan dalam bab berikutnya.

FUNGSI BILANGAN

1. TRANSFORM
Merubah bilangan menjadi karakter dengan format ribuan dan desimal
Ketikkan pada command window
Modify Command LATIH16
Set talk off
Clear
A=1000
B=500
C=A+B
?A
?B
?C
?Transform(C,”999,999.99”)

2. STR
Merubah bilangan menjadi karakter dengan digit desimal, tanpa format.
Ketikkan pada command window
Modify Command LATIH17
Set talk off
Clear
A=1000
B=3
C=A/B
?STR(C,1)
?STR(C,2)
?STR(C,3)
?STR(C,4)

3. ABS
Merubah bilangan negatif menjadi positif
Ketikkan pada command window
Modify Command LATIH18
Set talk off
Clear
A=10
B=5
C=B-A
?C
?ABS(C)

4. INT
Menghilangkan bilangan pecahan
Ketikkan pada command window
Modify Command LATIH19
Set talk off
Clear
A=22
B=8
C=A/B
?C
?INT(C)

5. MOD
Sisa bagi antara dua bilangan
Ketikkan pada command window
Modify Command LATIH20
Set talk off
Clear
A=10
B=3
C=A/B
?C
?MOD(A,B)

6. ROUND
Membulatkan bilangan.
Ketikkan pada command window
Modify Command LATIH21
Set talk off
Clear
A=22
B=8
C=A/B
?ROUND(C,2)
?ROUND(C,1)
?ROUND(C,0)

FUNGSI TANGGAL

Pada bawaan aslinya (default), Visual dBASE menganut format tanggal dari negeri asalnya , yaitu American (mm/dd/yy). Bila kita ingin merubah format tanggal ini menjadi bentuk Indonesia, maka kita gunakan perintah
Set date Italian [dd/mm/yy]
atau
Set date British [dd-mm-yy]
Bila kita membutuhkan format tahun empat digit gunakan perintah
Set Century On
Contoh :
Ketikkan pada Command Window
Modify Command Latih22
Set talk off
Clear
Set date Italian
?Date()
Set date British
?Date()
Set century on
?Date()
Set century off
?Date()

Fungsi bantu tanggal terdiri dari :
1. Year angka tahun dari tanggal
2. Month angka bulan dari tanggal
3. CMonth nama bulan dari tanggal
(character of month)
4. Day tanggal sekarang
5. DOW angka hari dalam
seminggu,dimulai dari hari
minggu (day of week)
6. CDOW nama dari dari tanggal
(character day of week)
Contoh :

Ketikkan pada command
Window
Modify Command Latih23

Set talk off
Clear
?Date()
?Year (date())
?Month(date())
?CMonth(date()
?Day(date())
?DOW (date())
?CDOW(date())










































BAB VI
LAYAR

Kita akan membentuk program untuk tampilan dilayar computer.

TAMPILAN LAYAR

1. Menempatkan string dilayar.
Layar komputer dapat diibaratkan sebuah kotak persegi panjang, terdiri dari dari kiri ke kanan disebut kolom (Column) sebanyak 80 mulai dari 1 sampai dengan 79, dan dari atas kebawah disebut baris (Row) sebanyak 24 mulai dari 0 sampai dengan 23.


2. Menulis program layar.
Misalnya kita akan menempatkan string “SELAMAT BELAJAR “ pada baris ke 9 dan kolom ke 13, maka gambarannya adalah :


Ketikkan dalam Command Window
Modify Command Latih24

Set Talk Off
Clear
@ 9,13 say “SELAMAT BELAJAR “

3. Membuat tampilan kotak
Tampilan kotak dapat kita tampilkan dengan menyebutkan kordinat sudut kiri atas layar dan sudut kanan bawah dari kotak tersebut. Misalnya kordinat sudut kiri atas 6 dan kiri 15, sedangkan kordinat sudut kanan 15 dan kanan bawah 65. Selanjutnya tambahkan perintah TO diantara kedua kordinat tersebut


4. Menulis program kotak.
Ketikkan dalam Command Windows
Modify Command Latih25
Set Talk Off
Clear
@ 6,15 to 15,65
@ 10,28 to 12,48
@ 9,31 say “SELAMAT BELAJAR “
@ 11,33 say “Visual dBASE”


5. Warna.
Warna yang akan kita pelajari ada 8, warna selengkapnya akan kita bahas dalam semester berikutnya

WARNA
HURUF
ANGKA
Hitam (Black)
Spasi
0
Biru (Blue)
B
1
Hijau (Green)
G
2
Biru muda (Cyan)
BG
3
Merah (Red)
R
4
Merah muda (Magenta)
BR
5
Kuning (Yellow)
GR+
6
Putih (White)
W
7


6. Menulis program warna dan kotak
Ketikkan dalam Command Window
Modify Command Latih26
Set Talk Off
Clear
Set Color To /W
@ 7,13 clear to 16,63
Set Color To
@ 6,15 Clear To 15,65
@ 6,15 To 15,65
@ 10,22 To 12,58
Set Color To W/B
@ 9,33 say “SELAMAT BELAJAR “
@ 11,33 say “Visual dBASE”
Set Color To

7. Hasil program warna


























BAB VII
MENGUBAH JENIS DATA (CONVERTION)
Visual dBASE hanya mampu menampilkan (mencetak) data jenis karakter, jadi untuk jenis data yang lain kita harus merubahnya menjadi karakter.
v Tanggal (Date)
Untuk menampilkan data tanggal atau memasukkan data tanggal kedalam variable, kita harus mengubahnya dari tanggal menjadi karakter (Date To Character = DTOC), sedangkan untuk perhitungan data tanggal kita harus mengubahnya dari karakter menjadi tanggal (Character To Date = CTOD)
v Bilangan (Numeric)
Jika ingin memasukkan bilangan kedalam variable, maka gunakan angka 0 atau bilangan yang lain, sedangkan untuk menampilkannya gunakan fungsi transform atau Str().
v Karakter (Character)
Jika ingin memasukkan karakter kedalam variable, maka gunakan fungsi spasi atau space, kemudian diikuti lebar dari data tersebut.

MEMBUAT PROGRAM KONVERSI
Ketikkan pada Command Window
Modify Command Latih27
Set Talk Off
Clear
Nama=space(15)
Harga=0
TglBayar=dtoc(date())
Alamat=space(8)
Nota=space(8)
Lama=0
Bayar=0
TglBeli=dtoc(date())
Set Date Italian
@ 10,10 say “Nama langganan :” get nama picture “@!”
@ 11,10 say “Alamat :” get alamat picture “@!”
@ 12,10 say “Nama nota :” get nota picture “AAA-999”
@ 13,10 say “Harga :” get harga picture “999,999,999.99”
@ 14,10 say “Tanggal beli :” get tglbeli picture “99/99/99”
@ 15,10 say “Tanggal bayar :” get tglbayar picture “99/99/99”
Read
Lama=CTOD(tglbayar)-ctod(tglbeli)
@ 17,10 say “Umur piutang=“+transform(Lama,”999”)
@ 18,10 say “Nama pelanggan :”+Nama
@ 19,10 say “Jumlah yang diterima :”+”Rp “+transform(Harga,”999,999,999.99”)

BAB VIII
PROCEDURE DAN PARAMETER

Procedure adalah program bantu yang berada dibawah program utama. Biasanya digunakan untuk membantu program utama yang berada satu level diatasnya. Dalam procedure kita memasukkan nilai variabel kedalam parameter. Jadi guna parameter adalah untuk memasukkan nilai variabel dari program utama untuk diproses lebih lanjut dan hasilnya akan dikirimkan kembali kedalam variabel yang berada didalam program utama.

PERINTAH PROCEDURE

1. DO … WITH …
Perintah untuk menuju Procedure.

2. RETURN
Perintah untuk kembali ke program utama. Perintah ini bersifat optional, yaitu boleh ditulis atau boleh juga tidak ditulis

Ketikkan pada command window
Modify Command Latih28




Program Utama


Do…With Return


Procedure











BAB IX
JENIS-JENIS VARIABEL

Variabel terdiri dari 3 jenis, yaitu :

VARIABEL PRIVATE

Variabel yang dikenal ditempat ia di deklarasikan dan program 1 level dibawahnya (proceure). Ia tidak berpengaruh terhadap variabel 1 level diatasnya walaupun bernama sama dan akan hilang setelah menemukan perintah Return
Ketikkan di Command Window
Modify Command Latih29


Klik tombol Cancel.

VARIABEL PUBLIC

Variable ini dikenal diseluruh program dan harus dinyatakan public.






VARIABEL LOCAL

Variabel ini hanya dikenal ditempat ia di deklarasikan. Ia tidak dikenal pada level dibawahnya maupun diatasnya

Ketikkan di Command Window
Modify Command Latih31




Klik tombol Cancel.








BAB X
PENGULANGAN (LOOPING)

Pengulangan adalah proses berulang yang dilakukan oleh program selama kondisi yang ditetapkan belum terpenuhi dan akan berhenti setelah kondisi yang ditetapkan terpenuhi. Selama ini, jika kita akan membuat program untuk menampulkan kalimat AMIK STIEKOM sebanyak 3 kali, maka programnya adalah :

Set talk off
Clear
?” AMIK STIEKOM”
?” AMIK STIEKOM”
?” AMIK STIEKOM”

FOR…NEXT

Menjalankan proses pengulangan didalam pernyataan FOR dan NEXT
Ketikkan di Command Window
Modify Command Latih32



Ketikkan di Command Window
Modify Command Latih33


DO…WHILE

Menjalankan proses pengulangan didalam pernyataan DO WHILE dan ENDDO

Ketikkan di Command Window
Modify Command Latih34



Ketikkan di Command Window
Modify Command Latih35










BAB XI
PENCABANGAN (BRANCHING)

Yaitu melanjutkan jalannya program ke bagian yang ditunjuk dalam program selama kondisi yang ditetapkan terpenuhi atau kondisinya benar.

IF…ELSE…ENDIF

Menjalankan proses pencabangan diantara pernyataan IF dan ENDIF
Ketikkan di Command Window
Modify Command Latih36



Ketikkan di Command Window
Modify Command Latih37



DO CASE …ENDCASE

Menjalankan proses pencabanagan diantara pernyataan DO CASE dan ENDCASE.
Ketikkan di Command Window
Modify Command Latih38



Ketikkan di Command Window
Modify Command Latih39







BAB XII
MEMPERSINGKAT PERINTAH DAN FUNGSI

Perintah dan fungsi Visual dBASE dapat diringkas menjadi 4 (empat) huruf, misalnya :

PERINTAH
RINGKASAN
Modify Command
Modi Comm
Clear
Clea
Create Form
Crea Form
Enddo
Endd
Endcase
Endc
Transform
Tran
Close Databases
Clos Data
Do While
Do Whil
Delete
Dele
Accept
Acce
Input
Inpu
Replicate
Repl
Stuff
Stuf
Right
Righ
Rtrim
Rtri
Upper
Uppe
Substr
Subs
Lower
Lowe
Ltrim
Ltri
Round
Roun
Set Color To
Set Colo To
Set Date Italian
Set Date Ital
Set Date British
Set Date Brit
Return
Retu
Procedure
Proc
Endif
Endi
Do While
Do Whil









BAB XII
MEMBANGUN APLIKASI

Aplikasi adalah sistem yang terdiri dari form, tabel, query, report dan objek lain yang terkait antara satu dengan yang lain dalam penanganan suatu kebutuhan menejemen data. Form merupakan alat pertama yang diciptakan dalam membangun aplikasi, tempat kita meletakkan sejumlah control yang dibutuhkan dalam membentuk antar muka pemakai (user interface). Selain menggunakan Command Window, jendela Navigator dapat kita pergunakan adalah :
Jendela Form
Jendela Control Palette
Jendela Inspector

FORM

Form merupakan jendela yang dipakai sebagai tempat untuk meletakkan sejumlah control yang dibutuhkan dalam membentuk antar muka pemakai (user interface).
Kita akan membuat sebuah form dengan nama selamat. Ketikkan didalam command windows
CREATE FORM SELAMAT


CONTROL PALETTE

Merupakan jendela yang dipakai sebagai tempat untuk memilih sejumlah control yang dibutuhkan dalam membentuk antar muka pemakai.
Kita akan menambahkan control Text diatas form.
v Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum tampak, klik menu View + Control Palette
v Klik icon Text
v Klik diatas jendela Form, lalu tahan tombol mouse, kemudian geser kekanan dan kebawah, setelah itu lepaskan tombol mouse.




INSPECTOR

Merupakan jendela yang dipakai sebagai tempat untuk memilih sejumlah properti, event dan methode yang dibutuhkan dalam membentuk antar muka pemakai.
Kita akan mengganti properti Text diatas form.

v Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum tampak, klik menu View + Inspector
v Pilih tab Properties dibagian bawah Inspector
v Klik ganda pada properti yang bertanda + (tambah) atau diklik lalu tekan enter
v Pilih properti Text, lalu ketikkan
Selamat belajar visual dBASE



MENJALANKAN FORM

Ada 4 cara untuk menjalankan form, yaitu :
1. Klik menu View + Form
2. Menekan tombol F2
3. Memilih Form pada jendela Navigator, lalu klik ganda Selamat.wfm
4. Klik icon petir (run)




PROGRAM FORM

Kita juga dapat membuat form melalui program. Ketikkan di Command window
Modify Command Form


PROGRAM FORM SELAMAT

Untuk membuat form2 bernama selamat dan bertuliskan Selamat belajar visual dBASE
Ketikkan di Command window
Modify Command Form2


MODIFIKASI APLIKASI

Form Selamat.wfm yang telah kita buat sebelumnya dapat kita modifikasi. Ikuti langkah berikut ini :
q Ketikkan di jendela Command
Modify Command Selamat
q Aktifkan jendela Navigator, lalu pilih Form,
kemudian klik kanan Selamat.wfm, setelah
itu klik Design Form.
q Tekan tombol Shift + F2
q Klik icon Form Design

PROPERTI TEXT

Kita akan melakukan perubahan huruf pada form Selamat .wfm Ikuti langkah-langkah berikut ini :
q Klik object text yang akan diubah
q Aktifkan jendela Inspector dengan mengkliknya,
atau jika jendela ini belum nampak, klik menu
View + Inspector.
q Pilih tab Properties dibagian bawah jendela.
q Klik Font Bold, lalu ubah menjadi .T.
q Klik Font Italic, lalu ubah menjadi .T.
q Klik Font Name, lalu klik icon kunci disebelah
kanannya, ubah jenis huruf lalu klik OK



PROPERTI COLOR NORMAL

Kita akan memberikan warna pada huruf diatas form Selamat .wfm Ikuti langkah-langkah berikut ini :
q Klik object text yang akan diubah
q Aktifkan jendela Inspector dengan mengkliknya,
atau jika jendela ini belum nampak, klik menu
View + Inspector.
q Pilih tab Properties dibagian bawah jendela.
q Klik ColorNormal, lalu klik icon kunci disebelah
kanannya, ubah jenis huruf pada pilihan
Foreground dan Background untuk latar
belakangnya lalu klik OK



PROPERTI JUDUL FORM

Kita akan mengadakan perubahan judul form menjadi APLIKASI PERTAMAKU kepada form Selamat .wfm Ikuti langkah-langkah berikut ini :
q Klik diatas form yang tidak berisi object (tempat
yang bertitik-titik)
atau Aktifkan jendela Inspector, lalu klik icon
panah bawah disebelah atas jendela tersebut,
kemudian pilih form.
q Pilih property Text lalu ketikkan
Aplikasi Pertamaku
q Jalankan form
























BAB XIV
OBJEK TAMBAHAN

PUSH BUTTON

Push button adalah tombol yang akan menjalankan tugas tertentu apabila tombol ini di klik. Tombol ini dapat juga di ibaratkan sebagai tombol untuk membuat pilihan dalam melanjutkan proses jalannya sebuah aplikasi.

IMAGE

Image adalah objek untuk menampilkan sebuah gambar diatas form. Image yang dapat digunakan dalam Visual dBase adalah yang mempunyai ekstensi BMP (bitmap). Pada saat memilih image langkah yang dapat dilakukan adalah :
a. Pilih property Data Source, kemudian klik icon kunci disebelah kanannya.
b. Maka segera tampil jendela Data Source Property Builder.
c. Aturlah kotak combo Location menjadi File Name.
d. Klik icon kunci disebelah kanan Bitmap.
e. Pilihlah gambar yang kita inginkan di folder tertentu.
f. Klik Ok.

KOTAK DIALOG

Kotak dialog adalah konfirmasi kepada pemakai (user) untuk memilih proses yang akan dilaksanakan selanjutnya dalam aplikasi . Konfirmasi ini adalah untuk membuat keputusan sebagai berikut :

NILAI
TOMBOL
0
Ok
1
Ok dan Cancel
2
Abort dan Retry
3
Yes , No dan Cancel
4
Yes dan No
5
Retry dan Cancel

Sedangkan icon yang umumnya dipakai dalam kotak dialog adalah seperti terlihat dibawah ini .

ICON
TAMPILAN
16
Tanda seru
32
Tanda tanya
48
Tanda seru yang lain
64
Tanda konfirmasi

Ada tujuh kemungkinan jawaban yang akan diberikan oleh pemakai , yaitu :

TOMBOL YANG DI KLIK
NILAI KEMBALIAN
Ok
1
Cancel
2
Abort
3
Retry
4
Ignore
5
Yes
6
No
7


Kita akan membuat form yang bernama Dialog.wfm, ketikkan di Command Window
CREATE FORM DIALOG

Kemudian sesuaikan propertinya menurut uraian dibawah ini :

OBJEK
PROPERTY
PENGATURAN
Form
Text
Program kotak dialog

Height
18

Left
1

Top
0

Width
63

MDI
.F.



Image
Data Source
LOCATION FILENAME
BITMAP C:\VISUALDB\SAMPLES\AIRBRLND.BMP

Height
13

Left
26

Top
1

Width
37



PushButton
Name
KotakDialogPushButton

Text
Kotak Dialog

Height
2

Left
11

Top
15

Width
40



PushButton
Name
SelesaiPushButton

Text
Selesai

Height
5

Left
2

Top
3

Width
22

Memasang kode program ke event OnClick milik Tombol Selesai

Klik tombol bertuliskan Selesai, sehingga di sekelilingnya terdapat titik-tutik hitam yang disebut dengan bullet.
Pilih tab Event pada sisi bawah jendela Inspector.
Pilih OnClick di posisi paling atas.
Klik icon kunci disebelah kanannya.
Setelah jendela Procedure Editor tampil, berikan kode program dibawah ini

Form.Close()
Return


Tutup jendela Procedure Editor.


Memasang kode program ke event OnClick milik Tombol Kotak Dialog

Klik tombol bertuliskan Kotak Dialog, sehingga di sekelilingnya terdapat titik-tutik hitam yang disebut dengan bullet.
Pilih tab Event pada sisi bawah jendela Inspector.
Pilih OnClick di posisi paling atas.
Klik icon kunci disebelah kanannya.
Setelah jendela Procedure Editor tampil, berikan kode program dibawah ini

Hasil=Msgbox("Anda suka sama saya ?","Pertanyaan",4+48)
Do Case
Case Hasil=6
Msgbox("Anda katakan suka sama saya ?","Jawaban",0+16)
Case Hasil=7
Msgbox("Anda katakan benci sama saya ?","Jawaban",0+16)
EndCase
Return


Tutup jendela Procedure Editor.
Jalankan form dengan mengklik icon petir


Klik tombol bertuliskan Kotak dialog


Pilih Yes atau No


Klik Ok
Tutup form dengan mengklik tombol Selesai.

Keterangan :

Kode program yang kita berikan kepada tombol Kotak Dialog akan menjalankan tugasnya, yaitu menjalankan fungsi MsgBox() yang telah disediakan oleh Visual dBase seperti terlihat dibawah ini :

Hasil=Msgbox("Anda suka sama saya ?","Pertanyaan",4+48)

Fungsi MsgBox() memiliki 3 parameter, yaitu :

Kalimat “ Anda suka sama saya ?” merupakan parameter pertama. Hal ini berarti bila kita mengklik tombol Kotak Dialog, maka sebuah kotak dialog akan tampil dengan pesan “ Anda suka sama saya ?”
Parameter kedua akan menampilkan judul dari Kotak Dialog, yakni Pertanyaan.
Parameter ketiga adalah 4+16, yaitu :
Bilangan 4 akan menampilkan pilihan Yes dan No.
Bilangan 16 akan menampilkan icon tanda seru yang berwarna kuning.

Anda kemudian memberikan blok pertanyaan Do Case sebagai berikut :

Do Case
Case Hasil=6
Msgbox("Anda katakan suka sama saya ?","Jawaban",0+16)
Case Hasil=7
Msgbox("Anda katakan benci sama saya ?","Jawaban",0+16)
EndCase

Do Case tersebut akan menganalisa nilai yang dikembalikan oleh variable Hasil. Bila variable Hasil=6, berarti anda mengklik tombol Yes pada kotak dialog. Teapi jika variable Hasil=7, berarti anda mengklik tombol No pada kotak dialog.





BAB XV
DATA BASE

Sebelum mahasiswa duduk dibangku perkuliahan, ia diwajibkan untuk melakukan pendaftaran. Pendaftaran adalah memberikan jawaban dari formulir pertanyaan yang diberikan oleh pihak akademik kepada calon mahasiswa. Sekumpulan pertanyaan yang terdapat didalam formulir pendaftaran disebut dengan field atau kumpulan data, sedangkan jawaban yang diisikan oleh seorang calon mahasiswa kepada daftar pertanyaan (field) disebut dengan data.





TABLE STRUCTURE

Structure adalah susunan field dari sebuah database atau table. Dari ketiga buah record dari database mahasiswa dapat kita susun fieldnya sebagai berikut



MEMBUAT DATABASE

Istilah database dalam Visual dBASE adalah table. Table dapat dibuat dengan 3 cara, yaitu :
q Pada Command Window ketikkan
Create MHS
q Jika menggunakan menu
Klik File + New + Table, lalu klik icon Designer.
q Dengan Jendela Navigator
Klik kelompok table, lalu klik ganda untitled, kemudian klik icon Designer


MENGAKHIRI PEMBUATAN STRUCTURE TABLE

Jika pembuatan table telah selesai, maka dapat kita tutup dan simpan dengan mengklik menu File + Save and Close atau menekan tombol
Ctrl + W secara bersamaan

Selanjutnya akan tampil 3 pilihan tombol, yaitu :

q ADD
Pilihan ini akan membuka table yang telah disimpan dan menyisipkan sebuah record kosong untuk pengisian data, jika record kosong tersebut tidak dapat diisi, maka anda dapat menekan
Ctrl + A secara bersamaan.

q GENERATE
Pilihan ini akan mengeluarkan sejumlah record tertentu yang tidak dapat diubah. Karena selalu saja ada perubahan record dalam table, maka abaikan pilihan ini.

q DONE
Pilihan ini akan membatalkan pengisian record



FORM PENGISIAN RECORD

Ada 3 jenis form untuk pengisian record. Untuk berpindah diantara ketiganya dapat anda lakukan dengan menekan tombol F2




MENGAKHIRI PENGISIAN RECORD

Jika pembuatan table telah selesai, maka dapat kita tutup dan simpan dengan mengklik menu File + Save and Close atau menekan tombol
Ctrl + W secara bersamaan

Jika pembuatan tabel dilakukan dengan menu File+New Table, atau melalui jendela Navigator, maka pada saat menyimpan tabel anda harus memberikan nama tabel terlebih dahulu, kemudian klik OK .





BAB XVI
DATA BASE PEGAWAI

Kita akan membuat database atau tabel pegawai dengan susunan (structure) field sebagai berikut :

FIELD
NAME
TYPES
WIDTH
DEC
INDEX
1
NIP
Character
6
0
None
2
NAMA
Character
25
0
None
3
ALAMAT
Character
20
0
None
4
KOTA
Character
15
0
None
5
PRIA
Logical
1
0
None
6
TGLMSK
Date
8
0
None
7
GAJI
Numeric
8
0
None

Ketikkan pada command windows

CREATE PEGAWAI

MEMBUAT DATABASE


MENGAKHIRI PEMBUATAN STRUCTURE TABEL

Setelah selesai klik menu File + Save and Close atau tekan

CTRL + W
Jika pembuatan table telah selesai, maka dapat kita tutup dan simpan dengan mengklik menu File + Save and Close atau menekan tombol
Ctrl + W secara bersamaan

Selanjutnya akan tampil 3 pilihan tombol, yaitu :


Klik Add

FORM PENGISIAN RECORD

Ada 3 jenis form untuk pengisian record. Untuk berpindah diantara ketiganya dapat anda lakukan dengan menekan tombol F2. Jika form tidak dapat diisi record, maka tekan Ctrl + A.
Jika tanggal tidak dapat diisi, maka ketikkan di Command Windows
SET DATE ITALIAN
SET CENTURY ON



MENGAKHIRI PENGISIAN RECORD

Jika pembuatan table telah selesai, maka dapat kita tutup dan simpan dengan mengklik menu File + Save and Close atau menekan tombol
Ctrl + W secara bersamaan

Jika pembuatan tabel dilakukan dengan menu File+New Table, atau melalui jendela Navigator, maka pada saat menyimpan tabel anda harus memberikan nama tabel terlebih dahulu, kemudian klik OK





MEMBUKA TABEL TERTUTUP

Jika masih ada record yang tertinggal, maka tabel yang sudah tertutup dapat kita buka kembali dengan cara :
1. Klik menu File + Open
2. Pilih tabel yang akan dibuka
3. Klik OK

Cara kedua untuk membuka tabel adalah dengan mengetikkan di Command Window
USE PEGAWAI
BROWSE

Cara ketiga adalah dengan memilih table pada jendela Navigator, lalu klik ganda tabel yang akan dibuka


Jika pembuatan table telah selesai, maka dapat kita tutup dan simpan dengan mengklik menu File + Save and Close atau menekan tombol
Ctrl + W secara bersamaan


































BAB XVII
POINTER RECORD

Yaitu meletakkan penunjuk pada record tertentu.
Untuk melihatnya bukalah tabel Pegawai,
Use PEGAWAI
BROWSE
maka secara otomatis kita berada di record yang paling atas, berikan perintah untuk melihat nomor record
?RECNO()

Jika kita ingin melompat 2 record, maka ketikkan
SKIP 2


MAJU MENUJU RECORD TERTENTU

Jika kita ingin langsung menuju record ke 10, maka ketikkan
GOTO 10



.
MUNDUR MENUJU RECORD TERTENTU

Jika kita ingin mundur 5 record , maka ketikkan
SKIP -5


MENUJU RECORD PALING BAWAH

Jika kita langsung menuju record paling bawah, maka ketikkan
GOTO BOTTOM


MENUJU RECORD PALING ATAS

Jika kita langsung menuju record paling atas, maka ketikkan
GOTO TOP



BAB XVIII
PROGRAM LIHAT PEGAWAI

Yaitu program untuk melihat data pegawai melalui form lihatpeg.wfm (lihatpegawai)
a. Tutup semua database yang terbuka
CLOSE DATABASES
a. Buat form baru yang bernama lihatpeg
CREATE FORM LIHATPEG
a. Setelah tampil form kosong, aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
b. Klik tab Property disebelah bawah jendela Inspector
c. Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
Form
Text
Program lihat data pegawai

Left
7.66

Top
0.23

Height
20

Width
91.66

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek Rectangle dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon Rectangle
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
Rectangle
Name
Bingkai1

Left
2

Top
1

Height
14

Width
88

Text
“ ” (tekan DEL+ENTER pada keyboard)

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek Text dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon Text
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +
OBJEK
PROPERTY
NILAI
Text
Name
TeksNIP

Left
18

Top
4

Height
0.76

Width
14

Text
NIP

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek Text dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon Text
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
Text
Name
TeksNama

Left
18

Top
5

Height
0.76

Width
14

Text
Nama

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek Text dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon Text
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
Text
Name
TeksAlamat

Left
18

Top
6

Height
0.76

Width
14

Text
Alamat

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek Text dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon Text
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
Text
Name
TeksKota

Left
18

Top
7

Height
0.76

Width
14

Text
Kota

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek Text dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon Text
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
Text
Name
TeksKelamin

Left
18

Top
8

Height
0.76

Width
14

Text
Kelamin

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek Text dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon Text
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +


OBJEK
PROPERTY
NILAI
Text
Name
TeksTanggalMasuk

Left
18

Top
9

Height
0.76

Width
14

Text
Tgl. Masuk

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek EntryField dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon EntryField
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
EntryField
Name
EntriNip

Left
34

Top
4

Height
1

Width
12

Enabled
.F.

Value
“ “ (Tekan Del+Enter pada Keyboard)

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek EntryField dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon EntryField
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
EntryField
Name
EntriNama

Left
34

Top
5

Height
1

Width
12

Enabled
.F.

Value
“ “ (Tekan Del+Enter pada Keyboard)

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek EntryField dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon EntryField
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
EntryField
Name
EntriAlamat

Left
34

Top
6

Height
1

Width
30

Enabled
.F.

Value
“ “ (Tekan Del+Enter pada Keyboard)

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek EntryField dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon EntryField
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
EntryField
Name
EntriKota

Left
34

Top
7

Height
1

Width
38

Enabled
.F.

Value
“ “ (Tekan Del+Enter pada Keyboard)

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek EntryField dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon EntryField
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
EntryField
Name
EntriKelamin

Left
34

Top
8

Height
1

Width
12

Enabled
.F.

Value
“ “ (Tekan Del+Enter pada Keyboard)

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek EntryField dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon EntryField
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
EntryField
Name
EntriTanggalMasuk

Left
34

Top
9

Height
1

Width
38

Enabled
.F.

Value
“ “ (Tekan Del+Enter pada Keyboard)

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek EntryField dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon EntryField
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
EntryField
Name
EntriGaji

Left
34

Top
10

Height
1

Width
38

Enabled
.F.

Value
“ “ (tekan Del+Enter pada keyboard)

Picture
999,999,999.99

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek PushButton dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon PushButton
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
PushButton
Name
TombolPertama

Left
2

Top
17

Height
2

Width
16

Text
Pertama

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek PushButton dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon PushButton
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
PushButton
Name
TombolSebelumnya

Left
20

Top
17

Height
2

Width
16

Text
Sebelumnya

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek PushButton dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon PushButton
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +


OBJEK
PROPERTY
NILAI
PushButton
Name
TombolBerikutnya

Left
38

Top
17

Height
2

Width
16

Text
Berikutnya

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek PushButton dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon PushButton
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
PushButton
Name
TombolTerakhir

Left
38

Top
17

Height
2

Width
16

Text
Terakhir

Aktifkan jendela Control Palette dengan mengkliknya, atau jika
jendela ini belum nampak, maka kik menu View+Control Palette.
Klik ganda (double click) objek PushButton dari dalam jendela
control Palette, atau dapat juga anda lakukan dengan
• Klik icon PushButton
• Klik diatas form, jangan dilepas tombol mouse, lalu geser kekanan dan kebawah dan lepaskan tombol mouse
• Aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
• Pilih tab Properties disebelah bawah jendela Inspector
• Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
PushButton
Name
TombolSelesai

Left
74

Top
17

Height
2

Width
16

Text
Selesai

Kita akan membuat procedure buatan kita sendiri dengan nama TampilkanField,
• Pada mode perancangan (Form Design), klik menu Procedure+New Methode
• Ganti Methode menjadi TampilkanField
• Berikan kode program dibawah ini

Procedure TampilkanField
Form.EntriNip.Value=NIP
Form.EntriNama.Value=Nama
Form.EntriAlamat.Value=Alamat
Form.EntriKota.Value=Kota
If Pria=.T.
Form.EntriKelamin.Value=“Pria”
Else
Form.EntriKelamin.Value=“Wanita”
Endif
Form.EntriTanggalMasuk.Value=Tglmsk
Form.EntriGaji.Value=Gaji
Return

Kita akan membuat procedure Form_onOpen,
• Pada mode perancangan (Form Design), klik diatas form yang tidak berisi objek (ditempat yang bertitik-titik)
• Pastikan pilihan Form dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnOpen (urutan ke 19)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure Form_OnOpen
Use Pegawai
If EOF()
MsgBox(“Tidak ada data”,”Perhatian”,0+64)
Form.Close()
Endif
Form.TampilkanField()
Form.TombolPertama.SetFocus()
Return

Kita akan membuat procedure Form_onClose,
• Pada mode perancangan (Form Design), klik diatas form yang tidak berisi objek (ditempat yang bertitik-titik)
• Pastikan pilihan Form dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClose (urutan ke 5)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure Form_OnClose
Close Databases
Return

Kita akan membuat procedure TombolPertama_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Pertama
• Pastikan pilihan TombolPertama dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure TombolPertama_OnClick
Goto Top
Form.TampilkanField()
Return

Kita akan membuat procedure TombolSebelumnya_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Sebelumnya
• Pastikan pilihan TombolSebelumnya dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure TombolSebelumnya_OnClick
Skip -1
If BOF()
Goto Top
Endif
Form.TampilkanField()
Return

Kita akan membuat procedure TombolSebelumnya_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Berikutnya
• Pastikan pilihan TombolBerikutnya dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure TombolBerikutnya_OnClick
Skip 1
If EOF()
Goto Bottom
Endif
Form.TampilkanField()
Return

Kita akan membuat procedure TombolTerakhir_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Terakhir
• Pastikan pilihan TombolTerakhir dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure TombolTerakhir_OnClick
Goto Bottom
Form.TampilkanField()
Return

Kita akan membuat procedure TombolSelesai_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Selesai
• Pastikan pilihan TombolSelesai dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure TombolSelesai_OnClick
Close Databases
Form.Close()
Return




















BAB XIX
PENGOLAHAN TABEL

Data-data dalam table dapat kita olah sebagai berikut

MENGGANTI DATA

Jika kita ingin mengganti data kota dari Ali Ahmadi menjadi Belawan, maka ketikkan :
Replace kota with “Belawan”



Jika kita ingin menaikkan semua gaji Pegawai sebesar 10 %, maka ketikkan
Replace gaji with 1.1*gaji ALL


MENGHAPUS DATA

Penghapusan record ada 2, yaitu
• Penghapusan sementara, yaitu record yang terhapus dapat dikembalikan.
• Penghapusan permanen, yaitu record yang terhapus tidak dapat dikembalikan.

Selain itu kita akan mengenal perintah pengaturan dalam penghapusan record, yaitu
• Set delete off, yaitu perintah untuk memberikan tanda kali (X) untuk record yang terhapus, sehingga untuk mengembalikannya cukup dengan mengklik tanda kali tersebut untuk mengembalikannya.
• Set delete on, yaitu perintah untuk tidak memberikan tanda kali (X) untuk record yang terhapus

Kita akan menghapus pegawai yang bernama Ali Ahmadi, ketikkan di Command Window

Goto 1
Delete


MENGEMBALIKAN DATA YANG TERHAPUS

Kita akan mengembalikan pegawai yang bernama Ali Ahmadi, ketikkan di Command Window

Goto 1
Recall


Menghapus record dengan perintah pengaturan , ketikkan di Command Window

Set Delete Off
Goto 1
Delete


Mengembalikan record yang terhapus dengan perintah pengaturan , klik pada tanda silang untuk menghilangkannya, kemudian ketikkan di Command Window

Set Delete On



Untuk melakukan penghapusan secara permanen, kita
gunakan perintah Exclusive pada saat mengaktifkan tabel.

Close databases
Use Karyawan Exclusive
Browse
Delete
Pack


Untuk melakukan penghapusan semua record sekali gus
secara permanen, kita gunakan perintah Exclusive pada saat
mengaktifkan tabel.

Close databases
Use Karyawan Exclusive
Browse
Zap














































BAB XX
PROGRAM EDIT DATA PEGAWAI

Yaitu program untuk memperbaiki data pegawai melalui form
editpeg.wfm (edit pegawai)
a. Tutup semua database yang terbuka
CLOSE DATABASES
a. Gandakan (copy) dan ubah form lihatpeg menjadi editpeg
Ketikkan di Command Window
copy file Lihatpeg.wfm to Editpeg.wfm


Perbaiki form Editpeg.wfm dengan mengetikkan pada Command Windows
Modify Form Editpeg
Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, maka kik menu
View+Control Palette
Klik ganda (double click) objek PushButton dari dalam Jendela control Palette, kemudian sesuaikan propertinya sebagai berikut

OBJEK
PROPERTY
NILAI
PushButton
Name
TombolHapus

Left
56

Top
13

Height
2

Width
32

Text
“Menghapus record ini ”

Kita akan membuat procedure TombolHapus_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Menghapus record ini
• Pastikan pilihan TombolHapus dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure TombolHapus_OnClick
Jawaban=MsgBox(“Anda yakin ?”,”Menghapus record ini”,4+16)
If Jawaban<>6
Msgbox(“Record tidak jadi dihapus”,”Perhatian”,0)
Return
Else
Delete
Msgbox(“Record tersebut sudah dihapus”,”Perhatian”,0)
Skip -1
If BOF()
Goto Top
Endif
If EOF()
Msgbox(“Record sudah habis”,”Perhatian”,0)
Endif
Endif
Form.TampilkanField()
Return























BAB XXI
INDEX

Yaitu suatu cara untuk mengurutkan record.
Ada 3 cara untuk melaksanakan pengurutan, yaitu :
• Ascend, yaitu pengurutan record dari data yang terkecil sampai data yang terbesar
• Descend, yaitu pengurutan record dari data yang terbesar sampai data yang terkecil
• None, yaitu tidak ada pengurutan record


Untuk melakukan indek, kita harus merubah susunan (structure) field dari database, untuk itu ketikkan di Command Windows
Modify structure
Pilih Pegawai.dbf
Klik OK
Klik Open Exclusive



Ubahlah index dari field NIP dan Nama menjadi Ascend.
Kemudian simpan dengan menekan tombol
CTRL+W

Untuk menggunakan index dari field NIP, kita harus memesannya terlebih dahulu. Untuk itu ketikkan di Command Windows
SET ORDER TO NIP
Kemudin berikan perintah untuk melihat record
BROWSE


Tutuplah jendela Browse
Untuk menggunakan index dari field NAMA, kita harus memesannya terlebih dahulu. Untuk itu ketikkan di Command Windows
SET ORDER TO NAMA
Kemudin berikan perintah untuk melihat record
BROWSE


Guna dari Index adalah untuk mempercepat pencarian.
Tutuplah jendela Browse
Untuk mencari pegawai yang bernama Ririn ketikkan di Command Windows
SEEK “Ririn”
Kemudin berikan perintah untuk melihat record
BROWSE


Tutuplah jendela Browse
Untuk mencari pegawai yang nipnya 123460 ketikkan di Command Windows
SET ORDER TO NIP
SEEK “123460”
Kemudin berikan perintah untuk melihat record
BROWSE


Tutuplah jendela Browse
Cara untuk mencari record dalam index berbeda untuk jenis data yang ada, perhatikan tabel dibawah ini

TYPE DATA
PERINTAH
KETERANGAN
Character
Seek “ALI”
Pakai petik ganda
Character
Seek ‘ALI’
Pakai petik tunggal
Numeric
Seek 15
Tidak pakai tanda
Date
Seek {12/06/80}
Pakai kurung kurawal

Jenis data Numeric
Ubahlah field Gaji menjadi Ascend, lalu simpan
dengan Ctrl+W, lalu untuk mencari record yang
gajinya 200000, maka ketik di Command Window
set order to gaji
seek 220000
BROWSE


Jenis data Date
Ubahlah field Tglmsk menjadi Ascend, lalu simpan
dengan Ctrl+W, lalu cari record yang bertanggal
01/02/90, maka ketik di Command Window
set order to tglmsk
seek 01/02/90
BROWSE


Bila kita bermaksud mencari suatu data bertype character pada field yang telah terindex, maka kita perlu memperhatikan efek dari keadaan Set Exact. Ketiklah di Command Window
Use Pegawai
set order to NIP
Set exact off
Seek “12”
?found()


Perhatikan dijendela Command sebelah bawah, pencarian tersebut menghasilkan nilai .T. artinya data yang dicari ditemukan, pada hal tidak ada NIP pegawai yang 12. Hal ini karena set exact off mencari data yang mempunyai nilai yang diawali dengan 12. Tidak demikian halnya jika digunakan Set Exact On. Ketiklah di Command Window
Use Pegawai
set order to NIP
Set exact on
Seek “12”
?found()























BAB XXII
MEMBUAT LABEL NAMA

Label nama atau badge (name pad) yaitu kartu yang memuat keterangan tentang diri pegawai yang biasanya memuat photo dari pegawai tersebut.
Untuk memuat photo kedalam table, ikuti pertunjuk berikut ini :
• Tutup database yang terbuka
CLOSE DATABASES
• Klik Table pada jendela Navigator
• Klik kanan pada PEGAWAI.DBF
• Klik menu Design Table Structure
• Tekan panah bawah pada keyboard sampai mentok
• Ketikkan field PHOTO
• Berikan typenya dengan BINARY



Kemudian klik ganda field photo
Ali Ahmadi

Pilih Image Viewer
Kemudian klik OK



Klik menu File + Insert From File
Pilih lokasi gambar anda,
Klik OK


Atau anda juga dapat mengambil gambar dari
Office Collection, langkah-langkahnya adalah :
Jalankan Word
Klik menu Insert+Picture+Clip Art
Klik icon Organize Clips
Klik tanda + Office Collection
Klik Academic
Klik kanan pada gambar orang sedang membaca
Klik Copy
Klik Visual dBASE pada layar bagian bawah
Klik kanan didalam jendela IMAGE VIEWER
Klik Paste


Lanjutkan untuk photo record berikutnya
Simpanlah jika photo telah selesai dengan Ctrl+W
Buatlah form baru yang bernama Label
CREATE FORM LABEL
Aktifkan Jendela Inspector, lalu Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
Form
View
Pegawai.dbf

Height
17.69

Width
49.87

Left
41

Text
Program Label

Color Normal


Top
2

Aktifkan Jendela Control Palette, lalu klik ganda objek Text.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
Text
Height
1

Width
15

Left
1

FontName
Arial

Text
Nama

FontSize
12

ColorNormal


Top
3

Aktifkan Jendela Control Palette, lalu klik ganda objek EntryField.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
EntryField
Height
1

Width
27

Left
17

FontName
Arial

FontSize
10

DataLink
PEGAWAI->NAMA

ColorNormal


Top
3

Aktifkan Jendela Control Palette, lalu klik ganda objek Text.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
Text
Height
1

Width
15

Left
1

FontName
Arial

FontSize
12

Text
Kota

ColorNormal


Top
7

Aktifkan Jendela Control Palette, lalu klik ganda objek EntryField.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
EntryField
Height
1

Width
17

Left
17

FontName
Arial

FontSize
10

DataLink
PEGAWAI->KOTA

ColorNormal


Top
7

Aktifkan Jendela Control Palette, lalu klik ganda objek Text.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
Text
Height
2

Width
15

Left
1

FontName
Arial

FontSize
12

Text
Tgl. Masuk

ColorNormal


Top
5

Aktifkan Jendela Control Palette, lalu klik ganda objek EntryField.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
EntryField
Height
1

Width
11

Left
17

FontName
Arial

FontSize
10

DataLink
PEGAWAI->TGLMSK

ColorNormal


Top
5

Aktifkan Jendela Control Palette, lalu klik ganda objek Text.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
Text
Height
1

Width
15

Left
1

FontName
Arial

FontSize
12

Text
Alamat

ColorNormal


Top
6

Aktifkan Jendela Control Palette, lalu klik ganda objek EntryField.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
EntryField
Height
1

Width
27

Left
17

FontName
Arial

FontSize
10

DataLink
PEGAWAI->ALAMAT

ColorNormal


Top
6

Aktifkan Jendela Control Palette, lalu klik ganda objek Text.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
Text
Height
1

Width
15

Left
1

FontName
Arial

FontSize
12

Text
Gaji

ColorNormal


Top
8

Aktifkan Jendela Control Palette, lalu klik ganda objek SpinBox.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
SpinBox
Height
1

Width
17

Left
17

FontName
Arial

FontSize
10

DataLink
PEGAWAI->GAJI

ColorNormal


Top
8

Aktifkan Jendela Control Palette, lalu klik ganda objek Text.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
Text
Height
1

Width
15

Left
1

FontName
Arial

FontSize
10

DataLinkText
Photo

ColorNormal


Top
9

Aktifkan Jendela Control Palette, lalu klik ganda objek Image.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
Image
Height
7

Width
27

Left
17

DataSource
BINARY PEGAWAI->PHOTO

ColorNormal


Top
10

Aktifkan Jendela Control Palette, lalu klik ganda objek Text.
Kemudian aktifkan jendela Inspector dan
Pilih Properti sbb :

OBJEK
PROPERTY
PENGATURAN
Text
Height
2

Width
46

Left
1

FontName
Arial

Text
Pegawai

FontSize
22

FontItalic
.T.

Top
0.5

ColorNormal













BAB XXIII
INDEX LANJUTAN

Kita telah merubah index dari field NIP dan Nama menjadi Ascend.
Sekarang kita akan menggabungkan keduanya (NIP+NAMA) kedalam sebuah index baru


• Tutuplah semua tabel yang terbuka
CLOSE DATABASES
• Buka tabel Pegawai secara exclusive
USE PEGAWAI EXCLUSIVE
• Klik menu Structure+Manage Indexes
• Klik New
• Setelah tampil jendela Define Index
• Pilih field NIP
• Klik tombol lebih besar (<)
• Pilih field Nama
• Klik tombol lebih besar (<)
• Klik kotak Index Name
• Ketikkan NIP_NAMA
• Klik tombol OK
• Klik tombol OK
• Simpan dengan menekan CTRL+W


Jika kita ingin membuat index dari jenis field yang bukan character atau yang merupakan gabungan dari 2 field dengan jenis data yang berbeda, kita harus mengkonversikannya (mengubah jenis datanya) menjadi character
Misalnya :
NIP+str(Gaji





Setelah kita mempelajari tentang index lanjutan, maka akan kita lanjutkan dengan operasi perhitungn terhadap Field dan record.
Untuk menjumlahkan suatu field tertentu yang bertipe numerik, kita dapat gunakan perintah SUM, ketikkan di Command Window :
SUM GAJI

• Bila ingin menghitung gaji pegawai wanita
SUM GAJI FOR .NOT. PRIA
• Bila ingin menghitung gaji pegawai pria
SUM GAJI FOR PRIA



Untuk menjumlahkan semua record, kita dapat juga menggunakan variabel, misalnya JLH
COUNT
COUNT TO JLH
?JLH
Sedangkan untuk menghitung jumlah pegawai pria
COUNT FOR PRIA=.T.
COUNT FOR PRIA=.T. TO JLHPRIA
?JLHPRIA
Cara lain untuk menghitung jumlah pria adalah dengan menggunakan perintah SET FILTER TO
SET FILTER TO PRIA=.T.
BROWSE
COUNT TO JLHPRIA
?JLHPRIA
SET FILTER TO
BROWSE
Jika kita menggunakan perintah set filter (penyaringan record), maka setelah selesai perhitungan, maka kita harus membatalkan penyaringan record artinya mengaktifkan seluruh record dalam tabel dengan perintah
SET FILTER TO
Untuk menghitung nilai rata-rata dari gaji
AVERAGE GAJI TO RATA
?RATA
Kita juga dapat menggunakan perintah
CALCULATE ()
Contoh :
CALCULATE AVG(GAJI)
CALCULATE MIN(GAJI)
CALCULATE MAX(GAJI)
CALCULATE MAX(NIP) TO MNIP
?NIP

NAMA FUNGSI
KETERANGAN
AVG ()
Rata-rata dari field numeric
CNT () ()
Jumlah record
MIN () ()
Nilai terkecil
MAX () ()
Nilai terbesar

BAB XXIV
PROGRAM BROWSE 1

Yaitu program untuk melihat data pegawai melalui form

a. Buat form baru yang bernama browse1
CREATE FORM BROWSE1
b. Setelah tampil form kosong, aktifkan jendela Inspector dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Inspecor
c. Klik tab Property disebelah bawah jendela Inspector
d. Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
Form
View
PEGAWAI.DBF

Height
24.79

Width
119,37

Left
0.25

Text
Pengolahan Tabel

Top
0.04

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Text
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
0.73

Width
9.16

Left
3.83

Text
Nama

Top
1.46

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Text
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
0.75

Width
12.12

Left
63.87

Text
Tanggal lahir

Top
1.69

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek EntryField
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Height
1.01

Width
34.96

Left
20.16

DataLink
PEGAWAI->NAMA

Top
1.58

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek SpinBox
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
SpinBox
Height
1

Width
14.87

Left
82.5

DataLink
PEGAWAI->TGLMSK

Top
1.54

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Browse
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Browse
Height
8

Width
115.62

Left
0.37

Alias
PEGAWAI

Top
3.44

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek PushButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
PushButton
Height
1.10

Width
11.83

Left
3.16

Text
&Sebelum

Top
14.29

Name
PREV

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek PushButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
PushButton
Height
1.08

Width
11.83

Left
3.16

Text
&Berikutnya

Top
16.11

Name
NEXT

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek PushButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
PushButton
Height
1.08

Width
11.83

Left
20

Text
&Tambah

Top
14.41

Name
NEW

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek PushButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
PushButton
Height
1.08

Width
11.83

Left
20

Text
&Hapus

Top
16.05

Name
DELETE

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Rectangle
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property



OBJEK
PROPERTY
NILAI
Rectangle
Height
5

Width
22

Left
35.5

Text
Urut berdasarkan

Top
14.29

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek RadioButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
RadioButton
Height
1.12

Width
12.46

Left
36.66

Text
Nama

Top
15.17

Name
Nama

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek RadioButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
RadioButton
Height
1.11

Width
17.5

Left
37

Text
NIP

Top
17.17

Name
NIP

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Image
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Image
Height
12

Width
40

Left
76

Top
12

DataSource
Location->Binary
Pegawai->Photo

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek PushButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
PushButton
Height
1

Width
12

Left
12

Text
T&utup

Top
18

Name
TUTUP

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
d. Klik ganda objek PushButton
e. Aktifkan jendela Inspector
f. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
PushButton
Height
1.10

Width
11.83

Left
3.16

Text
&Edit

Top
17.92

Name
EDIT

Kita akan membuat procedure PREV_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Sebelum
• Pastikan pilihan form.prev dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure PREV_OnClick
Skip -1
If BOF()
Goto Top
MsgBox(“Record paling awal”,”Info”)
Endif

Kita akan membuat procedure NEXT_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Berikut
• Pastikan pilihan form.next dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure NEXT_OnClick
Skip
If EOF()
Goto Bottom
MsgBox(“Record paling akhir”,”Info”)
Endif

Kita akan membuat procedure NEW_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Tambah
• Pastikan pilihan form.new dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure NEW_OnClick
Append blank
Form.browse1.setfocus()

Kita akan membuat procedure DELETE_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Hapus
• Pastikan pilihan form.delete dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure DELETE_OnClick
If(.not. Eof() .and. (Msgbox(“Hapus data ?”, ”konfirmasi”,3)=6))
delete
skip
Endif

Kita akan membuat procedure NAMA_OnGotFocus
• Pada mode perancangan (Form Design), klik Tombol Radio bertuliskan NAMA
• Pastikan pilihan form.nama dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnGotFocus (urutan ke 3)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure NAMA_OnGotFocus
SET ORDER TO NAMA

Kita akan membuat procedure NIP_OnGotFocus
• Pada mode perancangan (Form Design), klik Tombol Radio bertuliskan NIP
• Pastikan pilihan form.nip dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnGotFocus (urutan ke 3)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini


Procedure NIP_OnGotFocus
SET ORDER TO NIP

Kita akan membuat procedure EDIT_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Edit
• Pastikan pilihan form.edit dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure EDIT_OnClick
Form.Browse1.SetFocus()

Kita akan membuat procedure TUTUP_OnClick
• Pada mode perancangan (Form Design), klik PushButton bertuliskan Tutup
• Pastikan pilihan form.tutup dibawah judul jendela Inspector
• Pilih tab Event disebelah bawah jendela Inspector
• Pilih OnClick (urutan ke 1)
• Klik icon kunci desebelah kanannya
• Setelah tampil jendela Procedure Editor, Kemudian berikan kode program dibawah ini

Procedure TUTUP_OnClick
Form.Close()
Return












BAB XXV
TABEL MAJEMUK

Yaitu pengolahan lebih dari satu tabel yang saling berhubungan (relation) antara satu tabel dengan table yang lain.
a. Tutup semua database yang terbuka
CLOSE DATABASES
a. Buat tabel baru yang bernama DEPART
CREATE DEPART
a. Sesuaikan nama fieldnya menurut tabel dibawah ini
b. Simpanlah dengan menekan tombol CTRL+W


a. Klik Add
b. Kemudian isikan record-recordnya
c. Simpan dengan menekan
CTRL+W



• Buat tabel baru yang bernama TRAINING
CREATE TRAINING
• Sesuaikan nama fieldnya menurut tabel dibawah ini
• Simpanlah dengan menekan tombol CTRL+W


a. Klik Add
b. Kemudian isikan record-recordnya
c. Jika tanggal tidak dapat diketik dengan format dd/mm/yyyy, maka tutup dahulu jendela table record anda. Kemudian ketikkan di command window
SET DATE BRITISH atau SET DATE ITALIAN
SET CENTURY ON
BROWSE
a. Jika telah selesai, simpan dengan menekan
CTRL+W




WORK AREA

Area kerja (Work Area) adalah daerah pada memori komputer yang ditempati tabel pada saat terbuka (aktif). Jumlah area kerja yang disediakan oleh VisualdBASE ada 255. Penomoran area kerja dimulai dari angka 1. Selain angka, kita juga dapat menggunakan huruf A sampai Z. Sekalipun terdapat 255 area kerja, namun hanya satu area kerja yang dinamakan sebagai area kerja aktif. Untuk membuka area kerja kita gunakan perintah SELECT
• Bukalah area kerja pertama
SELECT 1
• Aktifkan tabel Pegawai diarea tersebut
USE PEGAWAI
• Bukalah area kerja kedua
SELECT 2
• Aktifkan tabel Training diarea tersebut
USE TRAINING

· Bukalah area kerja ketiga
SELECT 3
· Aktifkan tabel Depart diarea tersebut
USE DEPART
· Untuk melihat tabel yang aktif saat ini
?DBF()
· Aktifkan area kerja kedua
SELECT 2
· Untuk melihat tabel yang aktif saat ini
?DBF()
· Aktifkan area kerja pertama
SELECT 1
· Untuk melihat tabel yang aktif saat ini
?DBF()

· Bukalah area kerja ketiga
SELECT 3
· Tutup tabel diarea tersebut
USE
· Aktifkan area kerja kedua
SELECT 2
· Tutup tabel yang aktif saat ini
USE
· Aktifkan area kerja pertama
SELECT 1
· Tutup tabel yang aktif saat ini
USE

RELATION

Dalam ketiga tabel majemuk ada terdapat sebuah field yang berada di ketiga tabel tersebut, yaitu NIP.
Field ini disebut dengan Field Relasi. Dalam tabel DEPART, kita akan membuat seolah-olah tabel ini mempunyai field nama dan alamat , pada hal field ini tidak ada dalam susunan (structure) field dari tabel DEPART.
• Bukalah area kerja pertama
SELECT 1
• Aktifkan tabel Pegawai diarea tersebut
USE PEGAWAI
• Pesan index NIP
SET ORDER TO NIP
• Buka area kerja kedua
SELECT 2
• Aktifkan tabel Depart di area tersebut
USE DEPART

• Relasikan field NIP kepada tabel Pegawai
SET RELATION TO NIP INTO PEGAWAI
• Lihat record dari tabel Depart
BROWSE FIELD KODE_DEPT, NAMA_DEPT,;
PEGAWAI->NAMA, PEGAWAI->ALAMAT



PROGRAM RELASI 1

Yaitu program untuk melihat relasi anatara tabel Pegawai dan Training melalui form
a. Tutup semua database yang terbuka
CLOSE DATABASES
b. Buat form baru yang bernama Relasi1
CREATE FORM RELASI1
c. Setelah tampil form kosong, aktifkan jendela Inspector dengan mengkliknya, atau
jika jendela ini belum nampak, klik menu View+Inspecor
d. Klik tab Property disebelah bawah jendela Inspector
e. Klik dan enter semua property yang betanda +

OBJEK
PROPERTY
NILAI
Form
Left
5.16

Top
0

Height
16.17

Width
94.83

Text
Program Relasi1

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Browse
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Browse
Name
BrowsePegawai

Left
2

Top
1

Height
7

Width
90

Text
DAFTAR PEGAWAI

Visible
.F.

Modify
.F.

Append
.F.

Deleted
.F.

Tonggle
.F.

ShowDeleted
.F.

Show Heading
.F.

ShowRecNo
.F.

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Browse
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Browse
Name
BrowseTraing

Left
2

Top
9

Height
6

Width
74

Text
DAFTAR PELATIHAN

Visible
.F.

Modify
.F.

Append
.F.

Deleted
.F.

Tonggle
.F.

ShowDeleted
.F.

Show Heading
.F.

ShowRecNo
.F.

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Custom
b. Klik ganda objek CloseButton
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Close Button
Name
TombolSelesai

Left
78

Top
13

Height
1.52

Width
14.16

Text
&Selesai

SpeedTip
Mengakhiri Form

Memberikan kode kejadian Form_OnOpen
Klik pada form yang tidak berisi objek (ditempat yang bertitik-
titik)
a. Aktifkan jendela Inspector
b. Pastikan form dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnOpen (urutan ke 19)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Procedure Form_OnOpen
SELECT 1
USE PEGAWAI
SET ORDER TO NIP
SELECT 2
USE TRAINING
SET ORDER TO NIP
SELECT PEGAWAI
SET RELATION TO NIP INTO TRAINING CONSTRAIN
FORM.BROWSEPEGAWAI.ALIAS="PEGAWAI"
FORM.BROWSETRAINING.ALIAS="TRAINING"
FORM.BROWSEPEGAWAI.VISIBLE=.T.
FORM.BROWSETRAINING.VISIBLE=.T.
RETURN

Memberikan kode kejadian Form_OnClose.
Klik pada form yang tidak berisi objek (ditempat yang bertitik-titik)
a. Aktifkan jendela Inspector
b. Pastikan form dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnClose (urutan ke 5)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Procedure Form_OnClose
CLOSE DATABASES
Return

Jalankan form, lalu klik panah bawah pada keyboard berulang-ulang sampai tampil record pada tabel Training yang mempunya relasi kepada tabel Pegawai.


Penjelasan :

CONSTRAIN merupakan perintah untuk memilih record yang memiliki persamaan data dalam field NIP antara Pegawai.dbf dengan Training.dbf






































BAB XXVI
QUERY

Yaitu sekumpulan perintah untuk memilih, menyaring dan mengatur record dari satu atau beberapa tabel.
a. Tutup semua database yang terbuka
CLOSE DATABASES
b. Aktifkan tabel Pegawai sebagai tabel pertama dan disebut sebagai tabel orang tua
(parent table)
USE PEGAWAI
c. Buatlah query tehadap tabel Pelat,dbf
CREATE QUERY PELAT
d. Setelah tampil jendela Open Table Required, buka Tabel Anak (Child Table)
Klik menu Query + Add Table
e. Setelah tampil jendela Open Table Required, akan nampak dalam Table File Name
Table Depart.dbf
Table Pegawai.dbf
Table Training.dbf
f. Klik table Training.dbf
g. Klik OK

Untuk membentuk relasi antara kedua tabel tersebut
Klik Query + Set Relation
Pada bagian tengah dari jendela Define Relation terdapat 3 pilihan, yaitu :
• Every Parent
• One to Many
• Enforce Integrity

Dari ketiga pilihan diatas, yang perlu kita lakukan adalah klik pada kotak Every Parent supaya bertanda silang seperti kotak One to Many.
• Selanjutnya Klik OK
• Simpan dengan menekan CTRL + W
Maka kita akan memperoleh sebuah file Query
PELAT.QBE



PROGRAM RELASI 2

Kita akan membuat form yang bernama RELASI2.WFM
a. Tutup semua tabel yang aktif
CLOSE DATABASES
b. Buat form baru yang bernama RELASI2
CREATE FORM RELASI2
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Form
Left
5.16

Top
0

Height
16.17

Width
94.83

Text
Program Relasi2

View
PELAT.QBE

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Browse
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Browse
Name
BrowsePegawai

Left
2

Top
1

Height
7

Width
90

Text
DAFTAR PEGAWAI

Visible
.T.

Modify
.F.

OBJEK
PROPERTY
NILAI
Browse
Append
.F.

Deleted
.F.

Tonggle
.F.

ShowDeleted
.F.

Show Heading
.F.

ShowRecNo
.F.

Alias
PEGAWAI

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Browse
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property


OBJEK
PROPERTY
NILAI
Browse
Name
BrowseTraining

Left
2

Top
9

Height
6

Width
74

Text
DAFTAR PELATIHAN

Visible
.T.

Modify
.F.

OBJEK
PROPERTY
NILAI
Browse
Append
.F.

Deleted
.F.

Tonggle
.F.

ShowDeleted
.F.

Show Heading
.F.

ShowRecNo
.F.

Alias
TRAINING

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Custom
b. Klik ganda objek CloseButton
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Close Button
Name
TombolSelesai

Left
78

Top
13

Height
1.52

Width
14.16

Text
&Selesai

SpeedTip
Mengakhiri Form

Memberikan kode kejadian Form_OnClose
Klik pada form yang tidak berisi objek (ditempat yang bertitik-
titik)
a. Aktifkan jendela Inspector
b. Pastikan form dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnClose (urutan ke 5)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Procedure Form_OnClose
CLOSE DATABASES
Return
































BAB XXVII
NILAI INKEY DAN ASCII

Yaitu nilai tombol pada keyboard yang diberikan oleh komputer jika tombol tersebut ditekan. Nilai inkey dapat anda lihat pada tabel dibawah ini.

TOMBOL
ALTERNATIF
NILAI
ENTER atau RETURN
-
13
ESC atau ESCAPE
-
27
BS atau BACKSPACE
-
8
PANAH KANAN →
CONTROL + D
4
PANAH KIRI ←
CONTROL + S
19
PANAH ATAS ↑
CONTROL + E
5
PANAH BAWAH ↓
CONTROL + X
24
CONTROL+ PANAH KANAN
CONTROL + B
2
CONTROL + PANAH KIRI
CONTROL + Z
26
INS atau INSERT
CONTROL + V
22
DEL atau DELETE
CONTROL + G
7
HOME
CONTROL + A
1
END
CONTROL + F
6
PG UP atau PAGE UP
CONTROL + R
18
PG DN atau PAGE DOWN
CONTROL + C
3
CONTROL + HOME
CONTROL + ]
29
CONTROL + END
CONTROL + W
23
CONTROL + PAGE UP
CONTROL+ HYPEN (-)
31
CONTROL + PAGE DOWN
-
30
TAB atau TABULASI
-
9

Kita akan membuat form bernama tombol.
• Ketikkan di jendela Command
CREATE FORM TOMBOL
• Aktifkan jendela Inspector
• Klik dan enter semua yang bertanda +
• Klik tab property
• Sesuaikan semua property menurut daftar dibawah ini

OBJEK
PROPERTY
NILAI
Form
Left
28.83

Top
0

Height
12.89

Width
73.67

Text
Program tombol inkey

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda Text
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
1.5

Width
70

Text
Ketik sembarang tombol atau kombinasi tombol

Left
2

Top
1

Alignment
4

FontSize
12

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda Text
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
1.5

Width
56

Text
Tekan ESCAPE 2 X bila selesai

Left
2

Top
10

Alignment
4

FontSize
14

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda Text
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
1.5

Width
24

Text
Karakter tombol

Left
10

Top
4

Alignment
4 - Center

FontSize
14


Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda EntryField
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Height
2

Width
13

Left
36

Top
3.5

Value
“” (tekan del + enter)

FontSize
16

Name
Tombol

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda Text
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
2

Width
24

Text
Nilai inkey dan ASCII

Left
10

Top
7

Value
“” (tekan del + enter)

FontSize
10

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda EntryField
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Height
2.5

Width
13

ColorNormal
W+/B

Left
36

Top
6.5

Value
“” (tekan del + enter)

FontSize
16

Name
Nilai

Memberikan kode kejadian Form_OnOpen
Klik pada form yang tidak berisi objek (ditempat yang bertitik-titik)
a. Aktifkan jendela Inspector
b. Pastikan form dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnOpen (urutan ke 19)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Procedure Form_OnOpen
SET TALK OFF
DO WHILE .T.
X=inkey(0)
form.tombol.value=chr(x)
form.nilai.value=str(x)
if x=27
exit
endif
enddo
Return



































BAB XXVIII
LAPORAN

Yaitu hasil akhir dari proses pengolahan data yang akan disajikan kepada pihak menejemen perusahaan, baik intern maupun extern untuk menilai kinerja perusahaan dan sebagai alat untuk mengambil keputusan.
Laporan harus dicetak diatas kertas dengan menggunakan pencetak (printer). Sebelum pencetakan dilaksanakan sebaiknya hasilnya dilihat lebih dulu dilayar (print preview). Kita akan membuat program aplikasi cetak layar.

• Buat form dengan nama Layar.
CREATE FORM LAYAR
• Klik OK
a. Aktifkan jendela Inspector
b. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Form
ScrollBar
1

Text
Program Cetak Layar

ScaleFontName
CourierNew

Left
0.73

Top
0

Height
23.54

Width
109.29

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Text
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
1.5

Width
30

Text
Laporan Pegawai

Left
35

Top
0

FontName
Times New Roman

FontSize
15

Alignment
4

Name
LaporanText

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda PushButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
PushButton
Text
&Proses

Left
24

Top
3

FontSize
10

ColorNormal
N/0x808040

Height
2

Width
16

UpBitmap
Resource#1040

Name
CetakPegawaiButton

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda PushButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
PushButton
Text
&Tutup

Left
60

Top
3

FontSize
10

ColorNormal
N/0x808040

Height
2

Width
16

UpBitmap
Resource#1005

Name
BatalButton

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda Editor
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Ediitor
Left
2

Top
6

FontName
Courier New

ColorNormal
W+/B+

Height
17

Width
106

Wrap
.F.

Name
PegawaiEditor

Memberikan kode kejadian BatalButton_OnClick
Klik pada pushbutton bertuliskan &Tutup
a. Aktifkan jendela Inspector
b. Pastikan form.batalbutton dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnClick (urutan ke 1)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Procedure BatalButton_OnClick
CLOSE DATABASES
FORM.CLOSE()
Return

Memberikan kode kejadian CetakPegawaiButton_OnClick

a. Aktifkan jendela Inspector
b. Pastikan form.cetakpegawaibutton dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnClick (urutan ke 1)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini



CETAK KE PRINTER

Kita akan membuat program aplikasi cetak ke printer

• Buat form dengan nama Printer.
CREATE FORM PRINTER
a. Aktifkan jendela Inspector dengan mengklik menu View + Inspector
b. Klik tab Properti
c. Klik dan tekan Enter semua property bertanda +
d. Sesuaikan semua Properti menurut pengaturan berikut ini

OBJEK
PROPERTY
NILAI
Form
ScrollBar
1

Text
Program Cetak ke Printer

ScaleFontName
CourierNew

Left
15.75

Top
0

Height
6.69

Width
69

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Text
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
2

Width
62

Text
Cetak Laporan Pegawai

Left
4

Top
0

FontName
Times New Roman

FontSize
15

Alignment
4

Name
PegawaiText

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda PushButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
PushButton
Text
&Proses

Left
14

Top
3

FontSize
10

ColorNormal
N/0x808040

Height
2

Width
16

UpBitmap
Resource#1040

Name
CetakPegawai

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda PushButton
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
PushButton
Text
&Tutup

Left
40

Top
3

FontSize
10

ColorNormal
N/0x808040

Height
2

Width
16

UpBitmap
Resource#1005

Name
BatalButton

Memberikan kode kejadian BatalButton_OnClick
Klik pada pushbutton bertuliskan &Tutup
a. Aktifkan jendela Inspector
b. Pastikan form.batalbutton dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnClick (urutan ke 1)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Procedure BatalButton_OnClick
CLOSE DATABASES
FORM.CLOSE()
Return

Memberikan kode kejadian CetakPegawaiButton_OnClick

a. Aktifkan jendela Inspector
b. Pastikan form.cetakpegawai dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnClick (urutan ke 1)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini



















BAB XXIX
ARRAY

Yaitu jajaran variabel yang bernama sama. Yang membedakan array yang satu dengan yang lain adalah nomor elemen yang diapit oleh kurung siku. Untuk mendifinisikan array kita gunakan perintah DECLARE dan jika ingin menghapus array dan variable dari memoty komputer gunakan perintah CLEAR MEMORY. Jenisnya ada 2 , yaitu array 1 dimensi dan array multi dimensi.
1. Array 1 Dimensi.
Misalnya:
STIEKOM mempunyai 4 jurusan, hal ini dapat kita buat array satu dimensi sebagai berikut :
DECLARE JURUSAN[4]
2. Array Multi Dimensi.
Sedangkan tiap jurusan mempunyai 3 waktu kuliah, yaitu pagi, siang dan malam, maka dapat kita buat array sebagai berikut :
DECLARE JURUSAN[4,3]

Untuk memahami labih lanjut tentang array 1 dimensi, buatlah program ARRAY1D.PRG, Ketikkan di jendela Command.
MODIFY COMMAND ARRAY1D


Untuk memahami labih lanjut tentang array multi dimensi, buatlah program ARRAYMD.PRG, Ketikkan di jendela Command.
MODIFY COMMAND ARRAYMD


Form untuk penggunaan array adalah form multi halaman yang akan kita praktekkan berikut ini.
Buatlah tabel Kamus.dbf , ketikkan di Command Window
CREATE KAMUS


Simpanlah dengan menekan tombol CTRL+W, kemudian klik tombol Add dan tekan tombol CTRL+A, lalu isikan beberapa kata Bahasa Inggris dan artinya dalam Bahasa Indonesia. Setelah selesai, simpan dengan CTRL+W


Kita akan membuat form bernama kamus.
• Tutup semua database yang terbuka
CLOSE DATABASES
• Buat form baru bernama kamus
CREATE FORM KAMUS
• Aktifkan jendela Inspector
• Klik dan enter semua yang bertanda +
• Klik tab property
• Sesuaikan semua property menurut daftar dibawah ini

OBJEK
PROPERTY
NILAI
Form
View
KAMUS.DBF

Height
18.14

Width
83.50

Left
14

Text
Program kamus

Top
0


Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda Rectangle
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Rectangle
Height
4

Width
58

Left
2

Text
[Kata/Awalan yang dicari]

Name
Bingkai1

Top
0

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda Rectangle
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Rectangle
Height
4

Width
16

Left
62

Text
“ “ (tekan DEL lalu ENTER)

Name
Bingkai2

Top
0

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda EntryField
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Height
1

Width
34

Left
4

Value
“ “ (tekan DEL lalu ENTER)

Name
Entrikata

Top
2

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Custom
b. Klik ganda Ok Button
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property


OBJEK
PROPERTY
NILAI
Ok button
Height
2.5

Width
18.16

Left
40

Text
Memproses pencarian

Top
1

Name
TombolProses

SpeedTip
Memproses pencarian kata

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda Image
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Image
Height
2.52

Width
8

Left
66

Text
0.79

Name
Citra1

DataSource
RESOURCE #641

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda Rectangle
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Rectangle
Height
10

Width
76

Left
2

Text
Hasil

Name
Bingkai3

Top
5

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda Browse
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Browse
Height
8

Width
72

Left
4

Top
6

Tonggle
.F.

Modify
.F.

ShowDeleted
.F.

ShowHeading
.F.

ShowRecNo
.F.

Name
Browsehasil

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda Rectangle
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Rectangle
Height
1.70

Width
37.06

Left
2.59

Top
15

Name
Bingkai4

Text
“ “ (tekan Del lalu Enter)

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda EntryField
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Height
0.99

Width
34

Left
4

Value
“ “ (tekan Del lalu Enter)

Name
EntriPesan

Enabled
.F.

Top
15.29

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda PushButton
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property


OBJEK
PROPERTY
NILAI
PushButton
Height
1.50

Width
20

Left
42

Upbitmap
Resource #32

Enabled
.F.

Top
15

Text
Mencari lagi

OBJEK
PROPERTY
NILAI
PushButton
DisabledBitmap
Resources #33

SpeedTip
Mencari kata lain

Name
TombolCariLagi

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Custom
b. Klik ganda CloseButton
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
CloseButton
Height
1.52

Width
14.16

Left
64

Top
15

Text
Selesai

Name
TombolSelesai

SpeedTip
Menutup Kamus

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda TabBox
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
TabBox
Height
1

Top
17

Width
79.16

Left
0

DataSource
ARRAY(“INGGRIS-INDONESIA”.”INFORMASI”)


Klik tombol Remove


Klik dalam kotak String, lalu ketik,
INGGRIS-INDONESIA
Kemudian klik tombol Add



Klik dalam kotak String, lalu ketik,
INFORMASI
Kemudian klik tombol Add



Klik tombol OK


Klik tombol OK


Klik menu View + Next Form Page
Maka kita telah berada pada tab kedua, yaitu
INFORMASI


Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda Rectangle
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Rectangle
Name
Bingkai5

Height
4

Width
66

Left
6

Top
3

Text
“ “ (tekan Del lalu Enter)

BorderStyle
1

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
FontName
Bernard MT Condensed

Height
2

FontSize
14

Width
50

Left
12

Top
4

Text
PROGRAM KAMUS INGGRIS-INDONESIA

Name
TeksInfo1

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
0.76

Width
14

Left
32

Top
12

Text
Dibuat Oleh :

Name
TeksInfo2

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
2

Width
22

Left
32

Top
13

Text
HENDRIK

Name
TeksInfo3

FontSize
12

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda Image
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Image
Height
5

Width
18

Left
54

Top
10

DataSource
RESOURCE #308

Name
Citra2

Memberikan kode kejadian Form_OnOpen.
Klik pada form yang tidak berisi objek (ditempat yang bertitik-titik)
a. Aktifkan jendela Inspector
b. Pastikan form dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnOpen (urutan ke 19)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Procedure Form_OnOpen
SET TALK OFF
SET EXACT OFF
SET ORDER TO INGGRIS
Return

• Klik menu View+ Previous Form Page
• Klik tombol berjudul Memproses Pencarian
• Aktifkan jendela Inspector
• Pastikan form.tombolproses dibawah tulisan Inspector
• Pilik tab Event dibagian bawah jendela Inspector
• Klik OnClick (urutan ke 1)
• Klik icon kunci disebelah kanannya.
• Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini


• Klik tombol berjudul Mencari lagi
• Aktifkan jendela Inspector
• Pastikan form.tombolcarilagi dibawah tulisan Inspector
• Pilik tab Event dibagian bawah jendela Inspector
• Klik OnClick (urutan ke 1)
• Klik icon kunci disebelah kanannya.
• Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini


• Klik tab berjudul INGGRIS-INDONESIA
• Aktifkan jendela Inspector
• Pastikan form.tabbox1 dibawah tulisan Inspector
• Pilik tab Event dibagian bawah jendela Inspector
• Klik OnClick (urutan ke 16)
• Klik icon kunci disebelah kanannya.
• Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini


• Klik pada form yang tidak berisi objek (yang bertitik-titik)
• Aktifkan jendela Inspector
• Pastikan form dibawah tulisan Inspector
• Pilik tab Event dibagian bawah jendela Inspector
• Klik OnClose (urutan ke 5)
• Klik icon kunci disebelah kanannya.
• Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini










ARRAY DALAM PROGRAM RELASI 3

Kita akan membuat form yang bernama RELASI3.WFM
a. Tutup semua tabel yang aktif
CLOSE DATABASES
b. Buat form baru yang bernama RELASI2
CREATE FORM RELASI3
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Form
Left
4.666

Top
0.2939

Height
22.1758

Width
94.833

Text
Program Relasi3

View
PELAT.QBE

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Browse
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Browse
Name
BrowsePegawai

Left
2

Top
8

Height
7

Width
90

Text
DAFTAR PEGAWAI

Visible
.T.

Modify
.F.

OBJEK
PROPERTY
NILAI
Browse
Append
.F.

Deleted
.F.

Tonggle
.F.

ShowDeleted
.F.

Show Heading
.F.

ShowRecNo
.F.

Alias
PEGAWAI

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Browse
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Browse
Name
BrowseTraining

Left
2

Top
16

Height
6

Width
90

Text
DAFTAR PELATIHAN

Visible
.T.

Modify
.F.

OBJEK
PROPERTY
NILAI
Browse
Append
.F.

Deleted
.F.

Tonggle
.F.

ShowDeleted
.F.

Show Heading
.F.

ShowRecNo
.F.

Alias
TRAINING

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Custom
b. Klik ganda objek CloseButton
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Close Button
Name
TombolSelesai

Left
78

Top
6

Height
1.5293

Width
14.16

Text
&Tutup

SpeedTip
Mengakhiri Form

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
2

Top
2

Height
1

Width
14

Text
Nip yang dicari
Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
2

Top
4

Height
1

Width
12

Text
Tanggal Mulai

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek ComboBox
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
ComboBox
Name
ComboNip

Top
2

Left
16

Height
1.2344

Width
14

Style
1

DataSource
Type Field
DataSource Pegawai->NIP

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
32

Top
4

Height
1

Width
14

Text
Tanggal Selesai

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
32

Top
2

Height
1

Width
10

Text
Klik ganda

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
2

Top
6

Height
1

Width
14

Text
Nama Pelatihan

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Custom
b. Klik ganda objek OKButton
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
OK Button
Left
78

Top
4

Height
1.5293

Width
14

Text
&Simpan

SpeedTip
Menyimpan isi Form

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Custom
b. Klik ganda objek CancelButton
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Cancel Button
Left
78

Top
2

Height
1.5293

Width
14

Text
&Batal

SpeedTip
Membatalkan pengisian data

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek EntryField
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Left
16

Top
4

Height
11

Width
14

Name
MulaiEntry

Function
DATE->E

DataLink
Table TRAINING Fields->TGL_MULAI

Picture
99/99/9999

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek EntryField
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Left
44

Top
2

Height
1

Width
30

Name
NamaEntry

Value
“ ” (tekan DEL lalu ENTER)

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek ComboBox
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
ComboBox
Name
TrainingCombo

Top
6

Left
18

Height
1.2344

Width
44

Style
1

OBJEK
PROPERTY
NILAI
ComboBox
DAtaSource
Type ARRAY
DataSource
{“SISTEM AKUNTANSI”,
“PROFESI AKUNTAN”,
“SISTEM PEMASARAN”,
“MERAIH PELUANG BISNIS”,
“CUSTOMER SATISFACTION”,
“PENGEMBANGAN SDM”,
“ANALISIS & DESIGN”,
“APLIKASI KOMPUTER”}

Memberikan kode kejadian Form_OnOpen
Klik pada form yang tidak berisi objek
(ditempat yang bertitik-titik)
a. Aktifkan jendela Inspector
b. Pastikan form dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnOpen (urutan ke 19)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Untuk selanjutnya buatlah procedure berikut ini, bila terjadi kesalahan dalam pemilihan Event, maka hapuslah dengan klik menu
Procedure+Remove Methode



Untuk selanjutnya buatlah procedure berikut ini


Untuk selanjutnya buatlah procedure berikut ini


Untuk selanjutnya buatlah procedure berikut ini


Untuk selanjutnya buatlah procedure berikut ini


Untuk selanjutnya buatlah procedure berikut ini


BAB XXX
PROGRAM RELASI 4

Buatlah tabel baru yang bernama GAJI
Ketikkan di Command Window
CREATE GAJI


Aktifkan Jendela Navigator dengan mengkliknya
Pilih Query
Klik ganda Untitled


Didalam Jendela Open Table Required
Pilih PEGAWAI.DBF dengan mengkliknya
Klik OK


Maka akan tampil Jendela Query Designer seperti dibawah ini


Klik Menu Query + Add Table


Dalam Jendela Open Table Required
Pilih Table GAJI.DBF
Klik OK


Maka tampil Jendela Query Designer seperti dibawah ini



Klik menu Query + Set Relation


Klik menu File + Save As….


Ketikkan didalam kotak File Name
GAJI
Kemudian klik OK


Klik menu File + Close






Kita akan membuat form yang bernama RELASI4.WFM
a. Tutup semua tabel yang aktif
CLOSE DATABASES
b. Buat form baru yang bernama RELASI4
CREATE FORM RELASI4
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Form
Left
4.666

Top
0.2939

Height
25.1758

Width
101.666

Text
Program Relasi4

View
GAJI.QBE

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Browse
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Browse
Name
BrowsePegawai

Left
0

Top
10

Height
7

Width
100

Text
DAFTAR PEGAWAI

Modify
.F.

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Close Button (dalam Custom)
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
CloseButton
Name
Tutup Button

Left
78

Top
6

Height
1.5293

Width
14.1641

Text
&Tutup

SpeedTip
MengakhiriForm

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
2

Top
2

Height
1

Width
14

Text
Nip yang dicari

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek ComboBox
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
ComboBox
Name
ComboNip

Top
2

Left
16

Height
1.2344

Width
14

Style
1

DataSource
Type Field
DataSource Pegawai->NIP

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
2

Top
6

Height
1

Width
14

Text
Tanggal Gaji

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
32

Top
2

Height
1

Width
26

Text
Klik ganda bila selesai dipilih

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Custom
b. Klik ganda objek OKButton
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
OK Button
Left
78

Top
4

Height
1.5293

Width
14

Text
&Simpan

SpeedTip
Menyimpan input gaji

Name
SIMPANBUTTON

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Custom
b. Klik ganda objek CancelButton
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Cancel Button
Left
78

Top
2

Height
1.5293

Width
14

Text
&Batal

SpeedTip
Membatalkan pengisian data

Name
BATALBUTTON

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek EntryField
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Left
16

Top
4

Height
1

Width
24

Name
NAMAENTRY

Value
Tekan DEL + ENTER

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Browse
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Browse
Left
0

Top
18

Height
6

Width
100

Name
BROWSEGAJI

Text
DAFTAR GAJI

Alias
Gaji

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
42

Top
4

Height
1

Width
8

Text
GAJI

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
42

Top
6

Height
1

Width
10

Text
Tunjangan

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek EntryField
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Left
54

Top
4

Height
1

Width
16

Name
GAJIENTRY

DataLink
PEGAWAI->GAJI

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek EntryField
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Left
16

Top
6

Height
1

Width
12

Name
TANGGALENTRY

DataLink
GAJI->TGLGAJI

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek EntryField
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Left
54

Top
6

Height
1

Width
16

Name
TUNJANGANENTRY

DataLink
GAJI->TUNJANGAN

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek EntryField
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Left
16

Top
8

Height
1

Width
14

Name
POTONGANENTRY

DataLink
GAJI->POTONGAN

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
2

Top
8

Height
1

Width
10

Text
POTONGAN

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
44

Top
8

Height
1

Width
10

Text
JUMLAH

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek Text
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
2

Top
4

Height
1

Width
10

Text
NAMA

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Standard
b. Klik ganda objek EntryField
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
EntryField
Left
54

Top
8

Height
1

Width
16

Name
JUMLAHENTRY

DataLink
GAJI->JUMLAH

Memberikan kode kejadian Form_OnClose
Klik pada form yang tidak berisi objek (ditempat yang bertitik-
titik)
a. Aktifkan jendela Inspector
b. Pastikan form dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnClose (urutan ke 5)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Procedure Form_OnClose
CLOSE DATABASES
Return

Memberikan kode kejadian Form_OnOpen
Klik pada form yang tidak berisi objek (ditempat yang bertitik-
titik)
a. Aktifkan jendela Inspector
b. Pastikan form dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnOpen (urutan ke 19)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini


Selanjutnya buatlah procedure berikut ini


Selanjutnya buatlah procedure berikut ini


Selanjutnya buatlah procedure berikut ini


Selanjutnya buatlah procedure berikut ini

Selanjutnya buatlah procedure berikut ini


Selanjutnya buatlah procedure berikut ini


Selanjutnya buatlah procedure berikut ini


Selanjutnya buatlah procedure berikut ini
























BAB XXXI
MENU

Yaitu kumpulan program dan aplikasi yang dikelompokkan menurut tugas tertentu.
a. Tutup semua database yang terbuka
CLOSE DATABASES
a. Buat menu baru yang bernama menupeg
CREATE MENU MENUPEG
a. Ketikkan menu pertama yang bernama &Pegawai
b. Tekan tombol tab (tabulasi) pada keyboard
c. Ketikkan menu kedua yang bernama &Selesai
d. Simpanlah dengan menekan tombol CTRL+W


Menu yang telah kita buat sebelumnya harus ditempelkan kedalam form.
• Buat form baru yang bernama PEGAWAI
Create form PEGAWAI
• Aktifkan jendela Inspector
• Klik yang bertanda+ kemudian enter
• Sesuaikan semua property dibawah ini

OBJEK
PROPERTY
NILAI
Form
Text
PROGRAM PEGAWAI

Menufile
Menupeg.mnu

MDI
.F.

• Simpanlah form tersebut
Tekan CTRL+W
• Jalankan form PEGAWAI

Untuk menjalankan form pegawai dari jendela Navigator caranya adalah :
• Aktifkan jendela Navigator
• Klik bagian FORM
• Klik ganda PEGAWAI.WFM


Kita akan memperbaiki menu yang telah kita buat sebelumnya. Untuk itu ketikkan didalam jendela Command
MODIFY MENU MENUPEG
• Tekan panah bawah pada keyboard
• Kemudian ketikkan
DATA
• Tekan panah bawah pada keyboard
• Kemudian ketikkan
CETAK
• Tekan CTRL+T pada keyboard
atau klik menu MENU+INSERT SEPARATOR
• Tekan tab (tabulasi) pada keyboard
• Kemudian ketikkan
LAYAR
• Tekan panah bawah pada keyboard
• Kemudian ketikkan
KERTAS

• Klik pada menu
DATA
• Tekan tab (tabulasi) keyboard
• Kemudian ketikkan
Lihat Pegawai

• Tekan panah bawah pada keyboard
• Kemudian ketikkan
Edit Pegawai
• Tekan panah bawah pada keyboard
• Kemudian ketikkan
Label
• Klik pada menu
SELESAI
• Tekan panah bawah pada keyboard
• Kemudian ketikkan
Ya
• Tekan panah bawah pada keyboard
• Kemudian ketikkan
Tidak

Simpanlah dengan menekan tombol CTRL+W pada keyboard.

Kemudian jalankan kembali form PEGAWAI.WFM melalui jendela Navigator

Kita akan memperbaiki tampilan form PEGAWAI.WFM
Ketikkan di Command Window
MODIFY FORM PEGAWAI
Aktifkan jendela Control Palette
• Klik ganda icon IMAGE
• Aktifkan jendela Inspector
• Sesuaikan semua property dibawah ini

OBJEK
PROPERTY
NILAI
Image
Height
20

Left
42.50

Top
0

Width
60

DataSource
Location->FileName
Bitmap C:\visual\samples\
Diveshop.bmp

• Simpanlah dan jalankan form PEGAWAI

Kita akan memperbaiki menu MENUPEGAWAI.MNU
Ketikkan di Command Window
MODIFY MENU MENUPEG
• Klik menu Pegawai->Data->Lihat Pegawai
• Aktifkan jendela Inspector
• Klik tab Event pada bagian bawah jendela Inspector
• Klik Event OnClick
• Klik icon kuncinya
• Setelah tampil jendela Procedure Editor, ketikkan program dibawah ini

Procedure LIHAT_PEGAWAI_OnClick
Do Lihatpeg.wfm with .t.

• Klik menu Pegawai->Data->Edit Pegawai
• Aktifkan jendela Inspector
• Klik tab Event pada bagian bawah jendela Inspector
• Klik Event OnClick
• Klik icon kuncinya
• Setelah tampil jendela Procedure Editor, ketikkan program dibawah ini

Procedure EDIT_PEGAWAI_OnClick
Do Editpeg.wfm with .t.

• Klik menu Pegawai->Data->Label
• Aktifkan jendela Inspector
• Klik tab Event pada bagian bawah jendela Inspector
• Klik Event OnClick
• Klik icon kuncinya
• Setelah tampil jendela Procedure Editor, ketikkan program dibawah ini

Procedure LABEL_OnClick
Do Label.wfm with .t.

• Klik menu Selesai->Ya
• Aktifkan jendela Inspector
• Klik tab Event pada bagian bawah jendela Inspector
• Klik Event OnClick
• Klik icon kuncinya
• Setelah tampil jendela Procedure Editor, ketikkan program dibawah ini

Procedure Ya_OnClick
Form.Close()

Simpanlah dengan menekan tombol CTRL+W pada keyboard.
Kemudian jalankan kembali form PEGAWAI.WFM melalui jendela Navigator


BAB XXXII
TIMER DALAM HURUF BERJALAN

Berguna untuk mengatur tindakan per waktu tertentu. Sebagai contoh pemanfaatannya adalah untuk membuat huruf berjalan. File ini ada dalam directory C:\VisualDB\Samples. Sebelum memakainya, kita harus memasang objek ini kedalam Control Palette pada tab VBX.
a. Buat form tanpa nama.
CREATE FORM
a. Klik menu File + Setup Custom Control
b. Klik tab VBX Control
c. Klik tombol Add
d. Setelah tampil jendela Choose Custom Control, klik C pada kotak Directory, lalu klik VisualDB, kemudian klik Samples
e. Klik OK
f. Pilih Dbtimer.vbx
g. Klik OK
h. Klik OK
i. Klik menu File + Abandon and Close

Kita akan membuat form yang bernama HURUFJLN.WFM
a. Tutup semua tabel yang aktif
CLOSE DATABASES
b. Buat form baru yang bernama RELASI2
CREATE FORM HURUFJLN
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Form
Left
31.50

Top
0

Height
20

Width
60

Text
Program huruf berjalan

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Text
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Left
4

Top
1

Height
2

Width
54

Text
***AMIK STIEKOM SUMATERA UTARA***

ColorNormal
RG+/B

FontSize
13

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab VBX
b. Klik ganda Dbtimer
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
DbTimer
Left
58

Top
1

Height
1.39

Width
3.5

Name
DbTimer1

Memberikan kode kejadian Form_OnOpen
Klik pada form yang tidak berisi objek (ditempat yang bertitik-titik)
a. Aktifkan jendela Inspector
b. Pastikan form dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnOpen (urutan ke 19)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Procedure Form_OnOpen
FORM.DBTIMER1.ENABLED=.T.
Return

Memberikan kode kejadian DBTimer_OnTimer
Klik pada objek DbTimer diatas form.
a. Aktifkan jendela Inspector
b. Pastikan form.dbtimer1 dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnTimer (urutan ke 3)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini






BAB XXXIII
PASSWORD

Yaitu sandi yang harus diberikan sebelum program ingin dijalankan.
PasswordEntry terdapat pada tab Custom didalam jendela Control Palette. Jika objek ini belum ada, maka dapat kita tampilkan dengan cara sebagai berikut :
• Buat form tanpa nama.
CREATE FORM
• Klik menu File + Setup Custom Control
• Klik tab dBase Custom Controls
• Klik Add
• Masuk ke directory c:\VisualDB\Custom
• Pilih password.cc
• Klik OK

Kita akan membuat form yang bernama SANDI.WFM
a. Tutup semua tabel yang aktif
CLOSE DATABASES
b. Buat form baru yang bernama SANDI
CREATE FORM SANDI
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Form
Height
8.39

Width
57.12

Text
Program Password

Left
35

Top
0

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik ganda objek Text
b. Aktifkan jendela Inspector
c. Klik dan sesuaikan semua property

OBJEK
PROPERTY
NILAI
Text
Height
1.41

Width
23

Text
Masukkan Password

Left
5

Top
1.88

FontSize
10

Aktifkan jendela Control Palette dengan mengkliknya, atau jika jendela ini belum nampak, klik menu View+Control Palette
a. Klik tab Custom
b. Klik ganda PasswordEntry
c. Aktifkan jendela Inspector
d. Klik dan sesuaikan semua property


OBJEK
PROPERTY
NILAI
PasswordEntry
Height
1.88

Width
41

MaxLength
15

Left
4

Top
3.76

Value
(Dikosongkan) tekan del+enter

Memberikan kode kejadian Form_OnOpen
Klik pada form yang tidak berisi objek (ditempat yang bertitik-titik)
a. Aktifkan jendela Inspector
b. Pastikan form dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnOpen (urutan ke 19)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini

Procedure Form_OnOpen
FORM.PASSWORDENTRY1.SETCORRECTPASSWORD(“HENDRIK”)
FORM.PASSWORDENTRY1.WIDTH=10
Return

Memberikan kode kejadian PasswordEntry1_OnChange
Klik pada objek PasswordEntry1 diatas form.
a. Aktifkan jendela Inspector
b. Pastikan form.passwordentry1 dibawah tulisan Inspector
c. Pilik tab Event dibagian bawah jendela Inspector
d. Klik OnTimer (urutan ke 2)
e. Klik icon kunci disebelah kanannya.
f. Setelah tampil jendela Procedure Editor, ketikkan kode program dibawah ini



BAB XXXIV
FILE EXE

Yaitu File yang dapat langsung dijalankan pada sistem operasi Window. Kita akan membuat program aplikasi pegawai.wfm menjadi file yang berekstensi EXE supaya dapat langsung kita jalankan dari Windows. Yakinkan program aplikasi pegawai sudah dapat berjalan dengan sempurna.

• Aktifkan jendela Navigator
• Klik forms
• Jalankan Pegawai.wfm dengan klik ganda
• Tutup dengan klik menu selesai
• Klik menu Ya
• Klik menu Program + Compile pada jendela Visual dBASE
• Klik tombol >> supaya seluruh files pindah dari kotak Available Files kedalam kotak Files to Compile

Hilangkan tanda silang pada kotak cek Create New Response File dengan mengkliknya
• Klik Pegawai.wfm pada kotak Files to Compile
• Klik OK


• Biarkan proses berjalan hingga selesai sampai tampil jendela Compilation Status.
• Klik OK


Setelah tampil jendela Build Executable
• Klik tombol bertanda >> supaya semua file yang berada pada kotak Files Available pindah kedalam kotak Files to Build
• Klik Pegawai.wfo pada kotak Files to Compile
• Klik tombol Set Root Program
• Klik pada kotak Executable File Name
• Berikan nama program aplikasi
PEGAWAI.EXE
• Klik OK


Biarkan proses berjalan sampai selesai.
Setelah tampil jendela Build Completed
Klik OK













BAB XXXV
FILE SET UP

Yaitu File yang dapat diinstall dan dijalankan pada sistem operasi Window. Kita akan membuat program aplikasi pegawai.exe menjadi file setup.
Buatlah directory baru tempat menyimpan file setup pegawai. Ketikkan di jendela Command
MD H:\TUTORVDB\Fileexe

• Aktifkan jendela Navigator
• Klik forms
• Jalankan Pegawai.wfm dengan klik ganda
• Tutup dengan klik menu selesai
• Klik menu Ya
• Klik menu Program + Deploy Application pada jendela Visual dBASE


Pada kotak Aplication Files
• Klik icon kunci disebelah kanan pada kotak Directory
• Pilih directory tempat file Pegawai.Exe berada


Pada kotak Aplication Files
• Klik icon kunci disebelah kanan pada kotak Executable File Name
• Klik OK
• Pilih file Pegawai.Exe
• Klik OK


Pada kotak Disk Images
• Klik 1.44 MB 3.5 “ untuk penyimpanan kedalam disket ukuran 3.5 inchi, atau CD-ROM untuk penyimpanan kedalam CD
• Klik icon kunci pada kotak Directory, kemudian pilih directory tempat penyimpanan file setup yang telah anda buat sebelumnya
• Klik OK


Pada kotak Installation Options
• Klik kotak Application name, berikan nama file setup, misalnya :
PEGAWAI
• Klik kotak Company name, berikan nama perusahaan anda, misalnya :
AMIK STIEKOM SUMATERA UTARA
• Biarkan kotak Create Program Group tetap bertanda silang
• Biarkan kotak dBASE Engine tetap bertanda silang
• Biarkan Full dalam keadaan terpilih
• Biarkan Use Default dalam keadaan terpilih.
• Klik OK

Biarkan proses berjalan sampai selesai pada kotak Deploy Application Status sampai muncul tombol OK

• Klik OK


Anda dapat melihat hasilnya kedalam directory FILE EXE dengan menggunakan Windows Explorer atau MY DOCUMENT


INSTALASI FILE SET UP

Jalankan program installasi dengan Cara :
Klik ganda pada directory Disk1


Klik ganda file Setup

Klik tombol Continue


Klik tombol Continue


Klik tombol Install


Klik tombol Install


Klik tombol OK


Jalankan program aplikasi dengan mengklik

Start + Programs + PEGAWAI + PEGAWAI






























BAB XXXVI
CRYSTAL REPORT

Yaitu cara cepat membuat laporan tanpa menggunakan kode program Visual dBase, File Crystal Report tidak dapat dicompile menjadi file exe.

• Aktifkan jendela Navigator
• Klik Reports
• Klik ganda Untitled
• Klik icon Designer
• Pilih Pegawai.dbf pada jendela Open table required
• Klik OK

Pindahkan pointer mouse kesebelah kanan judul Page Header, kemudian ketikkan
DAFTAR PEGAWAI
PER :


Klik pada pointer mouse kesebelah kanan judul PER :


Klik menu Insert + Special Field + Date


Klik menu Format + Field


Klik pilihan DMY
Klik Pilihan Month , Day, Year
Klik OK



Lebarkan tempat tanggal laporan kearah sebelah kanan, sehingga tanggal, bulan dan tahun dapat dilihat semuanya.


Pilih PEGAWAI->NIP dialam jendela Insert database field
Klik menu Insert didalam jendela Insert database field.


Kemudian letakkan disebelah kanan Details
Kemudian klik tombol mouse kiri



Pilih PEGAWAI->NAMA dialam jendela Insert database field
Klik menu Insert didalam jendela Insert database field.


Kemudian letakkan disebelah kanan NIP
Klik tombol mouse sebelah kiri.


Pilih PEGAWAI->ALAMAT didalam jendela Insert database field
Klik menu Insert didalam jendela Insert database field.


Kemudian letakkan disebelah kanan NAMA
Klik tombol mouse sebelah kiri.


Pilih PEGAWAI->KOTA didalam jendela Insert database field
Klik menu Insert didalam jendela Insert database field.


Klik tombol Done pada jendela Insert Database Field



Klik menu File + Save


Ketikkan nama file pada kotak File name
Pegawai
Kemudian klik OK


Untuk melihat hasilnya
Klik menu File + Print + Window


Untuk mencetaknya
Klik menu File + Print + Printer


Klik OK
















BAB XXXVII
CLASS DALAM PROGRAM

Class adalah kumpulan properti dari sebuah objek. Setiap perintah class harus ditutup dengan perintah EndClass
a. Aktifkan jendela Navigator
b. Klik Forms
c. Klik kanan Kwitansi.wfm
d. Klik Edit as Program



OBJEK
PROPERTY
NILAI
Form
Left
27.666

Top
0.7646

Height
17.2344

Width
75.166

Text
Kwitansi


OBJEK
PROPERTY
NILAI
Line
Name
Line1

Top
1.88

ColorNormal
WindowText

Right
17.66

Bottom
1.88

Width
1


OBJEK
PROPERTY
NILAI
Line
Name
Line3

Top
1.82

ColorNormal
WindowText

Right
14.83

Bottom
1.82

Width
1


OBJEK
PROPERTY
NILAI
Line
Name
Line5

Top
16.70

Left
1.1667

ColorNormal
WindowText

Right
29

Bottom
16.7059

Width
1


OBJEK
PROPERTY
NILAI
Line
Name
Line8

Top
14.8824

Left
1.33331.1667

ColorNormal
WindowText

Right
28.8333

Bottom
14.8824

Width
1


OBJEK
PROPERTY
NILAI
Text
Name
Text1

Text
No

Top
0.7598

FontItalic
.T.

Left
3

Height
0.7637

Width
4.5


OBJEK
PROPERTY
NILAI
EntryField
Name
EntryField1

FontBold
.F.

Top
0.46

Left
8

Value
“ “ (Tekan DEL dan ENTER

Height
1

Width
9.8311




OBJEK
PROPERTY
NILAI
Text
Name
Text2

Text
Sudah terima dari

FontBold
.F.

Top
2.9297

FontItalic
.T.

Left
3.8262

Height
0.7637

Width
18.3389


OBJEK
PROPERTY
NILAI
Editor
Name
Editor1

FontBold
.F.

Top
2.8799

Left
24

Value
“ “ (Tekan DEL dasn ENTER)

Height
0.9395

CUATab
.T.

Width
49.9311


OBJEK
PROPERTY
NILAI
Text
Name
Text3

Text
Uang banyaknya

Top
4.46

FontItalic
.T.

Left
4.5

Height
0.7637

Width
17.5




OBJEK
PROPERTY
NILAI
Editor
Name
Editor2

FontBold
.F.

Top
4.160

Left
24.1592

Value
“ “ (Tekan DEL dan ENTER)

Height
2.8311

CUATab
.T.

Width
50.0059


OBJEK
PROPERTY
NILAI
Text
Name
Text4

Text
Untuk pembayaran

FontBold
.F.

Top
8.293

FontItalic
.T.

Left
5

Height
0.7637

Width
18


OBJEK
PROPERTY
NILAI
Editor
Name
Editor3

FontBold
.F.

Top
8

Left
24.5

Value
“ “ (Tekan DEL dan ENTER)

Height
2.5762

CUATab
.T.

Width
49.5


OBJEK
PROPERTY
NILAI
Text
Name
Text5

Text
Jumlah Rp.

FontBold
.F.

Top
15.4697

FontItalic
.T.

Left
0.8262

Height
0.7646

Width
11.1729


OBJEK
PROPERTY
NILAI
EntryField
Name
JumlahEntry

FontBold
.F.

Top
15.2344

Left
12.1592

Value
“ “ (Tekan DEL dan ENTER)

Height
1

Width
17.0059

Event
OnLostFocus







OBJEK
PROPERTY
NILAI
EntryField
Name
EntryField2

FontBold
.F.

Top
11.2344

Left
32.6592

Value
“ “ (Tekan DEL dan ENTER

Height
1

Width
9.8389


OBJEK
PROPERTY
NILAI
Text
Name
Text6

Text
Tanggal

FontBold
.F.

Top
11.293

Left
44.3262

Height
0.7637

Width
7.6729


OBJEK
PROPERTY
NILAI
EntryField
Name
EntryFiield3

FontBold
.F.

Top
11.1172

Left
51.6641

Value
“ “ (Tekan DEL dan ENTER)

Height
1

Width
14.334


OBJEK
PROPERTY
NILAI
Text
Name
Text7

Text
20

FontBold
.F.

Top
11.2344

Left
66.6641

Height
0.7646

Width
3.334





OBJEK
PROPERTY
NILAI
EntryField
Name
EntryField4

FontBold
.F.

Top
11.1172

Left
70

Value
“ “ (Tekan DEL dan ENTER

Height
1

Width
3.9971


OBJEK
PROPERTY
NILAI
Text
Name
Text8

Text
Yang menerima,

FontBold
.F.

Top
13

Left
56

Height
1

Width
14






BAB XXXVIII
PROKOMPAK

Prokompak (Program Komputer Akuntansi) adalah sebuah sistem akuntansi yang disusun dengan menggunakan perangkat lunak (software) Visual dBASE yang sangat populer dan paling digemari sejak 1984. Dengan menggunakan Prokompak kita dapat melaksanakan sistem akuntansi yang lebih ringkas dan efisien

Langkah-langkah untuk menggunakan prokompak adalah :
1. Menyiapkan Batasan Kode Perkiraan.
2. Membukukan Kode Perkiraan dan Saldo Awal.
3. Membukukan transaksi kedalam Buku Harian (Jurnal).
4. Proses Posting.
5. Memindahkan Saldo Buku Besar kedalam Neraca Lajur
6. Membuat Laporan

Batasan Kode Perkiraan adalah :
101.000 – 130.999 Aktiva Lancar dan Investasi Jangka Pendek
131.000 – 140.999 Investasi Jangka Panjang
141.000 – 160.999 Aktiva Tetap
161.000 – 200.999 Aktiva Lain-lain
201.000 – 249.999 Hutang Lancar
250.000 – 300.999 Hutang Jangka Panjang
301.000 – 399.999 Modal dan Laba Ditahan
400.000 – 400.999 Ikhtisar Rugi / Laba
401.000 – 500.999 Penjualan
501.000 – 600.999 Pembelian
601.000 – 700.999 Biaya Usaha
701.000 – 800.999 Pendapatan Lain-lain
801.000 – 850.999 Biaya Lain-lain
851.000 – 999.999 Pajak

Membukukan Kode Perkiraan dan Saldo Awal
1. Klik Menu Perkiraan.
2. Klik Sub Menu Perkiraan Baru.
3. Klik Kosongkan Isi Tabel
4. Klik Menu Perkiraan.
5. Klik Sub Menu Isi

Setelah selesai pengisian Kode Perkiraan dan Saldo Awal , anda harus memeriksa keseimbangan transaksi didalam Buku Harian.
Klik menu Perkiraan
Klik Sub Menu Validasi

Membukukan Kode Perkiraan dan Saldo Awal




Membukukan transaksi kedalam Buku Harian (Jurnal).
• Klik Menu Jurnal.
• Klik Sub Menu Jurnal Baru.
• Klik Kosongkan Isi Tabel
• Klik Menu Jurnal.
• Klik Sub Menu Isi

Setelah selesai pengisian jurnal, anda harus memeriksa keseimbangan transaksi didalam Buku Harian.
a) Klik menu Jurnal
b) Klik Sub Menu Validasi

Membukukan transaksi kedalam Buku Harian (Jurnal).



Memindahkan transaksi dari Buku Harian kedalam
masing-masing Perkiraan (Posting).
• Klik Menu Proses.
• Klik Sub Menu Posting.

Setelah selesai posting, anda dapat melihat laporan transaksi dibawah ini.
• Klik menu Laporan + Perkiraan


• Klik menu Laporan + Jurnal



Memindahkan Saldo Buku Besar kedalam Neraca Saldo.
• Klik Menu Proses.
• Klik Sub Menu Tutup Buku Bulanan.

Setelah selesai , anda dapat melihat laporan dibawah ini.
• Klik menu Laporan + Neraca Saldo
• Klik menu Laporan + Neraca Lajur
• Klik menu Laporan + Neraca
• Klik menu Laporan + Laba/Rugi

Klik menu Laporan + Neraca Saldo



Klik menu Laporan + Neraca Lajur


Klik menu Laporan + Neraca












BAB XXXIX
INSTALASI VISUALDBASE 5.5

Pastikan anda berada di folder CDROM
Klik ganda icon Install


Klik Visual dBASE


Isikan Nama dan Alamat, lalu Klik Continue


Pilih Complete, lalu Klik Continue


Klik Continue


Klik Continue


Klik Install


Klik Skip


Klik Skip


Klik OK


Klik menu File + Close


Klik Visual dBASE Compiler


Klik Visual dBASE Compiler


Klik Visual dBASE Compiler


Klik Skip


Klik Skip


Klik menu File + Close


Klik OK


Klik Exit
















BAB XL
SOAL DAN JAWABAN

SOAL I

1. Buatlah program Ujian1.Prg untuk menghitung upah pegawai. Program akan menanyakan nama pegawai, jam kerja dan upah perjam. Hasil tampilan yang akan tampak dilayar sebagai berikut :

Masukkan nama pegawai : Amir
Masukkan jam kerja : 30
Masukkan upah per jam : 1000
Upah yang diterima Amir adalah : Rp. 30,000.00

2. Buatlah program Ujian2.Prg untuk menghitung biaya fotocopy. Program akan menanyakan nama langganan dan jumlah lembar foto copy. Gunakan kordinat layar dan warna yang menarik. Harga foto copy per lembar ditentukan oleh program sebagai berikut :
a) Jika kurang dari 100 lembar, maka harganya Rp. 150,-
b) Jika lebih dari 100 lembar dan kurang dari 200 lembar, maka harganya Rp. 125,-
c) Jika lebih dari 200 lembar, maka harganya Rp. 100,-
Hasil tampilan yang akan tampak dilayar sebagai berikut :

Masukkan nama langganan : Kiki
Jumlah lembar foto copy : 10
Harga foto copy per lembar : 150
Biaya foto copy Kiki adalah : Rp. 1,500.00

3. Buatlah program Ujian3.Prg dengan ketentuan seperti soal ujian nomor 2 a,b,c
a) jika kurang dari 100 lembar, maka harganya Rp. 150,-
b) Jika lebih dari 100 lembar dan kurang dari 200 lembar, maka harganya Rp. 125,-
c) Jika lebih dari 200 lembar, maka harganya Rp. 100,-
Gunakan pengulangan, pencabangan dan warna yng menarik Hasil tampilan yang akan tampak dilayar sebagai berikut :
Data langganan ke : 1
Masukkan nama langganan : Kiki
Jumlah lembar foto copy : 100
Harga foto copy per lembar : 150
Biaya foto copy Kiki adalah : Rp. 15,000.00
Data langganan ke : 2
Masukkan nama langganan : Budi
Jumlah lembar foto copy : 150
Harga foto copy per lembar : 125
Biaya foto copy Budi adalah : Rp. 18,750.00

Data langganan ke : 3
Masukkan nama langganan : Cici
Jumlah lembar foto copy : 250
Harga foto copy per lembar : 100
Biaya foto copy Budi adalah : Rp. 25,000.00

Jumlah Penghasilan : Rp. 58.750,00




SOAL II

1. Buatlah database PERABOT.DBF seperti dibawah ini


2. Buatlah form PERABOT2.WFM untuk pengisian data seperti dibawah ini


3. Buatlah form PERABOT3.WFM untuk pencarian ,edit dan hapus data seperti dibawah ini


4. Buatlah form PERABOT4.WFM untuk laporan seperti dibawah ini


JAWABAN II

2. Kita akan membuat program Perabot2.Wfm

Buat form dengan nama Perabot2.
CREATE FORM PERABOT2
Aktifkan jendela Inspector dengan mengklik menu View + Inspector
Klik tab Properti
Klik dan tekan Enter semua property bertanda +
Sesuaikan semua Properti menurut pengaturan berikut ini

FORM
PROPERTY
Text = PERABOT2.WFM
Left = 10.5
Top = 0.3525
View = PERABOT.DBF
ColorNormal = W+
Height = 25.1758
Width = 105.5

TEXT
PROPERTY
Text= UD. PERABOT UTAMA
Left= 3
Top= 0.4688
FontSize= 20
ColorNormal= 0x400040/W
Alignment=4
Height= 1.8809
Width= 63

TEXT
PROPERTY
Text= Nomor
Left= 3
Top= 3.2979
ColorNormal= BtnText/W+
Height= 1.3975
Width= 11
ENTRYFIELD
PROPERTY
Name= NOPERENTRY
Left= 17
Top= 3.2979
FontSize= 12
ColorNormal= B/W
Height= 1.3975
Width= 12
DataLink= PERABOT->NOMOR

ENTRYFIELD
PROPERTY
Name= ISIENTRY
Value= "“ (tekan DEL + ENTER)
Left= 52
Top= 3.2979
FontSize= 12
ColorNormal= W+/W
Height= 1.3975
Width= 14

TEXT
PROPERTY
Name= KIRATEXT
Text= Jenis
Left= 3
Top= 7.6475
ColorNormal= BtnText/W+
Height= 1.4004
Width= 11

ENTRYFIELD
PROPERTY
Name= KIRAENTRY
Left= 17
Top= 7.6973
FontSize= 12
ColorNormal=0x400040/W
Height= 1.4004
Width= 48
DataLink= PERABOT->JENIS

TEXT
PROPERTY
Name= BALANCETEXT
Text= Kode
Left= 3
Top= 10.0479
ColorNormal= BtnText/W+
Height= 1.3975
Width= 11

ENTRYFIELD
PROPERTY
Name= BALANCEENTRY
Left= 17
Top= 10.0479
FontSize= 12
ColorNormal= 0x400040/W
Height= 1.3975
Width= 13
DataLink= PERABOT->KODE

TEXT
PROPERTY
Name= JUMLAHTEXT
Text= Harga
Left= 38
Top= 9.9473
ColorNormal= BtnText/W+
Height= 1.4004
Width= 9

ENTRYFIELD
PROPERTY
Name= JUMLAHENTRY
ColorHighLight= 0x400040/W
Left= 49
Top= 9.9473
FontSize= 12
ColorNormal= 0x400040/W
Picture= 999,999,999
Height= 1.4004
Width= 16
DataLink= PERABOT->HARGA

ENTRYFIELD
PROPERTY
Name= JUMLAHENTRY
ColorHighLight= 0x400040/W
Left= 49
Top= 9.9473
FontSize= 12
ColorNormal= 0x400040/W
Picture= 999,999,999
Height= 1.4004
Width= 16
DataLink= PERABOT->HARGA

PUSHBUTTON
PROPERTY
Name= LANJUTBUTTON
Text= LANJUT
Left= 86
Top= 0.75
ColorNormal= 0xa00000/W
Height= 1.8975
Width= 15
UpBitmap= RESOURCE #100

PUSHBUTTON
PROPERTY
Name= BATALBUTTON
Text= BATAL
Left= 86
Top= 3.75
ColorNormal= 0xa00000/W
Height= 1.8975
Width= 15
UpBitmap= RESOURCE #28

PUSHBUTTON
PROPERTY
Name= CLOSEBUTTON
Text= TUTUP
Left= 86
Top= 6.75
ColorNormal= 0x804000/W
Height= 1.8975
Width= 15
UpBitmap=RESOURCE #1005

ENTRYFIELD
PROPERTY
Name= TANGGALENTRY
Left= 17
Top= 5
FontSize= 12
Picture= 99/99/9999
Height= 1.5
Width= 16
DataLink= PERABOT->TANGGAL

TEXT
PROPERTY
Name= TANGGALTEXT
Text= Tanggal
Left= 3
Top= 5.5
ColorNormal= BtnText/W+
Height= 1.5586
Width=

BROWSE
PROPERTY
Left= 4
Top= 12.5
FontSize= 12
ColorNormal= 0x400040/W+
Height= 12
Width= 98

Procedure ISIENTRY_Key(nChar, nPosition,bShift,bControl)
if nchar=13
set order to Nomor
if empty(form.isientry.value)
msgbox("nomor perabot kosong !!","PESAN")
elseif len(form.isientry.value)>6
msgbox(“Nomor maksimal 6 digit !","PENGINGAT")
else
seek form.isientry.value
if found()
msgbox(“Nomor itu sudah ada !!", "PESAN")
else
class::tampil()
form.beginappend()
form.noperentry.value=form.isientry.value
form.tanggalentry.setfocus()
endif
endif
endif

Procedure KIRAENTRY_Key(nChar, nPosition,bShift,bControl)
if nchar=13
form.balanceentry.setfocus()
endif

Procedure BALANCEENTRY_Key(nChar, nPosition,bShift,bControl)
if nchar=13
if empty(form.balanceentry.value)
msgbox("Kotak balance tidak boleh kosong...!","Info")
else
form.jumlahentry.setfocus()
endif
endif

Procedure JUMLAHENTRY_Key(nChar, nPosition,bShift,bControl)
if nchar=13
form.lanjutbutton.setfocus()
endif

Procedure Form_OnOpen
Set Date British
form.isientry.setfocus()
form.isientry.visible=.t.
form.tanggalentry.visible=.f.
form.tanggaltext.visible=.f.
form.noperentry.visible=.f.
form.kiratext.visible=.f.
form.balancetext.visible=.f.
form.jumlahtext.visible=.f.
form.kiraentry.visible=.f.
form.balanceentry.visible=.f.
form.jumlahentry.visible=.f.
form.lanjutbutton.visible=.f.
form.batalbutton.visible=.f.
form.closebutton.visible=.t.

Procedure tampil
form.isientry.visible=.f.
form.tanggalentry.visible=.t.
form.tanggaltext.visible=.t.
form.noperentry.visible=.t.
form.kiratext.visible=.t.
form.balancetext.visible=.t.
form.jumlahtext.visible=.t.
form.kiraentry.visible=.t.
form.balanceentry.visible=.t.
form.jumlahentry.visible=.t.
form.lanjutbutton.visible=.t.
form.batalbutton.visible=.t.
form.closebutton.visible=.t.

Procedure LANJUTBUTTON_OnClick
form.saverecord()
class::form_onopen()
form.isientry.value=""

Procedure BATALBUTTON_OnClick
msgbox("Kok nggak jadi ???", "Info")
form.abandonrecord()
class::form_onopen()
form.isientry.value=""

Procedure CLOSEBUTTON_OnClick
form.close()

Procedure Form_OnClose
close databases

Procedure TANGGALENTRY_Key(nChar, nPosition,bShift,bControl)
if nchar=13
form.kiraentry.setfocus()
endif

3. Kita akan membuat program Perabot3.Wfm

Buat form dengan nama Perabot3.
CREATE FORM PERABOT3
Aktifkan jendela Inspector dengan mengklik menu View + Inspector
Klik tab Properti
Klik dan tekan Enter semua property bertanda +
Sesuaikan semua Properti menurut pengaturan berikut ini

FORM
Properties
Text = PERABOT3.WFM
Left = 9.833
View = PERABOT.DBF
Top = 0.5879
ColorNormal = W+
ScaleFontSize = 9
Height = 17.7051
Width = 90.166

CLOSEBUTTON
PROPERTY
Text=&Tutup
Left= 43
Top= 14.5
SpeedTip =Tutup Form ini
Height=2
Width=20

PUSHBUTTON
PROPERTY
Name=HAPUSBUTTON
Text=&Hapus
Left=19
Top=14.5
Height= 2
Width=21
UpBitmap=RESOURCE #2240

PUSHBUTTON
PROPERTY
Name=EDITBUTTON
Text=&Cari Nomor
Left=19
Top=11.5
Height=2
Width=21
UpBitmap=RESOURCE #858

BROWSE
PROPERTY
CUATab= .T.
FontSize= 11
Left= 2
Top= 0.5
ColorNormal=0x400040/W+
Height= 10
Width= 83

ENTRYFIELD
PROPERTY
Name=CARI
FontSize= 14
Value= "“ (Tekan DEL + ENTER)
Left= 43
Top= 11.5
ColorNormal= W/W
Height= 2
Width= 20

Procedure EDITBUTTON_OnClick
form.cari.value=" "
form.cari.setfocus()
Return

Procedure HAPUSBUTTON_OnClick
set exclusive on
delete
Form.View = PERABOT.DBF
set exclusive off
return

Procedure Form_OnOpen
form.tampil()

Procedure Tampil
select 1
set order to Nomor
return

Procedure CARI_Key(nChar, nPosition,bShift,bControl)
if nchar=13
sele 1
set order to Nomor
if empty(form.cari.value)
msgbox(“Nomor belum ada !!","PESAN")
elseif len(form.cari.value)>7
msgbox("nomor paling banyak 7 digit !","PENGINGAT")
else
seek form.cari.value
if .not. found()
msgbox(“Nomor itu belum ada ... !!", "PESAN")
else
form.browse1.setfocus()
endif
endif
endif

4. Kita akan membuat program Perabot4.Wfm

Buat form dengan nama Perabot4.
CREATE FORM PERABOT4
Aktifkan jendela Inspector dengan mengklik menu View + Inspector
Klik tab Properti
Klik dan tekan Enter semua property bertanda +
Sesuaikan semua Properti menurut pengaturan berikut ini

FORM
PROPERTY
ScaleFontName =Courier New
Text = Laporan
Left = 3.7139
Top = 0.5547
Height = 23.5547
Width = 109.2852
ScrollBar = 1

TEXT
PROPERTY
FontSize= 15
Text= LAPORAN PENJUALAN
Left= 20
Height= 2
FontName= Times New Roman
Width 62
Alignment 4

PUSHBUTTON
PROPERTY
Name= CETAKPERKIRAANBUTTON
FontSize= 10
Text= &Proses
Left= 23
Top = 3
ColorNormal=N/W
Height= 2
Width= 16
UpBitmap= RESOURCE #1040

PUSHBUTTON
PROPERTY
Name= BATALBUTTON
FontSize= 10
Text= &Tutup
Left= 60
Top= 3
ColorNormal= BtnText/W
Height= 2
Width= 16
UpBitmap= RESOURCE #1005

EDITOR
PROPERTY
FontSize= 11
Value= "“ (Tekan DEL +ENTER)
Left= 2
Top= 5.5
ColorNormal=0x400040/W+
Height= 17
FontName= Courier New
Width= 109

Procedure BATALBUTTON_OnClick
close databases
form.close()



SOAL III

1. PT. ASURANSI PERSONAL mengharapkan bantuan anda untuk
menyusun program ASURANSI.PRG dengan ketentuan sbb :
a. Nama Tertanggung
b. Alamat
c. Nomor Polis
d. Harga Polis Rp. 1.000.000,-
e. Jasa Bunga 1 % per bulan
f. Harga yang harus dibayar setelah penutupan 10 tahun
Hasil tampilan yang akan tampak dilayar sebagai berikut :


2. UD MEDIA ELKTRONIKA akan menggunakan program
MEDIA.PRG dengan menetapkan harga jual sbb :
a) Jika TV kurang dari 10 unit, harganya Rp. 2.000.000,-
b) Jika TV lebih dari 10 unit dan sampai dengan 30 unit, harganya Rp. 1.900.000,-
c) Jika lebih dari 30 unit, maka harganya Rp. 1.800.000,-
Hasil tampilan yang akan tampak dilayar sebagai berikut :


3 PT. PERDANA KARYA adalah sebuah perusahaan Direct
Selling yang memberikan potongan sbb :
a. 15 % untuk Distributor.
b. 10 % untuk Kordinator.
c. 5 % untuk pemilik toko sebagai Agen penjualan.
Dengan mengunakan program DS.PRG hitunglah jumlah yang diterima oleh perusahaan apabila Distributor membeli barang seharga Rp. 5.000.000,- Hasil tampilan yang akan tampak dilayar sebagai berikut :






JAWABAN III





SOAL IV

Buatlah program pajak.Prg untuk menghitung pajak penghasilan terutang dengan ketentuan sebagai berikut :
1. PTKP wajib pajak Rp. 1.728.000,-
2. Tambahan wajib pajak yang kawin Rp. 864.000,-
3. Tanggungan Rp. 864.000,- per orang
4. Jika PKP > Rp. 50.000.000,-- maka PPh 30 %
5. Jika PKP > Rp. 25.000.000,-- maka PPh 15 %
6. Jika PKP > Rp. 0,-- maka PPh 10 %
Tampilan yang diharapkan adalah sebagai berikut :



JAWABAN IV











































DAFTAR PUSTAKA

Teach your self Visual dBASE 5.5 Programming in 21 Days.
By : Nathan Gurewich & Ori Gurewich, copyright © 1995 by SAM.Simon & Schuster (Asia) Pte. Ltd.
Indonesian Translation copyright by
© 1996 Penerbit ANDI and Simon & Schuster (Asia) Pte. Ltd.

dBASE 5 for Windows Programming for Dummies
By : Ted Coombs & Jason Coombs,
copyright © 1994 by IDG Books
Alih Bahasa Agustinus Sulistiyanto
copyright by © 1998 PT. Elex Media Komputindo, Jakarta.

Tuntunan Praktis Pemrograman Visual dBASE 5.5
Oleh : M. AGus J. Alam,
copyright © 1995
© 1998 PT. Elex Media Komputindo,
Jakarta.

Read More......