Hapus Satu Tabel Dalam M fvr9.0

PENGHAPUSAN DALAM SATU TABEL DENGAN M vfr9.0

Form menghapus data tabel yang di ambil dari PrgSiswa yang terdahulu yaitu form edit siswa. Berikut Properties nya yang akan di atau di tambah yaitu :

OBJEK PROPERTI NILAI
Form Caption HAPUS TABEL
Command3 Caption Hapus
Command3 Name CmdHapus





Untuk CommadButton atau CmdSimpan pada tabel terdahulu yaitu tabel edit siswa di ganti dengan CommandButton atau CmdHapus.

Kemudian tambahkan perubahan terseut dengan langkanya adalah :

1.Buat Method baru atau Procedure Hapus, dalam keadaan form terbuka.

2. Klik di form yang tidak ada objeknya.

3. Pilih menu Form kemudian New Method......, ketik di kotak Name.... Hapus dan klik Add....kemudian Close.

4. Isi Method hapus dengan mengklik ganda pada area tersebut, kemudian isikan perintahnya sebagai berikut :


SELECT Siswa
SET ORDER TO tag IdxSiswa
Jwb=MESSAGEBOX(“Apakah Data Ingin Di Hapus....?”,3+32,”Informasi”)
IF Jwb=6 then
DELETE
PACK
ELSE
Thisform.TxtNis.SetFocus
ENDIF


Maksud perintah tersebut adalah untuk menuju ke work area siswa serta mengaktifkan file Index nya dengan nama IdxSiswa dan menampilkan “Apakah Data Ingin Di Hapus...?” sedang arti angka 3+32 untuk tanda konfirmasi pertanyaan Ya atau Tidak, dan Cancel. Jika kita mengklik tombol ok, Record akan di hapus (Delete dan Pack). Jika tidak, kursor akan di fokus ke objek TextBox TxtNis.


5. Simpan dengan menekan Ctrl+W.



6. Modifikasi pada Method Aktif dengan mengklik ganda pada area tersebut kemudian isikan perintahnya sebagai berikut :

PARAMETERS Keadaan
WITH Thisform
.TxtNis.Enabled=.not. Keadaan
.TxtNama.Enabled=Keadaan
.Optiongroup1.OptLaki.Enabled=Keadaan
.Optiongroup1.OptPer.Enabled=Keadaan
.CmbAgama.Enabled=Keadaan
.TxtAlamat.Enabled=Keadaan
.TxtTelepon.Enabled=Keadaan
.CmdHapus.Enabled=Keadaan
.CmdBatal.Enabled=Keadaan
.CmdSelesai.Enabled=Keadaan
ENDWITH


Arti perintah diatas adalah, untuk mengaktifkan objek dengan menggunakan propertis Enabled bergantung pada parameters yang dikirim, apakah False atau True.

7. simpan dengan menekan Ctrl+W.

8. Menghapus Method simpan dalam form, karena tidak terpakai, dengan langkahnya :

a. Klik form yang tidak ada objeknya.

b. Pilih Form....Edit Properti...Method..

c. Klik Remove, maka akan muncul jendela konfirmasi “Remove Properti / Method Simpan”.

e. Klik Yes...

f. Klik Close.



9. Modifikasi pada Event Valid TxtNis, dengan mengklik ganda pada area tersebut kemudian modifikasi isi perintahnya sebagai berikut :

WITH Thisform
SELECT Siswa
SET ORDERT TO tag IdxSiswa
IF !EMPTY(.TxtNis.Value)
IF !SEEK(.TxtNis.value)
MESSAGEBOX(“Siswa Belum Terdaftar...!”,40,”Informasi”)
RETURN 0
.TxtNis.Value=” “
ELSE
.aktif(.T.)
.TxtNis.Value=Nis
.TxtNama.Value=Nama
IF JK=”Laki-Laki” Then
.Optiongroup1.OptLaki.Value=1
ELSE
.Optiongroup1.OptPer.Value=1
ENDIF
.CmbAgama.Value=Agama
.TxtAlamat.Value=Alamat
.TxtTelepon.Value=Telepon
.CmdHapus.Enabled=.F.
ENDIF
ELSE
RETURN 0
.TxtNis.Value=” “
ENDIF
ENDWITH


10. Simpan dengan menekan Ctrl+W.

11. Modifikasi pada Event Click CmdHapus, dengan mengklik ganda pada area tersebut, dan isikan perintahnya :

Thisform.Hapus
Thisform.Batal

12. Simpan dengan menekan Ctrl+W.

13. Modifikasi pada Event LostFocus TxtTelepon, dengan mengklik ganda pada area tersebut, kemudian modifikasi dan isikan perintahnya sebagai berikut :

Thisform.CmdHapus.Enabled=.T.

14. Simpan dengan menekan Ctrl+W.

15. Simpan form dengan nama Form TabelHapusSiswa.

16. Jalankan dengan mengklik Run.....