Tulang rusuk (Mario Teguh Golden Ways)

Seorang wanita diciptakan dari tulang rusuk seorang lelaki. Nah pertanyaannya bagaimana kita dapat memilih seorang pria tepat untuk mendapingi hidup kita? Memilih mana antara dicintai apa mencintai?

Terkadang pertnyaan ini membingungkan, namun dari beberapa teman  bijak yang merukapan seorang lelaki, saya tanya menjawab "Ketika engkau dihadapkan diantara dua orang: Yang satu sangat engkau cintai yang satunya lagi mencintai dirimu. Posisikan dirimu di tengah lalu kau tuliskan beberapa hal mengenai kriteria dan kulaitas calon hidupmu. Catat satu persatu apakah orang yang engkau cintai termasuk dalam kriteria calon hidupmu. Lakukan hal yang sama dengan orang yang mencintaimu. Jadikan dirimu senetral mungkin karena dengan begini dirimu akan mengerti mana yang terbaik". Berdasarkan pendapat temanku ini muncul lagi pertanyaan dari benak saya, apakah ketika kita sedang dalam proses memilih kita dapat mengalahkan ego perasaan kita. Bahkan terkadang kita mengelu-elukan orang yang kita cintai dengan segala keburukan kualitas tanpa memperhatikan orang yang mencintai kita. Inilah ego hati kita. 

Ego kita terkadang membuat kita terjebak dalam keputusan yang salah. Padahal ketika kita membina sebuah hubungan rumah tangga disana tidak hanya cinta yang dibutuhkan namun juga kualitas dari masing-masing pasangan. Yang dimaksud kualitas disini tidak hanya dari segi kemapanan finansial namun juga menyangkut karakter, kepribadian, attitude dsb. 

"Cinta tanpa kualitas yang baik berujung pada pengacuhan pasangan. "(Mario Teguh)

Kita mencintai seseorang tanpa memerhatikan kualitasnya berarti mengambil resiko menghancurkan diri. Apakah kita mau dengan orang yang kita cintai namun kita tahu bahwa ia adalah seorang yang buru sifat  suka memukul, pelit, gonta-ganti pasangan, pendendam atau bahkan pemalas dan tidak tanggung jawab? Sedangkan ada seorang yang mencintai kita dengan segala kemapanan finansial, attiudenya yang baik, kepribadiannya yang matang, tanggung jawabnya yang besar?

it is up to you. Jika dirimu masih bingung solatlah istikharah biarkan sang Maha pencipta yang menuntun kita.

"Lebih memilih lelaki hebat yang mencintai kita, daripada memilih orang yang kita cintai dengan segala keburukan sifat" (Mario Teguh).

Mudah-mudahan hal ini dapat membuka mata dan hati kita bahwa banyak hal perlu pertimbangan logika bukan hanya ego perasaan. Kita dapat berhati-hati dalam mengambil keputusan masa depan. Karena satu keputusan menentukan bagaimana kau harus hidup di masa depan. Mudah mudah kita yang belum mendapat calon pasangan yang tepat segera mendapatkan.  dan yang sudah mendapatkan pasangan hidup mudah-mudahan adalah pilihan terbaik dari Allah. Amin

Keponakanku yang Manis Dan Bandel

 

Lihat saja tingkahnya difoto, yang aslinya bener-bener gemesin dan ramai. Yang cewek ini nih kalu bicara kayak wong solo halus menci dan kemayu. Waktu masih kecil dulu kulitnya putih kesini-sini berubah jadi hitam. Aneh. Yang paling belakang anak pertama kakaku yang kedua, ponakanku yang satu ini pelit ngomong bisanya mesam-mesem aja namun ngajinya pinter. Satu lagi yang the BIGest one, anaknya gag suka neko-neko, nurut dan kalu sudah disediain makan udah diem gag rewel. Tiga tahun lalu ponakanku yang paling gendut ini aslinya kurus, suatu ketika ia masuk rumah sakit karena kena demam berdarah, diinfus selama berhari-hari membuat badanya gembul. Nafsu makannya menjadi tinggi sampai sekarang.

