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.