Pages

Diberdayakan oleh Blogger.

You can replace this text by going to "Layout" and then "Page Elements" section. Edit " About "

 
 
Sabtu, 25 Mei 2013

Tutorial VBA di ACCESS (3)-Membuat form login

Langkah-langkahnya adalah sebagai berikut:
1. Pada tab forms pilih “create form in design view”
Maka nanti akan disediakan form kosong yang siap untuk didesain sesuai dengan keinginan. Untuk mendesain form maka access sudah menyediakan tool yang mempunyai fungsi masing-masing.
keterangan:
-textbox = digunakan untuk memasukkan data bebas. user bebas memasukan data      apapun ke dalam komponen textbox ini.
-labe = digunakan sebagai keterangan / label
- checkbox = digunakan untuk menu pilihan dimana user boleh memilih lebih dari saru.
-option = digunakan untuk menu pilihan dimana user hanya boleh memilih salah satu dari option yang disediakan.
- command button = komponen yang digunakan untuk menjalanakan perintah tertentu.
- listbox = untuk menampilkan data berupa tabel atau list.
Sebenarnya masih banyak lagi komponen yang disediakan oleh access, untuk lebih jauh mengenai penggunaan komponen akan dijelaskan sambil “berjalan”.
Setelah anda berkenalan dengan komponen yang ada maka saatnya untuk mendesain form sesuai dengan kebutuhan.
Cara mendesain form adalah dengan meng-click komponen yang dibutuhkan kemudian clik pada form dan drag. Maka komponen akan terpasang secara otomatis pada form.
Silahkan anda desain form seperti gambar dibawah ini:

keterangan:
KOMPONEN NAMA
textbox txtid
textbox txtpass
command button cmdok
command button cmdcancel
Tulisan yang diisikan pada txtpass akan muncul tanda “*” supaya menjaga kerahasiaan dari password yang diketikkan nantinya. Untuk bisa membuat seperti yang dimaksutkan adalah dengan cara sebagai berikut:
1. Click kana pada txtpass dan pilih properti
2. Clik input mask kemudian clik tombol kecil yang ada pada sebelah kanan yang bertuliskan “…”.
3. Pada pilihan mask yang ada pilihlah “password” kemudian finish
Sampai disini saya anggap anda sudah selesaim mendesain form login anda.
Langkah berikutnya adalah meng-coding
Logikanya adalah: ID dan Password yang diketikkan pada textbox akan dicek ke tabel Tuser. Apakah ditemukan data dengan ID dan Password yang diketikkan. Jika ada maka akan dimunculkan pesan “Login sukses” kemudian ketika pesan dipilih OK akan memunculkan menu utama aplikasi yang akan kita buat. Apabila tidak ditemukan maka akan memunculkan pesan “Login gagal”
Kejadian (event) akan terjadi ketika tombol OK diclick. Sehingga kita akan memasukkan koding kedalam event CmdOK_Click (). Caranya adalah:
1. click kanan pada CmdOK  kemudian pilih pilih build event.
2. Akan mucul jendela baru dan pilih Code builder kemudian pilih OK
Maka akan muncul jendela koding dengan tulisan
Private Sub cmdok_Click()
letakkan koding disini.
end sub
Pada “letakkan koding disini ” ketikkan koding program sebagai berikut:
Dim sql As String
Dim rs As Object
If txtid.Value <> “” And txtpass.Value <> “” Then

sql = “select * from quser where id=’” & txtid.Value & “‘ and pass=’” & txtpass.Value & “‘”
Me.RecordSource = sql
Set rs = Me.RecordsetClone
If Not rs.EOF Then
MsgBox “Login sukses.”,vbinformation
DoCmd.Close
Else
MsgBox “Id dan Password tidak ditemukan.”, vbExclamation
End If
Else
MsgBox “Isikan data dengang lengkap terlebih dahulu.”, vbInformation + vbOKOnly
End If
selamat mencoba….semoga sukses.

./Related Post:

1 komentar:

Anonim mengatakan...

muucih eeeaaa

Labels