Nah yang ini si geulis. Meski cewek tingkahnya super tomboy. Superaktif dan suka becanda. Ada lagi si bagas adiknya yang juga gembul. Waktu masih di purwakarta pasti kalu saya lagi bunyiin motor mereka siap-siap turut ikut. Rebutan biar bisa dapet tumpangan di depan :). " Buyeekkkkkk, icut-icut". Buyek rindu kalian. Mudah-mudahan lebaran ini bisa kumpul bareng di Pati.

makan ketoprak mang jawa timur di rumah kakak ketiga di Purwakarta

Big Family Yogya Cikampek

 

Foto ini diambil seminggu sebelum saya resign dari  Yogya Cikampek akhir September 2013 lalu. Betapa sangat ekspresif dan ceria. We are big family.  Mengenakan seragam kerja serba hitam yang nampak seperti sedang melayat. :D. Dan saya sendiri memakai baju brand produk precise. 

Dua cowok disampingku merupakan anak SMK yang sedang magang. Paling kiri berdiri Ella kemudian saya lupa namanya, saya sendiri, lalu amin lalu fransisca. Paling kiri duduk saya lupa namanya, si neng, lalu Yati

 

Foto Yogya Cikampek. Banyak pelajaran dan pengalaman berharga. Saya jadi tahu pentingnya sebuah kekompakan dalam bekerja. Pentingnya koordinasi dan komunikasi.

 Dina, Adik teman sekelas di kampus. Sekaligus teman kerja dan ngobrol. :)

 

Saya bersama anak magang

 Siti Umiyatun dan saya. How a beatifull we are. hehe

Di depan Counter precise. Dengan susunan sepatu yang saya tata sedemikian rupa. Terlihat rapi bukan?. Banyak hal kenangan indah di precise. Mulai dari Pak edi, Pak Bernard yang mirip artis korea, Pak Beni yang mirip orang cina dengan logat jawanya yang medok. Dari pelanggan precise yang pernah sampai berkunjung ke Pati, sampai ada pula pelanggan misteri yang memberi sebuah hadiah kotak pendengar musik. Adapula teh nina yang cantik nampak seperti masih lajang namun ternyata sudah menikah. Ada pula mang Kobir senior precise, meski cowok cerewetnya ampun namun baik banget. Dan banyak lagi kawan-kawan lama. Terimakasih kalian semua telah mampir di kehidupanku dan mewarnai hidupku. Kalian guruku. Terimakasih semuanya. Saya merindukan kalian semuaa

Kegelisahan Masa Depan

" Worry pretends to be necessary but serves no useful purpose.” ~Eckhart Tolle    

Sekitar enam bulan yang lalu saya lulus kuliah. Lulus dengan nilai yang memuaskan ini merupakan target ketika awal masuk kuliah. Dan sampailah pada target pertama, saya merasa perjuanganku dan usahaku tidaklah sia-sia. Alhamdulilah. Saya pun diwisuda dengan perasaan haru.

     Beberapa hari setelah diwisuda saya mulai memikirkan masa depan. Dimana saya harus bekerja?. Kemanakah harus melangkahkan kaki?. Selain bekerja saya juga merungsingkan soal jodoh. Dimana ia dan orang manakah ia? Satu persatu pertanyaan itu selalu memenuhi pikiranku setiap hari. Saya mengalami insomia hampir satu minggu. Dalam sehari saya hanya bisa tidur selama 3 jam. Betapa itu sangat menyiksa. Kesehatan mulai terganggu dan impactnya berat badan turun.

     Saya pun akhirnya menyadari bahwa yang saya lakukan itu tidaklah benar. Setiap hari memikirkan pertanyaan-pertanyaan masa depan tanpa ada usaha untuk mewujudkan semua pertnyaan itu. Satu persatu pertnyaan itu saya jawab dengan sedikit usaha. Saya hanya menuruti apa yang memang saya inginkan. Saya memutuskan untuk pindah tempat tinggal dan kerja, memilih tinggal bersama orang tua dan bekerja di Pati.

      Masalah muncul ketika telah pindah di Pati. Mendapati bahwa di Pati  kota kecil minim lowongan kerja, persaingan begitu ketat. Seringkali selentingan " Disini susah dapat kerja tanpa ada orang dalam atau tanpa membayar uang". Ini membuat saya sedikit down. Namun saya tetap menanamkan pada diri bahwa Allah akan membagi rejeki secara adil kepada hambanya. Saya yakin dan percaya.

      Lima bulan telah berlalu semenjak saya mengirim beberapa lamaran kerja di beberapa perusahaan. Beberapa kali saya mengikuti wawancara namun hasilnya nihil. Dan terakhir saya ikut tes di perusahaan ritel di Jepara. Saya naik motor sendiri untuk pertama kali melewati jalur pantura dengan jarak tempuh yang lumayan jauh. Tanpa ada kenalan hanya berbekal alamat perusahaan. Bisa dibilang saya nekat waktu itu. Setiap saya pergi untuk mengikuti wawancara/ tes dan memasukkan lamaran saya berdoa

