dasar foxpro

Panduan Praktikum Pemrograman Basis Data menggunakan FOXPRO 6

UPT LABORATORIUM LABORATORIUM STMIK AKAKOM

Pemrograman Basis Data Modul 1 – 8

menggunakan FOXPRO 6

Panduan Praktikum Pemrograman Pemrograma n Basis Data – Foxpro

hal

2

MODUL I. PENGENALAN PEMROGRAMAN MAKSUD DAN TUJUAN

Mahasiswa dapat memahami dasar pemrogramam dengan Visual Foxpro 6. Mahasiswa dapat mengenal komponen 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 :


hal

3

1. Jend Jendel elaa For Form m desi design gner er 2. Jendela Fo Form 3. Jend Jendel elaa Form Form Kont Kontro roll 4. Jend Jendel elaa Prop Proper erti ti 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 merupa paka kan n jend jendel elaa yang yang memu memuat at berb berbag agai ai cont contro roll yang yang Control meru 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 merupa paka kan n temp tempat at untu untuk k meng mengat atur ur hal-h hal-hal al yang yang Jendela Jendela property property meru berkaitan dengan control yang terdapat pda form. Selain istilah istilah property property (Karakteristr (Karakteristrik ik atau sifat yang yang mendas mendasari ari suatu 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 :


hal

4

o

Membuat Label pada form Untuk Untuk menuli menuliska skan n label label atau atau keteran keterangan gan No.Mhs dilakukan dengan

1. Akti Aktifk fkan an jend jendel elaa Form Controls 2. Klik Klik ikon ikon label label

pada pada Form Form Contro Controll

3. Klik pada pada lokasi lokasi pada Form tempat teks akan ditemp ditempatkan atkan 4. Lebarkan Lebarkan tulisan tulisan yang yang dihasil dihasilkam kam pada pada langkah langkah 3 (berupa (berupa tulisan : label1) jika diperlukan – dengan cara menarik ujung kanannya. 5. Akti Aktifk fkan an jend jendel elaa properties 6. Pada Tab Layout, Sorotlah property dengan nama Caption. Isi semula berupa label1 diganti dengan No.Mhs Dan tekan Enter

7. Agar ukuran ukuran label sesuai sesuai dengan dengan Tulisan Tulisan yang yang anda anda buat pada 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. Aktifk Aktifkan an jendel jendelaa Form Form Contro Controll


hal

5

2. Klik Ikon Text Box (

)

3. Klik pada lokasi lokasi pada pada Form Form tempat tempat kontak kontak teks teks akan akan ditempatkan 4. Lebarkan Lebarkan kotak kotak yang yang dihasil dihasilkan kan pada pada langkah langkah 3 dengan dengan cara cara menarik ujung kanannya – jika diperlukan. 5. Akti Aktifk fkan an Jend Jendel elaa 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 Properties Name = TextNama o

Membuat Optiongroup Petunjuk untuk membuat optiongroup 1. Klik Klik pada pada Icon Icon

pada pada form form Contro Controls ls

2. Klik pada pada bagian bagian Form, tempat option option group group akan akan diletakk diletakkan an 3. Klik to 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 :


hal

6

5. Klik Klik pada pada Tab Tab berj berjud udul ul Layout 6. Klik Klik pada pada tomb tombol ol radi radio o Horizontal 7. Pilihlah BorderStyle, berupa None (tanpa Bingkai), Klik Tombol OK Properties Name dengan Opgjenjang 8. Ubahlah Properties

Dengan cara yang sama 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


hal

7

1. Klik Klik pada pada icon icon spinn spinner er

pada pada Form Form contro controll

2. Klik pada bagian Form, tempat spinner spinner akan akan diletakkan diletakkan 3. Lebarkan Lebarkan kotak kotak yang yang dihasil dihasilkan kan pada pada langkah langkah 2 dengan dengan cara cara menarik ujung kanannya. Properties Name dengan Spintahun 4. Ubahlah Properties Properties Value = 2000 5. Ubahlah Properties

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 Kliklah pada icon Command Command Button Button

pada form control control

2. Gerakkan Gerakkan penunjuk penunjuk ke form, form, tempatk tempatkan an pada pada lokasi lokasi tombol tombol perintah tersebut hendak ditempatkan 3. Lebark Lebarkan an tombol tombol perin perintah tah ini ini secukup secukupnya nya 4. Akti Aktifk fkan an jend jendel elaa Properties Properties Caption dengan \
\< maka huruf K diberi garis bawahi tombol bisa diaktifkan dengan Alt-K Properties Name dengan CommandKeluar 6. Ubahlah Properties

7. Menamb Menambahk ahkan an kode kode ke tomb tombol ol kelu keluar ar Tombol Keluar adalah tombol yang dicancang untuk menutupi Form . Agar tombol yang dirancang untuk menutup form. Tambahkan kode berikut dalam kejadian Click Event milik tombol ini, dengan Klik Ganda Thisform.Release()

Kemudian tutuplah jendela ini. Dengan cara yang sama buat Tombol Hapus Dengan Properties Properties Name adalah CommandHapus


hal

8

Kode pada Click Event Tombol Hapus Thisform.textnomhs.valuee = ‘’ Thisform.textnomhs.valu ‘’ Thisform.textnama.value = ‘’ Thisform.opgjenjang.valuee = 1 Thisform.opgjenjang.valu Thisform.opgjurusan.value Thisform.opgjurusan.value = 1 Thisform.spintahun.value Thisform.spintahun.value = year(date()) year (date())

o

Menguji Aplikasi

Meskipun antar muka belum dibuat dengan lengkap kita dapat menguji form yang dibuat dengan cara : 1. Pili Pilihl hlah ah menu enu Form (Alt-M) 2. Kemu Kemudi dian an pili pilih h 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 Lakukan pengubah pengubahan an warna form, form, jenis jenis huruf huruf serta serta tampilan tampilan sesuai sesuai yang yang

anda suka


hal

9

Modul 2. Perekaman data dari FORM ke Tabel

Tujuan

1. Agar Agar mahasis mahasiswa wa dapat dapat memaham memahamii cara membu membuat at tabel tabel 2. Agar Agar mahasisw mahasiswaa dapat membua membuatt kode kode program program untuk untuk perekama perekaman n data ke tabel

Landasan Teori Manipulasi record

Manipulasi record adalah proses yang dapat dilakukan terhadap suatu record menambah, menghapus dan mengubah. 1. Mena Menamb mbah ahka kan n recor record d koso kosong ng Intruksi : Append Blank

2. Meny Menyis isip ipka kan n reco recod d bar baru u Intruksi : INSERT INSERT INTO INTO nama_t nama_tabe abell ( field_ field_a, a, field_ field_b, b, …, field_ field_n) n) VALUE ; (‘data_a’, ‘data_b’,’…’,’data_n’)

3. Meng Mengan anti ti rec reco ord Intruksi REPLACE field_a WITH var1, ; Field_b WITH var2,; Dst

4. Memb Membuk ukaa / mengak mengakti tifk fkan an tabl tablee Intruksi : USE nama_tabel

5. Memind Memindahk ahkan an point pointer er ke table table yang yang sudah sudah aktif aktif Intruksi SELECT nama_tabel

6. Menutu Menutup/m p/meno enonak naktif tifkla klan n tabel tabel Intruksi : CLOSE Database


hal 10

7. Mencip Menciptak takan an strukt struktur ur tabel tabel baru baru Intruksi : CREATE nama_tabel (field_a fieldtype(nfieldwidth),; field_b fieldtype(nfieldwidth, …)

8. Mengubah/m Mengubah/memodif emodifikasi ikasi strukt struktur ur tabel tabel yang yang sudah sudah diaktif diaktifkan kan Intruksi MODI STRU

9. Meli Meliha hatt isi isi tabe tabell Intruksi BROWSE

Langkah Praktikum

1. Buatlah tabel dengan dengan nama tabel : Mahasiswa.Dbf dengan langkah 1. Klik : File – New – Table – New File Ketik : mahasiswa.Dbf – Save 2. Isi Table Designer Designer dengan struktur struktur sebagai berikut: berikut:

3.

Sete Setela lah h seles elesai ai men mengis gisi stru truktu ktur tabe tabell klik klik OK

4.

Setelah itu muncul Input Record Data Now , Klik NO

2. Buatlah Form dan dan properties seperti dibawah ini


hal 11

1 2 3 4

5

0

Keterangan Form Nomor Kontrol 0 1 2 3 4 5

Control Form TextBox TextBox TextBox Command button Command Button

Properties Name : form1(default) Name : TextNomhs Name : TextNama Name : TextKd_Jur Caption : \
Kode Program Nomor Kontrol : 0 Form1-Methode-loadEvent

Ketik : USE mahasiswa.dbf

Nomor Kontrol : 4 REKAM – Click Event

Ketik : N1 = thisform.textnomhs.value thisform.textnomhs.value N2 = thisform.textnama.value thisform.textnama.value N3 = thisform.textKd_jur.valu thisform.textKd_jur.valuee

* memasukkan data record dalam tabel mahasiswa INSERT INTO mahasiswa (nomhs, nama, kd_jur ) VALUE ( N1,N2,N3)

Nomor Kontrol 5


hal 12

KELUAR – Click Event

Ketik : CLOSE Data Thisform.Release()

//Menutup Form

Daftar Isi Tabel Jurusan Kd_Jur J01 J02 J03 J04 J05

Jurusan Teknik Informatika Sistem Informasi Manajemem Informatika Teknik Komputer Komputer Akuntansi

3. Simpan Simpan form form diatas diatas dengan dengan nama nama form form : rekam.scx 4. Jala Jalank nkan an form form terse tersebu butt 5. Isikan Isikan data data pada pada form form dan reka rekam m dengan dengan keti ketik k BROWSE pada Command Window.

6. Bila Bila suda sudah h tere tereka kam, m, isil isilah ah tabe tabell meng menggu guna naka kan n form form ters terseb ebut ut deng dengan an beberapa record lagi. 7. Bila Bila suda sudah h terek terekam am,, isil isilah ah tabe tabell meng menggu guna naka kan n form form ters terseb ebut ut bebe beberap rapaa record lagi. 8. Sete Setela lah h Seles Selesai ai klik klik Tomb Tombol ol KELUAR

2.4 Tugas 1. Buat ta tabel jurusan.dbf untuk menyimpan data jurusan 2. Buat Form Form baru untuk untuk merekam merekam data jurusan jurusan ( lihat lihat isi tabel tabel jurusan) jurusan)


hal 13

Modul 3. Menampilkan Menampilkan data dengan Form Form 3.1 Tujuan

1. Memahai Memahai cara cara mengambil mengambil data dari suatu tabel 2. Menamp Menampilk ilkan an data/ data/ isi tabe tabell ke Form Form

3.2 3.2 Land Landas asan an Teor Teori i

Menamp Menampilk ilkan an isi tabel tabel secara secara umum umum dapat dapat dilakuk dilakukan an dengan 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 Menampilk ilkan an isi tabel tabel secara secara umum umum dapat dapat dilakuk dilakukan an dengan dengan 2 1. Menamp cara cara,, yakn yaknii mengu menguna nakan kan Form dan report. Menamp Menampil ilkan kan data data/i /inf nfor orma masi si

deng dengan an

medi mediaa

form form

bera berart rtii

mena menamp mpil ilka kan n

data/informasi dengan format dan fasilitas layar, sehingga ukuran dan variasi warna dapat disesuaikan dengan d engan kemampuan layar. -

Menc Mencar arii dat dataa sua suatu tu reco record rd pada pada tab tabel el

field_kunci = data_kunci LOCATE FOR field_kunci Keterangan : Field_Kunci : field yang digunakan untuk acuan pencarian Data_Ku Data_Kunci nci : data yang yang digunakan digunakan sebagai sebagai acuan acuan untuk mencari

-

Menampilkan

isi

field

dari

suatu

record

dengan

label/textbox THISFORM.Name.CAPTION/VALUE = nama_field

Keterangan : Label

: dengan Caption


hal 14

Textbox

: dengan Value

2. Menamp Menampilk ilkan an daftar daftar recor record d (Isi Tabel Tabel)) Semu Semuaa reco record rd,, dima dimana na data data pada pada semu semuaa reco record rd

a.

ditampilkan b.

Sesuai de dengan cr criteria (f (filtering), di dimana da data ya yang

dimunculkan disaring sesuai dengan criteria tertentu. Perintah Filtering SET FILTER TO Field_kunci1 Field_kunci1 # data_kunci1 ∆ ; Field_kunci2 # data_kunci2

Keterangan : Dengan # adalah =, >, <, >, <>

∆ adalah .and., .and., .OR., .NOR., .XOR., dll

3.

Mena Menamp mpil ilka kan n reka rekapi pitu tula lasi si , dima dimana na infor informa masi si yang yang dita ditamp mpil ilkan kan sifatnya rangkuman dari tabel untuk tujuan tertentu

3.3 Langk Langkah ah Prakt Praktiku ikum m 3.3.1 3.3.1 Men Menam ampil pilkan kan data data per per reco record rd 1. Buatlah form sebagai berikut

1 2 3

0

Keterangan Form Nomor Control 0 1 2

Control Form TextBox Label

Properties Name : Form1(Default) Name : Textnomhs Name : Labelnama Caption : labelnama


hal 15

3

Label

Name : Labeljurusan Caption : labeljurusan

2. Buatla Buatlah h kode kode progra program m sebaga sebagaii beriku berikutt Nomor Kontrol 0 Form1 – LoadEvent

Ketik : USE mahasiswa.dbf

Nomor Kontrol 1

Ketik GO TOP LOCATE FOR nomhs = RTRIM(Thisform.textnomhs.value) RTRIM(Thisform.textnomhs.value) //mencari record IF FOUND() Thisform.labelnama.caption Thisform.labelnama.c aption = nama DO CASE CASE kd_jur = ‘J01’ Thisform.labeljurusan.value Thisform.labeljurusan.valu e = ‘Teknik Informatika’ CASE kd_jur = ‘J02’ Thisform.labeljurusan.value Thisform.labeljurusan.valu e = ‘Sistem Informatika’ CASE kd_jur = ‘J03’ Thisform.labeljurusan.value Thisform.labeljurusan.valu e = ‘Manajemen Informatika’ CASE kd_jur = ‘J04’ Thisform.labeljurusan.value Thisform.labeljurusan.valu e = ‘Teknik ‘Te knik Komputer’ CASE kd_jur = ‘J05’ Thisform.labeljurusan.value Thisform.labeljurusan.valu e = ‘Komputer Akuntansi’ END CASE ELSE MESSAGEBOX(‘Data yang dicari Tidak Ada’) Thisform.labelnama.value Thisform.labelnama.val ue = ‘’ Thisform.labeljurusan.value Thisform.labeljurusan.valu e = ‘’ Thisform.textnomhs.setfocus() Endif

3. Lengkap Lengkapii kode kode untuk untuk kelua keluarr dari dari form form 4. Simpan Simpan form form diata diatass dan dan jala jalankan nkan 5. Masu Masukk kkan an nomo nomorr yang yang akan akan dica dicari ri,, cek cek apak apakah ah bila bila nomo nomor r ditemukan data akan muncul dan bila tidak ditemukan akan muncul pesan tidak ditemukan

3.4 Tugas


hal 16

Modifikasilah aplikasi diatas, dengan data kunci pencarian berupa

1.

nama mahasiswa

Modul 4. Pengurutan dan Penyaring ( Filtering)

4.1 Tujuan 1. Agar dapat memahami memahami cara menampilkan semua semua data di Form 2. Agar dapat memahami memahami cara mengurutkan data di form 3. Agar dapat memahami memahami cara menampilkan data di form dengan Kriteria tertentu (disaring) 4. Agar Agar mahasi mahasiswa swa dapa dapatt menggu menggunak nakan an contro controll : 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, tunggal, bila bila tabel tersebu tersebutt hanya hanya diindex diindex atas dasar 1 field saja saja Menciptakan File index: INDEX ON field_kunci To nama_File_index.IDX nama_File_index.IDX Untuk Mengaktifkan : SET INDEX TO nama_file_index.IDX

b. Index majemu majemuk k (Compound (Compound index), index), bila dalam dalam 1 tabel tabel field kunci kunci index 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


hal 17

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. Pengidexka Pengidexkan n dalam tabel dapat dapat juga juga dilakukan dilakukan lewat Modifik Modifikasi asi Strutur Strutur tabel yaitu dengan Cara: Pada Command Window Ketik : MODI STRU Sehingga akan tampil sebagai berikut :

1

Keterangan : 1. Klik Index untuk mengindek field tabel secara Ascending atau Descending

2. Untuk mengaktifk mengaktifkan an index : SET ORDER ORDER TO nama_indek nama_indek ( Nama_Index secara otomatis sesuai dengan nama field )

Penyaringan

Data yang terekam di basis data sifatnya masih mentah dalam arti semua data terrekam terrekam disana. disana. Agar informasi informasi yang dihasilkan dihasilkan lebih berguna berguna dapat dilakukan penyringan dari data mentah tersebut. Intruksi : SET FITER TO field_kunci TO field_kunci = data data Kunci 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 Control dan Fungsinya


hal 18

Var

: THISFORM.name.Value/Caption, bila diambil dari / untuk

Form : Variabel memori biasa K

: Konstanta

Control

Kegunaan

Mengambil data dari control

Opti Option ongr grou oup p

Memi Memili lih h 1 pilih ilih senga engan n 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 Menampilkan isi tabel (file) dalam bentuk format tabel analag

ListBox

Var = Thisform..name.value Mengambil nilai saat di klik If ListIndex>0 Var = this.list(this.listIndex) Endif

Langkah Praktikum

1. Buatlah Buatlah Form Form sepe seperti rti dibawah dibawah ini

1

2

3

0

Keterangan Form Nomor Control 0 1 2 3

Control Form Optiongroup ListBox Grid

Properties Name : Form1(default) Name : pil Name : Jurusan Name : Grid1 (Default)


hal 19

2. Buatlah Buatlah kode kode progr program am seba sebagai gai berik berikut ut : 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’ 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) 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/ caption/text text pada pada Optiongrou Optiongroup p ( no control control 1) dengan dengan cara cara 1. 2. 3. 4.

Letakkan Letakkan kursor kursor diatas control control no.1, no.1, kemudi kemudian an di klik klik Pindah Pindahkan kan kurs kursor or ke jend jendela ela Prope Properti rties es Klik Klik bagia bagian n combo combo ( pada pada teks teks:: pil) pil) Klik Option1


