Program simpan data dengan foxpro

MS. VISUAL FOXPRO 9.0

Microsoft Visual FoxPro adalah bahasa pemrograman berbasiskan prosedur yang pertama kali dikembangkan oleh Fox Technologies pada awal 1984. Program ini dikembangkan untuk menyaingi dBase II. Dalam perkembangannya FoxPro tetap mempertahankan kemampuan pemrograman prosedural dan dilengkapi dengan pemrograman berorientasi objek. FoxPro pertama kali dikembangkan berbasis text dan dapat dijalankan pada MS-DOS, Windows, Mac OS, dan UNIX. Versi terakhir dari FoxPro adalah versi 9.0 dan Service Pack untuk versi 9.0 akan dirilis pada tahun 2007. Microsoft Visual FoxPro 9.0 dapat memanfaatkan kemampuan Microsoft Windows secara optimal. Kemampuannya dapat dipakai untuk merancang program aplikasi yang berpenampilan seperti program aplikasi lainnya yang berbasis Microsoft Windows. Bahasa pemrograman ini sangat populer pada saat ini.

Kali ini saya akan membagikan tutorial cara membuat program koneksi database di MS. Visual Foxpro dengan coding cari, simpan dan hapus data. 

Dalam tutorial ini saya akan memberi contoh program Data Admin.

Silahkan diikuti langkah-langkah berikut ini :

1. Buatalah database yang didalamnya berisikan tabel Admin dengan properti sebagai berikut :

2. Setelah tabel kita desain, kemudian desainlah sebuah form yang nantinya akan digunakan sebagai program data admin. Silahkan diikuti desain berikut, atau buat desain sesuai keinginan anda :

Beri nama pada setiap comand button seperti berikut :

* FIND = cmdfind

*SAVE = cmdsave

 *DELETE = cmddelete

*EXIT = cmdexit

 3. Kemudian klik kiri 2 kali pada daerah form atau  klik kanan pada form dan pilih object form kemudian pilih procedure load, dan isikan coding berikut :

 

* coding close database all dan close indexes all berfungsi untuk menghidarkan kita dari pesan error saat form dijalankan, salah satunya adalah File is in use, dll. diakibatkan masih ada database atau table yang masih digunakan.

* Set path to berfungsi untuk menampilkan lokasi database

*SELECT 1, _ USE tb_admin EXCLUSICE adalah coding untuk memilih table dalam database yang akan di koneksikan dengan form.

*SET DELETED ON  adalah untuk menandai record yang telah dihapus.

*PACK adalah menghapus record yang telah ditandai oleh coding SET DELETED ON, karena dengan tanpa menggunakan PACK maka record tidak terhapus secara paten tapi hanya disembunyikan saja.

4. Kemudian untuk membuat program simpan pilih object cmdsave dengan procedure click, kemudian ketikkan coding seperti beriku :

&& sambungan

*IF EMPTY diatas digunakan untuk menampilkan pesan bahwa textbox yang dimaksud harus diisi terlebih dahulu, dan penyimpanan data tidak terjadi.

*SELECT dipakai menentukan table yang digunakan untuk penyimpanan data. SET ORDER TO digunakan sebagai penyimpanan data berdasarkan induk data biasanya dipakai untuk field yang di set primary key.

* REPLACE digunakan untuk menyimpan data yang sudah di ketikkan dalam text box kedalam field-field table yang sudah ditentukan.

5. Kemudian untuk membuat program cari data, pilih object cmdfind dengan procedure clik, kemudian ketikkan coding berikut :

6. Kemudian untuk membuat program delete, pilih object cmddelete dan procedure click. Kemudian ketikkan coding berikut :

7. Akhirnya tinggal memasukkan coding exit, pilih object cmdexit dengan procedure click, dan ketikkan coding berikut :

* thisform.Release(), adalah untuk mengakhiri process atau merelase form yang sedang aktif.

*CLOSE TABLES, adalah untuk mengakhiri atau menutup table yang tadinya digunakan dalam form, dan pula menghindari berbagai pesan error.

8. Selanjutnya jika anda ingin menambahkan program bersih di dalam form, anda tinggal menambahkan coding seperti berikut :

thisform.'textbox.value=''

atau kalau textbox yang digunakan bertipe numeric maka bersihnya adalah :

thisform.'textbox.value=0

Demikian sedikit tutorial singkat dari saya, semoga dapat bermanfaat bagi kalian semua.

..::Thank You Very Much ::..

 

by. Gabril Foreman Masoso

26 November 1994