TUTORIAL VISUAL FOXPRO 9.0

                                                   VISUAL FOXPRO 9.0
Microsoft Visual FoxPro 9.0 merupakan program aplikasi berbasis Windows versi terbaru dan menggunakan bahasa SQL. Software ini menguraikan secara bertahap dan rinci cara membuat aplikasi e-katalog dengan menggunakan Microsoft Visual FoxPro 9.0


       Awalnya bahasa pemrograman ini dikenal dengan nama FoxBASE yang diluncurkan oleh Fox Software pada awal 1984. Fox Technologies kemudian bergabung dengan Microsoft pada 1992 sehingga di depan nama FoxBASE ditambahkan awalan "Visual".Versi terakhir FoxPro (9.0) dapat berjalan pada sistem operasi Mac OS, DOS, Windows, dan Unix. Visual FoxPro 3.0, versi "Visual" pertama, akhirnya tersingkir karena hanya mendukung Mac OS dan Windows, dan versi berikutnya hanya mendukung Windows saja. Versi terkini Visual FoxPro adalah berdasarkan teknologi COM dan Microsoft telah menyatakan bahawa mereka tidak berniat untuk mencipta versi Microsoft .NET.

Perkembangannya:

Dbase program foxbase foxpro Visual foxpro

 Visual Foxpro adalah pemograman yang berorientasi pada object [ object oriented

programming / OOP] juga sebagai databe management system (DBMS)

Istilah dalam Fisual foxpro :

- Project manager : untuk mengtur pengembangan integrasi dan pembuatan aplikasi.

Memudahkan pemaki mengtur dan mengorgnisasi data base, table, form laporan

dan query Selma pembuatan aplikasi

- Project : yaitu kumpulan file data, dokumen dan object yang memiliki extention

.PJX

- Database : kumpulan dari table, view dan connection dengan extention .DBC

- Table : tempat menyimpan data (extention.DBF)

- Record : gabungan dari beberapa fields

- Fields : elemen yang terkecil dari suatu data

- Items adalah elemen huruf atau angka yang terdiri dari satu buah.

* Mengoprasikan Visual foxpro

buat project baru : file, new, project wizard, ketikan nama file, ok

membuat table dari command window : create [nama table]

Append : digunakan untuk menambahkan data pada table

modify stru : digunakan untuk menambahkan atau merubah fields

use : menonaktifkan file

use [nama tabel] : mengaktifkan file

Dir : digunakan untuk melihat nama table

list : digunakan untuk melihat data di layar

browse : digunakan untuk melihat isi data dan bisa merubah isi data

delete : digunakan untuk menghapus data sementara

Delete all: semua record

Delete next [2] : dari record yang aktif sampai record yang ke n

Delete record : dari data ke berapa n

*membuat nomer kwitansi berdasarkan Tahun,Bulan dan No. Urut
thn=LTRIM(STR(YEAR(DATE())))
bln=LTRIM(STR(MONTH(DATE())))
SELECT 4
if reccount()<=0
nof='0001'
else
go bottom
if thn=left(pembayaran.no_kwtnsi,4)then
if val(bln)=val(substr(pembayaran.no_kwtnsi,5,2))
nolama=val(right(pembayaran.no_kwtnsi,4))
no=nolama+1
do case
case no<10
nof='00'+str(no,1)
case no<100
nof='0'+str(no,2)
otherwise
nof=str(no,4)
endcase
else
nof='0001'
endif
else
nof='0001'
endif
endif
if val(bln)<10
bulan='0'+bln
else
bulan=bln
endif
thisform.txtnokwi.Value=thn+bln+(nof)
thisform.txtnokwi.Enabled= .F.
thisform.txttgl.value=date()
thisform.txtnik.Enabled= .F.
thisform.txtnmtu.Enabled= .F.
thisform.txtnis.Enabled= .F.
thisform.txtkls.Enabled= .F.
thisform.txtjurusan.Enabled= .F.
thisform.txtbln.Enabled= .F.
thisform.cbospp.Enabled= .T.
thisform.cmdnew.Enabled= .T.
thisform.cmdcancel.enabled=.T.
thisform.cmdexit.Enabled= .F.
thisform.cmdsave.enabled=.T.
thisform.txtnik.SetFocus()
thisform.refresh
thisform.aktif

FORM SAAT LOAD

SET SAFETY ON

CLOSE TABLES  all

SET DELETED ON

SET DECIMALS TO 0

SELECT 1

USE tran

SELECT 2

USE pelanggan

SELECT 3

USE produk

SELECT 4

USE semtran

 FORM UNLOAD 

CLOSE INDEXES

CLOSE DATABASE ALL

thisform.Release

FORM ACTIVE

thisform.AlwaysOnTop = .T.

SECECT 1

GO BOTTOM

PUBLIC A,B, vakd_pelanggan (50) ,vakd_produk (50), vanama_produk (50), ;

vaharga (50) , vajumlah (50) , vasubtotal (50)

B=0

TOMBOL SIMPAN SAAT CLICK

SELECT 4

GO TOP

FOR i = 1 TO B

           vakd_pelanggan (i) = kd_pelanggan

            vakd_produk (i) = kd_produk

            vanama_produk (i) = nama_produk

            vajumlah (i) = jumlah

            vaharga (i) = harga

            vasubtotal (i) = subtotal

SKIP 1

NEXT i

SELECT  1

FOR i = 1 TO B

APPEND BLANK

replace kd_pelanggan WITH vakd_pelanggan (i)

replace kd_produk WITH vakd_produk (i)

replace nama_produk WITH vanama_produk (i)

replace jumlah WITH vajumlah (i)

replace harga WITH vaharga (i)

thisform.grdsemtran.Refresh ()

ENDFOR i

B = 0

thisform.hapus_record

thisform.text5.value = 0

thisform.Refresh ()

thisform.Release