Sabtu, 12 Desember 2015

Membuat Database,Tabel,dan Form baru pada visual Foxpro

 


Membuat Database dan Form baru pada Microsoft Visual FoxPro

Sebelum gue ngemeng panjang lebar, dan jelasin semuanya. Kita lihat dulu penjelasan tentang visual foxpro, jenis, dan fungsinya.

Microsoft Visual FoxPro adalah bahasa pemrograman berbasiskan prosedur yang pertama kali dikembangkan oleh Fox Technologies pada awal 1984. Program ini dikembangkan untuk menyaingi dBase II. Dalam perkembangannya FoxPro tetap mempertahankan kemampuan pemrograman prosedural dan dilengkapi dengan pemrograman berorientasi objek. FoxPro pertama kali dikembangkan berbasis text dan dapat dijalankan pada MS-DOS, Windows, Mac OS, dan UNIX. Versi terakhir dari FoxPro adalah versi 9.0 dan Service Pack untuk versi 9.0 akan dirilis pada tahun 2007. Microsoft Visual FoxPro 9.0 dapat memanfaatkan kemampuan Microsoft Windows secara optimal. Kemampuannya dapat dipakai untuk merancang program aplikasi yang berpenampilan seperti program aplikasi lainnya yang berbasis Microsoft Windows. Bahasa pemrograman ini sangat populer pada saat ini.

Selain kecanggihannya dalam menyediakan berbagai fasilitas siap pakai, Microsoft Visual FoxPro mampu mendukung pembuatan aplikasi, baik secara single user maupun multiuser. Microsoft Visual FoxPro 9.0 selain disebut sebagai sebuah pemrograman tingkat tinggi, juga sering disebut sebagai sarana (tool) untuk menghasilkan program-program berbasiskan Windows.
Beberapa kemampuan atau manfaat dari Microsoft Visual FoxPro diantaranya:
  1. Untuk membuat program aplikasi berbasis Windows.
  2. Untuk membuat objek-objek pembuatan program.
  3. Menguji program (debugging) dan menghasilkan program akhir berakhiran EXE yang bersifat executable, atau dapat langsung dijalankan..
Salah satu metode pembelajaran untuk pemrograman yang sangat efektif adalah metode belajar sambil mencoba penerapannya. Untuk memberikan sebuah contoh pengembangan aplikasi sederhana tetapi dapat mewakili sebuah sistem, dengan menggunakan Microsoft Visual FoxPro. Dengan contoh aplikasi sederhana ini, diharapkan dapat mengembangkannya menjadi sistem yang lebih kompleks lagi. Microsoft Visual FoxPro. merupakan salah satu bahasa pemrograman atau pengembangan aplikasi yang sudah sangat dikenal di dunia. Dengan menggunakan Microsoft Visual FoxPro. dapat membuat database untuk sistem informasi dan pembuatan form-form aplikasi beserta dengan laporan. Selanjutnya dalam standar pengembangan sistem informasi akan membahas, seperti login password, dan juga fasilitas untuk mengubah password. Dari segi pemrograman, Microsoft Visual FoxPro. Menggunakan bahasa yang sangat sederhana dan mudah dipahami. Versi dari Microsoft Visual FoxPro adalah 5, 6, 7, 8 dan yang terakhir adalah versi 9.

Nah, udah selesai neh.,. penjelasannya,, sekarang kita lanjut ke inti permasalahannya.
“FOXPRO”!!!, ya,., sebenernya MK ini adalah MK yang menurut gue sangat bikin musmet palak, soal nya butuh ketelitian tinggi disaat kamu harus memasukkan semua Kode/Syntax pada Listing Form kamu, memang di awal terasa mudah karena kamu tinggal mengganti rumusnya dan menyesuaikan dengan Field yang ada di Database dan Modul, tapi setelah selesai membuat Form dan selesai memasukkan Kode, maka ketika kamu ingin menjalankan program tersebut walhasil pasti masih ada kesalahan, karena memang permasalahan tidak jalan nya sebuah program foxpro itu dikarenakan tidak sinkronnya antara Database dan Kode, ntah itu salah di besar kecilnya huruf, koma, titik, buka kurung, spasi dll.,.
Bikin ruwet? Emang iya! Lagian kayaknya gak ada program yang gak bikin ruwet, semua program pasti bikin ruwet, tapi kalo kita mau belajar ya insyaAllah pasti bisa, gue pribadi juga gitu awal nya, ngotak-ngatik sendiri sampe malem jam 1 buat ngoreksi Listing nya doang -__-
Perjuangan banget kayaknya., masalah nya ini bukan sekedar tugas, tapi ini UTS yang gak kelar dan kudu di kelarin demi Nilai,., dan Alhamdulillah nya program gue jalan, dan sudah mendapat nilai,. :D
Ok deh,., disini gue bakalan berbagi tutorial tentang pembuatan database sekaligus formnya, serta kode-kode listing nya.,. OK CEKDISOT!!! ^^

