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.
0 komentar:
Posting Komentar