contoh program Menu :
CLS
set wrap on
set mess to 23
setcolor ("bg/b")
do while.t.
@05,05 clea to 7,60
@05,05 to 7,60
@06,12 prompt "Siswa " mess "And memiih menu siswa "
@06,25 prompt "Nilai " mess "And memiih menu nilai"
@06,40 prompt "Laporan" mess "And memiih menu laporaan"
menu to x
do case
case x= 0
exit
case x= 1
do siswa
case x= 2
* do nilai
end case
enddo
procedure siswa
save screen to layar
//do while .t.
@08,10 clea to 12,18
@08,10 to 12,18
@09,12 prompt "Input "
@10,12 prompt "Edit "
@11,12 prompt "Cari "
menu to y
do case
case y =1
* do input
end case
//enddo
rest screen from layar
retu
contoh program Tbrowse :
#INCLUDE "INKEY.CH"
cls
@02,05 to 05,60
a="SISTEM INFORAMASI PENGGAJIAN"
b="PADA PT.TECOMVAX GLOBAL"
@03,35-LEN(a)/2 say a
@04,35-LEN(b)/2 say b
use peg
x:=tbrowsedb(7,5,14,60)
x:Addcolumn(TbcolumnNew("NIP",{||NIP}))
x:Addcolumn(TbcolumnNew("NAMA",{||NAMA}))
x:Addcolumn(TbcolumnNew("GOL",{||GOL}))
x:Addcolumn(TbcolumnNew("JABATAN ",{||IIF(GOL="A","KADIS",IIF(GOL="B","ASISSTANT","PEGAWAI"))}))
x:Addcolumn(TbcolumnNew("GAJI",{||GAJI}))
X:HEADSEP:=CHR(177)
X:COLSEP:=CHR(178)
X:COLORSPEC("GR/B,W/R")
DO WHILE .T.
DO WHILE .NOT. X:STABILIZE()
ENDDO
TEKAN:=INKEY()
DO CASE
CASE TEKAN=K_UP
X:UP()
CASE TEKAN=K_LEFT
X:LEFT()
CASE TEKAN=K_RIGHT
X:RIGHT()
CASE TEKAN=K_DOWN
X:DOWN()
END CASE
ENDDO gambar tampilan TBROWSE :
0 komentar:
Post a Comment