Advance Login(Updated)

Submitted by mrdobLedos on Tuesday, February 15, 2011 - 11:15.

Language

^__^ 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

Comments

Submitted bymrdobLedoson Sun, 03/27/2011 - 20:27

User Control Yan pre.. ^__^
Submitted byAnonymous (not verified)on Mon, 04/04/2011 - 19:59

ang galing mo naman sa programming!!!EXTREME!!
Submitted bymrdobLedoson Tue, 04/05/2011 - 21:27

haha..thnx po... hindi amn po ako mgling.. mrunong lng po... anyway thnx ulit ^_^
Submitted byjessa_17on 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 byAnonymous (not verified)on Mon, 06/20/2011 - 10:04

pa help nmn anu puh username saka password n2
Submitted bymrdobLedoson Wed, 06/29/2011 - 18:18

sure..how can i help you?
Submitted byAnonymous (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 bymrdobLedoson Thu, 07/28/2011 - 10:29

send me ur prgram and i will fix it...
Submitted byixan (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 bymrdobLedoson Wed, 07/04/2012 - 10:41

Dre.. ako nlng add mo.. :) See the Links Below! Thank you!
Submitted bydhalz (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 bymrdobLedoson 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 byAnonymous (not verified)on Fri, 09/07/2012 - 11:39

sir can u make an advanced login system using data control?
Submitted bySabalaon Thu, 10/11/2012 - 22:27

kindly help me with the source code. nice works man, kep it up.
Submitted byAnonymous (not verified)on Sun, 05/12/2013 - 08:32

cool bro...love it
Submitted byAnonymous (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 byAnonymous (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 byboy (not verified)on Tue, 11/25/2014 - 22:15

meron ka bang simpleng quiz program with database

Add new comment

About text formats