Mempergunakan
Paket dBase
RUN File dbase.exe yang ada
pada direktori system dbase
Ketik
QUIT pada dotprom dbase kemudian tekan enter untuk keluar dari sistem dbase
Ä
Perintah Untuk Pindah Drive/Directory Aktip
ð
SET DEFAULT TO < drive >,
untuk
memindahkan drive aktip
ð
SET DIRECTORY TO < directory >,
untuk
memindah directory aktip
ð
! CD < directory >,
untuk
memindahkan directory aktip
Ä Perintah Untuk
Menghasilkan atau Membuat File
ðCREATE, Sintak
-
CREATE [D/D] <nf> Hasil DBF
-
CREATE LABEL [D/D] <nf> LBQ
-
CREATE SCREEN [D/D] <nfe> SCR
-
CREATE REPORT [D/D] <nf>
FRM
-
CREATE QUERY [D/D] <nf> QBE
ðMODIFY, Sintak
- MODIFY REPOR [D/D] <nf> FRM
-
MODIFY COMMAND [D/D] <nf> PRG
-
MODIFY LABEL [D/D] <nf>
LBQ
-
MODIFY SCREEN [D/D] <nf>
SCR
-
MODIFY QUERY [D/D] <nf> QBE
Contoh membuat file dbf dengan nama
DATA_MHS, hasil nya disimapan pada drive B dalam direktori DATA
Alternatif untuk membuat file tersebut
dengan perintah sbb;
- Set Direktory to B:\data 8
Create DATA_MHS 8
- !CD B:\data 8
Create DATA_MHS 8
-
Create B:\DATA\DATA_MHS 8
DI LAYAR AKAN TAMPIL:
CURSOR ß à
Char :
ß
Word : Home,End
Pan
: "ß"
|
INSERT
Char: Ins
Field : ^N
Help
: F1
|
DELETE
Char
: Del
Word
: ^Y
Field : ^U
|
Up a field á
Down a fiel â
Exit/Save : ^End
Abort : Esc
|
FIELD NAME
TYPE WIDTH DEC
1 Charakter
Perintah-perintah untuk
Memodifikasi/Memanipulasi data secara
interaktif melalui promp dBase
ð USE [[D/D]
<file dbf>] [ INDEX [D/D] <file
index>],
Contoh
Aktipkan
data dengan nama data_mhs.dbf yang mana data tersebut disimpan pada drive B
dalam directory Data
Jawab :
1. set
directory b:\dbase 8
use
data_mhs 8
2. Use b:\dbase\data_mhs 8
ð Perintah
CLEAR, untuk membersihkan layar atau memori
dari usur-usur dbase
Format
Perintah
a. Untuk mebersihkan layar
CLEAR
b.
Untuk mebersihkan memori :
CLEAR all /database/get/memori/screens/windows
ð Perintah CLOSE, untuk membersihkan memori dari unsure-unsur dbase
Format Perintah
CLOSE all
/ database / procedure / alternat / index
ð Perintah APPEND, untuk penambahan records, syarat dari file database
(DBF) harus dalam keadaan aktif
Format Perintah :
APPEND
[ BLANK ] [ FROM [D/D]
<file dbf> [ For <kodisi>] ]
Uraian
a. APPEND, penambahan record kosong secara terus menerus, dan
akan berhenti jika kita menetkan tombol;
-
Ctrl
– W atau Ctrl – End, simpan penambahan
-
Esc, batalkan penambahan
b. APPEND BLANK, buat record kosong setelah record terakhir
c. APPEND FROM [D/D]
<file dbf> [ For <kodisi>]
Gabung suatu file dbf ke file dbf yang
aktif
ð Perintah LIST, untuk menampilkan data atau struktur file secara
terus menerus, syarat dari file database (DBF) harus dalam keadaan aktif
Format Perintah
a.
LIST [off]
[scope] [fields] [FOR<kondisi>]
[to print]
Untuk
menampilkan ditail data
b.
LIST STRUCTURE, Untuk
menampilkan struktur file
ð Perintah DISPLAY, untuk menampilkan data atau struktur file satu atau
perhalaman, syarat dari file database (DBF) harus dalam keadaan aktif
Format Perintah
a.
DISPLAY
[off] [scope] [fields] [FOR<kondisi>] [to print]
Untuk menampilkan ditail data
b.
DISPLAY
STRUCTURE, Untuk menampilkan struktur file
Kelompok Perintah Upade, Hapus
ð Perintah
BROWSE, menampilkan data secara horizontal, syarat dari file database (DBF) harus dalam keadaan aktif
Format Perintah : BROWSE [FIELD<field1,field2,...>]
Catatan:
-
Upadate data bisa
dilakukan langsung pada posisi konsor aktif di setiap field dan record
-
Untuk memberian
tanda delete record tekan Ctrl – U
-
Untuk menghilangkan tanda delete record tekan Ctrl – U
ð Perintah
EDIT, menampilkan data secara vartikal, syarat dari file database (DBF) harus dalam keadaan aktif
Format Perintah : EDIT [FIELD<field1,field2,...>]
Catatan:
-
Upadate data bisa
dilakukan langsung pada posisi konsor aktif di setiap field dan record
-
Untuk memberian
tanda delete record tekan Ctrl – U
-
Untuk menghilangkan tanda delete record tekan Ctrl – U
ð Perintah
CHANGE, menampilkan data secara vartikal, syarat dari file database (DBF) harus dalam keadaan aktif
Format Perintah : CHANGE [FIELD<field1,field2,...>]
Catatan:
-
Upadate data bisa
dilakukan langsung pada posisi konsor aktif di setiap field dan record
-
Untuk memberian
tanda delete record tekan Ctrl – U
-
Untuk menghilangkan tanda delete record tekan Ctrl – U
ð Perintah DELETE, untuk
memberitanda delete, pada record-record, syarat dari file database (DBF) harus dalam keadaan aktif
Format Perintah : DELETE [SCOPE][FOR<kondisi>]
ð Perintah RECALL, untuk
menghilang kan tanda delete, pada record-record, syarat dari file database (DBF) harus dalam keadaan aktif
Format Perintah : RECALL [SCOPE][FOR<kondisi>]
ð Perintah PACK, menghapus
semua record yang bertanda delete, syarat dari file database (DBF) harus dalam
keadaan aktif
Format Perintah : PACK
ð Perintah
REPLACE,
untuk merubah/update field dari secara
otomatis, syarat dari file database
(DBF) harus dalam keadaan aktif
Format Perintah :
REPLACE
[scope] <nfield> WITH <isi
field baru> [FOR <kondisi>]
Kelompok Perintah Backup, Hapus file
ð
Perintah COPY, untuk menyalin record-record atau struktur
field-field dari database (DBF) aktif
Format Perintah :
a. COPY TO [D/D] <
NF > [FOR <kondisi>]
Untuk
menyalin record-record dari file yang aktif à
(dbf)
b. COPY FIEL <field1,field2,...>
TO [D/D] <NF> [FOR<kondisi>]
untuk
menyalin field-field tertentu dan record-record
dari file aktif à (dbf)
c. COPY STRUCTURE TO [D/D]
< NF >
untuk
menyalin struktur field dari file aktif à
(dbf)
ð
Perintah COPY FILE, untuk
suatu menyalin file ke file lain
Format Perintah :
COPY FILE [D/D]
<nama file> TO [D/D] <nama
file>
ð Perintah
DELETE
FILE, untuk
file-file pada media penyimpan
Format Perintah :
DELETE FILE [D/D]
<nama file>
ð Perintah
DELETE
FILE, untuk
file-file pada media penyimpan
Format Perintah :
DELETE FILE [D/D]
<nama file>
ð Perintah
ERASE,
untuk file-file
pada media penyimpan
Format Perintah :
ERASE
[D/D] <nama file>
ð Perintah
RENAME,
fungsi untuk menganti nama file
Format Perintah :
RENAME
[D/D] <file lama> TO
[D/D] <file baru>
Kelompok Perintah Backup, Hapus file
ð Perintah
SORT,
untuk mengurutkan data secara fisik
berdasarkan field-field yang diiginkan, perintah ini akan menghasilkan file dbf
juga, syarat dari file database (DBF)
harus dalam keadaan aktif
Format Perintah :
SORT ON <field1,field2,...> TO [D/D] <nama file> [A/D]
ð Perintah
INDEX,
untuk mengurutkan data secara logic dengan
menjadikan satu atau lebih field sebagai key. Perintah ini akan menghasilkan
file dengan extension NDX, syarat dari
file database (DBF) harus dalam keadaan aktif
Format Perintah :
INDEX ON [+/-] <field1+field2+,...> TO [D/D] <nama file>
Perintah
INSERT,
untuk menyisipkan record pada posisi
tertentu, syarat dari file database
(DBF) harus dalam keadaan aktif
Format Perintah
: INSERT [BLANK] [BEFORE]
Uraian
a. INSERT, menyisipkan record setelah record aktif
b. INSERT BLANK, menyisipkan record kosong setelah record aktif
c. INSERT BEFORE, menyisipkan record
pada record aktif
d. INSERT BLANK
BEFORE, menyisipkan
record kosong pada record aktif
Kelompok perintah untuk memindahkan penunjuk record
aktif
syarat dari file database (DBF) harus dalam
keadaan aktif
ð Perintah
GO
RECORD, untuk
memindahkan penunjuk record ke record tertentu
Format Perintah : GO RECORD #
ð Perintah
GO
TOP, untuk
memindahkan penunjuk record ke record pertama
Format Perintah : GO TOP
ð Perintah
BOTTOM,
untuk memindahkan
penunjuk record ke record terakhir
Format
Perintah : GO TOP
ð Perintah
SKIP,
untuk memindahkan
record ke posisi tertentu
Format
Perintah : SKIP n / -n
ð Perintah
LOCATE,
untuk memindahkan
penunjuk record atau mencari record tertentu berdasarkan satu atau lebih field
Format
Perintah : LOCATE FOR < kondisi >
ð Perintah
CONTINUE, untuk melanjutkan pencarian jika yang ditemukan
bukan data yang diinginkan
Format
Perintah : CONTINUE
ð Perintah
SEEK,
untuk memindahkan
penunjuk record atau mencari record tertentu berdasarkan field key indek
Format
Perintah : SEEK <field
key>
ð Perintah
FIND,
untuk memindahkan
penunjuk record atau mencari record tertentu berdasarkan field key indek
Format
Perintah : FIND <field
key>
Perintah
MODIFY STRUCTURE, untuk merubah struktur field dari file
database (dbf) yang aktif
Perintah untuk pengelolaan File Memori atau Variable
Memori
ð Perintah STORE atau =,
Untuk memasukan harga pada suatu varibel memori
Format
Perintah
STORE < Nilai > TO < NV1, NV2, … >
< Nama Variabel > = < Nilai >
ð
Perintah RELEASE, untuk menghapus
varibel memori yang aktif di memori
Format
Perintah: RELEASE [ALL] < NV1,NV2,… >,
ð
Perintah DISPLAY MEMORY, untuk
melihat atau menampilkan varibel memori
yang aktif pada memori per halaman
Format
Perintah: DISPLAY MEMORY [ to print ]
ð
Perintah LIST MEMORY, untuk
melihat atau menampilkan varibel memori
yang aktif pada memori secara keseluruhan
Format
Perintah: LIST MEMORY [ to print ]
ð
Perintah SAVE TO, untuk
menyimpan variabel memori yang aktif pada suatu file memori (mem)
Format
Perintah: SAVE TO [D/D] <nama file >
ð
Perintah RESTORE, untuk
memanggil atau mengaktifkan File Memori (MEM)
Format
Perintah: RESTORE
[D/D] <nama file >
Manajemen
Database File Manjemuk
Untuk Memudahkan Pemahaman, Perhatikan Struktur data-data berikut;
1.
Nama File :
DATA_MHS.DBF
Nama File Indek :
DATA_MHS.NDX
FIELDS KEY :
NPM
dengan struktur sebagai berikut
No
|
Nama File
|
Jenis
|
Panjang
|
Kode
|
1.
|
NPM
|
C
|
8
|
|
2.
|
Nama_mhs
|
C
|
35
|
|
3.
|
JKEL
|
C
|
1
|
L/P
|
4.
|
TPT_LHR
|
C
|
20
|
|
5.
|
TGL_LHR
|
C
|
8
|
|
6.
|
AGAMA
|
C
|
1
|
1,2,3,4,5 dan 6
|
7.
|
ALAMAT_1
|
C
|
35
|
|
8.
|
ALAMAT_2
|
C
|
35
|
|
9.
|
TELEPON
|
C
|
12
|
|
10.
|
Kelas
|
C
|
5
|
2.
Nama File :
MT_KUL.DBF
Nama File Indek :
MT_KUL.NDX
FIELDS KEY :
KODE_MK
dengan struktur sebagai berikut
No
|
Nama File
|
Jenis
|
Panjang
|
Kode
|
1.
|
KODE_MK
|
C
|
8
|
|
2.
|
NAMA_MK
|
C
|
35
|
|
3.
|
SKS
|
C
|
1
|
|
4.
|
JENIS
|
C
|
1
|
3.
Nama File : NILAI.DBF
Nama File Indek :
NILAI.NDX
FIELDS KEY :
NPM+KODE_MK
dengan struktur sebagai berikut
No
|
Nama File
|
Jenis
|
Panjang
|
Kode
|
1.
|
NPM
|
C
|
8
|
|
2.
|
KODE_MK
|
C
|
8
|
|
3.
|
GRADE
|
C
|
1
|
A,B,C,D
|
4.
|
SEMESTER
|
C
|
5
|
4-tahun 1-1/2
|
Perintah yang digunakan
ð
Perintah SELECT, untuk
pembagian memori kerja untuk penempatan file-file dbf dalam waktu bersamaan
dalam satu hari
Format
Perintah: SELECT
< nama area/alias >
ð
SET RELATION,
untuk merelasikan dua file
Format
Perintah: SET RELATION TO <expr>
INTO <alias>
Contoh,
aktifkan file DATA_MHS.DBF dan NILAI.DBF,
dan relasikan file tersebut berdasarkan key yaitu npm
Jawab.
SELECT A
USE
DATA_MHS INDEX DATA_MHS
SELECT B
USE
NILAI INDEX NILAI
SET RELATION TO NPM INTO A
Tampilkan
npm,nama_mhs,kode_mk,nilai nama yang mempunyai grade A,B dan C.
Jawab:
LIST bànpm, aànama_mhs, bàkode_mk, bànilai for grade $ ‘ABC’
Atau
DISPLAY bànpm,aànama_mhs,bàkode_mk,bànilai for grade $
‘ABC’
PEMROGRAM PADA dBASE
Strukut Program
Pada dBase
ð Awal
program, guna untuk mengatur kondisi operasional dari sistem dBase atau kondisi
peralatan
ð Isi
program dapat mencakup intruksi utama atau printah-perintah lain
ð Penutup
program, untuk mengembalikan fungsi operasi ke pada keadaan semula dan kita
harus memastikan tidak adanya file-file yang aktif
Perintah untuk memberikan atau memasukan
item-item data ke dalam field atau variabel dalam pemrograman dBase adalah
ð
INPUT [ keterangan ] TO <variabel/field>
ð
WAIT [keterangan] TO < variabel/field >
ð
ACCEPT [keterangan] TO <variabel/field >
ð
GET < variabel/field >
READ
Perintah untuk menampilkan nilai item-item
data dari field atau variabel
ð
?
fungsi untuk mencetak pada satu baris
ð
??
fungsi untuk mencetak pada baris yang sama
ð
@ B,K SAY [ket] < variabel/field >
Untuk mencetak ke printer selaian perintah diatas di
awal program atau awal mulai mencetak ditambah dengan printah
ð
SET PRINTER ON pada awal program
SET PRINTER OFF pada akhir progrom
ð
SET DEVICE TO PRINTER untuk
@ B,K SAY [keterangan] < variabel/field
>
SET DEVICE TO SCREEN pada akhir program
Ä
Perintah pengulangan (looping)
DO
WHILE <kondisi>
blok perintah
ENDDO
Ä Perintah u/ membuat atau edit program
MODIFY COMMAND [D/D] < NF >
Ä
Perintah Untuk menyimpan program dengan perintah :
Ctrl-W atau Ctrl-End
Ä Untuk
Menjalankan program :
DO
[D/D] <nama file>
Peringtah Alih
Kontrol
Ä
IF, Strukturnya
IF <
KONDISI >
blok perintah pertama
ELSE
blok perintah kedua
ENDIF
Ä
DO CASE, Strukturnya
DO
CASE
CASE < kondisi 1 >
blonk perintah 1
CASE <kondisi n >
blok perintah ke n
ENDCASE
Contoh
1 :
Untuk
menampilkan data mahasiswa Universitas Gunadarma
(
B:\DATA\DATA_MHS.DBF)
Nama
program Progr1.PRG dengan Output sebagai berikut;
Daftar Mahasiswa Universitas Guana
Darma
Halaman :
9999
====================================================
NO NPM NAMA Kelas
====================================================
999
XXXXXXXX XXXXXXXXXXXX XXXXX
l
l
l
====================================================
Contoh
2 :
Untuk
menampilkan data mahasiswa Universitas Gunadarma
(
B:\DATA\DATA_MHS.DBF)
Nama
program Progr2.PRG dengan Output perhalaman 50 data.
*** nama program prog1.prg
Set talk off
Set status off
Set delete on
clear
use b:\data\data_mhs
stor 1 to no
*** beri harga pada variabel no sebesar 1
?' Daftar Mahasiswa Univesitas Gunadarma’
?
?’ Halaman : ‘+str(hal,5)
?'===================================================='
?' NO
NPM NAMA Kelas'
?'===================================================='
*** lakukan pengulangan
do while .not. eof()
?str(no,5)+” “+npm+” “+nama+”
“+kelas
no=no+1
skip
*** pindah pointer satu record kebawah
enddo
*** akhir dari pengulangan
?'===================================================='
Set talk on
Set status on
Set delete off
Clos all
*** nama program prog2.prg
Set talk off
Set status off
Set delete on
clear
use b:\data\data_mhs
stor 1 to no
*** lakukan pengulangan pertama
do while .not. eof()
?' Daftar Mahasiswa Univesitas Gunadarma’
?
?’ Halaman : ‘+str(hal,5)
?'================================================'
?' NO NPM NAMA Kelas'
?'================================================'
ul_hal=1
*** pengulangan ke dua
do while .not. eof() .and. ul_hal<=50
?str(no,5)+” “+npm+” “+nama+”
“+kelas
no=no+1
ul_hal=ul_hal+1
*** pindah pointer satu record kebawah
skip
enddo
*** akhir dari pengulangan kedua
?'================================================'
enddo
*** akhir dari pengulangan pertama
Set talk on
Set status on
Set delete off
Clos all
tekan CTRL-W atau CTRL-End untk menyimpan program
Jalankan Program dengan Perintah
DO b:\dbase\PROG1
Akan
tampil output seperti pada halaman sebeleh (Bentuk output pertama)
Alih
Kontrol Pada dBase
Ä
IF ... ELSE ... ENDIF
Ä
DO CASE ... ENDCASE
ÄBENTUK
: IF
a. IF < KONDISI >
blok perintah
ENDIF
b. IF < KONDISI >
blok perintah pertama
ELSE
blok perintah kedua
ENDIF
Bentuk
: DO CASE
DO CASE
CASE < kondisi 1 >
blonk perintah 1
CASE <kondisi n >
blok perintah ke n
ENDCASE
Bentuk
Output dari prog1.prg
DAFTAR
NAMA KARYAWAN PT. XYZ
===========================================================
NO
NIP NAMA ALAMAT
===========================================================
1 493059
Among Saliro Jl.
Bambu Kuning
2 493078
Arfiyanti A. Jl.
Martadinata
3 493093
Asbahatun Nur Jl.
Pal Batu Raya
4 493105
Bayu Adi Priyono Jl.
Anggur III
5 493135
Dandan Rachmat Jl.
H. Darham
6 493150
Denny Y. Tompunu Jl.
Cirendeu Raya
7 493158
Dian Nuryanti Jl.
Mekar Baru I
8 493182
Edwar Rudiyanto Jl.
Damai Ujung
9 493195
Eris Siswaya PONDOK
PINANG 5/2
10 493202
Ester Yuliana Jl.
K.H. Syahdan
==========================================================
Contoh : 2
Buat suatu program dengan nama program prog2.prg
tesebut disimpan pada drive B dan directory dbase untuk
menampilkan data karyawan, yang mana data tersebut ada pada drive B dalam directory
dBase dengan nama file data.dbf (atau data yang sudah kita buat pada
saat awal perkuliahan). Bentuk output atau tampilan yang diminta adalah sbb :
DAFTAR
NAMA KARYAWAN PT. XYZ
======================================================
NO
NIP NAMA
Jenis Kelamin
======================================================
999
XXXXX XXXXXXXXXXXXXXXXXX XXXXXXXXX
l
l
l
======================================================
Jawab
Contoh 2:
Cara Pertama Cara
Kedua
Modify Command b:\dbase\prog2 Set directory b:\dbase
Modify Command prog2
***
nama program prog2.prg
Set
talk off
Set
status off
Set
delete on
clear
use
b:\dbase\data
stor 1
to no
***
beri harga pada variabel no sebesar 1
?'
DAFTAR NAMA KARYAWAN PT. XYZ’
?'=================================================='
?'
NO NIP NAMA
Jenis Kelamin’
?'=================================================='
do
while .not. eof()
if sex $ 'Ll'
ket='Pria'
else
ket='Wanita'
endif
?str(no,3)+'
'+nip+' '+nama,ket
no=no+1
skip
enddo
?'=================================================='
Set
talk on
Set
status on
Set
delete off
Clos
all
Jalankan
Program dengan Perintah
DO b:\dbase\PROG2
Akan
tampil output seperti pada halaman sebeleh (Bentuk output prog2.prg)
Contoh Program Pemakaian DO CASE
Buat suatu program dengan nama
program prog3.prg tesebut disimpan pada drive B dan directory dbase
untuk menampilkan data karyawan, yang mana data tersebut ada pada
drive B dalam directory dBase dengan nama file data.dbf (atau data yang
sudah kita buat pada saat awal perkuliahan). Bentuk output atau tampilan yang
diminta adalah sbb :
DAFTAR
NAMA KARYAWAN PT. XYZ
==============================================
NO
NIP NAMA
Agama
==============================================
999
XXXXX XXXXXXXXXXXXXXXXXX XXXXXXX
l
l
l
==============================================
Bentuk
output prog2.prg
DAFTAR
DATA KARYAWAN
================================================
NO
NIP NAMA Jenis
Kelamin
================================================
1 493059
Among Saliro Pria
2 493078
Arfiyanti A. Wanita
3 493093
Asbahatun Nur Wanita
4 493105
Bayu Adi Priyono Pria
5 493135
Dandan Rachmat Pria
6 493150
Denny Y. Tompunu Pria
7 493158
Dian Nuryanti Wanita
8 493182
Edwar Rudiyanto Pria
9 493195
Eris Siswaya Pria
10 493202
Ester Yuliana Wanita
======================================================
Jawab Contoh 3:
Cara Pertama Cara
Kedua
Modify Command b:\dbase\prog3 Set directory b:\dbase
Modify Command prog3
***
nama program prog3.prg
Set
talk off
Set
status off
Set
delete on
clear
use
b:\dbase\data
stor 1
to no
***
beri harga pada variabel no sebesar 1
?'
DAFTAR NAMA KARYAWAN PT. XYZ’
?'=================================================='
?'
NO NIP NAMA
Agama ’
?'=================================================='
do
while .not. eof()
DO CASE
CASE AGAMA='1'
AGM='ISLAM'
CASE AGAMA='2'
AGM='KRISTEN KATOLIK'
CASE AGAMA='3'
AGM='KRISTEN PROTESTAN'
CASE AGAMA='4'
AGM='BUDHA'
CASE AGAMA='5'
AGM='HINDHU'
ENDCASE
?STR(NO,3),NIP,NAMA,AGM
NO=NO+1
SKIP
& pindahkan pointer ke record berikutnya
enddo
?'====================================================='
Set
talk on
Set
status on
Set
delete off
Clos
all
Jalankan
Program dengan Perintah
DO b:\dbase\PROG3
Akan
tampil output seperti berikut
DAFTAR
DATA KARYAWAN PT XXX
=======================================================
NO
NIP NAMA AGAMA
=======================================================
1
493059 Among Saliro ISLAM
2
493078 Arfiyanti A. ISLAM
3
493093 Asbahatun Nur ISLAM
4
493105 Bayu Adi Priyono ISLAM
5
493135 Dandan Rachmat ISLAM
6
493150 Denny Y. Tompunu KRISTEN
PROTESTAN
7
493158 Dian Nuryanti ISLAM
8
493182 Edwar Rudiyanto ISLAM
9
493195 Eris Siswaya ISLAM
10
493202 Ester Yuliana KRISTEN
PROTESTAN
=======================================================
Contoh
4 tentang proses gaji:
Buat suatu program dengan nama program prog4.prg
tesebut disimpan pada drive B dan directory dbase untuk
menampilkan rekapitulasi gaji karyawan, yang mana data tersebut ada pada
drive B dalam directory dBase dengan nama file data.dbf (atau data yang
sudah kita buat pada saat awal perkuliahan). Bentuk output atau tampilan yang
diminta adalah sbb :
REKAPITULASI
GAJI KARYAWAN PT. XYZ
BULAN :
........................
================================================================
NO
NIP NAMA Gaji
Pokok Tunjangan Gaji Bersih
================================================================
999
XXXXX XXXXXXXXXXXXXXXX 999999999 99999999 9999999999
l
l
l
Total
Gaji yang harus dibayarkan : Rp. .........................
Ketentuan:
Tunjangan didapat dari jika status karywan kawin maka dapat tunjuangan Rp.
75.000,- selain itu dapat tunjangan Rp.50.000,-, gaji bersih adalah gaji pokok
ditambah dengan tunjangan
Jawab Contoh 4:
Cara Pertama Cara
Kedua
Modify Command b:\dbase\prog4 Set directory b:\dbase
Modify Command prog4
***
nama program prog4.prg
Set
talk off
Set
status off
Set
delete on
clear
use
b:\dbase\data
stor 1
to no
***
beri harga pada variabel no sebesar 1
vtot=0
?’REKAPITULASI
GAJI KARYAWAN PT. XYZ’
?’BULAN
: ........................’
?’===============================================================’
?’NO NIP
NAMA
Gaji Pokok Tunjangan Gaji Bersih ‘
?’===============================================================’
do
while .not. eof()
if status $ ‘Kk’
vtun=75000
else
vtun=50000
endif
gaber=gapok+vtun
?STR(NO,3),NIP,NAMA,gapok,vtun,gaber
vtot=vtot+gaber
no=no+1
skip
enddo
?’===============================================================’
?’Total
Gaji = Rp. ‘+str(vtot,9)
Set
talk on
Set
status on
Set
delete off
Clos
all
Pemakaian
Perintah APPEND BLANK
APPEND BLANK berfungsi untuk membuat record
kosong setelah record
terakhir. Perintah ini Pada Umumnya di pakai dalam program entri data
atau input data.
Contoh
5
Buat suatu program yang berfungsi untuk
entri data atau penambahan, dengan nama program inp_data.prg tesebut
disimpan pada drive B dan directory dbase, yang mana data akan ditambah atau entri
ada pada
drive B dalam directory dBase dengan nama file data.dbf (atau data yang
sudah kita buat pada saat awal perkuliahan).
Jawab Contoh 5:
Cara Pertama Cara
Kedua
Modify Command b:\dbase\inp_data Set directory b:\dbase
Modify Command inp_data
***
nama program inp_data.prg
Set
talk off
Set
status off
Set
delete on
Set
date itali
clear
use
b:\dbase\data
***
Lakukan pengulangan selagi kondisi benar
do
while .t.
*** buat record kosong seteleh record
terakhr
append blank
*** isi record tersebut dengan mengunakan
printah GET – READ
@3,5 SAY 'Program Untuk Entri Data
'
@05,5 SAY 'Nomor Pokok : ' GET nip
@06,5 SAY 'Nama Karyawan : ' GET nama
@07,5 SAY 'Alamat Karyawan : ' GET alamat
@08,5 SAY 'Jenis Kelamin : '
GET sex
@09,5 SAY 'Tanggal Lahir : ' GET tgl_lahir
@10,5 SAY 'Tempat Lahir :
' GET tmp_lahir
@11,5 SAY 'Agama : ' GET agama
@12,5 SAY 'Status Sipil : ' GET status
@13,5 SAY 'Pendidikan akhir : ' GET pendidikan
@14,5 SAY 'Mulai Kerja :
' GET mulai_ker
@15,5 SAY 'Jumlah Anak : ' GET Jml_anak
@16,5 SAY 'Gaji Pokok :
' GET gapok
READ
ada=' '
@18,5 SAY 'Masih Ada Data [ Y/T ] --> ' GET ada
READ
IF ada $ ‘tT’
Exit
Endif
Enddo
Set
talk off
Set
status off
Set
delete on
Jalankan
Program dengan Perintah
DO b:\dbase\Inp_data
Akan
tampil dilayar seperti berikut
Program
Untuk Entri Data
Nomor
Pokok : [ ]
Nama
Karyawan : [ ]
Alamat
Karyawan : [
]
Jenis
Kelamin : [ ]
Tanggal
Lahir : [
- - ]
Tempat Lahir : [ ]
Agama : [ ]
Status
Sipil : [
]
Pendidikan
akhir :
[ ]
Mulai
Kerja : [
- - ]
Jumlah
Anak : [ 0]
Gaji
Pokok : [ 0]
Masih
Ada Data [ Y/T ] --> [ ]
Contoh
program input sekali gus menjegah data ganda, dalam program ini memakai beberapa perintah diantaranya APPEND BALANK, SEEK, LOCATE dan REPLACE dalam satu program.
***
nama program in_data.prg
Set
talk off
Set
status off
Set
delete on
Set
date itali
clear
use
b:\dbase\data
***
Lakukan pengulangan selagi kondisi benar
@3,5
SAY 'Program Untuk Entri Data '
do
while .t.
*** Harga awal dari vnip=sapace(6)
stor space(6) to vnip
@05,5 SAY 'Nomor Pokok : ' GET vnip
read
*** cari record yang field nip=vnip
locate for nip=vvnip
*** Jika ketemu tampilkan data tersebut
dan tidak ada penambahan data
IF FOUND()
@06,5 SAY 'Nama Karyawan : '
+nama
@07,5 SAY 'Alamat Karyawan :
' +alamat
@08,5 SAY 'Jenis Kelamin : ' +sex
@09,5 SAY 'Tanggal Lahir :
' +dtoc(tgl_lahir)
@10,5 SAY 'Tempat Lahir : ' +tmp_lahir
@11,5 SAY 'Agama :
' +agama
@12,5 SAY 'Status Sipil :
' +status
@13,5 SAY 'Pendidikan akhir : '
+pendidikan
@14,5 SAY 'Mulai Kerja : ' +mulai_ker
@15,5 SAY 'Jumlah Anak :
' +str(Jml_anak ,2)
@16,5 SAY 'Gaji Pokok : ' +str(gapok ,8)
else
*** jika tidak ketemu, lakukan
penambahan data
fikri.staff.gunadarma.ac.id
Tidak ada komentar:
Posting Komentar