hal 20

5. Klik Layout – Caption 6. Ketik ‘No Mahasiswa’, kemuadian tekan Enter 7. Klik bagian Combo 8. Klik Option2 9. Klik layout- Caption 10. 10. Keti Ketik k ‘Nama’, kemudian tekan Enter 4. Buatlah Buatlah desa desain in Grid Grid sepert sepertii diatas diatas dengan dengan cara cara 1. Letakkan Letakkan kursor kursor diatas Grid (no (no control control 2) kemudia kemudian n di klik klik 2. pindah pindahkan kan kursor kursor keProp kePropert erties ies 3. Klik Layout – ColumnCount : 3 4. Klik Header1 5. Isikan pilihan pilihan jurusa jurusan n pada pada listbox listbox (no control control 2) 2) dengan dengan 1. Arahkan Arahkan kursor kursor ke control control listbox, listbox, kemudian kemudian di di klik klik 2. Arah Arahka kan n kurso kursorr ke prop propert ertie iess 6. Simpan form 7. jalankan, jalankan, kemudian kemudian dicoba dicoba pilihan pilihan pengurut pengurutan, an, amati amati apakah apakah urutan urutan berubah ( dari urut no mahasiswa menjadi urut nama dan sebaliknya) 8. Pilih Pilih jurus jurusan an pada pada listbo listbox, x, amati amati hasil hasilnya nya

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 i ndek Kode Kode Jurusan pada Form1- load Event.


