Form Login Dengan Foxpro

Screen shoot berikut merupakan tampilan sederhana dari form login. Program yang digunakan adalah microsoft visual foxpro 9.0. Kreasi ini merupakan permintaan dari kawan-kawan sesama newbie yang mana masih dalam tahapan pemula banget. Langkah awal dalam pembuatan form login ini adalah : 

1. Buatlah table dengan nama user 

2. Tambahkan 2 field saja (userId dan pswd), selanjutnya isi record dengan Adm=userId dan 123=pswd 

3. Siapkan form baru dengan ukuran disesuaikan 

4. Tambahkan object text dan button 

5. Atur properties form 

6. Isi form dengan syntax berikut 

IF EMPTY(thisform.text1.Value)

MESSAGEBOX("Maaf, Silahkan Isi Data Anda...!",0,"Login")

thisform.text1.SetFocus ()

retu

ENDIF

IF EMPTY(thisform.text2.Value)

MESSAGEBOX("Maaf, Silahkan Isi Data Anda...!",0,"Login")

thisform.text2.SetFocus ()

retu

ENDIF

locate for userid=trim( thisform.text1.value)

if ! found()

messagebox("Maaf User Id Anda Tidak Terdaftar...!",0,"Perhatian...")

thisform.text1.Value=""

thisform.text1.setfocus()

retu

else

locate for pswd=trim(thisform.text2.value)

if ! found()

messagebox("Maaf Password Tidak Dikenal...!",0,"Perhatian...")

thisform.text2.Value=""

thisform.text2.setfocus()

retu

else

messagebox("Selamat, Anda berhak mengakses system ini..",0,"Login")

DO FORM mainform.scx

thisform.release()

endif

endif

……………………………………………………………………………………………………………………………………………………………………………………

thisform.release()

quit

retu

1 

Oops lupa….!, penjelasan object mana yang harus di isi syntax diatas coba cari sendiri ya…..  ……Selamat mencoba…… 

Selanjutnya adalah tips & trik dalam desain mainform / form utama

Biasalah karya newbie memang tidak sehebat karya para master dan maestro. Tapi lumayan lah kalau ini hendak dijadikan tambahan pengetahuan untuk sesama newbie, apalagi bagi para mahasiswa yang maunya serba copast…….hohohoho

Desain formnya sangat sederhana dan bahkan bisa dikatakan sangat jelek, yah ada yang bilang sejelek orangnya….. hahai

Oke gan, kita akan mulai dalam desain interface mainform diatas..

1.       Siapkan form

2.       Sertakan object sesuai dengan contoh atau sesuai keinginan agan agan semua

3.       Desain form seperti diatas atau terserah agan sekalian

4.       Langkah-langkah selanjutnya

Pembuatan text berubah warna “INDAHNYA BERBAGI BY [SLAMET SUPRIADI]

• Buatlah label
• Tuliskan teks sesuai kebutuhan pada caption
• Ubah sesuaikan font sesuai keinginan
• Tambahkan timer dengan interval = 300 dan ketikan syntax berikut

thisform.label1.ForeColor=RGB(RAND()*255,;

RAND()*255,RAND()*255)

• Dicari sendiri ya gan dimana letak pengetikanya.
• Test form dan lihat hasilnya  

Selanjutnya membuat tombol show/hide 

Proses ini paling mudah gan, asalkan agan sekalian tau fungsi logika dan telaten saja karena tombol ini hanya difunsikan untuk menampilkan teks info dari penulis semata, dan mungkin ini bisa ditambahkan di aplikasi yang sedang agan coba bikin.

Langkah-langkahnya :

1.      Buatlah text didalam container

2.     Atur sesuaikan text sesuai keinginan anda

3.    Tambahkan image pada form dan masukan gambar (disini saya gunakan gambar show.png

4.      Selanjutnya double click image tersebut dan ketikan syntax berikut

IF thisform.image6.Picture ="e:\password\show.png"

thisform.ct1.Visible = .T.

thisform.image6.Picture ="e:\password\hide.png"

else

IF thisform.image6.Picture ="e:\password\hide.png"

thisform.ct1.Visible = .f.

thisform.image6.Picture ="e:\password\show.png"

ENDIF

Endif

Selamat mencoba ya gan… kalau bingung coba tanyakan kepada para ahlinya hehe

Asal jangan tanyakan kepada para maestro karena pasti kena semprot dulu.. (ada yang bilang, “kamu kuliah itu belajar apa Cuma main poker?”)

                              Pasti panas kan gan telinga kalau dibilang begitu hehehehehe

• Kita sekarang beranjak dalam pembuatan Tanggal gan….
• Oke simak langkah berikut

1.       Siapkan label gan

2.       Atur sesuaikan label dan font

3.       Ketikan syntax berikut di form ya..

bln=MONTH(DATE())

hr=DOW(DATE())

tgl=DATE()

DO case

CASE hr=1

hari=" Minggu"

CASE hr=2

hari=" Senin"

CASE hr=3

hari=" Selasa"

CASE hr=4

hari=" Rabu"

CASE hr=5

hari=" Kamis"

CASE hr=6

hari=" Jumat"

CASE hr=7

hari=" Sabtu"

ENDCASE

DO case

CASE bln=1

bulan=" januari"

CASE bln=2

bulan=" Februari"

CASE bln=3

bulan=" Maret"

CASE bln=4

bulan=" April"

CASE bln=5

bulan=" Mei"

CASE bln=6

bulan="juni"

CASE bln=7

bulan=" juli"

CASE bln=8

bulan=" Agustus"

CASE bln=9

bulan=" September"

CASE bln=10

bulan=" Oktober"

CASE bln=11

bulan=" November"

CASE bln=12

bulan=" Desember"

endc

thisform.label8.Caption=hari+','+ALLTRIM(STR(DAY( tgl)))+''+ bulan+''+ALLTRIM(STR( YEAR( tgl)))

untuk procedurnya silahkan dicari dimana seharusnya di paste syntax diatas..

#adduuuuuuuuuuuuuuuuuuuuuhhhh pusing kalau suruh nyari sendiri hahaha

ü  Selanjutnya kita akan membuat jam tampil di form gan…

1.       Siapkan label

2.       Atur sesuaikan font

3.       Tambahkan timer dengan interval=1000

4.       Tambahkan syntax berikut pada timer

WKT=TIME()

THISFORM.LABEL7.CAPTION=WKT+''+"  WIB"

• Yang selanjutnya adalah kita buat teks berjalan pada bagian bawah form ya

1.       Siapkan container

2.       Buat container di dalam container (container2\container3)

3.       Tambahkan label didalam containter3 dan tambahkan pula timer

4.       Ketikan syntax berikut pada timer

WITH this.Parent

 .lbljln.left=.lbljln.left-1

 IF .lbljln.left<0- .lbljln.="" span="">width

  .lbljln.left=.width

 ENDIF

ENDWITH

Selamat mencoba gan, semoga berhasil

Untuk contoh projectnya silahkan sedot lewat link berikut.
-----------------------------------------------------------------------------------------------------------------------
http://www.ziddu.com/download/22375281/PASSWORD.zip.html

----------------------------------------------------------------------------------------------------------------------- 


Berikut adalah link download untuk materi pra Uas, AMIK DCC Lampung Kampus Tulang Bawang TA 2013
-----------------------------------------------------------------------------------------------------------------------

http://www.ziddu.com/download/22375298/praUas.zip.html

-----------------------------------------------------------------------------------------------------------------------

Catatan :

1. File Dalam Bentuk Source Code

2. Pelajari Dengan Seksama Agar Mempermudah dalam Evaluasi Akhir Semester