code foxpro programing

belajar foxpro      set talk off
set color to w/b
clear

@0,5 to 4,75
t1="Laporan Data Penjualan Oleh Kasir Per 31 November 2005"
t2="PT. FENDER CORPORATION"
t3="Jl. Raya Mojokerto-Surabaya No. 1-5"
@1,(wcols()-len(t1))/2 say t1 color w+/b
@2,(wcols()-len(t2))/2 say t2 color rg+/b
@3,(wcols()-len(t3))/2 say t3

@20,2 to 24,78
t1="Barang yang Sudah Dibeli Tidak Dapat Di Kembalikan Lagi"
t2="Kepuasan Konsumen Adalah Merupakan Tujuan Utama Kami"
@22,(wcols()-len(t1))/2 say t1 color rg+/b
@23,(wcols()-len(t1))/2 say t2 color rg+/b

@6,0 to 20,35 panel
@6,35 to 20,79 panel
set color to w/n
@7,1 clear to 19,34
@7,36 clear to 19,78
@6,1 say ".: DATA KASIR :." COLOR RG+/W
@6,35 SAY".: DETAIL PENJUALAN :." COLOR RG+/W

@8,2 SAY "KODE     :"GET KODE DEFA "K0001"
@9,2 SAY "NAMA     :"GET NAMA DEFA SPACE(9)
@10,2 SAY "ALAMAT   :"GET ALAMAT DEFA SPACE(19)
@11,2 SAY "KOTA     :"GET KOTA DEFA SPACE(15)
@12,2 SAY "JENIS    :"GET JENIS DEFA .T.
@13,2 SAY "TGLLHR   :"GET TGLLHR DEFA {}
@14,2 SAY "STATUS   :"GET STATUS DEFA SPACE(13)
@15,2 SAY "PASSWORD :"GET PASSWORD DEFA SPACE(11)
@16,2 SAY "TGLMSK   :"GET TGLMSK DEFA {}
@17,2 SAY "JABATAN  :"GET JABATAN DEFA SPACE(15)
READ

@8,37 SAY "KODE     :"GET KODE1 DEFA SPACE(4)
@10,37 SAY "KODE         NAMABARANG         JUMLAH" COLOR W+/N
@11,37 TO 11,76
@12,37 SAY "B001   GITAR FENDER TELECHER" GET B001 DEFA 0
@13,37 SAY "B002   DOUBLE PEDAL YAMAHA  " GET B002 DEFA 0
@14,37 SAY "B003   CYMBAL TAMA 12 INCHI " GET B003 DEFA 0
@15,37 SAY "B004   EFFECT METAZONE      " GET B004 DEFA 0
@16,37 SAY "B005   EFFECT DIGITAL DELAY " GET B005 DEFA 0
@17,37 TO 17,76
read

TOTAL=B001+B002+B003+B004+B005
@18,37 say "Total Jumlah : " color w+/n
@18,67 say TOTAL color rg+/n

Iklan

loading...