Ok sekarang  kita akan membuat project “PENGOLAHAN DATA DOSEN”
Database “DOSEN”
Dengan table “DOSEN” sebagai berikut:

Name
Type
Width
NIDN*
Character
20
NAMA
Character
35
TGLLAHIR
Character
10
JENKEL
Character
20
ALAMAT
Character
70
KOTA
Character
35
AGAMA
Character
25
PEND
character
35

Note: Field yang diberi bintang (*), di index secara ascending dengan indexes type : PRIMARY.
Yang pertama silahkan kamu buka aplikasi MS.Visual FoxPro yang ada di Laptop/pc kamu, kalau gue biasa mengunakan MS.FoxPro ver 9.0.
Yang sebelumnya kita  buat folder baru terlebih dahulu pada Directory D dengan nama kamu masing” ex:  Kusriyanto_uts .
Jika sudah silahkan kamu kembali masuk ke aplikasi foxpro lagi, kamu buat sebuah project baru dengan cara klik menu file > new > project (newfile). Lalu kamu beri nama menjadi PENGOLAHAN DATA DOSEN. Jika sudah selanjutnya kamu buat database baru dengan nama DOSEN, kemudian buat tabel baru dengan nama DOSEN juga lalu klik OK.  

 




  

Jika sudah maka kita langsung membuat FORM nya.,. klik menu “Document” pada project lalu pilih form > new > new form  , maka tampilan form baru akan seperti ini : 
  

Silahkan kamu buat label,text box, comand, container. Sesuai dengan field pada database tadi.,. jika sudah maka hasilnya akan seperti ini :

 

Sebelum lanjut ke pengisian kode, kita buat terlebih dahulu procedur, cara nya pilih menu Form, kemudian pilih New Method, kemuadia kamu buat dengan nama Blok_Data, Blok_Navigasi, Bersih, dan Tampildata. Jika sudah kita lanjut ke Listing program sesuai dengan prosedur masing”.

1.  Listing Blok_Data
PARAMETERS KONDISI
      THISFORM.NIDN.Enabled=KONDISI
      THISFORM.NAMA.Enabled=KONDISI
      THISFORM.TGLLAHIR.Enabled=KONDISI
      THISFORM.JENKEL.Enabled=KONDISI
      THISFORM.ALAMAT.Enabled=KONDISI
      THISFORM.KOTA.Enabled=KONDISI
      THISFORM.AGAMA.Enabled=KONDISI
      THISFORM.PEND.Enabled=KONDISI


2.  Listing Blok_Navigasi


PARAMETERS KONDISI
  THISFORM.CMD_AWAL.Enabled = KONDISI
  THISFORM.CMD_AKHIR.Enabled = KONDISI
  THISFORM.CMD_SEBELUM.Enabled = KONDISI
  THISFORM.CMD_SESUDAH.Enabled = KONDISI


3.  Listing Bersih


THISFORM.NIDN.Value = ""
THISFORM.NAMA.Value = ""
THISFORM.TGLLAHIR.Value = ""
THISFORM.JENKEL.Value = ""
THISFORM.ALAMAT.Value = ""
THISFORM.KOTA.Value = ""
THISFORM.AGAMA.Value = ""
THISFORM.PEND.Value = ""


4.  Listing Tampildata


SELECT DOSEN
IF RECCOUNT() = 0 THEN
  RETURN
ENDIF

THISFORM.NIDN.Value = NIDN
THISFORM.NAMA.Value = NAMA
THISFORM.TGLLAHIR.Value = TGLLAHIR
THISFORM.JENKEL.Value = JENKEL
THISFORM.ALAMAT.Value = ALAMAT
THISFORM.KOTA.Value = KOTA
THISFORM.AGAMA.Value = AGAMA
THISFORM.PEND.Value = PEND


