Cara membuat tombol navigasi di Visual Foxpro

SALAM SEMANGAT KAWAN...........!!!!!!
Kali ini saya akan memposting bagaimana caranya untuk membuat TOMBOL NAVIGASI di Visual Foxpro. Caranya gampang koq.....

Langsung saja;
1.Terlebih dahulu anda harus membuat database (TABEL)
2.Buat desains Form (label,Textbox, DLL) untuk to,bol mavigasi saya menggunakan "Command Group"
3. Masukan koding dibawah ini.
    a.Untuk tombol (Maju mundur)

SELECT tbsup   **( tbsup ini adalah nama tabelnya)
DO CASE
CASE THIS.Value=1
     GO TOP
CASE THIS.Value=2
    SKIP -1
     IF BOF()
        MESSAGEBOX("Bedhe eghir attas POn conk!",0+64,"Informasi",2000)
        GO TOP
     ENDIF
CASE THIS.Value=3
     SKIP 1
     IF EOF()
        MESSAGEBOX("Bedhe eghir bebe pon conk!",0+64,"Informasi",2000)
        GO BOTTOM
     ENDIF

CASE THIS.Value=4
     GO BOTTOM
ENDCASE
thisform.refresh

   b.Untuk tombol (tambah,edit,hapus)
DO case
CASE this.Value=1
    APPEND BLANK
        thisform.tampil(.t.)
WITH thisform.Pageframe1.Page1
        .txtKdsup.setfocus
        thisform.commandgroup2.Visible=.t.
        thisform.commandgroup3.visible=.f.
        thisform.commandgroup1.visible=.f.
        thisform.image1.Enabled= .T.

ENDWITH

CASE this.Value=2
        thisform.tampil(.t.)
    WITH thisform.Pageframe1.Page1
        .txtKdsup.Enabled= .F.
        .txtNmsup.setfocus
        thisform.refresh
        thisform.commandgroup2.Visible=.t.
        thisform.commandgroup3.visible=.f.
        thisform.commandgroup1.visible=.f.
    ENDWITH

CASE this.Value=3
    x=messagebox("Iiihhh Takut Ea Yang Mau Ngapus????","Konfirmasi",4+32+256)
        IF x=6
                DELETE
                =TABLEUPDATE(.t.,.t.,"tbsup")
                SKIP
                IF EOF()
                    GO bottom
                ENDIF
            ELSE
                MESSAGEBOX("TENANG BRO DATA SUDAH DIBATALKAN","Informasi")
            endif

ENDCASE
thisform.refresh
c. Untuk tombol simpan &batal
IF this.Value=1
    x =MESSAGEBOX("Yakin ingin disimpan ?","Informasi",4+64)
    IF x=6
            IF NOT TABLEUPDATE(.t.,.t.,"tbsup")
                MESSAGEBOX("kamu goblok ea... tadi sudah dibilang. tak olle padeh koh",0+48,"Informasi")
                RETURN
             ENDIF
                     thisform.commandgroup2.Visible=.f.
                    thisform.commandgroup3.visible=.t.
                    thisform.commandgroup1.visible=.t.
                    thisform.image1.Enabled= .T.
                thisform.Refresh
    ELSE
        RETURN
    ENDIF
ELSE

    =TABLEREVERT(.t.,"tbsup")
    IF EOF()
    GO bottom-
    ENDIF
        thisform.refresh
        thisform.commandgroup2.Visible=.f.
        thisform.commandgroup3.visible=.t.
        thisform.commandgroup1.visible=.t.
        thisform.image1.Enabled= .f.
ENDIF
thisform.tampil(.f.)
thisform.refresh

CATATAN : Jangan lupa Buffermude nya diganti "5" , CARANYA LIHAT GAMBAR
DIBAWAH INI

Klik kanan di form, pilih data environment, setelah itu akan muncul tabel seperti panah dibawah, lalu ubah BufferMode nya jadi "5"