.

Ingat Suatu Hal " Ilmu Tanpa Amalan Laksana Pohon Tiada Berbuah. dan Lebih baik menjadi orang yang bodoh tapi mau belajar dari pada menjadi orang pintar namun tidak mampu mengamalkan ilmunya. "

Nah.. berlandaskan hal tersebut.. dari pada Netter gak menentu meng Klak-klik tampilan FB, Lebih baik konsentrasi membaca catatan saya berikut.
Kegunaan Form Login ini sangatlah signifikan, karena dengan menggunakan form ini program yang anda ciptakan tidak dapat diakses oleh sembarang orang, sehingga data anda tidak akan dapat diedit oleh tangan yang tidak bertanggungjawab.
CARA MEMBUAT FORM PASSWORD/LOGIN/HAK AKSES

Dengan Asumsi Anda telah membuat Database dengan nama ADOpesanan.mdb dan Tabel dengan nama Kasir dan sebuah form menu.

Rancanglah Form seperti tampilan pada gambar dibawah :


Keterangan Gambar :
Gambar disamping ini Menggunakan Label, namenya terserah anda karena tidak mempengaruhi source kode


Selanjutnya Gambar disamping ini anda rancang Menggunakan Textbox, name nya : txtnamaksr dan txtpasswordksr (sebaiknya ikutin name ini agar mudah mengikuti source kode yang akan saya berikan, namun tidak masalah juga jika anda ingin merubah namanya asalkan di source kodenya juga anda rubah)


Setelah Tampilan anda rancang seperti pada gambar diatas lalu copylah source kode yang ada dibawah . setelah anda yakin mengkopi semua source kode dengan benar maka kembalilah ke Form dan pastekan source kode tersebut setelah anda menekan tombol F7 pada keyboard anda.

Berikut Source Kodenya :

Dim A As Byte
Dim B As Byte
Private Sub Form_Load()
TxtNamaKsr.MaxLength = 35
TxtPasswordKsr.MaxLength = 15
TxtPasswordKsr.PasswordChar = "*"
TxtPasswordKsr.Enabled = False
TxtKodeKsr.Enabled = False
End Sub

Private Sub TxtNamaKsr_KeyPress(Keyascii As Integer)
Keyascii = Asc(UCase(Chr(Keyascii)))
If Keyascii = 27 Then Unload Me
If Keyascii = 13 Then
Call BukaDB
RSKasir.Open "Select NamaKsr from Kasir where NamaKsr ='" & TxtNamaKsr & "'", Conn

If RSKasir.EOF Then
A = A + 1
If 1 - A = 0 Then
MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
"Nama '" & TxtNamaKsr & "' tidak dikenal"
TxtNamaKsr = ""
TxtNamaKsr.SetFocus
ElseIf 2 - A = 0 Then
MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
"Nama '" & TxtNamaKsr & "' tidak dikenal"
TxtNamaKsr = ""
TxtNamaKsr.SetFocus
ElseIf 3 - A = 0 Then
MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
"Nama '" & TxtNamaKsr & "' tidak dikenal" & Chr(13) & _
"Kesempatan habis, Ulangi dari awal"

Unload Me
End If
Else
TxtNamaKsr.Enabled = False
TxtPasswordKsr.Enabled = True
TxtPasswordKsr.SetFocus
End If
End If
End Sub

Private Sub txtpasswordksr_KeyPress(Keyascii As Integer)
Keyascii = Asc(UCase(Chr(Keyascii)))
If Keyascii = 27 Then Unload Me
Dim LoginKasir As String
Dim KodeKasir As String
Dim NamaKasir As String
If Keyascii = 13 Then

Call BukaDB
RSKasir.Open "Select * from Kasir where NamaKsr ='" & TxtNamaKsr & "' and PasswordKsr='" & TxtPasswordKsr & "'", Conn
If RSKasir.EOF Then
B = B + 1
If 1 - B = 0 Then
MsgBox "Kesempatan ke " & B & " Salah"
TxtPasswordKsr = ""
TxtPasswordKsr.SetFocus
ElseIf 2 - B = 0 Then
MsgBox "Kesempatan ke " & B & " Salah"
TxtPasswordKsr = ""
TxtPasswordKsr.SetFocus
ElseIf 3 - B = 0 Then
MsgBox "Kesempatan ke " & B & " Salah"
'End
Unload Me
End If
Else
Unload Me
Menu.Show
End If
End If
End Sub

Jika tulisan source kode berubah menjadi warna merah berarti ada kesalahan dalam kode program. Silahkan anda perhatikan baik-baik dan sesuaikan dengan rumus diatas. Dan jika source kode tidak ada kesalahan, saatnya anda melanjutkan pekerjaan. Langkah selanjutnya adalah klik menu Project – Pilih Add Module. Lalu kopilah source kode dibawah dan pastekan pada module tersebut

