Mengenal Database Foxpro
I.1 Teori
Foxpro singkatan dari Foxbase Profesional. Paket program Foxpro memang dikhususkan untuk mengolah database terutama database relasional.Database merupakan kumpulan record dan record merupakan kumpilan dari field.
Field adalah kumpulan item (karakter) yang membentuk suatu arti.
Contoh : identitas pegawai terdiri dari Nip, Nama, Alamat, Kota yang merupakan 1 record. Sedangkan satu record terdiri dari field nip, nama, alamat, kota.
Nip
|
Nama
|
Alamat
|
Kota
|
||
|
Soetikno, SE |
Tinalan I/63B |
Kediri |
||
9610001354 |
Anny Dewi |
Burengan III/09 |
Tulungagung |
||
9712545512 |
Asmawi Yahya |
Pesantren Blok A |
Jombang |
|
I.2 Jenis Data dan File pada Foxpro
Jenis / type data yang sering digunakan pada Foxpro :- Character (Karakter) : A…Z, a … z, 0 … 9, !?*%$& dsb.
- Numeric (bilangan) : 0 – 9
- Float (bilangan scientific positif, negatif) : 0.01+E
- Date (tanggal) : 27/04/2001
- Logical (logika) : .T. (True), .F. (False)
- Memo (catatan) : berupa tulisan
Jenis file dan ekstensi yang dihasilkan pada foxpro :
1. File Database DBF
2. File Program PRG
3. File Index IDX
4. File Memo FPT
5. File Text TXT
I.3 Perintah-perintah pada Foxpro
- Set Defa to <drive>
- Create <nm_file database>
Contoh :
Create pegawai
Membuat sebuah database yang berisi data pegawai dengan nama file pegawai.dbf
- Use <nm_ file database>
Contoh :
Use pegawai
Mengaktifkan sebuah file database yang bernama file pegawai.dbf
- Close All
- Clear / Clear all
- Append
- Go/Goto
Contoh :
Go Top Menuju record yang pertama
Go Bottom Menuju record yang Terakhir
Goto 2 Menuju record yang kedua
- Insert
- Edit
- Browse
- Delete
Contoh : Goto 2
Delete Menghapus record kedua
Delete for nama=’adi’ Menghapus record dimana nama=’adi’
Delete All Menghapus seluruh record
- Pack
- Recall all
- Zap
- List
Contoh :
Use tabel1
List Atau List for nama=”Adi”
- Modify Structure
Contoh :
Use table1
Modify structure
- Recno()
Contoh :
Use table1
Goto 4 : letakkan kursor pada posisi ke 4
? Recno() : cetak posisi record saat itu ke layar
- Reccount()
Contoh :
Use table1
? Reccount() : cetak jumlah record saat itu
- BOF()
- EOF()
- Date()
Contoh :
? Date()
- Set Date <nm_negara>
Beberapa nama negara yang disediakan Foxpro adalah :
American mm/dd/yy
British/French dd/mm/yy
German dd.mm.yy
Italian dd-mm-yy
Japan yy/mm/dd
Contoh :
Set Date British
?Date()
- Set Century On/Off
Contoh :
Set Century On
?Date()
Set Century Off
?Date()
- Month()
Contoh :
? Month(Date())
- CMonth()
Contoh :
?Cmonth(Date())
- Year()
Contoh :
? Year(Date())
- CDOW() = Character Date Of Week
Contoh :
Tanggal = Date()
? CDOW(Tanggal)
- DOW() = Date Of Week
- Sunday(Minggu)
- Monday(Senin)
- Tuesday(Selasa)
- Thirsday(Rabu)
- Wednesday(Kamis)
- Friday(Jumat)
- Saturday(Sabtu)
Contoh :
?DOW(Sunday) : menghasilkan 1
- CTOD() = Character To Date
Contoh :
Tgl=’06/05/1976’
?CTOD(Tgl)
- LEN()
Contoh :
Nama = ‘Astone Stephie’
?Len(Nama)
- STR()
Contoh :
Nil=2000
?Str(Nil)
- VAL()
Contoh :
C_Angka=’2000’
?Val(C_Angka)+1000
- LEFT()
Contoh :
Nama=’Setiawan’
?Left(Nama,4) >> ‘Seti’
- RIGHT()
Contoh :
Nama=’Setiawan’
?Right(Nama,4) >> ‘awan’
- SUBSTR()
Contoh :
Nama=’Setiawan’
?Substr(Nama,3,3) >> ‘tia’
- UPPER()
Contoh :
Nama=’setiawan’
?Upper(Nama) >> ‘SETIAWAN’
- LOWER()
Contoh :
Nama=’SETIAWAN’
?Lower(Nama) >> ‘setiawan’
- LTRIM()
Contoh :
Nama=’ Setiawan’
?Ltrim(Nama) >> ‘Setiawan’
- RTRIM()
Contoh :
Nama=’Setiawan ’
?Rtrim(Nama) >> ‘Setiawan’
- ALLTRIM()
Contoh :
Nama=’ Setiawan ’
?Alltrim(Nama) >> ‘Setiawan’
I.4 Instruksi-instruksi Pengendali Program Yang Ada Dalam Foxpro
- Pengendali Pilihan
- IF … ENDIF
Contoh :
Use Pegawai
M.Nip=’9510002345’
Seek M.Nip
If Found()
Wait wind “Data Ketemu … Tekan Sembarang Tombol …”
Endif
If ! Found()
Wait wind “Data Tidak Ketemu … Tekan Sembarang Tombol”
Endif
- IF … ELSE … ENDIF
Contoh :
Use Pegawai
M.Nip=’9510002345’
Seek M.Nip
If Found()
Wait wind “Data Ketemu … Tekan Sembarang Tombol …”
Else
Wait wind “Data Tidak Ketemu … Tekan Sembarang Tombol”
Endif
- DO CASE … ENDCASE
Contoh :
Chari=DOW(Date())
Nhari=’ ‘
Do case
Case Chari = 1
Nhari=’Minggu’
Case Chari = 2
Nhari=’Senin’
Case Chari = 3
Nhari=’Selasa’
Case Chari = 4
Nhari=’Rabu’
Case Chari = 5
Nhari=’Kamis’
Case Chari = 6
Nhari=’Jumat’
Case Chari = 7
Nhari=’Sabtu’
Endcase
?’Sekarang Adalah Hari : ‘+Nhari
- DO CASE … OTHERWISE … ENDCASE
Contoh :
Nilai=95.50
Ket= ‘ ‘
Do Case
Case Nilai >= 90
Ket = ‘Sangat Memuaskan’
Case Nilai >= 80 And Nilai < 90
Ket = ‘Memuaskan’
Case Nilai >= 70 And Nilai < 80
Ket = ‘Sangat Baik’
Case Nilai >= 60 And Nilai < 70
Ket = ‘Baik’
Case Nilai >= 50 And Nilai < 60
Ket = ‘Cukup’
Otherwise
Ket = ‘Kurang’
Endcase
Wait Wind “Nilai = ‘+str(Nilai)+’ Dengan Predikat = ‘+Ket
- Pengendali Perulangan
- DO WHILE … ENDDO
Contoh :
I = 0
Use Pegawai
Go Top
Do While !EOF()
Skip 1
I = I +1
? ‘Nama Pegawai Pada Record Ke ‘+Str(I)+’ = ‘+Nama
Enddo
- FOR … ENDFOR
Contoh :
I = 0
For I = 1 To 10
?’Nilai I = ‘+Str(I)
Endfor
Atau
I = 0
For I = 1 To 10 Step 2
?’Nilai I = ‘+Str(I)
Endfor
Comments
Post a Comment