Aplikasi M vfr9.0 Edit Satu Tabel

PENGEDITAN SATU TABEL DENGAN M vfr9.0

Program untuk mengedit dengan satu table langkah-langkahnya adalah sebagai berikut

1. Buka Project yang telah dibuat terdahulu, Prog Siswa.

2. Klik Folder documents dan klik folder forms.

3. Klik New....

4. Muncul jendela New Form, kemudian klik New Form.

5. Atur Propertinya sebagai berikut :


OBJEK PROPERTI NILAI
Form Caption Input Siswa
Label1 Caption Siswa
Label1 Autosize T (true)
Label1 FontBolt T (true)
Label1 FontSize 16
Shape1 Name Shape1
Label2 Caption NIS
Label2 AutoSize T (true)
Label2 FontBold T (true)
Label3 Caption Nama
Label3 AutoSize T (true)
Label3 FontBold T (true)
Label4 Caption Jenis Kelamin
Label4 AutoSize T (true)
Label4 FontBold T (true)
Label5 Caption Agama
Label5 AutoSize T (true)
Label5 FontBold T (true)
Label6 Caption Alamat
Label6 AutoSize T (true)
Label6 FontBold T (true)
Label7 Caption Telepon
Label7 AutoSize T (true)
Label7 FontBold T (true)
Text1 Name TxtNis
Text1 MaxLeght 8
Text2 Format !

OptGrp1/ Caption Laki
Option1 Name OptLaki

OptGrp1/ Caption Perempuan
Option2 Name OptPer

Combo1 Name CmdAgama
Text3 Name TxtAlamat
Text3 Format !
Text4 Name TxtTelepon
Text4 Format !
Cmd1 Caption Batal
Cmd1 Name CmdBatal
Cmd2 Caption Simpan
Cmd2 Name CmdSimpan
Cmd3 Caption Selesai
Cmd3 Name Cmdselesai



6. Buat Method atau Procedure BATAL, SIMPAN, dan SELESAI.

7. Klik di area form yang kosong.

8. Pilih Menu Form, kemudian New Method....setelah muncul jendela New Method dan ketiklah BATAL di kotak Name....

9. Klik Add.....

10. Lakukan kembali untuk Method SIMPAN dan SELESAI, Jangan Lupa akhiri dengan mengklik Close.

11. Isi Method BATAL dengan mengklik ganda pada area tersebut kemudian isikan perintahnya sebagai berikut :

WITH Thisform
.TxtNis.Value=” “
.TxtNama.Value=” “
.CmbAgama.Value=” “
.TxtAlamat.Value=” “
.TxtTelepon.Value=” “
.aktif(.F.)
.TxtNis.SetFocus
ENDWITH


Maksud perintah diatas adalah untuk mengosongkan semua objek text box dan combo box, serta menjalankan metode aktif dengan mengirimkan PARAMETERS .F. dan kursor di fokus ke objek text box dan TxtNis.


12. Simpan dengan menekan Ctrl+W.

13. Buat kembali Method Aktif dan 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
.CmdSimpan.Enabled=Keadaan
.CmdBatal.Enabled=Keadaan
.CmdSelesai.Enabled=Keadaan
ENDWITH

Maksud dari perintah diatas adalah, untuk mengaktifkan objek menggunakan properties Enabled tergantung dari parameters yang dikirim, apakah False (.F.) atau True (.T.)

14. Simpan dengan menekan Ctrl+W.

15. Isi Method Simpan dengan mengklik ganda pada area tersebut, dan isikan perintahnya :

SELECT Siswa
SET ORDER TO tag IdxSiswa
WITH Thisform
Replace Nis WITH .TxtNis.Value
Replace Nama WITH .TxtNama.Value
IF .Optiongroup1.OptLaki.Value=1 Then
Replace JK WITH “Laki-Laki”
ELSE
Replace JK WITH “Perempuan”
ENDIF
Replace Agama WITH .CmbAgama.Value
Replace Alamat WITH .TxtAlamat.Value
Replace Telepon WITH .TxtTelepon.Value
.batal()
.Aktif(.F.)
ENDWITH

