Rabu, 26 September 2012
Aplikasi Entri Data Siswa Visual Foxpro
Kali ini saya hanya posting ulang hasil pikiran orang sebuah program Entri Data Siswa Sederhana yang mudah dipahami. Oke.. Langsung saja kita mulai
1. Buatlah Project dengan nama : khs.pjx
2. Buatlah Database didalam project : datakhs.dbc
3. Buatlah Tabel-tabel dibawah ini.
Tabel : mhs.dbf
Name type Width Index
Nim Character 8 Primary/Descending(↓)
Nama Character 30
Jur Character 2
Jnskel Character 10
alamat Memo 4
telp Character 13
foto General 4
4. Buatlah form dengan tampilan sebagai berikut : frm_mhs.scx
| Object | Name | Lain-lain |
| Form1 | Form1 | Caption=FORM MAHASISWA |
| Text1 | Txtnim | |
| Text2 | Txtnama | |
| Combo1 | Cjur | Row Source=KA,MI,TK Row Source Type=1-Value |
| Optiongroup1 | Ojns | |
| Option1 | Opl | Caption=Laki-laki |
| Option2 | Opp | Caption=Perempuan |
| Edit1 | Ealmt | |
| Text3 | Txttelp | Input Mask=999-9999999999 |
| Command1 | Cmdadd | |
| Command2 | Cmdcancel | |
| Command3 | Cmdsave | |
| Command4 | Cmdedit | |
| Command5 | Cmddelete | |
| Command6 | Cmdexit | |
| Text3 | Txtcari | |
| Command7 | Cmdfind | |
| Timer1 | Timer1 | Interval=100 |
| Text4 | Txtdatetime | Alignment=2-Center |
| Command7 | Cmdupload | Caption=\<UPLOAD |
| Image2 | Image_foto | Visible=false |
| Olebondcontrol1 | Olefoto | Visible=false |
= Buatlah methode : aktif, nonaktif, bersih, simpan, tampil, urut
Form1 activate
thisform.nonaktif
thisform.bersih
thisform.txtnim.Enabled= .F.
thisform.cmdsave.Enabled= .F.
thisform.cmdcancel.Enabled= .F.
thisform.cmdedit.Enabled= .F.
thisform.cmddelete.Enabled= .F.
thisform.cmdadd.Enabled= .T.
thisform.AutoCenter= .T.
thisform.Caption=”FORM MAHASISWA”+SPACE(100)
Form1 load
SET DEFAULT TO c:\pagi\kelas\nim\khs&&mengaktifkan path folder
USE mhs &&mengaktifkan table mhs.dbf
SET ORDER TO tag nim &&menggunakan key nim
PUBLIC no &&PUBLIC berfungsi untuk membuat variabel secara global
PUBLIC isi,lcgambar
SET DATE ITALIAN
Form1 aktif
thisform.txtnama.Enabled= .T.
thisform.cjur.Enabled= .T.
thisform.ojns.Enabled= .T.
thisform.ealmt.Enabled= .T.
thisform.txttelp.Enabled= .T.
thisform.olefoto.Enabled= .T.
thisform.cmdupload.Enabled= .T.
Form1 nonaktif
thisform.txtnama.Enabled= .F.
thisform.cjur.Enabled= .F.
thisform.ojns.Enabled= .F.
thisform.ealmt.Enabled= .F.
thisform.txttelp.Enabled= .F.
thisform.olefoto.Enabled= .F.
thisform.cmdupload.Enabled= .F.
Form1 bersih
thisform.txtnim.Value=”"
thisform.txtnama.Value=”"
thisform.cjur.Value=”"
thisform.ojns.Value=0
thisform.ealmt.Value=”"
thisform.txttelp.Value=”"
thisform.olefoto.Visible= .F.
thisform.image_foto.Visible= .F.
Form1 tampil
thisform.txtnim.Value=mhs.nim
thisform.txtnama.Value=mhs.nama
thisform.cjur.Value=mhs.jur
IF mhs.jnskel=”Laki-laki” then
thisform.ojns.opl.Value=1
thisform.ojns.opp.Value=0
ELSE
IF mhs.jnskel=”Perempuan” then
thisform.ojns.opl.Value=0
thisform.ojns.opp.Value=1
ENDIF
ENDIF
thisform.ealmt.Value=mhs.alamat
thisform.txttelp.Value=mhs.telp
thisform.olefoto.ControlSource=”mhs.foto”
thisform.olefoto.Visible= .T.
Form1 urut
no=INT(VAL(RIGHT(mhs.nim,4))+1)
no=REPLICATE(“0″,+4-LEN(LTRIM(STR(no))))+LTRIM(STR(no))
Form1 simpan
replace nim WITH thisform.txtnim.Value
replace nama WITH thisform.txtnama.Value
replace jur WITH thisform.cjur.Value
IF thisform.ojns.opl.Value=1 then
thisform.ojns.opp.Value=0
replace jnskel WITH thisform.ojns.opl.Caption
ELSE
IF thisform.ojns.opp.Value=1 then
thisform.ojns.opl.Value=0
replace jnskel WITH thisform.ojns.opp.Caption
ENDIF
ENDIF
replace alamat WITH thisform.ealmt.Value
replace telp WITH thisform.txttelp.Value
APPEND GENERAL foto FROM ALLTRIM(lcgambar)
cmdadd click
isi=.t.
thisform.aktif
thisform.bersih
thisform.cmdcancel.Enabled= .T.
thisform.cmdsave.Enabled= .T.
thisform.cmdedit.Enabled= .F.
thisform.cmddelete.Enabled= .F.
thisform.cmdadd.Enabled= .F.
thisform.txtnama.SetFocus
cmdcancel click
thisform.bersih
thisform.nonaktif
thisform.cmdsave.Enabled= .F.
thisform.cmdcancel.Enabled= .F.
thisform.cmdedit.Enabled= .F.
thisform.cmddelete.Enabled= .F.
thisform.cmdadd.Enabled= .T.
thisform.Refresh
cmdedit click
isi=.f.
thisform.aktif
thisform.cjur.Enabled= .F.
thisform.cmddelete.Enabled= .F.
thisform.cmdsave.Enabled= .T.
thisform.cmdcancel.Enabled= .T.
cmdexit click
quit
cmdsave click
IF EMPTY(thisform.txtnim.Value) OR;
EMPTY(thisform.txtnama.Value) OR;
EMPTY(thisform.cjur.Value) OR;
thisform.ojns.Value=0 OR;
EMPTY(thisform.ealmt.Value) OR;
EMPTY(thisform.txttelp.Value) OR;
EMPTY(lcgambar) then
MESSAGEBOX(“DATA HARUS DI ISI LENGKAP”,48,”WARNING”)
RETURN
ENDIF
IF isi=.t. THEN &&penyimpanan awal sebelum di edit
APPEND BLANK &&membuat record kosong
thisform.simpan
MESSAGEBOX(“DATA TELAH TERSIMPAN”,64,”INFO”)
ELSE
IF isi=.f. THEN &&penyimpanan data setelah di edit
thisform.simpan
MESSAGEBOX(“DATA TELAH TERUPDATE”,64,”INFO”)
ENDIF
thisform.nonaktif
thisform.bersih
thisform.cmdsave.Enabled= .F.
thisform.cmdcancel.Enabled= .F.
thisform.cmdedit.Enabled= .F.
thisform.cmddelete.Enabled= .F.
thisform.cmdadd.Enabled= .T.
thisform.Refresh
cmddelete click
hapus=MESSAGEBOX(“Data Mahasiswa dengan NIM “+thisform.txtnim.Value+;
” ingin dihapus?”,36,”INFO”)
IF hapus=6 then
DELETE
PACK
ENDIF
thisform.bersih
thisform.cmddelete.Enabled= .F.
thisform.cmdedit.Enabled= .F.
thisform.cmdadd.Enabled= .T.
cmduplad click
lcgambar=”"
lcgambar=GETFILE(“BMP”)
thisform.image_foto.Stretch= 2
thisform.image_foto.Picture=ALLTRIM(lcgambar)
thisform.image_foto.Visible= .T.
Timer1 timer
thisform.txtdatetime.Value=DATETIME()
teks=thisform.caption
thisform.caption=right(teks,len(teks)-1)+left(teks,1)
cjur click
IF thisform.cjur.Value=”KA” then
SEEK ALLTRIM(“11″)
thisform.urut
thisform.txtnim.Value=”11″+RIGHT(DTOC(DATE()),2)+no
ELSE
IF thisform.cjur.Value=”MI” then
SEEK ALLTRIM(“12″)
thisform.urut
thisform.txtnim.Value=”12″+RIGHT(DTOC(DATE()),2)+no
ELSE
IF thisform.cjur.Value=”TK” then
SEEK ALLTRIM(“13″)
thisform.urut
thisform.txtnim.Value=”13″+RIGHT(DTOC(DATE()),2)+no
ENDIF
ENDIF
ENDIF
cmdfind click
SET ORDER TO tag nim
IF SEEK(ALLTRIM(thisform.txtcari.Value))
thisform.tampil
thisform.cmdedit.Enabled= .T.
thisform.cmddelete.Enabled= .T.
thisform.cmdsave.Enabled= .F.
thisform.cmdcancel.Enabled= .F.
thisform.cmdadd.Enabled= .F.
ELSE
MESSAGEBOX(“Data tidak ada!!”,64,”INFO”)
thisform.txtcari.SetFocus
ENDIF
thisform.txtcari.Value=”"
thisform.Refresh
Selamat Mencoba dan Semoga Bermanfaat