EMPTY() MESSAGEBOX("Nomor & Nama Perkiraan harus diisi!",0,"perhatian.!") IF SEEK() () () messagebox("perkiraan tsb sudah tercatat.!",0, "Perhatian.") vnoper=trim()+ APPEND BLANK REPLACE Noper WITH vnoper 3Ĥ REPLACE noac WITH LEFT(,1) REPLACE namaper WITH REPLACE saldo WITH thisform.refresh Object HAPUS Procedure CLICK vnoper=trim()+ jawab=messagebox("anda Yakin Record ini mau dihapus.?", ,"pehatian.") IF jawab=6 SELECT jurnal LOCATE FOR NOPER=vnoper IF FOUND() MESSAGEBOX("Perkiraan tersebut sudah digunakan dalam transaksi.",0,"perhatian.") DELETE &FOR noper=vnoper SET DELETED ON Object KELUAR Procedure CLICK thisform.release SET DELETED OFF pack Object PERBAIKI Procedure CLICK THISFORM.KENDALI(.f.) THISFORM.AKTIFKAN(.t.) =.f.
Object BATAL Procedure CLICK THISFORM.KOSONGKAN Object SIMPAN Procedure CLICK IF EMPTY().or. RETU Object TAMBAH Procedure CLICK IF EMPTY() MESSAGEBOX("Pilih dulu Account yang akan diisi.",0,"perhatian.!") THISFORM.KOSONGKAN THISFORM.KENDALI(.f.) THISFORM.AKTIFKAN(.t.) =.f. BAHAN PRAKTEK 1.1 Table Perkiraan Nama Table Primary Key : Perkiraan : Noper 1.2 Table Jurnal Nama Table Primary Key : Jurnal : NoBukti 1.3 Form Kelola Data Perkiraan Nama Form : Perkiraan 1Ģ OBJECT FORM1 Procedure LOAD SET DEFAULT TO D:\PEMBUKUAN\DATA CLOSE DATABASES CLOSE INDEXES IF USED("PERKIRAAN") USE IN PERKIRAAN IF USED("JURNAL") USE IN JURNAL SELECT A USE PERKIRAAN SET ORDER TO TAG NOPER SELECT B USE JURNAL Procedure UNLOAD CLOSE DATABASES CLOSE INDEXES USE IN perkiraan Procedure Kosongkan ="" ="" =0 Procedure Aktifkan PARAMETERS X =X =X =X Procedure Tampilkan =PERKIRAAN.noac+" " =RIGHT(PERKIRAAN.NOPER,4) =PERKIRAAN.NAMAPER =PERKIRAAN.SALDO Procedure Kendali PARAMETERS Y =Y =Y =Y =Y Procedure ACTIVATE =1 SET FILTER TO NOAC="1" THISFORM.KOSONGKAN THISFORM.KENDALI(.T.) 2ģ THISFORM.AKTIFKAN(.F.) =.T.
Membuat Form untuk mengelola data Perkiraan I. 1 PRAKTEK 1 & 2 VISUAL FOXPRO LANJUT (APLIKASI AKUNTANSI) Tujuan : 1.
0 kommentar(er)