hal 21

Modul 5. Relasi Antar Tabel

5.1 Tujuan

1. Agara memahami cara penghubung 2 tabel untuk menghasilkan 1 laporan 2. Agar dapat mengatur mengatur properties 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 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. Aktifk Aktifkan an tabel pokok/ta pokok/tabel bel referensi referensi/tab /tabel el transak transaksi si yaitu tabel yang berisi data pokok / tabel yang akan ditampilkan/diproses 2. lakuka lakukan n rwelasi rwelasi ke tabel tabel indul indul dengan dengan catatan catatan tabel induk induk ini diidex 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


hal 22

Atau bisa juga lewat data Environment yaitu dengan cara 1. Klik Klik kana kanan n mous mousee dala dalam m form form sehi sehing ngga ga munc muncul ul opti option on berikut :

2. Pilih Data Environme selanjutnyaa masukan masukan tabel yang Environment, nt, selanjutny akan digunakan yang pertama adalah tabel induk, kemudian masukan lagi tabel transaksi ( dapat dengan klik Other, atau jika jika sudah sudah dalam dalam jendel jendelaa data data enviro environme nment nt Klik Klik kanan kanan Mouse pilih Add, pilih tabel transaksi)

3. Selanj Selanjutk utknya nya tarik tarik field tabel tabel yang akan akan direlasi direlasikan kan dengan dengan field kunci yang akan direlasikan seperti tampak pada gambar berikut :

