METODH

(Tombol : simpan, cari data) ==> Beri Perintah
Properties Form :- ShowWindows : In Top Level Form;AutoCenter:.T.

Object : Form1
Thisform.Text1.Enabled=.F.
Thisform.Text2.Enabled=.F.
Thisform.Text3.Enabled=.F.
Thisform.Text4.Enabled=.F.
Thisform.Text5.Enabled=.F.

Object : Form1 Prosedure : Aktif
Thisform.Text1.Enabled=.T.
Thisform.Text2.Enabled=.T.
Thisform.Text3.Enabled=.T.
Thisform.Text4.Enabled=.T.
Thisform.Text5.Enabled=.T.

Object : Form1 Prosedure : Init
Thisform.TidakAktif

Object : Command4 Prosedure : Clik ==> Tombol Isi Data Baru
Thisform.Aktif
Thisform.Text1.SetFocus

rumus simpan :

SELECT ViewPelanggan
APPEND BLANK
replace Kode WITH Thisform.text1.Value
replace Nama WITH Thisform.text2.Value
replace Alamat WITH Thisform.text3.Value
Thisform.text1.Value=""
Thisform.text2.Value=""
Thisform.text3.Value=""
MESSAGEBOX("Data Telah Disimpan",64,"informasi")

rumus view pwgawai

select viewpegawai
APPEND BLANK
REPLACE kode WITH thisform.text1.Value
REPLACE nama WITH thisform.text2.Value
thisform.text1.Value="
thisform.text2.value=""
thisform.text1.setfocus

TAMPILAN :

PERTEMUAN 16

* dekalarasi Variabel
PUBLIC Kalimat, Kalimat1 as String
PUBLIC i,j,k,nilai as Integer



* Beri Nilai pada Variabel
kalimat ="LEZAT "
kalimat1 ="Rumah makan"
i = 1
nilai = 1
j = 1
k = 1


rumus timer 2 :
thisform.Label2.Caption = SUBSTR(Kalimat, 1,i)
i = i + 1
IF i = LEN(kalimat)
i = 0
ENDIF


rumus timer 1 :
SET CENTURY ON
Thisform.label1.caption=DMY(DATE())
thisform.label2.caption=TIME()

rumus timer 3 :
IF j=1
thisform.label1.Caption=SPACE(k) + kalimat1
k = k + 1
IF k = 23
j = 2
ENDIF
ELSE
thisform.label1.Caption = SPACE(k) + Kalimat1
k = k - 1
IF k = 0
j = 1
ENDIF
Endif

rumus timer 4 :

IF nilai=1
thisform.image1.Picture='E:\BAHAN_AJARKUPEMOGRAMAN_LANJUT\MANTAP\1.PNG'
nilai=2
ELSE
thisform.image1.Picture='E:\BAHAN_AJARKUPEMOGRAMAN_LANJUT\MANTAP\1.PNG'
nilai=1
Endif

pertemuan 15

MENCARARI RUMUS MENGGUNAKAN REPORT CONTOL AB :

RUMUS MENCARI JUMLAH :

MENCARI NAMA MENU :

RUMUS BAYAR :

cara kedua :

cara ketiga :

rumus simpan :
WITH thisform
*Rekam Data Ketabel : HeaderPesan
SELECT 2
APPEND BLANK
replace NoNota with.text1.value
replace Tanggal with.text2.value
replace Potongan with.text4.value

*Simpan data pada grid ketabel DetailPesan
SELECT temp
GO top
DO while! EOF()
SELECT 3
APPEND BLANK
replace NoNota with.text1.value
replace KodeMenu WITH temp.KodeMenu
replace Harga WITH temp.Harga
replace Jumlah WITH temp.Jumlah

SELECT temp
SKIP && Maju 1 Record
ENDDO
cetak=ALLTRIM(thisform.text1.value)
thisform.text1.value=""
thisform.text2.value={}
thisform.text3.value=0
thisform.text4.value=0
thisform.text5.value=0
thisform.text1.setfocus
thisform.init
MESSAGEBOX("Data Telah Disimpan",64,"Informasi")

SELECT 2
SET FILTER TO nonota=cetak
REPORT FORM rptpesan.frx PREVIEW IN screen
endwith

pertemuan 10

GIRD
--> Mengatur data untuk tabel.

Properties Gird1:
-AllowAddnew==>False
-DeleteMark==>False
-ReadOnly==>True
-ColumnCount==>7
-RecordSourceType ==> PROMPT
-Recordsource==>Namatabelygdibuat

Beri nama Form : FrmLihatPegawai

latihan 9

rumus :
use mahasiswa && Tabel : Mahasiswa NPM
APPEND BLANK && Menimpan Rscord Kosong
WITH thisform
REPLACE nip WITH .text1.value && Mengisi nip
REPLACE nama WITH .text2.value &&Mengisi Nama
REPLACE tanggal lahir WITH .text3.value &&Mengisi tanggal lahir
replace alamat with.text4.value &&Mengisi alamat
replace golongan with.combo1.value &&Mengisi gololongan


.text1.value=""
.text2.value=""
.Text3.Value={}
ENDWITH
MESSAGEBOX("Data Telah direkam",64,"info")
IF thisform.optiongrup1.option1.value=1 then
replace jenis WITH "Laki-Laki"
ELSE
Replace jenis WITH "perempuan"
ENDIF