PROCEDURE ALAMATDATA LPARAMETERS nDATA1 CLOSE TABLES ALL IDATA='BMPS\ALAMAT_CONTOH.DBF' IF TYPE('NDATA1')='N' IDATA='BMPS\ALAMAT_'+TRANSFORM(NDATA1)+'.DBF' ENDIF IF !FILE(IDATA) CREATE TABLE (IDATA) ; (; KLP C(3),; KODE C(2),; KETERANGAN C(60),; ALAMAT C(250); ) USE ENDIF IF !BUKA(.F.,IDATA,JUSTSTEM(IDATA)) RETURN ENDIF SELECT(JUSTSTEM(IDATA)) BROWSE TITLE DBF() NODELETE FONT "Tahoma",14 TUTUP(JUSTSTEM(IDATA)) ENDPROC