Catatan : Peng Penggu guna naan an data data Envi Enviro ronm nmen entt

tida tidak k untu untuk k berl berlak aku u untu untuk k

multisuser 3. Untuk mengambil mengambil data data dari tabel tabel induk induk sementara sementara pointer pointer pada pada posisi posisi tabel transaksi Var = alias tabel induk.nama_field Atau Var = alias tabel induk -> nama_field 5.3 Langka Langkah h Pra Prakti ktikum kum


hal 23

1. Buat Buatlah lah tabe tabell baru baru yait yaitu u tabel tabel Juru Jurusa san. n.db dbf, f, deng dengan an stru strukt ktur ur seba sebaga gaii berikut: Field Name Kd_jur Jurusan

Type C C

Witdh 3 30

2. Deng Dengan an Comm Comman and d Wind Window owss isil isilah ah data data,, deng dengan an peri perint ntah ah,, APPE APPEND ND,, sehingga tabel menjadi sebagai berikut : Kd_Jur


J01 J02 J03 J04 J05

3. Cek Cek apak apakah ah tabel tabel maha mahasi sisw swaa yang yang sudah sudah dibuat dibuat masi masih h ada, ada, jika tidak tidak buat tabel mahasiswa.Dbf, dengan struktur data seperti modul 2. Isilah data data pda tabel tersebu tersebutt kurang kurang lebih lebih 10 record record dengan dengan jenjan jenjang g yang yang berbeda 4. Buatlah Buatlah form form untuk untuk menampilkan menampilkan data sebagai sebagai berikut berikut :

1

2

Keterangan Form Nomor Kontrol 0 1 2

Kontrol

Properties

Form ComboBox Grid

Name : Form1(default) Name: ComboJurusan Name : grid1(default)

5. Pengaturan Pengaturan Grid ( menggu menggunakan nakan jendela jendela properties properties))


hal 24

a. memb membua uatt nam namaa kolo kolom m -

klik je jendela Gr Grid1

-

klik klik comb combo o gri grid d pad padaa pro prope pert rtie iess

-

Klik Klik Colu Column mn1 1 – head header1 er1 : No. No.Ma Maha hasi sisw swaa

-

Klik Klik Colu Column mn2 2 – head header er1 1 : Nama Nama

-

Klik Klik Colu Column mn3 3 – hea heade der1 r1 : Juru Jurusa san n

b. b. mene menent ntuk ukan an leb lebar ar kol kolom om -

Klik Klik Colu Column mn (kol (kolom om No.M No.Mah ahas asis iswa wa))

-

Klik Klik gari gariss vert vertic ical al klo klolom lom (dis (diseb ebel elah ah kan kanan kolo kolom m) tombol tombol tetap tetap di tekan tekan gerakk gerakkan an kursor kursor kekiri/ kekiri/kan kanan an sesuai lebar yang dikehendaki

-

Lepaskan tombol

-

Deng Dengan an cara cara yan yang sam sama atu atur leb lebar kolo kolom m 2 (kol (kolo om nama) dan kolom 3 ( kolom jurusan)

c. menghu menghubun bungka gkan n grid grid ke basis basis data data -

Klik Data ata- RecordSourceType D RecordSourceType : 1 – Alias

-

Klik RecodSource: ecodSource: mahasiswa R

-

Klik ComboGrid1 omboGrid1 C

-

Klik

Column1

–

data

controSource

:

mahasiswa.nomhs

-

Klik

Column2

–

data

controSource

:

mahasiswa.nama

-

Klik

Column1

–

data

controSource

:

jurusan.namajur

6. Buatlah Buatlah kode kode untu untuk k memvbu memvbuka ka tabel tabel pada 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 untuk pemilihan pemilihan jurusan pada ComboJen ComboJenjang jangclickEvent clickEvent Public kodejurusan, nmjurusan

Nmjurusan = this.value SELECT 2 LOCATE FOR namajur = RTRIM(nmjurusan) Kodejurusan = Kd_jur


hal 25

SELECT 1 SET FILTER TO SET FILTER TO kd_jur = Kodejurusan Thisform.grid1.refresh()

8. Jalank Jalankan an form tersebut tersebut pilihla pilihlah h salah salah satu Jurusan Jurusan pada pada combo, combo, apakah apakah isi tabel berubah?

5.4 Tugas

1. Tambah Tambahkan kan pada pada data data ‘Semua ‘Semua’’ pada pada tabel tabel Jurusan Jurusan dan tambah tambahkan kan kode kode program program pda Combojuru Combojurusan-Cli san-ClickEv ckEvent, ent, sehingga sehingga bila dipilh dipilh JUrusan JUrusan ‘Semua’, amka semua record akan tampil di Grid (lihat modul 4)


hal 26

Modul 6. Report

6.1 Tujuan

1. Agar memahami cara membuat membuat laporan dengan dengan report 2. Agar memahami cara mengelola mengelola file-file menjadi 1 project 3. Agar memahami cara merancang merancang dan menggunakan menggunakan menu

6.2 6.2 Land Landas asan an teor teorii 6.2.1

Report

Report adalah keluaran dari suatu proses dalam format kertas. Report ini dapat ditampilkan lewat monitor maupu printer A. Flowchart Flowchart sistem sistem menampilkan menampilkan pada report Tabel Mahasiswa.dbf Nomhs 015410089 003110034 003110056 015410078

Nama Ida Ayu Kurniawan Wahyu Bayu Prasetyo

Kd_jur J01 J03 J03 J01

Tabel jurusan.dbf Kd_Jur

J01 J02 J03 J04 J05


PROSES CETAK REPORT 1 DAFTAR MAHASISWA REPORT 2 NomhsNamaJurusan015410089Ida

Ayu

Teknik

Informatika003110034KurniawanManajemen Informasi003110056Wahyu Informasi015410078Bayu P.Teknik Informatika

Manajemen

DAFTAR MAHASISWA PER JURUSAN Jurusan : Teknik Informatika NoMhs Nama 015410089 Ida Ayu 015410078 Bayu P

Algoritma menampilkan data


hal 27

1.

Aktifkan semua tabel yang saling terkait dan buat

relasinya 2.

Masukkan cr criteria ria dat dataa ya yang di ditampilkan kan de dengan Form

3.

Panggil report

B. Repo Report rt Desi Design gner er Report Report Design Designer er adalah adalah media media untuk untuk meranc merancang ang lapora laporan n dan sekali sekaligus gus menghu menghubun bungka gkan n ke basis basis data. data. Jendel Jendelaa report report design designer er seperti seperti terliha terlihatt dibawah ini

Penempatan Judul dan Nama Kolom

Penempayan Isi Kolom Penempatan Footer

Jendela data Environment Report Control

Secara umum Report designer terdiri atas 3 jendela : Header, diguna 1. Page Header digunakan kan untuk untuk menemp menempatk atkan an judul judul lapora laporan, n, nama nama

kolom dan keterangan tentang laporan lainnya. 2. Detail, diguna digunakan kan untuk untuk menemp menempatk atkan an field, field, variab variable le dan isi kolom 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 teks,, mene menemp mpat atka kan n fiel field d tabe tabell ke repo report, rt, memb membua uatt gari gariss-ga gari riss dan dan aksesories lainnya.


hal 28

2. Data Environment, digunakan untuk menghubungkan report ke basis data/tabel

6.3 Langka Langkah h Pra Prakti ktikum kum

1. Buat Buatlah lah Rep Repor ortt baru baru den denga gan n : File- New – report report – new new file 2. Selanj Selanjutn utnya ya baut Judul Judul Lapora Laporan n “Daftar “Daftar Mahasisw Mahasiswa” a” dan judul judul kolom kolom “No.Ma “No.Mahas hasisw iswa”, a”, “Nama” “Nama”,, “Jurus “Jurusan” an” dengan dengan klik klik

pada pada report report

control, sehingga Report menjadi seperti dibawah ini

Penempatan Judul dan Nama Kolom

Penempayan Isi Kolom Penempatan Footer

Jendela data Environment Report Control

3. Tamp Tampil ilka kan n jen jende dela la Data Enviroment dengan cara klik tombol ke-2 saat kursor diatas Report, kemudian pilih Data Environment pada context menu 4. Masuka Masukan n tabel-t tabel-tabe abell yang yang terkai terkaitt dengan dengan Report tersebut, dengan cara a. tempat tempatkan kan kurso kursorr pada pada jendela jendela Data Data Enviro Environme nment nt b. b. klik klik tom tombo boll ke – 2 mou mouse se c. klik Add Add, pada context menu d. Pilih ta tabel : mahasiswa.dbf e. Ulan Ulangi gi langka langkah h (1) (1) untu untuk k mena menamb mbah ahka kan n tabe tabell Jurusan.dbf ke Data Environment


hal 29

5. Masu Masukk kkan an fiel field d ke Repor Reportt

deng dengan an cara cara ‘men ‘menye yere ret’ t’ field field pada pada Data

Environment ke jend jendela ela Detail,

field Nomhs ke kolo kolom m

No

mahasiswa, nama ke kolom Nama, dan namaJur ke kolom Jurusan

6. Rekam Rekam Report Report terse tersebut but,, missal missal dengan dengan nama nama file file : DAFTAR.FRX 7. Jalankan Report diatas dengan cara a. temp tempat atka kan n kurs kursor or pad padaa Report b. b. Klik Klik tomb tombol ol ke-2 ke-2 c. Klik Preview Preview 8. Amat Amatil ilah ah apa apa yang yang terj terjad adi? i? Apak Apakah ah jenj jenjan ang g sudah udah sesu sesuai ai deng dengan an maha mahasi sisw swaa masi masing ng-m -mas asin ing? g? Bila Bila belu belum m meng mengap apaa hal hal itu itu terj terjad adi? i? (jawablah pertanyaan ini dalam laporan sementara) 9. Memb Membua uatt rela relasi si anta antarr tabe tabell dan dan peng pengen enda dali li Report, untuk untuk membua membuatt dagtar mahasiswa a. buatla buatlah h form form sepert sepertii diba dibawah wah ini

b. b. Buat Buat Kode Kode pada ada 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 Cetak-ClickEvent REPORT FORM daftar.frx TO Print

c. Simpan Simpan form form ters tersebu ebutt dan dan jalank jalankan an d. Coba Cobala lah h klik klik tom tombo boll TAMPIL, amati apakah data yang tampil sudah benar, bila belum cek kodenya e. Agar Agar hasil hasil lapor laporan an tercet tercetak ak ke printe printer, r, klik klik CETAK 6.3.1 Tugas


hal 30

Sempur Sempurnak nakanl anlah ah Report Report tersebu tersebutt dengan dengan member memberika ikan n garisgaris-gar garis is vertic vertical al maupun horizontal


hal 31

Modul 7. Project dan Menu

7.1 7.1 Tu Tujjuan uan

1. Agar Agar mema memaha hami mi cara cara meny menyat atuk ukan an file file-fi -file le dalam dalam suatu suatu apli aplika kasi si pada pada suatu project 2. Agar memaham memahamii cara membua membuatt menu untuk untuk menjalank menjalankan an aplikasi aplikasi

7.2 7.2 Land Landas asan an Teor Teorii 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)

7.2.2

-

Code, berisi kode program

-

Other, berisi file-file : menu (.mnx), textfile, dll

Menu

Menu adalah sekumpulan perintah untuk mengoperasikan suatu proses yang disusu disusun n dengan dengan criteri criteriaa terten tertentu. tu. Pada Pada FoxPro FoxPro sistem sistem menu menu yang yang digun digunaka akan n 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.

New-Proj rojec ect-N t-New ew File File : Akakom Akakom (missa (missall nama nama projec project-n t-nya ya : Klik Klik New-P

Akakom.pjx)

2. Kemudian Kemudian klik Save, selanjutnya akan muncul Jendela Project Manager sebagai


hal 32

berikut :

3. Untuk Untuk memasu memasukka kkan n tabel-ta tabel-tabel bel ke Proje Project, ct, klik 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. Untu Untuk k mena menamb mbah ahka kan n tabe tabell lagi lagi missa missall tabe tabell Jurusan.dbf pada project Akakom.pjx, lakukan langkah seperti no 4 diatas

6. Untuk Untuk melihat melihat tabel-t tabel-tabe abell terdapat terdapat dalam dalam project project klik 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 Dengan lang langkah kah yang yang sama sama masukk masukkan an pula pula file file Report dengan klik + Document – Document – Report.

9. Cetaklah Cetaklah struktur struktur project project tersebut tersebut,, agar semua semua file terliha terlihatt klik kelompo kelompok k tyang masih bertanda + sehingga menjadi - . 10. Untuk keluar keluar dari Project Manajer , klik x , pada jendela kanan atas.

* Untuk laporan sementara, cetak struktur file yang terdapat dalam Project Manajer .


hal 33

7.3.2 7.3.2

Membu Membuat at Menu Menu dan menja menjalan lankan kannya nya

New-Menu-New File-Menu, selanj 1. Klik New-Menu-New selanjutn utnya ya akan akan muncul muncul sebaga sebagaii

berikut

2. Untu Untuk k memb membua uatt menu menu utama utama keti ketik k “Mas “Masuk uk”” pada pada kolom kolom “Prompt”, kemudian kemudian klik tombol tombol ↓ , kemudian ketik “Tampil”, klik tombol ↓ , ketik “Cetak”,klik tombol ↓ ketik “Keluar”. 3. untu untuk k membu embuat at su sub b menu enu pad pada Menu Menu “Mas “Masuk uk”, ”, klik klik

“Masuk”, kemudian pilih Sub menu pada kolom Result, Result, kemudian klik “Create” maka akan muncul sub menu editor. editor. Ketik “Data Mahasisw Mahasiswa” a” dan “Jenjang” “Jenjang”bert berturut urut turut baris ke – 1 dan ke – 2 pada kolom Prompt. 4. Agar Agar menu menu dapat dapat menj menjala alank nkan an su suatu atu perintah perintah,, misal misalnya nya 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 : padaa menu menu desi design gner er berfu berfung ngsi si untu untuk k mene menent ntuk ukan an Result pad tindakan apa bila menu di Klik, terdiri atas menjalankan perintah tertentu, misal Command bila menjalankan - Menjalankan Form dengan Do nama Form.scx menjalankan Report dengan Repo Report rt Form Form nama_report.frx Submenu, bila menu ini diklik akan muncul submenu Procedure, bila menjalankan suatu prosedur


hal 34

•

Keti Ketik k : DO form pada kota kotak k sebe sebela lah h kana kanan n form reka rekam. m.sc scx x pada Command (rekam.scx (rekam.scx adalah nama form untuk pemasukan data

mahasiswa. Bila diberi nama lain sesuaikan). 5. Atu Atur men menu deng dengan an View – General Option , Klik Append , dan beri tanda pada Top Level Form sehingga menjadi sebagai berikut :

6. Klik OK 7. Simpan Simpan file menu ini (.mnx) (.mnx) missal missal dengan dengan nama nama file file : Pilihan.mnx 8. Agar Agar menu menu ini dapat dapat dija dijala lank nkan an bers bersam amaa Form Form utama, 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 7.3.3

Mengg Menggabu abungk ngkan an menu menu denga dengan n form form utama 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 NewForm – New File


hal 35

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 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 Cobalah di Klik Masu M asuk k – Data Data Maha Mahasi sisw swa a,

4.

apakah form pemasukan data muncul, kalau belum kemungkinan ada kesalahan penulisan nama form tersebut

7.4 Tugas

1. Leng Lengka kapi pi menu menu utam utamaa deng dengan an sub sub menu menu yang yang dipe diperl rluk ukan an dan dan isi 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


hal 36

Modul 8. Gambar (image) 8.1 Tujuan

1. Agar dapat merancang database untuk gambar 2. Agar memahami cara merekam 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 kemungkina kemungkinan n dimasa yang akan datang datang media komunikasi komunikasi dapat 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 Buat tabe tabell :ba :bara rang ng.d .dbf bf Field : nama_brg C(30)



nama dari barang

Gambar c(15) nama file gambarnya (.bmp) 2. Buatlah Buatlah form untuk untuk memasukkan memasukkan gambar gambar dan suara suara sebagai sebagai berikut berikut..

1

2 3

4

5


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 :Keluar ClickEvent: THISFORM.RELEASE()

3. Jalank Jalankan an form tersebu tersebutt dan masuk masukkan kan nama nama dari dari barang kemudi kemudian an pilih gambar yang sesuai 4. Cek Cek pada pada tabel tabel apak apakah ah sudah sudah terek terekam am atau belum belum denga dengan n command line: browse. Bila belum ada data , cek di kode apakah sudah tertulis

semua atau belum 5. Buat form untuk menampilkan menampilkan gambar gambar sekaligu sekaliguss suara suara seperti seperti di bawah bawah ini


hal 38

2

1

3

Data Environtment Gambar.dbf

No control 1 Control : listbox Name : list1 Clickevent:


hal 39

thisform.image1.picture=gambar  mena menamp mpil ilka kan n image dari nama field yg berisi nama file gambar

pada pada

cont control rol

No control 2 Control : optionroup (radio (radio button) 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 No control 3 Control : image Name : image1

6. Jala Jalank nkan an form form terse tersebu butt dan dan amat amatii tamp tampil ilan an gamb gambar ar deng dengan an memi memili lih h nama barang/obyek barang/obyek pada list barang. 7. Pilihl Pilihlah ah mode mode gambar gambar Clip/S Clip/Stre trecth cth pada pada radi radio o butt button on 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 sementara ! Apakah perbedaan gambar pada image mode clip dan stretch ?


hal 40

dasar foxpro

Recommend Documents