simpan database di foxpro

• Data yang disimpan ada kemungkinan data kembar (redudandy data), terutama untuk data yang bersifat unik, misalnya nim, no pegawai, dsb
• Tanpa menginput ternyata ketika klik tombol simpan, masih bisa masuk ke tabel(padahal data kosong kan nggak ada gunanya)
• Perlu adanya semacam notifikasi kepada user saat melakukan tindakan sesuatu(misal simpan, error, dsb)

Dari tiga hal diatas maka perlu dirumuskan, apa saja langkah-langkah dalam menyimpan di tabel dalam database :

1. Input data
2. Apakah semua data sudah diisi ? jika belum maka tampilkan pesan error dan kembali ke nomor satu
3. Jika sudah diisi semua, maka lakukan pencarian, apakah ada data kembar untuk field yang bersifat unik ? Jika ada, maka tampilkan pesan error dan kembali ke nomor satu
4. Simpan data ke tabel
5. Tampilkan pesan bahwa Data berhasil disimpan
6. Selesai

Atau kalau kita gambarkan dalam bentuk flowchart, kira-kira gambarnya adalah sebagai berikut

flowchart simpan data

Untuk desain tabel dan formnya adalah sebagai berikut :

struktur tabel

desain form

Source Code

FORM1.LOAD
set order to no
go top
CMDSIMPAN.CLICK
with thisform
IF (empty(.txtno.value) OR empty(.txtnama.value))
messagebox(“Data harus diisi semua ya”,48,”Perhatian”)
.txtno.setfocus
ELSE
seek alltrim(.txtno.value)
if found()
messagebox(“Nomor tersebut sudah ada”,48,”Perhatian”)
.txtno.setfocus
else
append blank
replace no with .txtno.value
replace nama with .txtnama.value
.txtno.value=”"
.txtnama.value=”"
.txtno.setfocus
messagebox(“Data disimpan”,64,”Informasi”)
.refresh
endif
ENDIF
endwith

Selamat mencoba, mohon dikoreksi jika ada kesalahan