Cara Membuat Form Login dengan Password yang di Enkripsi pada Visual Fox Pro Bagian 2

Pada Postingan Kali ini saya akan melanjutkan tentang Cara Membuat Form Login dengan Password yang di Enkripsi pada Visual Fox Pro, langkah selanjutnya adalah :

S    5. Buat form untuk menambah, merubah, dan menghapus data pengguna. Strukturnya formnya seperti gambar dibawah ini.

Sedangkan untuk scriptnya adalah :

Form1.init

SET DATE BRITISH

SET TALK OFF

GO BOTTOM

WITH thisform

      .MaxButton= .F.

      .MinButton= .F.

      .tak_olle

ENDWITH

Form1.tak_olle

WITH ThisForm

.SetAll("Enabled",.F.,"Combobox")

.SetAll("Enabled",.F.,"Textbox")

      .SetAll("Enabled",.F.,"Grid")

      .setAll("Visible",.F.,"Commandgroup")

      .CG_nav.Visible= .T.

      .cg_manipulasi.Visible= .T.

ENDWITH

             Form1.tak_rappah

WITH ThisForm

      .SetAll("Enabled",.T.,"Combobox")

    .SetAll("Enabled",.T.,"Textbox")

    .SetAll("Enabled",.T.,"Grid")

    .setAll("Visible",.T.,"Commandgroup")

      .cG_simpan.Visible= .T.

ENDWITH

Form1.cg_nav.clik

DO CASE

CASE nav=1

      GO TOP

CASE nav=2

      SKIP -1

      IF BOF()

            MESSAGEBOX("Data Sudah Paling Atas",0+64,"Informasi",1000)

            GO TOP

      ENDIF

CASE nav=3

      SKIP

      IF EOF()

            MESSAGEBOX("Data Sudah Paling Bawah",0+64,"Informasi",1000)

            GO BOTTOM

      ENDIF

CASE nav=4

      GO BOTTOM

ENDCASE

thisform.Refresh

     

            Form1.cg_manipulasi.clik

WITH thisform

klik=this.Value

DO CASE

CASE klik=1

      APPEND BLANK

      .Closable= .F.

      .tak_rappah

      .cG_nav.Visible= .F.

      .cg_manipulasi.Visible= .F.

      .cG_simpan.Visible= .T.

      .txtkode_user.SetFocus()

CASE klik=2

      .Closable= .F.

      .tak_rappah

      .cg_nav.Visible= .F.

      .cG_manipulasi.Visible= .F.

      .cg_simpan.Visible= .T.

      .txtkode_user.Enabled= .F.

      .txtnama_user.SetFocus

CASE klik=3

      konfirmasi=MESSAGEBOX("Hapus ?",4+32,"Konfirmasi?")

      IF konfirmasi=6

            DELETE

            TABLEUPDATE(.t.,.t.,"Pengguna")

            SKIP

            IF EOF()

                  GO bottom

            ENDIF

            .Refresh

      ENDIF

CASE klik=4

      .release

ENDCASE

      .Refresh

ENDWITH

Form1.cg_simpan.clik

WITH thisform

tekan=this.Value

IF tekan=1

      MESSAGEBOX("Data Berhasil Disimpan",0,1000)    

      TABLEUPDATE(.t.,.t.,"pengguna")

      .grdPengguna.SetFocus

      .Refresh

      .Closable= .T.

ELSE

      TABLEREVERT(.t.,'pengguna')

      .grdPengguna.Refresh

      GO BOTTOM

      .Closable= .T.

ENDIF 

*DODEFAULT()

.tak_olle

.Refresh

ENDWITH

Untuk Selanjutnya Kita Akan membuat Data Form Login pengguna, silahkan klik link dibawah untuk melanjutkan ke halaman berikutnya


Halaman berikutnya >>