Desain adalah seni terapan, arsitektur, dan berbagai pencapaian kreatif lainnya yang melibatkan penataan garis, bentuk, ukuran, warna, dan nilai suatu objek berdasarkan prinsip-prinsip tertentu. Nih saya wong nga jelas membuat beberapa design yang asal-asalan yang penting mah upload aja lah: Design One Day Ful Color 1 Design One Day Ful Color 2 Jadi gimana guys... Jenis design yang saya buat dengan menggunakan app Corel draw , font dengan paduan warna yang asal-asalan ini, keren, menawan dan tentunya sangat memanjakan mata saat dipandang dengan menggunakan sedopan..
Wong Gaptex nulis artikel
Di blog gratisan..!!
biar di bilang gaul he,e,e,, Namun TAMPANG dusun, tetap lah Ndeso...
Materi kali ini saya akan membahas toturial cara membuat form login sederhana di microsoft acces 2010. Sebelum saya membahasnya tahap demi tahap, terlebih dahulu kita persiapkan apa saja yang butuhkan untuk proses pembuatannya.
1. Pastikan di Laptop/PC windows yang di pakai system operasi win-7 bit32.
2. Microsoft Office 2010 Sudah Terinstal pada system windows.
Pilih >> start >> All Program >> Microsoft Office >> Microsoft Office Acces.
1. 2 buah TexsBox yang fungsi nya untuk mengisikan user dan password
2. 2 buah button yang fungsi untuk tombol login dan keluar
Klik Link Back nya DISINI ika anda belum paham tatacara pembuatan menu form pada microsoft acces dan abaikan saja jika anda sudah memahaminya. Tinggal buatkan saja form seperti gambar dibawah ini.
c). Pilih view code untuk mengisikan soucre code yang dibutuh pada tutorial ini.
d). Ini adalah tampilan form module yang sebelumnya kosong dan sudah saya isikan.
Soucre code untuk kebutuhan seperti judul pada postingan
Option Compare Database
Private Sub cmdlogin_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("select * from tuser where userid ='" & txtuser & _
"' and pword ='" & txtpword & "'", dbOpenDynaset)
If rs.RecordCount > 0 Then
pesan = MsgBox("Login Sukses", vbOKOnly, "Sukses")
DoCmd.Close acForm, "login", acSaveNo
DoCmd.OpenForm "menu utama"
Else
pesan = MsgBox("Pasword salah brow, coba lago", vbOKOnly, "Gagal")
End If
End Sub
Perhatikan soucre code tersebut Set rs = db. OpenRepcordset ("select* from tuser where userid ="& txtuser .& _" and pword ="& txtpword
Link Download file yang sudah jadi klik DISINI
Link Download file yang sudah jadi klik DISINI
Komentar
Posting Komentar