" Ya Allah ini usaha yang saya lakukan mudah-mudahan engkau memberkahi dan memberi jalan."

      Sesampainya di Jepara saya tidak dites hanya diwawancara dengan ruangan yang seadanya. SDMnya memberi lembaran peta. Ia memberitahukan bahwa ia akan menghubungi saya lagi seminggu setelah wawancara. Jika saya dihubungi maka saya dapat mengikuti tes di Semarang. Jika tidak maka I am failed. Seminggu berlalu sejak wawancara itu namun tak kunjung ada konfirmasi. Saya gagal. Namun bukan berarti apa-apa ini hanya karena belum rejeki yakinlah. Meskipun begitu saya lumayan down. Maklum saja sudah 5 bulan lebih.

       Dua hari kemudian ada tukang tembel priuk datang ke desaku. Kebetulan priuk ibuku banyak yang bolong. Ibuku pun memberikan priuknya untuk ditembel. Karena saking banyaknya priuk yang ditembel ibuku pun menunggui tukang tembel priuk itu sambil bercakap-cakap. Ibu menceritakan soal diriku yang belum juga mendapat pekerjaan. Si bapak tukang itu berkata sambil nembel "Sing penting sabar, ikhlas lan narimo insyallah kalu waktunya sudah tiba pasti datang juga pekerjaannya".

       Saya terus mengingat perkataan itu. Seminggu berselang saya memutuskan jika dalam maret saya belum juga dapat pekerjaan saya akan menuruti kata sodara perempuanku yang menyarankan untuk kerja di luar kota. Saya terus berdoa agar saya sudah mendapat pekerjaan akhir bulan maret. Perasaanku begitu kalut, dag dig dug dan was-was. Hari demi hari di akhir tanggal maret seperti cepat berlalu. Saya terus mengecek email dan handphone kalau-kalau saja ada konfirmasi.

       Jam sepuluh pagi di hari selasa handphone saya berdering. Saya mengangkat dan Alhamdulilah saya mendapat panggilan untuk tes waktu itu tanggal 27  bulan Maret. Dan akhirnya tanggal 29 Maret saya mendapat konfirmasi. Sangat menyenangkan dan lega karena setelah semua yang telah saya lalui Allah memberi jalan juga tepat diakhir Maret.

       Masa depan memang tidak ada yang tahu kita sendiri yang perlu merencankan dan mengajukan proposal kepada Allah. Insyallah Allah berkenan menyetujui proposalmu. Tentunya ada usaha dan doa yang rutin lho ya agar Allah setuju. Yakin dan percaya pada kemampuanmu dan pada Allah. Allah selalu ngasih yang terbaik. Ikuti kata hatimu biarkanlah Allah yang akan menentukan. Serahkanlah semua Pada Allah yah. Semangat kawan

    

Hari Pertama Kerja

Sabtu sore saya mendapat konfirmasi dari PT BSP untuk mulai bekerja hari senin tanggal 7 April 2014. Senang rasanya akhirnya I get a good job. Selain kerja untuk mengisi waktu luang juga insyallah merupakan ibadah. Kali ini saya lebih bersemangat dibanding biasanya. Biasanya untuk bangun subuhan saja nunggu ibu berteriak-teriak baru bangun. Kali ini beda,  jam 4 sudah bangun tanpa dibangunin gimana ndag amazing. I prepared  semua yang saya butuhkan tisue, atk, hp, dompet, dll.

