26 October 2012

Visual FoxPro 9 : From Zero to Hero


Belajar FoxPro Dari Dasar



Tutorial ini akan membahas dasar-dasar Foxpro, Saya menggunakan Visual FoxPro9 contoh hasil seperti gambar di atas.
Pembahasan meliputi pembuatan database beserta tabelnya, memasukkan menghapus dan mengedit data, dan pembahasan sedikit skrip2 dasar.
Buat database:
Dengan nama : data1 dan kemudian buat tabel dengan nama : data_siswa dan n_siswa.



Buatlah field2 pada data_siswa seperti:



Dan kemudian field2 n_siswa seperti:



Setelah itu buatlah form seperti :



Command1 : -Caption:Lihat Data , -Picture: c:\program files\microsoft visual foxpro 9\graphics\icons\mail\mail03.ico
Command2: -Caption: New
Command3:-Caption:Edit
Command4:-Caption:Delete
Command5:-Caption:Exit
Timer1:-Interval:100
Form1:-Caption:Siswa, -ShowWindow:2

Sekarang kita akan mengetikkan Skripnya:



Command1 | click

SELECT 2
BROWSE


Command2 | click

IF    thisform.command2.Caption="New" then
      thisform.command2.Caption="Save"
      thisform.aktif
      thisform.command3.enabled = .F.
      thisform.command4.enabled = .F.
      thisform.text1.SetFocus
ELSE
      SELECT 2
      SEEK thisform.text1.value
      IF EMPTY(thisform.text3.Value) OR FOUND() then
            MESSAGEBOX("Data Sudah Ada/ Data Belum Lengkap!",0+64,"ERROR")
      ELSE
            APPEND BLANK
            replace nis WITH thisform.text1.Value
            replace nama WITH thisform.text2.value
            replace kelas WITH thisform.text3.Value
            replace agama WITH thisform.text4.value
            replace ppkn WITH thisform.text5.Value
            replace sejarah WITH thisform.text6.value
            replace matematika WITH thisform.text7.Value
            MESSAGEBOX("Data Tersimpan",0+64,"Berhasil")
      ENDIF
      thisform.command2.Caption="New"
      thisform.semula
      thisform.nonaktif
      thisform.command3.Enabled= .T.
      thisform.command4.Enabled= .T.
ENDIF

           
           
Command3 | click

thisform.aktif
thisform.text1.Enabled= .F.

IF    thisform.command3.Caption="Edit" then
      thisform.command3.Caption="Save"
      x=INPUTBOX("Masukkan NIS","NIS")
      SEEK x
      SELECT 2
            thisform.text1.Value=nis
            thisform.text2.Value=nama
            thisform.text3.Value=kelas
            thisform.text4.Value=agama
            thisform.text5.Value=ppkn
            thisform.text6.Value=sejarah
            thisform.text7.Value=matematika
ELSE
      SELECT 2
            replace nis WITH thisform.text1.Value
            replace nama WITH thisform.text2.Value
            replace kelas WITH thisform.text3.Value
            replace agama WITH thisform.text4.Value
            replace ppkn WITH thisform.text5.Value
            replace sejarah WITH thisform.text6.Value
            replace matematika WITH thisform.text7.Value
            MESSAGEBOX("Data Telah Diganti",0+64,"Success")
            thisform.command3.Caption="Edit"
            thisform.semula
ENDIF

Command4 | click

thisform.Release


Timer1 |Timer

A = thisform.text4.Value
B = thisform.text5.Value
C = thisform.text6.Value
D = thisform.text7.Value
x = A+B+C+D

thisform.text9.Value = x
thisform.text8.Value = x / 4


Form1 | Destroy

CLEAR EVENTS

Form1 | Load


SET DELETED ON
SELECT 1
      USE data_siswa
      SET ORDER TO tag nis
SELECT 2
      USE n_siswa
      SET ORDER TO tag nis 

Buat Methode dengan cara meng-klik FORM>NEW METHOD, Sehingga muncul kotak dialog spt:


Buat 3 method baru : semula, aktif, nonaktif.
Kemudian ketik lagi skripnya:
Form1 | Semula

thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=""
thisform.text4.Value=0
thisform.text5.Value=0
thisform.text6.Value=0


Form1 | Aktif

thisform.text1.Enabled= .T.
thisform.text2.Enabled= .T.
thisform.text3.Enabled= .T.
thisform.text4.Enabled= .T.
thisform.text5.Enabled= .T.
thisform.text6.Enabled= .T.
thisform.text7.Enabled= .T.
thisform.command3.Enabled= .T.
thisform.command4.Enabled= .T.


Form1 | nonaktif

thisform.text1.Enabled= .F.
thisform.text2.Enabled= .F.
thisform.text3.Enabled= .F.
thisform.text4.Enabled= .F.
thisform.text5.Enabled= .F.
thisform.text6.Enabled= .F.
thisform.text7.Enabled= .F.
thisform.command3.Enabled= .F.
thisform.command4.Enabled= .F.



Selamat Anda sudah berhasil membuat program, sekarang jalankan program dengan menekan tombol [CTRL+D].
Langkah Selanjutnya kita akan membuat file EXE-nya, buka tab Code seperti ini:



Buat program baru kemudian ketik skrip berikut:
_screen.Visible = .F.
_screen.WindowState = 2
DO FORM siswa
READ event
Setelah itu klik kanan pada program yang kita buat dan centanglah pilihan Set Main.
Kemudian pindahlah ke tab Other seperti ini:


Buatlah file config.pfw kemudian ketik skirp berikut:
SCREEN = OFF
Setelah itu kita build jadi Exe dengan cara mengklik tombol Build pada Project manager :



Kemudian klik OK, dan Selesai deh…


Skrip Lengkapnya Bisa di dowonload 





No comments:

Post a Comment

Baca juga artikel-artikel yang terkait di bawah ini :