Sebelum lanjut ke listing tombol navigasi, maka kamu ubah terlebih dahulu “Name” pada tombol masing”. jika sudah di ubah maka kita lanjut pada listingnya.

5.  Listing CMD_AWAL/TBL_AWAL
     

SELECT DOSEN
IF RECCOUNT () = 0 THEN
   RETURN
ENDIF

GO TOP
THISFORM.Tampildata



6.  Listing CMD_SEBELUM/TBL_SEBELUM


SELECT DOSEN
IF RECCOUNT () = 0 THEN
   RETURN
ENDIF
SKIP - 1
 IF BOF () THEN
    GO TOP
ENDIF

THISFORM.Tampildata



7.  Listing CMD_SESUDAH/TBL_SESUDAH


SELECT DOSEN
IF RECCOUNT () = 0 THEN
   RETURN
ENDIF

SKIP 1
IF EOF () THEN
    GO BOTTOM
ENDIF

THISFORM.Tampildata


8.  Listing CMD_AKHIR/TBL_AKHIR


SELECT DOSEN
IF RECCOUNT () = 0 THEN
   RETURN
ENDIF

GO BOTTOM
THISFORM.Tampildata


Sebelum lanjut ke Listing TAMBAH,UBAH,HAPUS,SIMPAN,dan KELUAR, maka terlebih dahulu kamu ganti “Name” nya menjadi CMD_TAMBAH/TBL_TAMBAH begitu seterusnya.

9.   Listing CMD_TAMBAH/TBL_TAMBAH
 


IF THISFORM.CMD_TAMBAH.Caption = "\<TAMBAH"
   THISFORM.CMD_TAMBAH.Caption = "\<BATAL"
   THISFORM.CMD_UBAH.Enabled = .F.
   THISFORM.CMD_HAPUS.Enabled = .F.
   THISFORM.CMD_SIMPAN.Enabled = .T.
   THISFORM.BLok_data (.T.)
   THISFORM.BLok_navigasi (.F.)
   THISFORM.NIDN.SetFocus ()
   THISFORM.BERsih
   SELECT DOSEN
  
   IF RECCOUNT () = 0 THEN
     THISFORM.NIDN.Value = "10000000001"
     RETURN
   ENDIF
  
   GO BOTTOM
   A = VAL(NIDN)
   A = A + 1
   THISFORM.NIDN.Value = STR(A,10)
   THISFORM.NAMA.SetFocus
ELSE
   THISFORM.CMD_TAMBAH.Caption = "\<TAMBAH"
   THISFORM.CMD_UBAH.Enabled = .T.
   THISFORM.CMD_HAPUS.Enabled = .T.
   THISFORM.CMD_SIMPAN.Enabled = .F.
   THISFORM.BLok_data (.F.)
   THISFORM.BLok_navigasi (.T.)
   THISFORM.BERsih
   THISFORM.CMD_AWAL.Click
ENDIF
  

10.  Listing CMD_UBAH/TBL_UBAH


IF THISFORM.CMD_UBAH.Caption = "\<UBAH"
   IF RECCOUNT() = 0 THEN
     MESSAGEBOX("DATANYA KOSONG CHOY.....")
     RETURN
   ENDIF
   THISFORM.CMD_UBAH.Caption = "\<BATAL"
   THISFORM.CMD_TAMBAH.Enabled = .F.
   THISFORM.CMD_HAPUS.Enabled = .F.
   THISFORM.CMD_SIMPAN.Enabled = .T.
   THISFORM.BLok_data(.T.)
   THISFORM.BLok_navigasi(.F.)
ELSE
   THISFORM.CMD_UBAH.Caption = "\<UBAH"
   THISFORM.CMD_TAMBAH.Enabled = .T.
   THISFORM.CMD_HAPUS.Enabled = .T.
   THISFORM.CMD_SIMPAN.Enabled = .F.
   THISFORM.BLok_data(.F.)
   THISFORM.BLok_navigasi(.T.)
ENDIF

THISFORM.NAMA.SetFocus


11.Listing CMD_HAPUS/TBL_HAPUS


