Program Asas DBMS- Windows & Dos For Foxpro Version
This subject is dicuss for Malay language people to understand the basic idea of
programming in foxpro....Saya hanya untuk memberi pengenalan asas kepada mereka yang baru berjinak dengan Database jenis Windows atau
Dos.Perkara yang akan diterangkan adalah berkaitan yang asas
supaya kepada mereka yang kurang faham akan dapat menjana ihlam baru didalam era program menggunakan Database".
Sila pastikan sebelum anda memulakan asas programming hendaklah telah sedia ada
software seperti Visual Foxpro atau Dos Foxpro supaya siap kelak anda boleh kompile
dan ditukarkan kepada exec file serta dapat mengedarkan library bersama sistem
yang telah anda bina nanti.
Semoga dengan apa yang saya nyatakan dibawah ini dapat membantu anda
didalam membina satu sistem yang ideal.Untuk mempertingkatkan model program anda
hanya perlu lakukan adalah mendapat tips-tips dari Internet website yang
terkenal. Selamat berjaya....
1.Membina Database
Ini adalah asas untuk data ditempatkan,dimana program anda akan "Point"
samada untuk menambah atau lain-lain lagi..
Dibawah ini adalah pecahan field yang anda perlu tambah :-
Create alatn
&&== Membina satu fail baru
=Field Name()
&&== Nama pendek medan untuk data - File Header
=Field Type("N","C" atau "D") &&== Samada Angka,Abjact atau Tarikh
=Width("Lebar")
&&-- Lebar Data Untuk Field
=Dec("Decimal")
&&== Angka Pecahan jika anda perlukan
=Index
&&== Untuk database seeker
Delete FILE Alatn
&&== Membuang fail anda yang dibuat tadi
c_nama/N(16)/D(2)/Y
&&== Contoh satu field
Tips: Anda boleh menambah apa-apa field baru bagi keperluan program disini
cuba anda buat dan jangan lupa tekan butang control bersama "N" untuk save.
2.Tambah Data.prg
Program ini menunjukan cara menambah melalui input field, jawapan nya
akan dijawab kepada pengguna semula.
APPEND blank
REPLACE code with recno()
@6,29 say ' '+str(code,4)
@7,29 say ''get nama
@8,29 say ' '+str(total,4)
@9,29 say ' '+bulan
READ
Tips: Anda perlu memastikan ianya selari dengan nama field database
- cuba buat.
3.Edit Data.prg
Program ini menunjukan cara user's memilih data input, dari database dan kemudian memaparkan jawapannya
kepada pengguna.
use alatn
go top
if eof()
return
endif
cod=space(4)
@6,29 say ' 'get cod
Locate for code = val(cod)
if found()
@6,29 say ' '+str(code,4)
@7,29 say ''get nama
@8,29 say ' '+str(total,4)
@9,29 say ' '+bulan
READ
return
else
wait 'No data'
return
endif
Tips: Untuk lebih sistematik anda perlu kontrol supaya tidak ada duplikasi semasa tambah data
- cuba buat.
4.Delete Data.prg
Program ini menunjukan cara user memilih function delete keatas data FoxPro
yang terpilih.
use alatn
go top
if eof()
return
endif
cod=space(4)
@6,29 say ' 'get cod
Locate for code = val(cod)
if found()
@6,29 say ' '+str(code,4)
@7,29 say ' '+ nama
@8,29 say ' '+str(total,4)
@9,29 say ' '+bulan
delete()
return
else
wait 'No data'
return
endif
Tips: Anda perlu memastikan data yang telah didelete di 'Pack"
- cuba buat.
4.Query Data.prg
Program ini menunjukan cara mudah membina query program cara
Foxpro.
use alatn
go top
if eof()
return
endif
cod=space(4)
@6,29 say ' 'get cod
Locate for code = val(cod)
if found()
@6,29 say ' '+str(code,4)
@7,29 say ' '+nama
@8,29 say ' '+str(total,4)
@9,29 say ' '+bulan
wait ''
return
else
wait 'No data'
return
endif
6.Listing Data.prg
Program ini menunjukan cara user membuat listing keatas data FoxPro
yang tersimpan secara individu.
use alatn
go top
if eof()
return
endif
cod=space(4)
@6,29 say ' 'get cod
Locate for code = val(cod)
if found()
@6,29 say ' '+str(code,4)
set print on
? ' '+str(code,4)
? ' '+ nama
? ' '+str(total,4)
? ' '+bulan
?
set print off
return
else
wait 'No data'
return
endif
Tips: Anda perlu memastikan data yang telah didelete di 'Pack"
dahulu sebelum membuat listing
- cuba buat.
Program diatas didapati seakan-akan menggunakan format yang sama ia itu edit,delete,query
dan listing.
cuba anda teliti dan fahamkan command language yang digunakan.
Bagi memulakan satu fail Program baru,anda hanya perlu menggunakan command "MODIFY COMMAND"
diikuti dengan nama fail anda.Bagi menutup semula fail tadi anda hanya perlu tekan
kekunci Control+W.Untuk menjalan fail program,anda hanya perlu "DO" diikuti
dengan nama program anda buat tadi - Contoh "DO alata" didalam kernel command foxpro