Berikut source kode pada Module :
' Kegunaan source kode ini adalah untuk koneksi antara vb dengan database.. akan tetapi jika anda mempunyai cara koneksi lain tidak masalah digunakan yang terpenting diselaraskan antara nama database dan nama tabelnya. source kode yang saya berikan ini adalah source adodb, untuk pengembangan silahkan gunakan adodc.
Public Conn As New ADODB.Connection
Public RSKasir As ADODB.Recordset

Public Sub BukaDB()
Dim STR As String
Set Conn = New ADODB.Connection
Set RSKasir = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ADOPesanan.mdb"
End Sub

Selamat Mencoba !!!

Salam Untuk Semua Pengunjung Blog
Kali ini saya akan membuat sebuah Forum melalui blog yang berguna untuk menemukan anda dengan seseorang yang sedang anda cari berdasarkan karakteristik yang anda inginkan. meskipun kita sadari bahwa tiada manusia yang sempurna akan tetapi kita selalu berusaha untuk mendapatkan seseorang yang sempurna meskipun tidak sesempurna yang maha sempurna.

Caranya gampang :
Silahkan anda ketik Ciri - ciri wanita/pria yang anda inginkan secara detail pada kolom komentar dibawah ini, lalu jika anda ingin mengepost komentar anda dan jika anda belum mempunyai situs blog silahkanb anda pilih anonymous pada kolom comentar. diharapkan mencantumkan contact person agar mudah untuk menghubungi anda jika karakteristik yang anda inginkan sudah kami temukan. silahkan cek blog ini setiap hari agar anda bisa melihat perkembangan pencarian anda.

Terima kasih

Trik Internet Telkomsel Flash Gratis
Langkah pertama, konek pake kartu Simpati atau Kartu As anda de3ngan APN : Flash
User :
Pass :
Username dan password di atas memang kosong karena memang tidak perlu.
Langkah kedua, buka software your – freedom (YF) lalu pilih protocol UDP 53 (tidak perlu proxy). Kalau udah tinggal konekin aja YF nya.
Langkah ketiga atau yang terakhir, set proxy localhost di browser, IDM atau YM elo. Untuk yang mau pake HTTP proxy, settingannya localhost port 8080. sementara yang mau pake socks 5 proxy, settingannya localhost port 1080.

Trik Internet Gratis ProXl
1. Konek proXL pake APN : www.xlgprs.net, username : xlgprs Password : proxl.
2. Buka YF ( your freedom net) lalu pada bagian konfigurasi server dipilih protocol UDP 53. emsnya terserah
3. Start Connect YF nya
4. Setting http proxy di browser pake 127.0.0.1 port 8080
5. Have fun

Trik Internet Gratis Axis
Trik Internet gratis Axis ini pada dasarnya sama persis dengan trik internet gratis three via ssh 443, bedanya kalian harus mengganti proxy internal three dengan proxy internalnya axis [10.8.3.8:8080]. Tapi buat gambaran singkatnya, adalah :
1. konek ke axismms
2. konek ke ssh443
3. buka proxifier

Trik mencegah copy atau cut file dari computer ke flashdisk
Tips untuk mencegah pengambilan data dari computer anda ke flashdisk adalah sebagai berikut :
1. Masuk ke regedit (tekan tombol windows + R lalu ketik regedit)
2. Masuk ke HKEY_LOCALMACHINES\SYSTEM\CurrentControlSet\Control\
3. Klik kanan pada folder control pilih New – Key
4. Beri nama folder baru itu dengan “storagedevicepolicies”
5. Lalu klik kanan di folder dengan nama “storagedevicepolicies”, lalu pilih New – Dword
6. Beri nama “writeprotect”
7. Klik 2x Dword dengan nama “writeprotect” tersebut, lalu ganti value data menjadi 1
8. Restart Komputer anda
Berikut pesan yang tampil jika ada seseorang mencoba copy/cut data dari computer anda untuk dimasukkan di flashdisk:
NB: Untuk mengembalikan seperti semula anda tinggal mengganti value data dari key “writeprotect” menjadi 0

