Mas eko yang budiman..., mas boleh tau kalau login menggunakan otorisasai user buat kodenya nya seperti apa ya mas, saya newbie , mau tau gimana caranya membuat aplikasi menggunakan vb dengan otorisasi user, bagai mana membuat struktur databasenya nya untuk user dan bagai mana kode untuk form loginnya...
dan untuk para master lainya bantuin dong.. Thanks ya sebelumnya.... regards, rully ----- Pesan Asli ---- Dari: eko riantono <[EMAIL PROTECTED]> Kepada: [email protected] Terkirim: Rabu, 6 Febuari, 2008 6:26:21 Topik: Re: [Programmer-VB] Re: login thks ya atas semua responya sekarang saya sudah mulai mengerti sedikit2. --- dandyca sunidar <dandyca_sunidar@ yahoo.com> 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 <eko_riantono@ yahoo.com> > To: Programmer-VB@ yahoogroups. com > 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 <!-- #ygrp-mkp{ border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;} #ygrp-mkp hr{ border:1px solid #d8d8d8;} #ygrp-mkp #hd{ color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;} #ygrp-mkp #ads{ margin-bottom:10px;} #ygrp-mkp .ad{ padding:0 0;} #ygrp-mkp .ad a{ color:#0000ff;text-decoration:none;} --> <!-- #ygrp-sponsor #ygrp-lc{ font-family:Arial;} #ygrp-sponsor #ygrp-lc #hd{ margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;} #ygrp-sponsor #ygrp-lc .ad{ margin-bottom:10px;padding:0 0;} --> <!-- #ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;} #ygrp-mlmsg table {font-size:inherit;font:100%;} #ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean, sans-serif;} #ygrp-mlmsg pre, code {font:115% monospace;} #ygrp-mlmsg * {line-height:1.22em;} #ygrp-text{ font-family:Georgia; } #ygrp-text p{ margin:0 0 1em 0;} #ygrp-tpmsgs{ font-family:Arial; clear:both;} #ygrp-vitnav{ padding-top:10px;font-family:Verdana;font-size:77%;margin:0;} #ygrp-vitnav a{ padding:0 1px;} #ygrp-actbar{ clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;} #ygrp-actbar .left{ float:left;white-space:nowrap;} .bld{font-weight:bold;} #ygrp-grft{ font-family:Verdana;font-size:77%;padding:15px 0;} #ygrp-ft{ font-family:verdana;font-size:77%;border-top:1px solid #666; padding:5px 0; } #ygrp-mlmsg #logo{ padding-bottom:10px;} #ygrp-vital{ background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;} #ygrp-vital #vithd{ font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;} #ygrp-vital ul{ padding:0;margin:2px 0;} #ygrp-vital ul li{ list-style-type:none;clear:both;border:1px solid #e0ecee; } #ygrp-vital ul li .ct{ font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;} #ygrp-vital ul li .cat{ font-weight:bold;} #ygrp-vital a{ text-decoration:none;} #ygrp-vital a:hover{ text-decoration:underline;} #ygrp-sponsor #hd{ color:#999;font-size:77%;} #ygrp-sponsor #ov{ padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;} #ygrp-sponsor #ov ul{ padding:0 0 0 8px;margin:0;} #ygrp-sponsor #ov li{ list-style-type:square;padding:6px 0;font-size:77%;} #ygrp-sponsor #ov li a{ text-decoration:none;font-size:130%;} #ygrp-sponsor #nc{ background-color:#eee;margin-bottom:20px;padding:0 8px;} #ygrp-sponsor .ad{ padding:8px 0;} #ygrp-sponsor .ad #hd1{ font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;} #ygrp-sponsor .ad a{ text-decoration:none;} #ygrp-sponsor .ad a:hover{ text-decoration:underline;} #ygrp-sponsor .ad p{ margin:0;} o{font-size:0;} .MsoNormal{ margin:0 0 0 0;} #ygrp-text tt{ font-size:120%;} blockquote{margin:0 0 0 4px;} .replbq{margin:4;} --> ________________________________________________________ Bergabunglah dengan orang-orang yang berwawasan, di di bidang Anda! Kunjungi Yahoo! Answers saat ini juga di http://id.answers.yahoo.com/
