1. Visual Basic
  2. Advance Login(Updated)

Advance Login(Updated)

Submitted by mrdobLedos on Tuesday, February 15, 2011 - 11:15.
Language
Visual Basic
^__^ Good Day!!! Because of criticism of some readers....i decided to make my program more sensitive when interacting w/ users.... "But Thanks to that!!!" I have included also another function that can detect if the program was already running.. Thnx..!! ^__^ Have a great day!

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. After downloading it, you will need a program like Winzip to decompress it.

Virus note: All files are scanned once-a-day by SourceCodester.com for viruses, but new viruses come out every day, so no prevention program can catch 100% of them.

FOR YOUR OWN SAFETY, PLEASE:

1. Re-scan downloaded files using your personal virus checker before using it.
2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.

Tags
visual basic
database
login
security
form

Comments

Submitted by mrdobLedos on Sun, 03/27/2011 - 20:27

User Control Yan pre.. ^__^

Submitted by Anonymous (not verified) on Mon, 04/04/2011 - 19:59

ang galing mo naman sa programming!!!EXTREME!!

Submitted by mrdobLedos on Tue, 04/05/2011 - 21:27

haha..thnx po... hindi amn po ako mgling.. mrunong lng po... anyway thnx ulit ^_^

Submitted by jessa_17 on Sat, 04/30/2011 - 12:14

sir pa help nman po ng aking bus reservation system using C#..pls po..ung cmple lng po ung log in, add,edit, delete passenger po plz...

do u still have the codes for bus reservation system using C#

Submitted by Anonymous (not verified) on Mon, 06/20/2011 - 10:04

pa help nmn anu puh username saka password n2

Submitted by mrdobLedos on Wed, 06/29/2011 - 18:18

sure..how can i help you?

Submitted by Anonymous (not verified) on Sun, 07/24/2011 - 15:30

ito po ung code ko: Dim labas As String, tries As Integer Private Sub Command1_Click() Dim rs As ADODB.Recordset, sql As String If Text1.Text = "" Or Text2.Text = "" Then If MsgBox("Either UserName or Password contains nothing. Please retry!", vbOKOnly + vbInformation, "LogIn Info") Then Exit Sub End If sql = "Select * from login WHERE username = '" & Trim(Text1.Text) & "' and password = '" & Trim(Text2.Text) & "'" 'if END OF FILE(no records found) Set rs = New ADODB.Recordset rs.Open sql, cons If rs.EOF Then tries = tries + 1 If tries = 4 Then MsgBox "Invalid UserName and Password!, Sorry you've reached the maximum retries for entering a valid UserName and Password." End ElseIf tries = 3 Then MsgBox "Invalid UserName and Password!, You are given three attempts to enter a valid UserName and Password.", vbCritical, "LogIn Info" Label3.Caption = "WARNING!: You only have one attempt to enter a valid UserName And Password." Text1.Text = "" Text2.Text = "" Text1.SetFocus ElseIf tries = 2 Then MsgBox "Invalid Username and Password!, You are given three attempts to enter a valid UserName and Password.", vbCritical, "LogIn Info" Text1.Text = "" Text2.Text = "" Text1.SetFocus Else MsgBox "WELCOME!", vbInformation, "LogIn Info" frmmain.Show Unload Me End If End If End Sub -----ayaw na po kasi nya basahin ung TAMANG username and password pano po kea 2.

Submitted by mrdobLedos on Thu, 07/28/2011 - 10:29

send me ur prgram and i will fix it...

Submitted by ixan (not verified) on Sun, 01/22/2012 - 20:42

nice program bro. Im lookin for advance login system like how to separate the fucntion of admin and user.
my frnd in school shared me this program and i wasnt able to used it. mpareho lng kasi to sa ginawa ko, this is challenging but Im not good at it. im just a student..please bro if u know how, add me na lng sa fb. please search(ixan hermogino)..thank you man.

Submitted by mrdobLedos on Wed, 07/04/2012 - 10:41

Dre.. ako nlng add mo.. :) See the Links Below! Thank you!

Submitted by dhalz (not verified) on Sun, 07/01/2012 - 12:30

kuya, patulong naman.. gagawa kasi kami ng faculty evaluation system.. wla akong ibang malapitan e.. nag-pm na ako sa email mo po.. salamat po :D

Submitted by mrdobLedos on Wed, 07/04/2012 - 10:49

Hello Guys.. if you have questions or you need some help here's my updated info. for you to contact me.. See below. Thanks!

Submitted by Anonymous (not verified) on Fri, 09/07/2012 - 11:39

sir can u make an advanced login system using data control?

Submitted by Sabala on Thu, 10/11/2012 - 22:27

kindly help me with the source code. nice works man, kep it up.

Submitted by Anonymous (not verified) on Sun, 05/12/2013 - 08:32

cool bro...love it

Submitted by Anonymous (not verified) on Wed, 07/03/2013 - 11:52

good job.. ang galing ng program mo.. good to know that there are still people willing to share there knowledge.. thanks

Submitted by Anonymous (not verified) on Tue, 07/09/2013 - 16:49

Hello, Good Day, i start making my proposed payroll system but i don't know what to do,, i start with log-in form but a code i've put would not run Private Sub Cmdlogin_Click() if txtuser.Text = "admin" And txtpass.Text = "pass" Then MsgBox("Invalid Username & Password") Else MsgBox(Success to Log-in) Enf If End Sub i used vb 6.0.. can you help me?

Submitted by boy (not verified) on Tue, 11/25/2014 - 22:15

meron ka bang simpleng quiz program with database

Add new comment

About text formats