Arti perintah diatas adalah untuk menuju ke work area siswa serta mengaktifkan file index nya dengan nama IdxSiswa dan mengisi record-record dengan perintah Replace serta meng eksekusi metode BATAL dan AKTIF.


16. Simpan dengan menekan Ctrl+W.

17. Isi Method Selesai dengan mengklik ganda pada area tersebut dan isikan perintahnya sebagai berikut :

Thisform.Release

18. Simpan dengan menekam Ctrl+W.

19. Ketik Pada Event Activate Form1, dengan mengklik ganda di form yang tidak ada objeknya, dan pilih Procedure : Activate, isikan perintahnya sebagai berikut :

SELECT Siswa
SET ORDER TO tag IdxSiswa
WITH Thisform
.aktif(.F.)
ENDWITH

Maksud perintah diatas adalah untuk menuju ke work area siswa dengan meng aktifkan file IdxSiswa serta melaksanakan metode aktif dengan parameters yang dikirim False.

20. Simpan dengan menekan Ctrl+W.

21. Ketik Event Valid TxtNis, dengan mengklik ganda objek TxtNis dan memilih Procedure : Valid. Kemudian isikan perintahnya sebagai berikut :

WITH Thisform
SELECT Siswa
SET ORDER TO tag IdxSiswa
IF ! EMPTY(.TxtNis.Value)
IF ! SEEK(.TxtNis.Value)
MESSAGEBOX(“Siswa Belum Ada”,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
.CmdSimpan.Enabled=.F.
ENDIF
ELSE
RETURN 0
.TxtNis.Value=” “
ENDIF
ENDWITH

Arti perintah di atas adalah untuk menuju ke work area siswa dan mengaktifkan file index nya dengan nama IdxSiswa. Jika tidak di temukan, tampil kan pesan “Siswa Belum Ada” . Kembali ke objek TxtNis dan mengosongkan data yang di ketik, jika ada, akan tampil record yang akan di edit dan melaksanakan metode aktif dengan mengirimkan parameters TRUE dan Tombol Perintah SIMPAN tidak di aktif kan.

22. Simpan dengan menekan Ctrl+W.

23. Ketik pada Event Click CmdSimpan dengan mengklik ganda pada area tersebut dan isikan perintahnya sebagai berikut :

Thisform.Simpan
Thisform.Batal

Maksud perintah di atas adalah untuk melasanakan metode Simpan dan metode Batal.

24. Simpan dengan menekan Ctrl+W.

25. Ketik pada Event Click CmdBatal dan isikan perintahnya sebagai berikut :

Tisform.Batal

26. Simpan dengan menekan Ctrl+W.

27. Ketik Event Click CmdSelesai dengan mengklik ganda pada area tersebut dan isikan perintahnya sebagai berikut :

Thisform.Selesai

28. Simpan Dengan menekan Ctrl+W.

29. Ketik pada Event LostFocus TxtTelepon, dengan mengklik ganda pada area tersebut dan pilih Procedure : LostFocus dan ketik perintahnya sebagai berikut :
Thisform.CmdSimpan.Enabled=.T.
Maksud perintah di atas adalah untuk mengaktifkan Command Button CmdSimpan.

30. Simpan dengan menekan Ctrl+W.



31. Menghubungkan form dengan lingkungan data (data environment). Untuk menghubungkan file tabel dengan form, Caranya yaitu dengan menyebutkan file-file tabel yang di gunakan pada Load Event Form dan menghubungkan file tabel pada data environment form yang akan memakainya. Cara menghubungkanya adalah sebagai berikut :
A. Klik Kanan di area form yang tidak ada objeknya.
B. Pilih data environment.
C.Pilih dan ketik tabel Siswa pada kotak data environment, Set dan atur Properti Exclusive menjadi True (.T.).
D. Klik Close data enveronment.

32. Simpan Form yang telah di buat dengan nama Form Tabel Edit Siswa

33. Untuk menjalankanya klik Run.

34. Simpan project pada Prg Siswa.