Jam 7 tepat sudah siap meluncur dengan si silver. Jalanan masih ramai dengan anak sekolah dan orang-orang yang berangkat kerja sama sepertiku. The street still broken. Sesampainya disana pukul 7.30 masih sepi hanya ada beberapa orang dari bagian ekpedisi dan security. Ada satu orang ternyata tidak memakai batik,  karena ini hari peresmian jadi perlu dan harus memakai batik jadi orang itu terpaksa pulang. Untung sekali bukan saya. Andaikan itu saya salah kostum di hari pertama bisa berabe urusannnya. Sudah mulai ramai karyawanb berdatangan seperti acara resepsian semua memakai batik hanya beberapa dari bagian sales luar kota pakai seragam BSP mungkin lupa kali ya. Semua ikut berbaris saya pun turut. Dan dimulai acara peresmian cabang ke 43 PT BSP.

Setelah acara peresmian kemudian semua bagian menempati ruang masing - masing, kantor masih baru termasuk dengan peralatan di dalamnya. Saya diarahkan untuk memasuki ruang yang tertulis collector. Di dalam ruang colector ini terdapat 4 ruang lagi yang terdiri dari ruang bagian kasir, ADM bank, fakturist dan collector. Diruangan yang saya tempati terdapat tiga meja sedang dan 2 kursi. Saya bekenalan dengan kepala bagian saya kemudian beliau menjelaskan mengenai tugas dan tanggung jawab kerja untuk posisi yang saya tempati. Masih sedikit bingung karena banyak singkatan singkatan yang masih asing ditelinga orang awam. Namun saya menikmatinya. Menurutku calon atasanku ini baik meskipun kadang pusing sendiri. Dan rekan kerja seruanganku juga orangnya baik punya kepribadian hampir mirip sedikit denganku.

Hari pertama ikut lembur bantu-bantu beres-beres. Belum sepenuhnya efektif karena masih banyak trouble yang paling utama masalah sistem komputer yang belum bisa jalan dan masih perlu di lakukan perbaikan disana sini. 

Hari pertama kerja yang berkesan. Saya  tak sengaja bertemu kawan lama waktu SMP dan kawan lama waktu SMA. Hampir semua bagian ramah sekali dan saling mengajari. Kantor yang cukup nyaman, pekerjaan yang menyenangkan. Sistem perusahaan yang luwes dan flexibel. Mudah-mudahan bisa betah, nyaman, semangat dan bisa berkarir secara cepat. amin. Semangat :)

Membuat Form Login dengan tambahan "Lupa Password" VB 6

Untuk memproteksi program yang dibuat termasuk data -data didalamnya perlu ditambahkan suatu form login. Dengan form login kita dapat mengatur hak akses untuk form-form yang ingin ditampilkan  atau dirahasiakan dari user. 

Adakalanya seorang user lupa dengan password yang pernah dibuat. Padahal kita tahu user hanya mengetahui program jadinya, tentu ia akan merasa kesulitan. Nah untuk mengatasi hal ini maka dibuatlah tombol "lupa password". Di tombol lupa password ini kita dapat mendapatkan kembali password kita dengan mengisi data di dalam form lupa passwod. Jika data yang kita isikan sesuai dengan data yang pernah kita isikan maka program akan menampilkan password kita. 

Sebelum membuat form login kita membuat terlebih dahulu form  user untuk mendaftar user baru dengan mengisi form user ini. Saya memakai Acces sebagai databasenya.

Yang pertama dapat kita lakukan membuat tabel_pegguna:

Field Name                Data Type

id_pengguna              Text

nm_pengguna            Text

password_pengguna   Text

pertanyaan                 Text

jawaban                     Text

Rancang form_user seperti dibawah:

Koding:

Dim cek As Boolean
Dim query As String
Sub bersihkan()
txtpassword_pengguna.Text = ""
txtnm_pengguna.Text = ""
txtid_pengguna.Text = ""
txttanya.Text = ""
txtjawab.Text = ""
End Sub

Sub Aktifkan()
txtpassword_pengguna.Locked = False
txtnm_pengguna.Locked = False
txtid_pengguna.Locked = False
txttanya.Locked = False
txtjawab.Locked = False
End Sub

