![]() ![]() ![]() 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 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |