Control label Properties

Control Label pada Visual Foxpro biasanya digunakan sebagai narasi atau teks yang memperjelas agar aplikasi (Implementasinya biasanya digunakan pada form dan Report) lebih interaktif dan user friendly. Kita bisa membayangkan apa yang terjadi jika sebuah form input tanpa Control Label dapat dipastikan aplikasi pasti amburadul user tidak pernah tahu harus memasukkan apa pada form tersebut.

Intruksi yang berkaitan dengan tabel

Intruksi yang berkaitan dengan tabel

Intruksi	Keterangan
? variabel/nama field/fungsi	Menampilkan data, hasil suatu proses
APPEND	MENAMBAH RECORD BARU
APPEND BLANK	MENAMBAH RECORD BARU YANG KOSONG
BROWSE FOR expresion	Menampilkan data yang memenuhi kreteria
BROWSE nama field,……….	Menampilkan data tabel
CLEAR	Membersihkan layar
CLEAR ALL	Menutup semua obyek dari memori
CLEAR PROGRAM	MENUTUP SEMUA PROGRAM YANG TERAKHIR DIJALANKAN
CLOSE ALL	MENUTUP SEMUA DTABASE,TABEL DLL.
CONTINUE	MELANJUTKAN PENCARIAN DENGAN LOCATE
CREATE name tabel	Membuat tabel baru
Create query	Membuat query
Create report	Membuat report
Delete all	Mrnghapus sema record

TIPE DASAR FOXPRO

Type                      menentukan type field/data untuk field yang bersangkutan. Tipe data Keterangan Character Tipe data yang tidak dapat diproses secara matematis.  Bisa berupa huruf, angka maupun tanda khusus seperti * dan lain-lain. Maksimal 254 karakter. Currency Tipe data angka mata uang. Panjang-nya 8 byte. Date Berupa penanggalan masehi. Jangkau-annya mulai 01 januari 100 s/d 31 Desember 9999. Logical Tipe data Benar atau Salah(T atau F) Numeric Berupa bilangan (bisa pecahan) yang dapat diproses perhitungan. Double Bilangan (bisa pecahan) yang jangkauannya lebih besar daripada numeric. Integer Tipe data bilangan bulat (tidak bisa pecahan). Memo Berupa catatan atau naskah kecil. General Tipe data Object. Misalnya gambar.

Dasar Microsoft Visual Foxpro 9.0

 Bagian Dasar Microsoft Visual Foxpro 9.0

a. Merencanakan atau merancang aplikasi

- Membuat database (table, view, relasi tabe)

- Membuat kelas (event, property, methot)

- Menyediakan kses kegunaan (form, menu, toolbar)

b. Menyediakan akses informasi (query, report, grafik)

c. Testing dan debugging.

1. Memulai Visual Foxpro

Ada beberapa cara memulai perangkat lunak Visual Foxpro, yaitu :

a. Memulai Visual Foxpro lewat menu Start >All Programs > Microsoft Visual Foxpro

b. Memulai Visual Foxpro lewat Shortcut Visual Foxpro

2. Tampilan Utama

PENYIMPANAN DATA VERSI BIASA

GAYA CODING SIMPAN "WITH THSFOR."
*===================================================================

if messagebox('yakin ingin simpan !!!!!!!!',32+4,'confirmasi')=6 then
WITH THISFORM
APPEND BLANK
REPLACE kd_pangkat WITH .TEXT1.value
REPLACE nm_pangkat with .TEXT2.value
REPLACE kd_jabatan with .EDIT3.value
REPLACE nm_jabatan with .EDIT3.value
REPLACE keterangan with .EDIT3.value

.grid1.refresh

.TEXT1.value=''
.TEXT2.value=''
.TEXT3.value=''
.TEXT4.value=''
.EDIT1.value=''


.text1.setfocus
ENDWITH
endif

PENGGUNAAN LOCATE

y=INPUTBOX("Kode yang ingin dihapus?","Info","")

x=namatabel.namarecord

LOCATE FOR x =y

IF FOUND()

      DELETE 
      PACK

      GO TOP

ENDIF

thisform.Refresh()

PENGGUNAAN IF ENDIF

 x=thisform.text1.Value
if VAL(x)=>60 then
        y="Lansia"
else
       if VAL(x)=>21 and VAL(x)<60 then
                    y="Dewasa"
       else
              if VAL(x)=>17 and VAL(x)=<20 then
                         y="Remaja"
               else
                         if VAL(x)=>5 and VAL(x)<17 then
                                    y="Anak-anak"
                         else
                                    if VAL(x)<5 then
                                               y="Balita"
                                    endif
                         endif
             endif
       endif
endif

PENGGUNAAN DO CASE

X= thisform.text1.Value
DO case
CASE VAL(X)=>60
        Y="Lansia"
CASE VAL(X)=>21 and VAL(thisform.text2.Value)=<60
        Y="Dewasa"
CASE VAL(X)=>17 and VAL(thisform.text2.Value)=<20
        Y="Remaja"
CASE VAL(X)=>5 and VAL(thisform.text2.Value)<17
        Y="Anak-anak"
CASE VAL(X)<5
        Y="Balita"
otherwise
       Y=""
endcase
thisform.text2.Value=Y

UPDATE/HITUNG

CODING HITUNG TOTAL PEMBAYARAN PSB
*=====================================================================
SELECT tbpsb
SCAN FOR ALLTRIM(thnajaran)=ALLTRIM(thisform.combo1.Value)
                xtahun=tbpsb.thnajaran
                xnomor=tbpsb.nodaftar
SELECT tbjenisbayarpsb
        SCAN FOR ALLTRIM(thnajar)=ALLTRIM(xtahun)
            SELECT tbbayarpsb

SET PROPERTIES

CODING SIMPEL PEMANGGILAN PROPERTIES
*========================================================================
PARAMETERS aa
WITH thisform
    .setall('enabled',aa,'textbox')
    .setall('enabled',aa,'combobox')
    .setall('enabled',aa,'editbox')
    .setall('enabled',aa,'optiongroup')
    .setall('enabled',aa,'listbox')
    .setall('enabled',aa,'commandbutton')
ENDWITH

EXTENTION FILE

EXTENTION FILE TYPE DALAM FOVPRO
*====================================================================
 .act
 Documenting Wizard action diagram
 .app
 Generated application
 .cdx
 Compound index
 .chm
 Compiled HTML Help
 .cur

DELETE FILE

CODING DELETE FILE DATABASE
*========================================================================
SELECT tbmapeljar
xtahun=ALLTRIM(UPPER(thisform.coMBO1.Value))
xkdjurusan=ALLTRIM(UPPER(thisform.coMBO2.Value))
xkelas=ALLTRIM(UPPER(thisform.coMBO3.Value))
xkdmapel=ALLTRIM(UPPER(thisform.txtKdmapel.Value))
DELETE FOR ALLTRIM(UPPER(tbmapeljar.thnajaran))=xtahun AND ALLTRIM(UPPER(tbmapeljar.kdjurusan))=xkdjurusan;

CRISTAL REPORT

CODING MEMANGGIL CRISTAL REPORT
*===============================================================

thisform.olecontrol1.reportFileName="gurupengampu.rpt"
x='{tbgurupengampu.kdmapel}="1"'
thisform.olecontrol1.retrieveDataFiles
thisform.olecontrol1.selectionFormula=x
thisform.olecontrol1.windowState= 2  && crptMaximized
thisform.olecontrol1.action="1"

UPDATE NILAI

CODING UPDATE NILAI TES SISWA "REFRESE"
SELECT tbpsb
SCAN FOR ALLTRIM(tbpsb.thnajaran)=ALLTRIM(thisform.combo1.Value)
xtahun=tbpsb.thnajaran
xnomor=tbpsb.nodaftar
    SELECT tbnilaites
            SUM tbnilaites.nilai TO xtotal FOR ALLTRIM(UPPER(tbnilaites.thnajaran))=ALLTRIM(UPPER(xtahun)) AND

KONEKSI KE DATABASE MYSQL

CODING KONEKSI KE DATABASE MYSQL
*=========================================================================
IF SQLEXEC(koneksi,"select kd_kelas from kelas order by kd_kelas", "curkelas")>0
SELECT curkelas
IF RECCOUNT()> 0
this.RowSourceType = 2
this.RowSource=curkelas.kd_kelas
ELSE
?"data tidak ada"
ENDIF
ENDIF

INPUT DATA

CODING CEPAT INPUT SEMUA MATA PELAJARAN DI PERTAHUN AJARAN
1... SATU -SATU
*========================================================================
SELECT tbmapeljar
SET DELETED OFF
xkdmapel=tbmapel.kdmapel
xtahun=ALLTRIM(UPPER(thisform.coMBO1.Value))
LOCATE FOR (ALLTRIM(UPPER(tbmapeljar.thnajaran))=ALLTRIM(UPPER(thisform.coMBO1.Value)) AND ALLTRIM(UPPER(tbmapeljar.kdmapel))=ALLTRIM(UPPER(tbmapel.kdmapel)))
            IF DELETED()
                IF DELETED()
                RECALL FOR

PENYIMPANAN DATA

CODING PENYIMPANAN DATA YANG BAIK
*================simpan data========================================
SELECT tbmapeljar
SET DELETED OFF
xtahun=ALLTRIM(UPPER(thisform.coMBO1.Value))
xkdjurusan=ALLTRIM(UPPER(thisform.coMBO2.Value))
xkelas=ALLTRIM(UPPER(thisform.coMBO3.Value))
xkdmapel=ALLTRIM(UPPER(thisform.txtKdmapel.Value))
LOCATE FOR (ALLTRIM(UPPER(tbmapeljar.thnajaran))=ALLTRIM(UPPER(xtahun)) AND

PENGECEKAN EROR

 

CODING PENGECEKAN EROR
*=========================================================================

thisform.combo1.Value=tbmapeljar.thnajaran
pesan=0
ON ERROR pesan=1
 SKIP
ON ERROR
IF pesan=1

TIMER BATAS WAKTU

CODING TIMER BATAS WAKTU
*=========================================================

PUBLIC oform
oform = CREATEOBJECT("waktu")
oform.show

DEFINE CLASS waktu AS form

Top = 0
Left = 0
Height = 187
Width = 338
DoCreate = .T.
Caption = "Form"
Name = "waktu

MULTI PENYIMPANAN

MULTI CODING PENYIMPANAN
*================simpan data========================================
SELECT tbmapelampu
SET DELETED OFF
xtahun=ALLTRIM(UPPER(thisform.coMBO1.Value))
xkdmapel=tbmapeljar.kdmapel
xnip=tbguru.nips
LOCATE FOR (ALLTRIM(UPPER(tbmapelampu.thnajaran))=ALLTRIM(UPPER(xtahun)) AND ALLTRIM(UPPER(tbmapelampu.kdmapel))=ALLTRIM(UPPER(xkdmapel)) AND ALLTRIM(UPPER(tbmapelampu.nip))=ALLTRIM(UPPER(xnip)))
            IF DELETED()
                IF DELETED()