Sub TdkAktifkan()
txtpassword_pengguna.Locked = True
txtnm_pengguna.Locked = True
txtid_pengguna.Locked = True
txttanya.Locked = True
txtjawab.Locked = True
End Sub

Sub Tampilkan()
txtid_pengguna = recordset.Fields("id_pengguna")
txtnm_pengguna.Text = recordset.Fields("nm_pengguna")
txtpassword_pengguna.Text = recordset.Fields("nm_pengguna")
txttanya.Text = recordset.Fields("pertanyaan")
txtjawab.Text = recordset.Fields("jawaban")
End Sub

Sub tampilgrid()
Call NomorUrut
fg.Cols = 6
fg.ColWidth(0) = 500
fg.ColWidth(1) = 1500
fg.ColWidth(2) = 1500
fg.ColWidth(3) = 1300
fg.ColWidth(4) = 1700
fg.ColWidth(5) = 1500
fg.TextMatrix(0, 0) = "No"
fg.TextMatrix(0, 1) = "Id Pangkat"
fg.TextMatrix(0, 2) = "Nama Pangkat"
fg.TextMatrix(0, 3) = "password_pengguna"
fg.TextMatrix(0, 4) = "pertanyaan"
fg.TextMatrix(0, 5) = "jawaban"
End Sub

Sub tabel()
Set recordset = koneksi.Execute("select*from tbpengguna")
Set fg.DataSource = recordset
tampilgrid

End Sub
Sub semula()
bersihkan
TdkAktifkan
cmdtambah.Enabled = True
cmdsimpan.Enabled = False
cmdhapus.Enabled = False
cmdbatal.Enabled = False
cmdubah.Enabled = False
fg.Enabled = True
labelaman.Visible = False
End Sub

Private Sub fg_Click()
pesan = ""
fg.Col = 1
fg.ColSel = fg.Cols - 1
End Sub

Private Sub fg_DblClick()
cmdhapus.Enabled = True
cmdubah.Enabled = True
cmdbatal.Enabled = True
cmdtambah.Enabled = False
labelaman.Visible = True
Dim j As Integer
j = fg.Row
Set recordset = New ADODB.recordset
'membuka tabel pegawai di baris satu kolom 2
recordset.Open "select*from tbpengguna where id_pengguna='" & fg.TextMatrix(j, 1) & "'", koneksi, adOpenDynamic, adLockOptimistic
If recordset.BOF Then
MsgBox " Data Tidak ADa"
Else
If fg.Rows <> 1 Then
txtid_pengguna = recordset!id_pengguna
txtnm_pengguna.Text = recordset!nm_pengguna
txtpassword_pengguna.Text = recordset!password_pengguna & ""
txttanya.Text = recordset!pertanyaan
txtjawab.Text = recordset!jawaban
Enabled = True
'cbotingkat_dikum.Enabled = False

Else
Exit Sub
End If
End If
End Sub

Private Sub Form_Activate()
txtid_pengguna.MaxLength = 5
txtnm_pengguna.MaxLength = 30
txtpassword_pengguna.MaxLength = 6
txttanya.MaxLength = 50
txtjawab.MaxLength = 50
'cmdtambah.SetFocus
End Sub
Private Sub NomorUrut()
Dim I As Integer
For I = 1 To fg.Rows - 1
fg.TextMatrix(I, 0) = I
Next I
End Sub
Private Sub Form_Load()
konekin
koneksi.CursorLocation = adUseClient
tabel
semula
End Sub

Private Sub cmdtambah_Click()
cek = True
bersihkan
pesan = ""
Aktifkan
txtid_pengguna.SetFocus
fg.Enabled = False
cmdsimpan.Enabled = True
cmdbatal.Enabled = True
cmdtambah.Enabled = False
End Sub