IF THISFORM.CMD_HAPUS.Caption = "\<HAPUS"
   IF RECCOUNT() = 0 THEN
     MESSAGEBOX("DATANYA KOSONG CHOY.....")
     RETURN
   ENDIF
  
   THISFORM.CMD_HAPUS.Caption = "\<BATAL"
   THISFORM.CMD_TAMBAH.Enabled = .F.
   THISFORM.CMD_SIMPAN.Enabled = .T.
   THISFORM.CMD_SIMPAN.Caption = "\<HAPUS"
   THISFORM.BLok_navigasi(.F.)
ELSE
THISFORM.CMD_HAPUS.Caption = "\<HAPUS"
   THISFORM.CMD_TAMBAH.Enabled = .T.
   THISFORM.CMD_SIMPAN.Enabled = .F.
   THISFORM.CMD_SIMPAN.Caption = "\<SIMPAN"
   THISFORM.BLok_navigasi(.T.)
   THISFORM.CMD_AWAL.Click
ENDIF


12.Listing CMD_SIMPAN/TBL_SIMPAN


SELECT DOSEN
SET ORDER TO NIDN   && NIDN
SEEK ALLTRIM(THISFORM.NIDN.Value)

IF THISFORM.CMD_TAMBAH.Caption = "\<BATAL" THEN
   IF !FOUND() THEN
       APPEND BLANK
       REPLACE NIDN WITH THISFORM.NIDN.Value
       REPLACE NAMA WITH THISFORM.NAMA.Value
       REPLACE TGLLAHIR WITH THISFORM.TGLLAHIR.Value
       REPLACE JENKEL WITH THISFORM.JENKEL.Value
       REPLACE ALAMAT WITH THISFORM.ALAMAT.Value
       REPLACE KOTA WITH THISFORM.KOTA.Value
       REPLACE AGAMA WITH THISFORM.AGAMA.Value
       REPLACE PEND WITH THISFORM.PEND.Value
       THISFORM.CMD_TAMBAH.Click
   ENDIF
ENDIF

IF THISFORM.CMD_UBAH.Caption = "\<BATAL" THEN
   IF FOUND() THEN
       REPLACE NIDN WITH THISFORM.NIDN.Value
       REPLACE NAMA WITH THISFORM.NAMA.Value
       REPLACE TGLLAHIR WITH THISFORM.TGLLAHIR.Value
       REPLACE JENKEL WITH THISFORM.JENKEL.Value
       REPLACE ALAMAT WITH THISFORM.ALAMAT.Value
       REPLACE KOTA WITH THISFORM.KOTA.Value
       REPLACE AGAMA WITH THISFORM.AGAMA.Value
       REPLACE PEND WITH THISFORM.PEND.Value
       THISFORM.CMD_UBAH.Click
   ENDIF
ENDIF

IF THISFORM.CMD_HAPUS.Caption = "\<BATAL" THEN
   IF FOUND() THEN
      DELETE
      PACK
      THISFORM.TAmpildata
      THISFORM.Refresh
      THISFORM.CMD_HAPUS.Click
   ENDIF
ENDIF


13.Listing CMD_KELUAR/TBL_KELUAR


LUAR = MESSAGEBOX("YAKIN MAU KELUAR...",4+64, "Woro-Woro")
IF LUAR = 6
   THISFORM.Release
ENDIF


14.Listing INIT


THISFORM.BLok_data(.F.)
USE DOSEN
SET ORDER TO NIDN   && NIDN
THISFORM.TAmpildata
     


Jika sudah selesai semuanya, sekarang tinggal kamu menampilkan data environmentnya, klik kanan pada form lalu pilih data environment, tentukan nama database “dosen” klik add lalu close.


Setelah selesai silahkan kamu jalankan programnya dengan cara klik RUN (!) pada menu, dan silahkan kamu uji masing” Tombol Navigasi apakah bisa jalan atau tidak, jika tidak berarti masih ada yang salah pada penulisan listing, silahkan kamu cek kembali sampai benar. 

untuk mendownload Tutorialnya nya,.. silhakan klik DISINI

Semoga Bermanfaat ^^.   

5 komentar:

  1. misalkan kita ingin menampilkan data yg di simpan di grid apa contoh codingan nya mas ?

    BalasHapus
  2. mantap gan informasinya sangat membantu... thank

    BalasHapus
  3. Maaf itu cmd awal akhir dari mana ya

    BalasHapus