Panduan Praktikum Pemrograman Basis Data
UPT LABORATORIUM STMIK AKAKOM
2004
Panduan Praktikum Pemrograman Basis Data Foxpro hal
1
KATA PENGANTAR
Panduan praktikum pemrograman basis data ini disusun dalam rangka melengkapi sarana praktikum pemrograman Basisa Data di STMIK AKAKOM, sehingga mahasiswa dapat melaksanakan praktikum dengan labih terarah dan lebih mudah.
Buku ini disusun dengan menggunakan 2 jenis bahasa pemrograman basis data yakni yang non web dengan Visual Foxpro dan web-base programming yaitu PHP dan My SQL dengan harapan pengguna dapat langsung memahami program basis data yang diperlukan untuk keperluan yang sangat luas saat ini baik untuk keperluan skala kecil menengah (dengan non Web) maupun skala besar (web).
Karena kajian utama pengenai programan basis data maka kami tidak mengupas lebih dalam tetang instalasi PHP dan My SQL, sehingga lebih didekatkan pada penyelesdaian basis data dengan bahasa tersebut.
Penulis mengucapkan terima kasih kepada semua fihak dan khususnya kepada Ibu Pulut Suryani,S.Kom. (alumni STMIK AKAKOM) dan Saudara Bunafit Nugroho (mahasiswa STMIK AKAKOM) yang telah berkenan membantu penyelesaian panduan praktikum ini.
Semoga buku ini memberi manfaat bagi pembaca, kritik dan saran kami harapkan agar buku ini lebih sempuirna di masa yang akan datang
Yogyakarta, 2-9-2004 Penyusun M. Guntara
Panduan Praktikum Pemrograman Basis Data Foxpro hal
2
Pemrograman Basis Data Modul 1 8
menggunakan
FOXPRO 6
Panduan Praktikum Pemrograman Basis Data Foxpro hal
3
MODUL I. PENGENALAN PEMROGRAMAN
MAKSUD DAN TUJUAN
Mahasiswa dapat memahami dasar pemrogramam dengan Visual Foxpro
6.
Mahasiswa dapat mengenal komponen dasar pemrograman
Mahasiswa dapat membuat form dengan Visual Foxpro 6.
DASAR TEORI
Memrograman Basis data dapat diselesaikan dengan beberapa Aplikasi
salah satunya adalah Visual Foxpro. Dengan menggunakan pernagkat lunak ini
pembuatan program aplikasi yang melibatkan basis data dapat dilakukan dengan
mudah dan cepat. Antar muka yang menarik dan mudah dipakai dapat dibuat
secara visual dan tanpa harus banyak menuliskan kode.
PRAKTIK
Menjalankan Visual Foxpro 6.0
Dari jendela Command pindah ke Direktori kerja anda ketikan :
SET DEFA TO H:
Atau
CD H: !!!! Direktori kerja
Pengenalan Objek
Objek pda Visual Foxpro dibedakan 2 golongan yaitu :
"#Kontrol (missal : Text box, list box, combo Box, label dll)
"#Kontainer (missal : Form, database, dll)
Membuat form
Pilih menu File New, maka akan tampail kotak dialog New File, maka
akan muncul opsi Form, kemudian klik tombol New File, maka akan
muncul beberapa jendela yang tersedia yaitu :
1. Jendela Form designer
Panduan Praktikum Pemrograman Basis Data Foxpro hal
4
2. Jendela Form
3. Jendela Form Kontrol
4. Jendela Properti
Seperti tampak berikut
Simpan ke Direktori kerja anda dengan nama latih1 (Form disimpan
dengan ekstensi .scx ( Latih1.scx).
Dalam perancangan, form berapa pada jendela Forn Designer Form
Control merupakan jendela yang memuat berbagai control yang
disediakan Visual Foxpro. Anda perlu memilih control yang terdapat
pada jendela ini sebelum menempatkan pada Form.
Bila jendela Form Control tidak terlihat, dapat dimunculkan dengan pilih
menu View Form Control Toolbar
Jendela property merupakan tempat untuk mengatur hal-hal yang
berkaitan dengan control yang terdapat pda form.
Selain istilah property (Karakteristrik atau sifat yang mendasari suatu
control seperti warna teks, ukuran dll ) terdapat.
o Kejadian (Event) : menyatakan suatu tidakan seperi saat mouse di
gerakan, tombol ditekan (Click Event), dll.
Pengenalan Control
Buat Form seperti berikut :
Panduan Praktikum Pemrograman Basis Data Foxpro hal
5
o Membuat Label pada form
Untuk menuliskan label atau keterangan No.Mhs dilakukan
dengan
1. Aktifkan jendela Form Controls
2. Klik ikon label pada Form Control
3. Klik pada lokasi pada Form tempat teks akan ditempatkan
4. Lebarkan tulisan yang dihasilkam pada langkah 3 (berupa
tulisan : label1) jika diperlukan dengan cara menarik ujung
kanannya.
5. Aktifkan jendela properties
6. Pada Tab Layout, Sorotlah property dengan nama Caption.
Isi semula berupa label1 diganti dengan No.Mhs Dan tekan
Enter
7. Agar ukuran label sesuai dengan Tulisan yang anda buat pada
Properties Autosize dari .F. False ganti dengan .T. True
Dengan cara yang sama buatlah di bawah No.Mhs yang lain (
Nama, Jenjang, Jurusan, Tahun Masuk)
o Membuat Kotak Teks
Petunjuk untuk membuat Kotak Teks yang terletak disebelah
kanan label No.Mhs
1. Aktifkan jendela Form Control
Panduan Praktikum Pemrograman Basis Data Foxpro hal
6
2. Klik Ikon Text Box ( )
3. Klik pada lokasi pada Form tempat kontak teks akan
ditempatkan
4. Lebarkan kotak yang dihasilkan pada langkah 3 dengan cara
menarik ujung kanannya jika diperlukan.
5. Aktifkan Jendela Properties
6. Pada Tab Order, sorotlah Properties dengan nama Name,
Gantilah dengan TextNomhs
TextNomhs adalah nama untuk kode teks yang telah anda
buat Nama ini nantinya akan akacu pada kode yang akan
anda tuliskan
Dengan cara serupa buatlah Kotak Teks disebal label nama
denagan Properties Name = TextNama
o Membuat Optiongroup
Petunjuk untuk membuat optiongroup
1. Klik pada Icon pada form Controls
2. Klik pada bagian Form, tempat option group akan diletakkan
3. Klik tombol Kanan mouse pada Kontrol Option Group yang
terdapat pada Form.
4. Pilih Builder pada mem Pop up yang ganti Number Of
Button = 2 (jumlah item pada option group) dan pada
caption tuliskan S! dan D3 sebagai berikut :
Panduan Praktikum Pemrograman Basis Data Foxpro hal
7
5. Klik pada Tab berjudul Layout
6. Klik pada tombol radio Horizontal
7. Pilihlah BorderStyle, berupa None (tanpa Bingkai), Klik
Tombol OK
8. Ubahlah Properties Name dengan Opgjenjang
Dengan cara yang sama buatlah Optiongroup untuk Jurusan
dengan nama Opgjurusan
o Membuat Spinner
Spinner adalah suatu kotak pengentri nilai numeris yang dapat
ditambah atau dikurangi melalui suatu penaik atau penurun
Petunjuk Membuat Spinner
1. Klik pada icon spinner pada Form control
2. Klik pada bagian Form, tempat spinner akan diletakkan
3. Lebarkan kotak yang dihasilkan pada langkah 2 dengan cara
menarik ujung kanannya.
4. Ubahlah Properties Name dengan Spintahun
Panduan Praktikum Pemrograman Basis Data Foxpro hal
8
5. Ubahlah Properties Value = 2000
o Membuat Tombol Perintah (Command)
Tombol perintah digunakan untuk melakukan suatu tindakakn
kiranya pengguna untuk mengkliknya.
Berikut merupakan petunjuk untuk menambahkan tombol
perintah yang
Berjudul keluar
1. Kliklah pada icon Command Button pada form control
2. Gerakkan penunjuk ke form, tempatkan pada lokasi tombol
perintah tersebut hendak ditempatkan
3. Lebarkan tombol perintah ini secukupnya
4. Aktifkan jendela Properties
5. Ubahlah Properties Caption dengan \
Panduan Praktikum Pemrograman Basis Data Foxpro hal
9
Thisform.spintahun.value = year(date())
o Menguji Aplikasi
Meskipun antar muka belum dibuat dengan lengkap kita dapat
menguji form yang dibuat dengan cara :
1. Pilihlah menu Form (Alt-M)
2. Kemudian pilih Run Form
Atau dengan cara yang lebih singkat, klik pada icon Run
o Mengakhiri pengaksesan dan kembali ke Form Designer klik
tombol
D. TUGAS
1. Lakukan pengubahan pada judul form dengan Daftar Mahasiswa
2. Lakukan pengubahan warna form, jenis huruf serta tampilan sesuai yang
anda suka
Panduan Praktikum Pemrograman Basis Data Foxpro hal
10
Modul 2. Perekaman data dari FORM ke Tabel
2.1 Tujuan
1. Agar mahasiswa dapat memahami cara membuat tabel
2. Agar mahasiswa dapat membuat kode program untuk perekaman data ke
tabel
2.2 Landasan Teori
2.2.1 Manipulasi record
Manipulasi record adalah proses yang dapat dilakukan terhadap suatu record
menambah, menghapus dan mengubah.
1. Menambahkan record kosong
Intruksi :
Append Blank
2. Menyisipkan recod baru
Intruksi :
INSERT INTO nama_tabel ( field_a, field_b, , field_n)
VALUE ;
(data_a, data_b,,data_n)
3. Menganti record
Intruksi
REPLACE field_a WITH var1, ;
Field_b WITH var2,;
Dst
4. Membuka / mengaktifkan table
Intruksi :
USE nama_tabel
5. Memindahkan pointer ke table yang sudah aktif
Intruksi
SELECT nama_tabel
6. Menutup/menonaktifklan tabel
Intruksi :
CLOSE Database
Panduan Praktikum Pemrograman Basis Data Foxpro hal
11
7. Menciptakan struktur tabel baru
Intruksi :
CREATE nama_tabel (field_a fieldtype(nfieldwidth),;
field_b fieldtype(nfieldwidth, )
8. Mengubah/memodifikasi struktur tabel yang sudah diaktifkan
Intruksi
MODI STRU
9. Melihat isi tabel
Intruksi
BROWSE
2.3 Langkah Praktikum
1. Buatlah tabel dengan nama tabel : Mahasiswa.Dbf dengan langkah
1. Klik : File New Table New File Ketik : mahasiswa.Dbf Save
2. Isi Table Designer dengan struktur sebagai berikut:
3. Setelah selesai mengisi struktur tabel klik OK
4. Setelah itu muncul Input Record Data Now, Klik NO
2. Buatlah Form dan properties seperti dibawah ini
Panduan Praktikum Pemrograman Basis Data Foxpro hal
12
Keterangan Form
Nomor Kontrol Control Properties
0 Form Name : form1(default)
1 TextBox Name : TextNomhs
2 TextBox Name : TextNama
3 TextBox Name : TextKd_Jur
4 Command button Caption : \
Panduan Praktikum Pemrograman Basis Data Foxpro hal
13
Nomor Kontrol 5
KELUAR Click Event
Ketik :
CLOSE Data
Thisform.Release() //Menutup Form
Daftar Isi Tabel Jurusan
Kd_Jur Jurusan
J01 Teknik Informatika
J02 Sistem Informasi
J03 Manajemem Informatika
J04 Teknik Komputer
J05 Komputer Akuntansi
3. Simpan form diatas dengan nama form : rekam.scx
4. Jalankan form tersebut
5. Isikan data pada form dan rekam dengan ketik BROWSE pada Command
Window.
6. Bila sudah terekam, isilah tabel menggunakan form tersebut dengan
beberapa record lagi.
7. Bila sudah terekam, isilah tabel menggunakan form tersebut beberapa
record lagi.
8. Setelah Selesai klik Tombol KELUAR
2.4 Tugas 1. Buat tabel jurusan.dbf untuk menyimpan data jurusan
2. Buat Form baru untuk merekam data jurusan ( lihat isi tabel jurusan)
Panduan Praktikum Pemrograman Basis Data Foxpro hal
14
Modul 3. Menampilkan data dengan Form
3.1 Tujuan
1. Memahai cara mengambil data dari suatu tabel
2. Menampilkan data/ isi tabel ke Form
3.2 Landasan Teori
Menampilkan isi tabel secara umum dapat dilakukan dengan 2
cara, yaitu menggunakan Form dan report. Menampilkan data/informasi
dengan media form berarti menampilkan data/informasi dengan format
dan fasilitas layar, sehingga ukuran dan variasi warna dapat disesuaikan
dengan kemampuan layar.
Terdapat beberapa cara menampilkan data ke form berdasarkan informasi
yang disajikan
1. Menampilkan isi tabel secara umum dapat dilakukan dengan 2
cara, yakni mengunakan Form dan report. Menampilkan
data/informasi dengan media form berarti menampilkan
data/informasi dengan format dan fasilitas layar, sehingga ukuran
dan variasi warna dapat disesuaikan dengan kemampuan layar.
- Mencari data suatu record pada tabel
LOCATE FOR field_kunci = data_kunci
Keterangan :
Field_Kunci : field yang digunakan untuk acuan pencarian
Data_Kunci : data yang digunakan sebagai acuan untuk
mencari
- Menampilkan isi field dari suatu record dengan
label/textbox
THISFORM.Name.CAPTION/VALUE = nama_field
Keterangan :
Label : dengan Caption
Panduan Praktikum Pemrograman Basis Data Foxpro hal
15
Textbox : dengan Value
2. Menampilkan daftar record (Isi Tabel)
a. Semua record, dimana data pada semua record ditampilkan
b. Sesuai dengan criteria (filtering), dimana data yang
dimunculkan disaring sesuai dengan criteria tertentu.
Perintah Filtering
SET FILTER TO Field_kunci1 # data_kunci1 ;
Field_kunci2 # data_kunci2
Keterangan :
Dengan # adalah =, >, ,
adalah .and., .OR., .NOR., .XOR., dll
3. Menampilkan rekapitulasi , dimana informasi yang ditampilkan
sifatnya rangkuman dari tabel untuk tujuan tertentu
3.3 Langkah Praktikum
3.3.1 Menampilkan data per record
1. Buatlah form sebagai berikut
Keterangan Form
Nomor Control Control Properties
0 Form Name : Form1(Default)
1 TextBox Name : Textnomhs
2 Label Name : Labelnama
1 2
3
0
Panduan Praktikum Pemrograman Basis Data Foxpro hal
16
Caption : labelnama
3 Label Name : Labeljurusan Caption : labeljurusan
2. Buatlah kode program sebagai berikut
Nomor Kontrol 0
Form1 LoadEvent
Ketik : USE mahasiswa.dbf
Nomor Kontrol 1
Ketik GO TOP LOCATE FOR nomhs = RTRIM(Thisform.textnomhs.value) //mencari record
IF FOUND() Thisform.labelnama.caption = nama DO CASE CASE kd_jur = J01
Thisform.labeljurusan.value = Teknik Informatika CASE kd_jur = J02 Thisform.labeljurusan.value = Sistem Informatika CASE kd_jur = J03 Thisform.labeljurusan.value = Manajemen Informatika CASE kd_jur = J04 Thisform.labeljurusan.value = Teknik Komputer CASE kd_jur = J05 Thisform.labeljurusan.value = Komputer Akuntansi END CASE
ELSE MESSAGEBOX(Data yang dicari Tidak Ada)
Thisform.labelnama.value = Thisform.labeljurusan.value =
Thisform.textnomhs.setfocus() Endif
3. Lengkapi kode untuk keluar dari form
4. Simpan form diatas dan jalankan
5. Masukkan nomor yang akan dicari, cek apakah bila nomor
ditemukan data akan muncul dan bila tidak ditemukan akan muncul
pesan tidak ditemukan
3.4 Tugas
Panduan Praktikum Pemrograman Basis Data Foxpro hal
17
1. Modifikasilah aplikasi diatas, dengan data kunci pencarian berupa
nama mahasiswa
Modul 4. Pengurutan dan Penyaring ( Filtering)
4.1 Tujuan 1. Agar dapat memahami cara menampilkan semua data di Form
2. Agar dapat memahami cara mengurutkan data di form
3. Agar dapat memahami cara menampilkan data di form dengan Kriteria
tertentu
(disaring)
4. Agar mahasiswa dapat menggunakan control : ListBox, Grid, dan
RadioButton/ OptionGroup
4. 2 Landasan Teori
4.2.1 Pengurutan
Pengurutan suatu tabel dapat dilakukan dengan cara mengindex tabel
sesuai dengan field kunci indexnya. Terdapat 2 jenis index
a. Index tunggal, bila tabel tersebut hanya diindex atas dasar 1 field saja
Menciptakan File index:
INDEX ON field_kunci To nama_File_index.IDX
Untuk Mengaktifkan :
SET INDEX TO nama_file_index.IDX
b. Index majemuk (Compound index), bila dalam 1 tabel field kunci index
lebih dari satu
Menciptakan File Index majemuk
INDEX ON Field_kunci1 TAG nama_index1
INDEX ON Field_kunci2 TAG nama_index2
.
Untuk mengaktifkan
SET ORDER TO nama_indek1, bila ingin urut atas dasar field
kunci1, dst
Panduan Praktikum Pemrograman Basis Data Foxpro hal
18
Catatan : File index majemuk tersimpan dalam file dengan nama sesuai dengan nama tabel extensi .CDX dan otomatis diaktifkan saat tabel dibuka. Nama Idex han digunakan sebagai tanda (tag) sesaui dengan field kunci indenya
c. Pengidexkan dalam tabel dapat juga dilakukan lewat Modifikasi Strutur
tabel yaitu dengan Cara:
Pada Command Window Ketik : MODI STRU
Sehingga akan tampil sebagai berikut :
Keterangan :
1. Klik Index untuk mengindek field tabel secara Ascending atau
Descending
2. Untuk mengaktifkan index : SET ORDER TO nama_indek
( Nama_Index secara otomatis sesuai dengan nama field )
4.2.2 Penyaringan
Data yang terekam di basis data sifatnya masih mentah dalam arti semua
data terrekam disana. Agar informasi yang dihasilkan lebih berguna dapat
dilakukan penyringan dari data mentah tersebut.
Intruksi :
SET FITER TO field_kunci = data Kunci
Suatu tabel yang sudah di filter maka semua proses yang ada hanya terkait
dengan record yang terfilter tersebut. Untuk mengembalikan ke posisi awal/
record semula gunakan perintah
SET FILTER TO
4.2.3 Control dan Fungsinya
1
Panduan Praktikum Pemrograman Basis Data Foxpro hal
19
Var : THISFORM.name.Value/Caption, bila diambil dari / untuk
Form
: Variabel memori biasa
K : Konstanta
Control Kegunaan Mengambil data dari control Optiongroup Memilih 1 pilih sengan
cacah alternative pilihan sedikit (2-3)
Do Case Case name = 1 tombol pertama di klik Proses1 Case name = 2 tombol kedua di klik Proses2 dst ENDCASE
Grid Menampilkan isi record dalam bentu tabel
ListBox Menampilkan isi tabel (file) dalam bentuk format tabel analag
Var = Thisform..name.value Mengambil nilai saat di klik If ListIndex>0 Var = this.list(this.listIndex) Endif
4.3 Langkah Praktikum
1. Buatlah Form seperti dibawah ini
Keterangan Form
Nomor Control
Control Properties
0 Form Name : Form1(default) 1 Optiongroup Name : pil 2 ListBox Name : Jurusan 3 Grid Name : Grid1 (Default)
1 2
3
0
Panduan Praktikum Pemrograman Basis Data Foxpro hal
20
2. Buatlah kode program sebagai berikut :
No control 0 : Form LoadEvent
USE Mahasiswa.dbf
No control 0 : Form InitEvent
Public Jurusan Thisform.grid1.recordsourcetype = 6 Thisform.grid1.recordsource = mahasiswa Thisform.grid1.columncount = 3 Thisform.grid1.column1.controlsource = mahasiswa.nomhs Thisform.grid1.column2.controlsource = mahasiswa.nama Thisform.grid1.column3.controlsource = mahasiswa.Kd_jur Pastikan untuk field nomhs dan nama dalam tabel mahasiswa telah di
index
Dapat diindek lewat modifikasi tabel
MODI STRU
Nomhs secara Ascending
Nama secara Ascending
No Control 1 : Pil ClickEvent
Do Case Case thisform.pil.value = 1 Set order to nomhs Case thisform.pil.value = 2 Set order to nama Endcase Thisform.grid1.refesh() No Control 2 : Jurusan ClickEvent If this.listindex > 0 Jurusan = this.list(this.listindex) Endif If RTRIM(jurusan) = Semua Set Filter To Else Set filter To Set filter to kd_jur = rtrim(jurusan) Endif Thisform.grid1.refresh()
3. Isi caption/text pada Optiongroup ( no control 1) dengan cara
1. Letakkan kursor diatas control no.1, kemudian di klik 2. Pindahkan kursor ke jendela Properties 3. Klik bagian combo ( pada teks: pil) 4. Klik Option1
Panduan Praktikum Pemrograman Basis Data Foxpro hal
21
5. Klik Layout Caption 6. Ketik No Mahasiswa, kemuadian tekan Enter 7. Klik bagian Combo 8. Klik Option2 9. Klik layout- Caption 10. Ketik Nama, kemudian tekan Enter
4. Buatlah desain Grid seperti diatas dengan cara
1. Letakkan kursor diatas Grid (no control 2) kemudian di klik
2. pindahkan kursor keProperties
3. Klik Layout ColumnCount : 3
4. Klik Header1
5. Isikan pilihan jurusan pada listbox (no control 2) dengan
1. Arahkan kursor ke control listbox, kemudian di klik
2. Arahkan kursor ke properties
6. Simpan form
7. jalankan, kemudian dicoba pilihan pengurutan, amati apakah urutan
berubah ( dari urut no mahasiswa menjadi urut nama dan sebaliknya)
8. Pilih jurusan pada listbox, amati hasilnya
4.4 Tugas
Buatlah pengurutan atas dasar Kode Jurusan, dengan menambah 1 item pilihan
pada OptionGroup sehingga pilihan pengurutan menjadai : No.Mahasiswa,
Nama, Kode Jurusan.
Catatan :
Jangan lupa tambahkan indek Kode Jurusan pada Form1- load Event.
Panduan Praktikum Pemrograman Basis Data Foxpro hal
22
Modul 5. Relasi Antar Tabel
5.1 Tujuan
1. Agara memahami cara penghubung 2 tabel untuk menghasilkan 1 laporan
2. Agar dapat mengatur properties Grid menggunakan jendela properties (pda
modul
mengunakan prosedur)
5. 2. Landasan Teori
Pada suatu pengolahan data dengan pendekatan basis data maka 1
laporan dapat dihasilkan dari 2 table yang terkait atau lebih. Untuk
menghubungkan antar tabel diperlukan kunci penghubung.
Bila dalam suatu proses memerlukan 2 tabel atau lebih maka dalam
memmbuak tabel harus didahului dengan SELECT, sehinga kodenya sebagai
berikut :
SELECT 1 Use table1 [ALIAS alias1] SELECT 2 Use table2 [ALIAS alias2] dst Unruk proses selanjutnya bila akan memindahkan pointer dari tabel satu
ke yang lain cukup dengan
SELECT 1 atau SELECT alias1 , bila ingin mengaktifkan tabel 1
Dan seterusnya
Bila ALIAS (nama lain tabel) tidak digunkan maka ALIAS sama dengan
nama tabelnya.
Untuk merelasikan ke tabel lain memiliki algoritma sebagai berikut
1. Aktifkan tabel pokok/tabel referensi/tabel transaksi yaitu tabel yang
berisi data pokok / tabel yang akan ditampilkan/diproses
2. lakukan rwelasi ke tabel indul dengan catatan tabel induk ini diidex
atas dasar kunci primernya. Perintah untuk merelasikan
SET RELATION TO kunci_tamu INTO nomor area tabel induk
Atau
SET RELATION TO Kunci_tamu INTO alias dari tabel induk
Panduan Praktikum Pemrograman Basis Data Foxpro hal
23
Atau bisa juga lewat data Environment yaitu dengan cara
1. Klik kanan mouse dalam form sehingga muncul option
berikut :
2. Pilih Data Environment, selanjutnya masukan tabel yang
akan digunakan yang pertama adalah tabel induk, kemudian
masukan lagi tabel transaksi ( dapat dengan klik Other, atau
jika sudah dalam jendela data environment Klik kanan
Mouse pilih Add, pilih tabel transaksi)
3. Selanjutknya tarik field tabel yang akan direlasikan dengan
field kunci yang akan direlasikan seperti tampak pada gambar
berikut :
Catatan :
Penggunaan data Environment tidak untuk berlaku untuk
multisuser
3. Untuk mengambil data dari tabel induk sementara pointer pada posisi
tabel transaksi
Var = alias tabel induk.nama_field Atau Var = alias tabel induk -> nama_field
5.3 Langkah Praktikum
Panduan Praktikum Pemrograman Basis Data Foxpro hal
24
1. Buatlah tabel baru yaitu tabel Jurusan.dbf, dengan struktur sebagai
berikut:
Field Name Type Witdh Kd_jur C 3 Jurusan C 30
2. Dengan Command Windows isilah data, dengan perintah, APPEND,
sehingga tabel menjadi sebagai berikut :
Kd_Jur Jurusan J01 Teknik Informatika J02 Sistem Informasi J03 Manajemem Informatika J04 Teknik Komputer J05 Komputer Akuntansi
3. Cek apakah tabel mahasiswa yang sudah dibuat masih ada, jika tidak
buat tabel mahasiswa.Dbf, dengan struktur data seperti modul 2. Isilah
data pda tabel tersebut kurang lebih 10 record dengan jenjang yang
berbeda
4. Buatlah form untuk menampilkan data sebagai berikut :
Keterangan Form
Nomor Kontrol
Kontrol Properties
0 Form Name : Form1(default) 1 ComboBox Name: ComboJurusan 2 Grid Name : grid1(default)
5. Pengaturan Grid ( menggunakan jendela properties)
1
2
Panduan Praktikum Pemrograman Basis Data Foxpro hal
25
a. membuat nama kolom
- klik jendela Grid1
- klik combo grid pada properties
- Klik Column1 header1 : No.Mahasiswa
- Klik Column2 header1 : Nama
- Klik Column3 header1 : Jurusan
b. menentukan lebar kolom
- Klik Column (kolom No.Mahasiswa)
- Klik garis vertical klolom (disebelah kanan kolom)
tombol tetap di tekan gerakkan kursor kekiri/kanan
sesuai lebar yang dikehendaki
- Lepaskan tombol
- Dengan cara yang sama atur lebar kolom 2 (kolom
nama) dan kolom 3 ( kolom jurusan)
c. menghubungkan grid ke basis data
- Klik Data- RecordSourceType : 1 Alias
- Klik RecodSource: mahasiswa
- Klik ComboGrid1
- Klik Column1 data controSource :
mahasiswa.nomhs
- Klik Column2 data controSource :
mahasiswa.nama
- Klik Column1 data controSource :
jurusan.namajur
6. Buatlah kode untuk memvbuka tabel pada form1 loadEvent SELECT 1 USE mahasiswa.dbf SELECT 2 USE jurusan.dbf SELECT 1 SET RELATION TO kd_jur INTO 2
7. Buat kode untuk pemilihan jurusan pada ComboJenjangclickEvent Public kodejurusan, nmjurusan Nmjurusan = this.value SELECT 2 LOCATE FOR namajur = RTRIM(nmjurusan) Kodejurusan = Kd_jur
Panduan Praktikum Pemrograman Basis Data Foxpro hal
26
SELECT 1 SET FILTER TO SET FILTER TO kd_jur = Kodejurusan Thisform.grid1.refresh() 8. Jalankan form tersebut pilihlah salah satu Jurusan pada combo, apakah
isi tabel berubah?
5.4 Tugas
1. Tambahkan pada data Semua pada tabel Jurusan dan tambahkan kode
program pda Combojurusan-ClickEvent, sehingga bila dipilh JUrusan
Semua, amka semua record akan tampil di Grid (lihat modul 4)
Panduan Praktikum Pemrograman Basis Data Foxpro hal
27
Modul 6. Report
6.1 Tujuan
1. Agar memahami cara membuat laporan dengan report
2. Agar memahami cara mengelola file-file menjadi 1 project
3. Agar memahami cara merancang dan menggunakan menu
6.2 Landasan teori
6.2.1 Report
Report adalah keluaran dari suatu proses dalam format kertas. Report ini dapat
ditampilkan lewat monitor maupu printer
A. Flowchart sistem menampilkan pada report
Tabel Mahasiswa.dbf
Nomhs Nama Kd_jur 015410089 Ida Ayu J01 003110034 Kurniawan J03 003110056 Wahyu J03 015410078 Bayu Prasetyo J01
Tabel jurusan.dbf
Kd_Jur Jurusan J01 Teknik Informatika J02 Sistem Informasi J03 Manajemem Informatika J04 Teknik Komputer J05 Komputer Akuntansi
Algoritma menampilkan data
1. Aktifkan semua tabel yang saling terkait dan buat relasinya
PROSES CETAK
REPORT 1 DAFTAR MAHASISWA
Nomhs Nama Jurusan 015410089 Ida Ayu Teknik Informatika 003110034 Kurniawan Manajemen Informasi 003110056 Wahyu Manajemen Informasi 015410078 Bayu P. Teknik Informatika
REPORT 2 DAFTAR MAHASISWA PER JURUSAN Jurusan : Teknik Informatika NoMhs Nama 015410089 Ida Ayu 015410078 Bayu P
Panduan Praktikum Pemrograman Basis Data Foxpro hal
28
2. Masukkan criteria data yang ditampilkan dengan Form
3. Panggil report
B. Report Designer
Report Designer adalah media untuk merancang laporan dan sekaligus
menghubungkan ke basis data. Jendela report designer seperti terlihat
dibawah ini
Secara umum Report designer terdiri atas 3 jendela :
1. Page Header, digunakan untuk menempatkan judul laporan, nama
kolom dan keterangan tentang laporan lainnya.
2. Detail, digunakan untuk menempatkan field, variable dan isi kolom
lainnya.
3. Page Footer, digunakan untuk catatan, keterangan halaman dan lain-lain
pada bagian bawah kertas
Untuk memanipulasi Report terdapat 2 tool pokok
1. Report Control, berisi alat-alat untuk merancang report : membuat
teks, menempatkan field tabel ke report, membuat garis-garis dan
aksesories lainnya.
2. Data Environment, digunakan untuk menghubungkan report ke basis
data/tabel
Report Control
Jendela data Environment
Penempatan Judul dan Nama Kolom
Penempayan Isi Kolom Penempatan Footer
Panduan Praktikum Pemrograman Basis Data Foxpro hal
29
6.3 Langkah Praktikum
1. Buatlah Report baru dengan : File- New report new file
2. Selanjutnya baut Judul Laporan Daftar Mahasiswa dan judul kolom
No.Mahasiswa, Nama, Jurusan dengan klik pada report
control, sehingga Report menjadi seperti dibawah ini
3. Tampilkan jendela Data Enviroment dengan cara klik tombol ke-2 saat
kursor diatas Report, kemudian pilih Data Environment pada context
menu
4. Masukan tabel-tabel yang terkait dengan Report tersebut, dengan cara
a. tempatkan kursor pada jendela Data Environment
b. klik tombol ke 2 mouse
c. klik Add, pada context menu
d. Pilih tabel : mahasiswa.dbf
e. Ulangi langkah (1) untuk menambahkan tabel Jurusan.dbf ke
Data Environment
5. Masukkan field ke Report dengan cara menyeret field pada Data
Environment ke jendela Detail, field Nomhs ke kolom No
mahasiswa, nama ke kolom Nama, dan namaJur ke kolom Jurusan
6. Rekam Report tersebut, missal dengan nama file : DAFTAR.FRX
Report Control
Jendela data Environment
Penempatan Judul dan Nama Kolom
Penempayan Isi Kolom Penempatan Footer
Panduan Praktikum Pemrograman Basis Data Foxpro hal
30
7. Jalankan Report diatas dengan cara
a. tempatkan kursor pada Report
b. Klik tombol ke-2
c. Klik Preview
8. Amatilah apa yang terjadi? Apakah jenjang sudah sesuai dengan
mahasiswa masing-masing? Bila belum mengapa hal itu terjadi?
(jawablah pertanyaan ini dalam laporan sementara)
9. Membuat relasi antar tabel dan pengendali Report, untuk membuat
dagtar mahasiswa
a. buatlah form seperti dibawah ini
b. Buat Kode pada
Form1 LoadEvent Select 1 Use Mahasiswa Select 2 Use Jurusan Set Relation to Kd_jur into Jurusan
Tombol Tampil ClickEvent REPORT FORM daftar.frx PREVIEW
Tombol Cetak-ClickEvent REPORT FORM daftar.frx TO Print
c. Simpan form tersebut dan jalankan
d. Cobalah klik tombol TAMPIL, amati apakah data yang tampil
sudah benar, bila belum cek kodenya
e. Agar hasil laporan tercetak ke printer, klik CETAK
6.3.1 Tugas
Sempurnakanlah Report tersebut dengan memberikan garis-garis vertical
maupun horizontal
Panduan Praktikum Pemrograman Basis Data Foxpro hal
31
Modul 7. Project dan Menu
7.1 Tujuan
1. Agar memahami cara menyatukan file-file dalam suatu aplikasi pada
suatu project
2. Agar memahami cara membuat menu untuk menjalankan aplikasi
7.2 Landasan Teori
7.2.1 Project
Project dalam Visual Foxpro adalah upaya untuk mengelola semua file yang
diperlukan dalam suatu aplikasi ke dalam satu sistem
Elemen dalam project ini terdiri atas :
- Data, yaitu berisi database, Free table, maupun query
- Document, berisi file-file : Form (.scx), Report (.Frx), label (.lbx)
- Code, berisi kode program
- Other, berisi file-file : menu (.mnx), textfile, dll
7.2.2 Menu
Menu adalah sekumpulan perintah untuk mengoperasikan suatu proses yang
disusun dengan criteria tertentu. Pada FoxPro sistem menu yang digunakan
adalah menu pull Down.
Menu Pul-Down memiliki sejumlah pilihan dimana pilihan tersebut disajikan
secara hirarkhis/berjenjang. Jenjang paling tinggi disebut dengan menu utama
(menu Bar dalam Foxpro), setiap menu utama dapat memiliki sub menu dan sub
menu dapat memiliki sub-sub menu dan seterusnya.
7.3 Langkah Praktikum
7.3.1 Membuat Project
1. Klik New-Project-New File : Akakom (missal nama project-nya :
Akakom.pjx)
2. Kemudian klik Save, selanjutnya akan muncul Jendela Project Manager
sebagai
berikut :
Panduan Praktikum Pemrograman Basis Data Foxpro hal
32
3. Untuk memasukkan tabel-tabel ke Project, klik + di sebelah kiri text
Data kemudian klik Free Table sehingga teks ini tersorot (warna dasar
biru)
4. Klik Add, akan muncul jendela Open, pilihlah tabel yang pernah dibuat
missal : tabel Mahasiswa.dbf
5. Untuk menambahkan tabel lagi missal tabel Jurusan.dbf pada project
Akakom.pjx, lakukan langkah seperti no 4 diatas
6. Untuk melihat tabel-tabel terdapat dalam project klik + pada kiri Free
table. Sedangkan untuk melihat struktur tabel (field-field pada tabel) klik
+ sebelah kiri tabel yang terkait
7. Masukkan Form-form yang telah dibuat ke Project dengan klik +
Documents pada Project Manajer, kemudian klik Form, lakukan
langkah seperti no. 4 dan seterusnya
8. Dengan langkah yang sama masukkan pula file Report dengan klik +
Document Report.
9. Cetaklah struktur project tersebut, agar semua file terlihat klik kelompok
tyang masih bertanda + sehingga menjadi - .
10. Untuk keluar dari Project Manajer, klik x , pada jendela kanan atas.
* Untuk laporan sementara, cetak struktur file yang terdapat dalam Project
Manajer.
Panduan Praktikum Pemrograman Basis Data Foxpro hal
33
7.3.2 Membuat Menu dan menjalankannya
1. Klik New-Menu-New File-Menu, selanjutnya akan muncul sebagai
berikut
2. Untuk membuat menu utama ketik Masuk pada kolom Prompt,
kemudian klik tombol , kemudian ketik Tampil, klik tombol ,
ketik Cetak,klik tombol ketik Keluar.
3. untuk membuat sub menu pada Menu Masuk, klik Masuk, kemudian
pilih Sub menu pada kolom Result, kemudian klik Create maka akan muncul sub menu editor. Ketik Data Mahasiswa dan Jenjangberturut -
turut baris ke 1 dan ke 2 pada kolom Prompt.
4. Agar menu dapat menjalankan suatu perintah, misalnya akan memasukkan
data mahasiswa pada saat menu data mahasiswa di klik,
klik menu Data Mahasiswa
pilihlah perintah Command pada kolom Result, kemudian klik
Create.
Catatan :
Result pada menu designer berfungsi untuk menentukan tindakan apa bila menu di Klik, terdiri atas Command bila menjalankan perintah tertentu, misal
- Menjalankan Form dengan Do nama Form.scx - menjalankan Report dengan Report Form
nama_report.frx Submenu, bila menu ini diklik akan muncul submenu Procedure, bila menjalankan suatu prosedur
Ketik : DO form rekam.scx pada kotak sebelah kanan
Command (rekam.scx adalah nama form untuk pemasukan data
mahasiswa. Bila diberi nama lain sesuaikan).
Panduan Praktikum Pemrograman Basis Data Foxpro hal
34
5. Atur menu dengan View General Option , Klik Append , dan beri
tanda pada Top Level Form sehingga menjadi sebagai berikut :
6. Klik OK
7. Simpan file menu ini (.mnx) missal dengan nama file : Pilihan.mnx
8. Agar menu ini dapat dijalankan bersama Form utama, Klik Menu
generate, pada menu utama visual Foxpro, Klik GENERATE pada
jendela Generate Menu seperti di bawah ini
9. Generate menu ini akan menghasilkan file menu dengan ekstensi.mpr
* Untuk laporan sementara cetak menu dan form utama yang sedang dijalankan
7.3.3 Menggabungkan menu dengan form utama
1. Menu yang sudah dibuat dan degenerate diatas belum bisa langsung
dijalnkan masih butuh pengabungan dengan form sebagai form
utamanya, oleh karena itu buatlah form baru dengan New- Form New
File
2. Aturlah properties form : Form1 Layout- Show Window : 2 As
Top Level Form
Catatan :
Shoe window digunakan untuk menempatkan posisi form 0 In Screen , forn berada dalam layar bersam ajendela Visual Foxpro
Panduan Praktikum Pemrograman Basis Data Foxpro hal
35
1 In Top level, form berada dalam form/jendela utama
2 AS Top Lovel Form, form sebagai Jendela Utama
3. Pada Form1-Methode-InitEvent, ketik :
Do pilihan.mpr WITH THIS
Simpan form utama ini dan jalankan 4. Cobalah di Klik Masuk Data Mahasiswa, apakah form pemasukan
data muncul, kalau belum kemungkinan ada kesalahan penulisan nama
form tersebut
7.4 Tugas
1. Lengkapi menu utama dengan sub menu yang diperlukan dan isi
command untuk menjalankan prosesnya (form/report)
(jangan lupa setiap perubahan menu, harus degenerate lagi)
1. Buatlah background pada menu utama dengan gambar bebas
Petunjuk : atur properties Form1-Layout-Picture
2. Masukkan file form utama ke Project yang telah dibuat
Panduan Praktikum Pemrograman Basis Data Foxpro hal
36
Modul 8. Gambar (image)
8.1 Tujuan
1. Agar dapat merancang database untuk gambar
2. Agar memahami cara merekam gambar dengan form
3. Agar memahami cara menampilkan gambar .
8.2. Landasan teori
Media yang sampai saat ini sering digunakan untk berinteraksi antara
lain media teks, gambar dan suara, dan melalui media film. Tidak menutup
kemungkinan dimasa yang akan datang media komunikasi dapat melalui bau,
sensor saraf, dan lain sebagainya.
File gambar memiliki berbagai jenis dari
BMP,JPG,PCX,JPEG,TIF,GIF dan lain sebagainya. File gambar dasar adalah
BMP, sedangkan yang lain adalah hasil kompresi dari BMP sehingga ukuran
filenya selalu lebih kecil dari BMP.
8.3 Langkah Praktikum
1. Buat tabel :barang.dbf
Field : nama_brg C(30) $ nama dari barang
Gambar c(15) $nama file gambarnya (.bmp)
2. Buatlah form untuk memasukkan gambar dan suara sebagai berikut.
1
2
4
3
5
Panduan Praktikum Pemrograman Basis Data Foxpro hal
37
Kode dari control sebagai berikut. :
Ket : Bold : nilai default (dapat diubah bila perlu) Bold Italic : diketik
Data Environtment Gambar.dbf No control 1 Control : textbox Name : text1 No control 2 Control : ListBox Name : list1 ClickEvent : thisform.image1.picture=thisform.list1.value No control 3 Control : Image Name : image1 No control 4 Control : Command1 Caption : Rekam ClickEvent:
INSERT INTO GAMBAR(NAMA_GB,GAMBAR) VALUE (thisform.text1.value,thisform.list1.value);
No control 5 Control : Command1 Caption :Keluar ClickEvent: THISFORM.RELEASE()
3. Jalankan form tersebut dan masukkan nama dari barang kemudian pilih
gambar yang sesuai
4. Cek pada tabel apakah sudah terekam atau belum dengan command
line: browse. Bila belum ada data , cek di kode apakah sudah tertulis
semua atau belum
5. Buat form untuk menampilkan gambar sekaligus suara seperti di bawah
ini
Panduan Praktikum Pemrograman Basis Data Foxpro hal
38
Data Environtment Gambar.dbf No control 1 Control : listbox Name : list1 Clickevent: thisform.image1.picture=gambar $ menampilkan pada control image dari nama field yg berisi nama file gambar No control 2 Control : optionroup (radio button) Name : optiongroup1 ClickEvent :
do case case thisform.optiongroup1.value=1 thisform.image1.stretch=0 case thisform.optiongroup1.value=2 thisform.image1.stretch=2 endcase
1
2
3
Panduan Praktikum Pemrograman Basis Data Foxpro hal
39
No control 3 Control : image Name : image1
6. Jalankan form tersebut dan amati tampilan gambar dengan memilih
nama barang/obyek pada list barang.
7. Pilihlah mode gambar Clip/Strecth pada radio button pilih mode amati
hasilnya/perbedaannya.
8.4. Latihan
Gantilah listbox pada pada form tersebut dengan combo box .
8.5. Tugas
Jawab pertanyaan dibawah ini pada laporan sementara !
Apakah perbedaan gambar pada image mode clip dan stretch ?
Top Related