Private Sub cmdsimpan_Click()
If txtnm_pengguna.Text = "" Then
txtnm_pengguna.SetFocus
ElseIf txtpassword_pengguna.Text = "" Then
txtpassword_pengguna.SetFocus
ElseIf txttanya.Text = "" Then
txttanya.SetFocus
ElseIf txtjawab.Text = "" Then
txtjawab.SetFocus
Else
If cek = True Then
query = "INSERT into tbpengguna values('" & txtid_pengguna.Text & "','" & txtnm_pengguna.Text & "','" & txtpassword_pengguna.Text & "','" & txttanya.Text & "','" & txtjawab.Text & "')"
koneksi.Execute query, , adCmdText
tabel
pesan = "Data Tersimpan"
Else
query = "UPDATE tbpengguna set nm_pengguna='" & txtnm_pengguna.Text & "',password_pengguna='" & txtpassword_pengguna.Text & "',pertanyaan='" & txttanya.Text & "',jawaban='" & txtjawab.Text & "' where id_pengguna='" & txtid_pengguna.Text & "'"
koneksi.Execute query, , adCmdText
tabel
pesan = "Data Tersimpan"
End If
semula
End If
End Sub

Private Sub cmdhapus_Click()
a = MsgBox(" Yakin ingin menghapus data ?", vbOKCancel + vbQuestion, "TANYA")
If a = vbOK Then
Set recordset = koneksi.Execute("delete*from tbpengguna where id_pengguna='" & txtid_pengguna & "'")
End If
tabel
semula
pesan = "Sukses Hapus Data"
End Sub

Private Sub cmdbatal_Click()
semula
End Sub

Private Sub cmdubah_Click()
cek = False
Aktifkan
txtid_pengguna.Locked = True
txtnm_pengguna.SetFocus
cmdubah.Enabled = False
cmdsimpan.Enabled = True
cmdhapus.Enabled = False
cmdtambah.Enabled = False
End Sub

Private Sub cmdtutup_Click()
Unload Me
End Sub

Private Sub labelaman_Click()
With frmsetaman
.id_pengguna = txtid_pengguna.Text
.Show vbModal
End With
End Sub

Private Sub txtpassword_pengguna_KeyPress(KeyAscii As Integer)
Call AlphaNumericValid(KeyAscii)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
cmdsimpan.SetFocus
End If
End Sub

Private Sub txtid_pengguna_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set recordset = New ADODB.recordset
recordset.Open "select*from tbpengguna where id_pengguna='" & txtid_pengguna.Text & "'", koneksi, adOpenDynamic, adLockBatchOptimistic
If recordset.BOF Then
txtnm_pengguna.SetFocus
Else
With recordset
txtnm_pengguna.Text = !nm_pengguna
txtpassword_pengguna.Text = !password_pengguna
End With
txtid_pengguna.Enabled = False
txtnm_pengguna.SetFocus
cmdubah.Enabled = True
cmdhapus.Enabled = True
cek = False
End If
End If
End Sub

Private Sub txtnm_pengguna_KeyPress(KeyAscii As Integer)
Call AlphaNumericValid(KeyAscii)
If KeyAscii = 13 Then
txtpassword_pengguna.SetFocus
End If
End Sub
 

Setelah itu baru membuat form login dengan rincian 2 buah label, dua buah textbox dan 3 buah command button.

Kemudian koding:

Private Sub cmdbatal_Click()
Me.txtnm_pengguna.Text = ""
Me.txtpassword_pengguna.Text = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
With Menu_Utama
End
End With
End Sub

Private Sub cmdlogin_Click()
Call BukaKoneksi
If Me.txtnm_pengguna.Text = vbNullString Then
    MsgBox " Nama Belum Diisi", vbInformation + vbOKOnly, "EROR"
    Me.txtnm_pengguna.SetFocus
ElseIf Me.txtpassword_pengguna.Text = vbNullString Then
    MsgBox " password Belum Diisi", vbInformation + vbOKOnly, "ERROR"
   ' Me.txtpassword_pengguna.SetFocus
