thks ya atas semua responya sekarang saya sudah mulai
mengerti sedikit2.
--- dandyca sunidar <[EMAIL PROTECTED]> wrote:
> Coba Gunaiin Listing Berikut
>
> general
> -------
>
> Dim LoginSucceeded as Boolean
> Dim DBS as Database
>
> Private Sub cmdlogin_Click(Index As Integer)
> On Error GoTo cekloginuser
>
> Set DBS = OpenDatabase(App.path & "\Nama Database'a
> ")
> Set rslogin = DBS.OpenRecordset("Select * From Login
> where Login_User='" & Trim(tlogin(0).Text) & "'")
> Select Case Index
> Case 0
> If Trim(tlogin(0).Text) = "" And
> Trim(tlogin(1).Text) = "" Then
> Pesan = MsgBox("Login User Dan Password
> Masih Belum Terisi !!" & vbCrLf & "Apakah Anda Ingin
> Keluar Dari Program Ini...?", vbYesNo + vbQuestion)
> If Pesan = vbYes Then
> Set Login_Form = Nothing
> UnloadAllForm
> Else
> tlogin(0).SetFocus
> End If
> ElseIf Trim(tlogin(0).Text) = "" Then
> MsgBox "Login User Masih Kosong...!",
> vbOKOnly + vbExclamation
> tlogin(0).SetFocus
> ElseIf Trim(tlogin(1).Text) = "" Then
> MsgBox "password Masih Kosong...!",
> vbOKOnly + vbExclamation
> tlogin(1).SetFocus
> Else
> If rslogin.EOF Then
> MsgBox "Login User Tidak
> Terdaftar...!", vbOKOnly + vbCritical, "PERINGATAN"
> tlogin(0).Text = ""
> tlogin(1).Text = ""
> tlogin(0).SetFocus
> Else
> If rslogin!Password <>
> Enkripsi(Trim(tlogin(1).Text)) Then
> n = n + 1
> Else
> n = 0
> Menu_Utama.Show
> Menu_Utama.lbluser.Caption =
> rslogin!User_Name
> MenuAktif
> Set Login_Form = Nothing
> Unload Me
> End If
>
> Select Case n
> Case 1
> MsgBox "Maaf, Password Anda
> Salah, Anda Mempunyai 2 Kesempatan Lagi..!",
> vbOKOnly + vbCritical, "PERINGATAN"
> tlogin(1) = ""
> tlogin(1).SetFocus
> Case 2
> MsgBox "Maaf, Password Anda
> Salah, Anda Mempunyai 1 Kesempatan Lagi..!",
> vbOKOnly + vbCritical, "PERINGATAN"
> tlogin(1) = ""
> tlogin(1).SetFocus
> Case 3
> MsgBox "Maaf, Kesempatan
> Anda Hanya 3 Kali, Anda Harus Mengulanginya Dari
> Awal Dengan Membuka Program Penjualan Ini..!",
> vbOKOnly + vbCritical, "PERINGATAN"
> DBS.Close
> Set Login_Form = Nothing
> UnloadAllForm
> End Select
> End If
> End If
> Case 1
> If LoginSucceeded = False Then
> Unload Me
> End If
> End Select
> On Error GoTo 0
> Exit Sub
> cekloginuser:
> End Sub
>
> Jangan Lupa Sebelum'a
>
> Buka Menu Project - References
> Pilih & Checklist Miscrosoft DAO 3.6 Object Library
> (Untuk Menggunakan DAO)
>
> Semoga Bisa Membantu
>
> ----- Original Message ----
> From: eko riantono <[EMAIL PROTECTED]>
> To: [email protected]
> Sent: Thursday, January 31, 2008 1:12:00 PM
> Subject: Re: [Programmer-VB] Re: login
>
> klo itu aku dah tahu cuma yang belum aku tahu tuh
> gini
>
> data base user name dan pass ada di microsft acces
> nah
> untuk loginnya diambil dari data base di acces yang
> saya tannyakan itu cara menghubungi ke accesnya
> gimana.
>
> thks b4
> --- jontampubolon <jontampubolon@ yahoo.com> wrote:
>
> > download file "loginProg.exe" di menu Files.
> >
> >
>
> ____________ _________ _________ _________ _________
> _________ _
> Never miss a thing. Make Yahoo your home page.
> http://www.yahoo. com/r/hs
>
>
>
>
>
>
____________________________________________________________________________________
> Looking for last minute shopping deals?
> Find them fast with Yahoo! Search.
http://tools.search.yahoo.com/newsearch/category.php?category=shopping
____________________________________________________________________________________
Looking for last minute shopping deals?
Find them fast with Yahoo! Search.
http://tools.search.yahoo.com/newsearch/category.php?category=shopping
