Membuat Program Menu 1


SET TALK OFF
CLEAR
DIMENSION pilih(6)
set color to 'GR/W'
STORE 'Tambah' TO pilih(1)
STORE 'Edit' TO pilih(2)
STORE 'Hapus' TO pilih(3)
STORE 'Laporan' to pilih(4)
STORE 'Menu' to pilih(5)
STORE 'Keluar' to pilih(6)
STORE 0 TO a
set color to 'GR'
@ 2,20 MENU pilih,6 TITLE 'Pilih Program'
READ MENU TO a

DO CASE
CASE a = 1
set color to 'gr+/n'
do t30.prg &&database1
CASE a = 2
do e30.prg &&database2
set color to 'w'
CASE a = 3
do h30.prg &&database3
CASE a = 4
do l30.prg &&database4
CASE a = 5
do m30.prg &&database5
CASE a = 6
quit
ENDCASE

DO WHILE .T.
warna=INKEY(.06,'HM')
if tombol=0
loop
endif

if tombol=24
set color to 'B'
endif

if tombol=5
set color to 'GR'
endif

if tombol=27
exit
endif
enddo


Semoga bermanfaat.



Label:

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)

Pengikut