Else
                Set rs = New ADODB.Recordset
                rs.Open "select nm_pengguna from tbpengguna where id_pengguna='" & txtnm_pengguna & "'", con, adOpenDynamic, adLockBatchOptimistic
                If Not rs.EOF Then
   
                     query = "SELECT * from tbpengguna Where id_pengguna='" & (Me.txtnm_pengguna.Text) & "' AND  password_pengguna='" & (Me.txtpassword_pengguna.Text) & "'"
                    Set rs = con.Execute(query)
                        If Not rs.EOF Then
                            MsgBox " Selamat, Login Berhasil", vbInformation + vbOKOnly, "SUCCES"
                                If vbOK Then
                                    Menu_Utama.Enabled = True
                                    Menu_Utama.Show
                                    Menu_Utama.SB.Panels(2) = Me.txtnm_pengguna.Text
                                    Menu_Utama.SB.Panels(9) = rs!id_pengguna
                                    Unload Me
                       
                                Else
                                    Me.txtpassword_pengguna.Text = ""
                                    Me.txtnm_pengguna.Text = ""
                                End If
                           
                        Else
                            MsgBox " Password Salah Coba cek Lagi", vbInformation + vbOKOnly, "ERROR"
                            Me.txtpassword_pengguna.Text = vbNullString
                            Me.txtpassword_pengguna.SetFocus
            End If
      Else
      MsgBox "ID Pengguna Salah "
      Me.txtnm_pengguna.Text = ""
      Me.txtpassword_pengguna.Text = ""
      Me.txtnm_pengguna.SetFocus
      End If
     End If
End Sub

Private Sub cmdlupa_Click()
If txtnm_pengguna.Text = "" Then
MsgBox "silakan isi id anda terlebih dahulu"
txtnm_pengguna.SetFocus
Else
Set rs = New ADODB.Recordset
rs.Open "select*from tbpengguna where id_pengguna='" & txtnm_pengguna.Text & "'", con, adOpenDynamic, adLockBatchOptimistic
If Not rs.EOF Then
frmlupapassword.Label1 = rs!pertanyaan
frmlupapassword.Label2 = rs!jawaban
frmlupapassword.Show vbModal
End If
End If
End Sub

Private Sub Form_Load()
Call BukaKoneksi
txtpassword_pengguna.Enabled = False
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Me.Caption = "LOG OFF SYSTEM" Then
Unload Menu_Utama
Else
Unload Me
End If
End Sub

Private Sub txtnm_pengguna_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdlogin.Enabled = True
txtpassword_pengguna.Enabled = True
txtpassword_pengguna.SetFocus
End If
End Sub

Lalu untuk form lupa password seperti dibawah ini

Koding:

Private Sub cmdforgot_Click()
Call BukaKoneksi
Set rs = New ADODB.recordset
rs.Open "select*from tbpengguna where pertanyaan='" & Label1 & "'", con, adOpenDynamic, adLockBatchOptimistic
If txtjawab.Text = Label2 Then
frm_Login.txtpassword_pengguna = rs!password_pengguna
Me.Hide
Unload Me
Else
MsgBox "Maaf Jawaban tidak sesuai, password tidak akan diproses"
txtjawab.Text = ""
txtjawab.SetFocus
End If
End Sub

Cara kerjanya:

• Kita mendaftar di form user dengan mengisi data secara lengkap  di form_user berikut pertnyaan dan jawaban. Pertanyaan dan jawaban ini yang nantinya akan menjadi kata kunci ketika user ingin login namun lupa password. Buatlah pertnyaan seunik mungkin dan mudah diingat dan hanya user yang tahu.
•  Setelah dari form login kita masuk form login. User akan mengisi id dan password klik tombol login. Pertama kali program akan memeriksa id pengguna jika ternyata id pengguna salah maka akan muncul pesan" id pengguna salah" Jika benar maka program selanjutnya mengecek password jika password benar maka program menu utama akan muncul jika salah maka muncul pesan "Password salah coba cek lagi".
• Jika ternyata setelah mencoba berulangkali mengisi password dan user tidak juga ingat password. Maka klik tombol lupa password.
• Setelah muncul form lupa password maka disana akan muncul perntanyaan yang telah dibuat di tabel pengguna. User tinggal mengisi jawaban yang sesuai di textbox yang tersedia dan OK. Jika jawaban benar maka password akan ditampilkan di form login dan jika jawaban salah maka pogram akan memberitahu " Maaf jawaban tidak sesuai password tidak akan diproses".

Mudah-mudahan bermanfaat. Tetap semangat dan terus mencoba :)