Materi Pra Uas 1

Materi Foxpro Pertemuan Pra Uas 1 Lab H- I Malam Fatmawati A1 Buat Project UAS1 Database Honor

Isi Record 1 Buah saja

Form Active

FOXPRO 9.0 LAB H- I FMA @ SIA OKTOBER 2009

Materi Foxpro Pertemuan Pra Uas 1 Lab H- I Malam Fatmawati A1 thisform.optiongroup1.option1.Value =0 thisform.combo1.Value =0 thisform.check1.Value =0 thisform.check2.Value =0 thisform.txtTgl_honor.Value =DATE()

Command Save

SELECT umr APPEND BLANK replace id_honor WITH thisform.txtId_honor.Value replace tgl_honor WITH thisform.txttgl_honor.Value replace id_pns WITH thisform.txtId_pns.Value replace jml_abs WITH thisform.txtjml_abs.Value replace ho_ber WITH thisform.txtho_ber.Value replace status1 WITH thisform.txtStatus1 .Value replace pot WITH thisform.txtPOT .Value replace pph WITH thisform.txtPPH.Value replace lm_krj WITH thisform.combo1.Value replace total WITH thisform.txttotal.Value

Buat Local View New

Buat Hubungan Relation Inner Join IF thisform.optiongroup1.option1.Value =1 thisform.txtStatus1.Value ="Nikah" ELSE thisform.txtStatus1.Value ="Belum" ENDIF IF thisform.check1.Value =1 thisform.txTPOT.Value =thisform.txTPOT.Value+100000 ELSE thisform.txTPOT .Value =0 endif thisform.txtTotal.Value = (thisform.txtHo_ber.Value * thisform.txtJml_abs.Value)-thisform.txtPOT.Value-thisform.txtPPH.Value

FOXPRO 9.0 LAB H- I FMA @ SIA OKTOBER 2009