Mau Nge Fax??? Gak perlu lagi anda pergi atau mencari atau bahkan membeli mesin fax… anda hanya bermodalkan PC atau laptop aja. Kalo gak punya PC atau Laptop, anda pergi aja kewarnet.. Cuma dengan uang 1000 rupiah udah beres tuh…
Oke langsung aja…. Disini yang dijelaskan hanya yang menggunakan windows XP.
Tahukah Ente… bahwa Windows XP memiliki tool untuk mengirim dan menerima faxs?
Kalo anda tidak tahu.. Okelah kalo begitu.. Simak penjelasan berikut :
1. Buka control panel, pilih Add/Remove program dan klik add/remove windows component. Enable fax service dan klik next.
2. Klik Start – All programs – Accessories – Communication – Fax – Fax Console untuk menjalankan Fax Configuration Wizard. Atur semua setting, termasuk nomor faxs dan modem yang digunakan serta pengaturan incoming fax.
3. Buat semua faxs dari fax console. Periksa semua isi sebelum dikirim, termasuk setting dan sebagainya.

Selamat Mencoba !

Seperti kita ketahui di zaman kecanggihan Informasi sekarang ini kita dapat memperoleh berbagai macam informasi atau kebutuhan yang kita butuhkan di internet. Mulai News, Education, Hiburan, Shopping, dan berbagai macam kebutuhan dan informasi lainnya tanpa batas di Internet.

Namun dengan kehadiran Internet ini tentunya tak lepas juga dari hal negatif. Antara masih banyaknya situs yang berbau negatif, yang mengandung content seperti Sara, Pornografi, Explisit, Phising dan Exploit. Tentunya hal ini juga cukup mengkawatirkan tertutama bila website yang merugikan semacam itu bila diakses oleh kalangan yang belum matang jiwanya seperti kalangan Siswa Pelajar yang belum cukup dewasa.

Internet memang sangat dibutuhkan untuk memajukan pendidikan para pelajar, namun kita harus selalu aktif mengawasi penggunaan internet untuk para pelajar dibawah umur tersebut.

Sebenarnya kita bisa mengurangi dampak negatif internet dengan cara membatasi atau memblokir beberapa situs yang mengandung hal hal yang tidak bermanfaat, sehingga internet lebih aman untuk semua kalangan terutama untuk menciptakan Internet yang aman untuk para pelajar, sekaligus menghindarkan komputer kita dari website yang berisi virus dan spyware.

Berikut Tips untuk memblokir Situs Porno ( Harus Jadi Perhatian Untuk Pengelola Warnet)

1.Langkah Pertama :

Gunakanlah DNS AWARI, DNS AWARI ini membuat internet lebih aman dan sekaligus DAPAT MEMPERCEPAT AKSES internet juga. Server DNS AWARI ini memblokir beberapa situs yang kurang bermanfaat / berisi content negatif, meski belum semua akses ke website porno diblokir ole Filter DNS tersebut.

Berikut DNS AWARI yang digunakan :

203.34.118.10 (Primary)
203.34.118.12 (Secondary)

Cara penggunaan DNS dan tutorialnya silahkan baca di artikel :

DNS Alternatif dan cara penggunaannya.

2. Langkah Kedua :

Setelah DNS sudah dirubah perlu ditambahkan lagi Filternya yaitu dengan menggunakan Proxy ARAB SAUDI, Proxy Arab ini menerapkan filtering yang cukup ketat dan terus terupdate data base nya. Proxy ARAB SAUDI ini akan memblokir situs yang terdeteksi mengandung content pornografi, Hacking, Exploit, pishing dan Virus dan lain sebagainya.

Berikut ini beberapa Proxy Filter yang bisa digunakan :

Update Proxy Avaibility 23 Oktober 2009

212.93.193.90 Port:443 (Arab Saudi)
212.93.193.89 Port:443 (Arab Saudi)
212.93.193.88 Port:443 (Arab Saudi)
212.138.84.62 Port:80 (Arab Saudi)
168.10.168.61 Port:80 (USA Filter)
213.132.58.149 Port:8080 (UEA Etisalat)

3. Langkah Ketiga

Setelah kedua langkah anda terapkan jangan lupa mengganti Home Page default browser anda ke website http://www.google.co.id karena bila menggunakan google.com maka default google anda adalah google dengan bahasa dan tulisan arab. Kelebihan lain nya dengan setting ini maka google search engine anda otomatis menjadi Google Safe Mode atau Google Pencarian Aman, sehingga result atau hasil pencarian akan mengabaikan website yang berisikan Pornografi, Explishit, Pishing, Virus dan lain sebagainya.

Setelah anda menggunakan DNS AWARI dan Proxy Arab Saudi diatas maka akan mempekecil kemungkinan situs-situs yang bercontent negatif bisa terkases, sehingga menciptakan akses internet yang lebih aman untuk Anak-anak, Remaja dan Pelajar dibawah umur. Namun meski demikian para orang tua hendaknya selalu pro aktif untuk mengawasi dan mengontrol penggunaan akses Internet Untuk anak-anak dan Remaja dibawah umur.

Selamat Mencoba.. tpi jangan pernah coba coba