Cara Menciptakan Form Login Dengan Password Yang Di Enkripsi Pada Visual Fox Pro Bab 2
Pada Postingan Kali ini aku akan melanjutkan tentang Cara Membuat Form Login dengan Password yang di Enkripsi pada Visual Fox Pro, langkah selanjutnya ialah :
S 5. Buat form untuk menambah, merubah, dan menghapus data pengguna. Strukturnya formnya menyerupai gambar dibawah ini.
Sedangkan untuk scriptnya ialah :
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 menciptakan Data Form Login pengguna, silahkan klik link dibawah untuk melanjutkan ke halaman berikutnya
Halaman berikutnya >>