Pages

Jumat, 04 Juni 2010

Pratikum VB

LANGKAH-LANGKAH PEMBUATAN FORM PENGGUNA

1. Aktifkan wampserver

2. Atur Dsn ODBC supaya terkoneksi ke database

3. Aktifkan Sql yog excecute database

4. Aktifkan VB project iziPOS kemudian klik kanan pada propertise project iziPOS --> add --> form

Kemudian tampil jendela seperti dibawah ini klik open

Kemudian tampil form berikut maka ganti nama menjadi frmpengguna

Seperti pada propertise berikut ini

Kemudian buat tampilan form pada caption ganti nama-namanya seperti gambar berikut

Ketentuan sebagai berikut :

a. Yang menggunakan label, image, frame tidak perlu diganti nama karena kita tidak mengakses nilainya

b. CommandButton1 ganti nama menjadi cmdCari

c. CommandButton2 ganti nama menjadi cmdkeawal

d. CommandButton3 ganti nama menjadi cmdkesebelum

e. CommandButton4 ganti nama menjadi cmdkesesudah

f. CommandButton5 ganti nama menjadi cmdkeakhir

g. CommandButton6 ganti nama menjadi cmdTambah

h. CommandButton7 ganti nama menjadi cmdUbah

i. CommandButton8 ganti nama menjadi cmdHapus

j. CommandButton9 ganti nama menjadi cmdSimpan

k. CommandButton10 ganti nama menjadi cmdBatal

l. CommandButton11 ganti nama menjadi cmdTutup

m. TextBox1 ganti nama menjadi txtCari

n. TextBox1 ganti nama menjadi txtID

o. TextBox1 ganti nama menjadi txtKataSandi

p. TextBox1 ganti nama menjadi txtLevel

q. TextBox1 ganti nama menjadi txtKodePegawai

Selanjutnya mengisi sintax-sintax klik kanan pada formà view code maka isikan sbb:

'Deklarasi variabel

Option Explicit

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim bMode As Integer

Const MODE_TAMPILKAN = 0

Const MODE_TAMBAH = 1

Const MODE_UBAH = 2

Private Sub Kosongkan()

txtID.Text = ""

txtKataSandi.Text = ""

txtLevel.Text = ""

txtKodePegawai.Text = ""

End Sub

Private Sub Form_Load()

'Membuat objek koneksi

Set conn = New ADODB.Connection

'Membuka koneksi MYSQL server menggunakan MYSQL ODBC 3.51 Driver

conn.Open "Dsn=iziPOS"

'Mengatur properti CursorLocation

conn.CursorLocation = adUseClient

'Membuat objek recordset

Set rs = New ADODB.Recordset

'Membuka objek recordset

rs.Open "select * from pengguna", conn, adOpenDynamic, adLockOptimistic

'Memeriksa hasil rs.open

If rs.RecordCount > 0 Then

'MsgBox "ada data"

MsgBox "ada data berjumlah : " & rs.RecordCount

'Menampilkan Data

Call TampilkanData

Else

MsgBox "Tidak Ada Data"

End If

End Sub

Private Sub TampilkanData()

txtID.Text = rs!Id

txtKataSandi.Text = rs!KataSandi

txtLevel.Text = rs!Level

txtKodePegawai.Text = rs!KodePegawai

End Sub

Kemudian double klik pada masing-masing CommandButton maka isikan sintax berikut

Private Sub cmdCari_Click()

'rs.Find "Kode='" & txtCari.Text & "'", ,adSearchForward, 1

rs.Find "ID LIKE '*" & txtCari.Text & "*'", , adSearchForward, 1

If Not rs.EOF Then

Call TampilkanData

End If

End Sub

Private Sub cmdkeawal_Click()

On Error Resume Next

rs.MoveFirst

Call TampilkanData

End Sub

Private Sub cmdkesebelum_Click()

On Error Resume Next

rs.MovePrevious

If rs.BOF Then

rs.MoveFirst

MsgBox "Tidak Ada Data Sebelumnya", vbInformation, "Data Pertama"

Else

Call TampilkanData

End If

End Sub

Private Sub cmdkesesudah_Click()

On Error Resume Next

rs.MoveNext

If rs.EOF Then

rs.MoveLast

MsgBox "Tidak Ada Data Sesudahnya", vbInformation, "Data Terakhir"

Else

Call TampilkanData

End If

End Sub

Private Sub cmdkeakhir_Click()

On Error Resume Next

rs.MoveLast

Call TampilkanData

End Sub

Private Sub cmdTambah_Click()

bMode = MODE_TAMBAH

Call Kosongkan

txtID.SetFocus

cmdSimpan.Enabled = True

cmdBatal.Enabled = True

cmdTambah.Enabled = False

cmdUbah.Enabled = False

cmdHapus.Enabled = False

cmdkeawal.Enabled = False

cmdkesebelum.Enabled = False

cmdkesesudah.Enabled = False

cmdkeakhir.Enabled = False

End Sub

Private Sub cmdHapus_Click()

rs.Delete

rs.MoveFirst

Call TampilkanData

End Sub

Private Sub cmdUbah_Click()

bMode = MODE_UBAH

txtID.SetFocus

cmdSimpan.Enabled = True

cmdBatal.Enabled = True

cmdTambah.Enabled = False

cmdUbah.Enabled = False

cmdHapus.Enabled = False

cmdkeawal.Enabled = False

cmdkesebelum.Enabled = False

cmdkesesudah.Enabled = False

cmdkeakhir.Enabled = False

End Sub

Private Sub cmdSimpan_Click()

If bMode = MODE_TAMBAH Then

rs.AddNew

rs.Fields(0) = txtID.Text

rs.Fields(1) = txtKataSandi.Text

rs.Fields(2) = txtLevel.Text

rs.Fields(3) = txtKodePegawai.Text

rs.Update

ElseIf bMode = MODE_UBAH Then

rs.Fields(0) = txtID.Text

rs.Fields(1) = txtKataSandi.Text

rs.Fields(2) = txtLevel.Text

rs.Fields(3) = txtKodePegawai.Text

rs.Update

End If

txtID.SetFocus

cmdSimpan.Enabled = False

cmdBatal.Enabled = False

cmdTambah.Enabled = True

cmdUbah.Enabled = True

cmdHapus.Enabled = True

cmdkeawal.Enabled = True

cmdkesebelum.Enabled = True

cmdkesesudah.Enabled = True

cmdkeakhir.Enabled = True

End Sub

Private Sub cmdBatal_Click()

txtID.SetFocus

cmdSimpan.Enabled = False

cmdBatal.Enabled = False

cmdTambah.Enabled = True

cmdUbah.Enabled = True

cmdHapus.Enabled = True

cmdkeawal.Enabled = True

cmdkesebelum.Enabled = True

cmdkesesudah.Enabled = True

cmdkeakhir.Enabled = True

If bMode = MODE_TAMBAH Then

rs.MoveFirst

Call TampilkanData

End If

End Sub

Private Sub cmdTutup_Click()

Unload Me

End Sub

Untuk melihat hasil tampilan form pengguna

Klik kanan pada projectiziPOSà projectiziPOS Properties

Ganti Startup Object menjadi frmpenggunaà ok

Kemudian run maka hasilnya sbb --> ok

Maka tampilah seperti dibawah ini form pengguna berdasarkan tabel pengguna pada database.