Sunday, 8 November 2015

Advanced Login System using Visual Basic 6.0 and MS Access-Quick and easy

Create An Advanced Login System in Visual Basic 6.0 and Ms Access.

Features of this application are

Splash screen with progress bar,Welcome form asking for login or register,Registration form for new users to get register,Multi-User Login form for existing users as well new users registered.As you login successfully,you will be able to use the system.

In this video tutorial,you will able to create a splash screen having a progress bar indicating % complted status,as loading completes,A new form i.2 Welcome form will appeared on screen asking for Login or Register as a User.You can either register as new user or login into the system.For registration,A form Registration is available to create new username and password.Simultaneously,after the registration,you will be able to login with your current username and password.
In the tutorial,There are five VB forms:
1.Splash Screen having Progress Bar.
2.Welcome Form asking for Login (Existing User )or Register (New User).
3.Registration form for creating new users to use the sytem.
4.Multi-User Login form where all the users registered with the system ,can login into the system and Use the system.
5.Application form,As you login with your correct credentials,then you will be able to use the system.
Database connectivity or other programming stuff are explained step by step with written caption.
After watching this video,you wll be create the same login application for your own use.
for more information ,click on the Link:
Please leave a comment for any query.if you like my video,hit like button.
for more informative videos on technologies ,please subscribe to my channel.




Source Code: Splash Screen
_________________________________
Private Sub Form_Load()

Timer1.Enabled = True
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 5
lblstatus.Caption = "Loading..Plz Wait.."
lblstat.Caption = ProgressBar1.Value & "%"
If ProgressBar1.Value = ProgressBar1.Max Then
Timer1.Enabled = False
Unload Me
welcome.Show
End If
End Sub

Welcome
__________________________________________
Private Sub Form_Load()

Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub logbtn_Click()
login.Show
welcome.Hide
register.Hide
End Sub
Private Sub regbtn_Click()
register.Show
login.Hide
welcome.Hide
End Sub
Registration form
________________________________________________


Private Sub Form_Load()
registerado.Recordset.AddNew
End Sub
Private Sub regbtn_Click()
registerado.Recordset.Fields("Rollno") = txtroll.Text
registerado.Recordset.Fields("Name") = txtname.Text
registerado.Recordset.Fields("Class") = txtclass.Text
registerado.Recordset.Fields("Username") = txtuser.Text
registerado.Recordset.Fields("Password") = txtpass.Text
registerado.Recordset.Fields("Address") = txtadd.Text
registerado.Recordset.Fields("Contact") = txtphone.Text
registerado.Recordset.Update
MsgBox "User Registration Successful,Please Login with Username and Password", vbInformation
login.Show
register.Hide
End Sub
Login Form
_________________________________
Private Sub loginbtn_Click()
loginado.RecordSource = "Select * from Log where Username ='" + txtuser.Text + "' and password='" + txtpass.Text + "' "
loginado.Refresh
If loginado.Recordset.EOF Then
MsgBox "Login Failed.. Please login with correct credentials", vbCritical
login.Show
txtuser.Text = ""
txtpass.Text = ""
Else
MsgBox "Well Done..Login Successful", vbInformation
App.Show
login.Hide
End If
End Sub

Thanks for watching..Plese share and subscribe to my channel.