SISTEM INFORMASI KUNJUNGAN WISATA MIFAN

1. Desain File
             Database Name           :MIFAN.Mdb

Table Name                 : PENGUNJUNG

Field Key                    : NO_KARCIS + FASILITAS

Field Name	Type	Size	Description
NO_KARCIS	Text	10	No Karcis Pengunjung
NAMA_PENGUNJUNG	Text	50	Nama Pengunjung
FASILITAS	Text	25	Fasilitas yang dipakai
JUMLAH	Currency	8	Jumlah fasilitas
TARIF	Currency	8	Tarif fasilitas
DISCON	Currency	8	Discon
PPN	Currency	8	Ppn
BAYAR	Currency	8	bayar

 2. Desain Input

1.      Desain Menu Utama

Listing Module

Option Explicit

Global conn As ADODB.Connection

Public Sub koneksi()

Set conn = New ADODB.Connection

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\TUGASQIU\mifan.mdb;Persist Security Info=False"

conn.Open

End Sub