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 :