Welcome Guest ( Log In | Register)



 
Reply to this topicStart new topic
> Simple Login In Visual Basic 6, user interaction example trough login programm
kitty
post Jun 15 2005, 02:11 PM
Post #1


Member [Level 2]
*****

Group: Members
Posts: 83
Joined: 1-June 05
Member No.: 7,772



First of all, I am NOT a programmer, this is something my friend taught me. It describes basic interaction with the user, while showing basic functionality of this simple programm. So, without further ado, we're off to the tutorial:

First of all, start your visual basic, when prompted for new project, select Standard Exe. Next, we need to open code window, so we can start typing the program. This can be done in two ways, one is double clicking on the form, or selecting Code from View menu.

If you double clicked on the form, you will see following text:
CODE

Private Sub Form_Load()

End Sub
If you don't see it, you will need to type it by hand. You will only need to type the first line (Private Sub Form_Load()), the last line, visual basic will add automaticaly (End Sub).

Next, we need to declare variables we will use in our program. Here's the next piece of code:
CODE

Dim MyName As String ' This variable contains users full name
Dim MyUName As String ' This variable contains users login name (username)
Dim MyPass As String ' This variable contains users password
Dim Response As Integer ' This variable contains users answers from message boxes
Dim Saved_Name As String ' This variable contains saved username from file
Dim Saved_Pass As String 'This variable contains saved password from file
This part is simple, we only prepare variables for use (I know there is more technical explanation for this, but I can't remember laugh.gif).

Now, we need to read username and password from the file. Now, for this example, we will use simple text file. You can create it using notepad (I don't think you need a tutorial on that wink.gif). In that file, write the username you want, and in next line, write the password. Now, add the following code:
CODE

Open "pass.txt" For Input As #1 'we open file with data we need
 Line Input #1, Saved_Name ' We read username from file
 Line Input #1, Saved_Pass 'We read password from file
Close #1 'we close the file


Now that we have done this, we can proceed with basic interaction with the user:
CODE

Login_Name:
MyName = InputBox("Please, enter Your name.", "Introduce yourself", "")
If MyName = "" Then
 Response = MsgBox("To continue with the program, You need to introduce Yourself." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
 If Response = vbYes Then GoTo Login_Name
 If Response = vbNo Then
   MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
   End
 End If
End If
First, we ask a user, to enter his full name, so we can know how to address him/her. If the user doesn't enter his/hers name, we will tell him he/she needs to enter it, or to quit the program. I believe the code is very self explainatory.

Next, we will prompt for user name. This is the information that we need for successfull login.
CODE

Login_UName:
MyUName = InputBox("Good day " & MojeIme & ", please, enter Your user name.", "Login", "")
If MyUName = "" Then
 Response = MsgBox("To continue with the program, You need to enter username." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
 If Response = vbYes Then GoTo Login_UName
 If Response = vbNo Then
   MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
   End
 End If
End If
This is basicaly the same thing we used for prompting for full name, just with different variables.

Next, we ask the user to enter his/hers password, to authenticate into system:
CODE

Login_Pass:
MyPass = InputBox("Please, enter a password for user name " & MyUName & ".", "Login", "")
If MyPass = "" Then
 Response = MsgBox("To continue with the program, You need to enter Your password." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
 If Response = vbYes Then GoTo Login_Pass
 If Response = vbNo Then
   MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
   End
 End If
End If
OK, I guess you noticed this is the same thing I used in two earlier segments of programm. I was told it can be done with functions or subs, but I haven't learned it yet smile.gif I guess I'll post another tutorial when I learn how to do that wink.gif

OK, we're almost done. All we have to do is check if username and passwords match, and if that is the case, we can proeed with programm. If not, we tell the user he/she made a mistake, and exit the programm. Here is the programm for that segment:
CODE

If (Saved_Name = MyUName) And (Saved_Pass = MyPass) Then
 MsgBox "Good day " & MyName & "." & vbCrLf & "Welcome to our programm, we wish You pleasant work.", vbInformation + vbOKOnly, "Welcome"
Else
 MsgBox "We are sorry, username and/or password are not correct", vbCritical + vbOKOnly, "Error"
 End
End If
Here, we check if saved username is the one entered, and if the saved password is the one entered. If they match, we allow the user to access the programm, if not, we tell him/her there is an error, and exit the programm.

I learned this recently, and I hope I passed that knowledge to some of you..
Go to the top of the page
 
+Quote Post
masterio
post Aug 31 2006, 12:02 PM
Post #2


Member [Level 1]
****

Group: Members
Posts: 50
Joined: 25-August 06
Member No.: 28,897



Hey, Nice tutorial. But it seems only one user that can login!. It's better if we can use new way, so not only one user that can use the program. Anyone has an idea?, I'm not good in Visual Basic 6 biggrin.gif
Go to the top of the page
 
+Quote Post
ghostrider
post Aug 31 2006, 11:02 PM
Post #3


Super Member
*********

Group: Members
Posts: 397
Joined: 9-June 06
From: Wisconsin
Member No.: 24,924



QUOTE
Hey, Nice tutorial. But it seems only one user that can login!. It's better if we can use new way, so not only one user that can use the program. Anyone has an idea?, I'm not good in Visual Basic 6


I've used VB6 for 9 years. I'll post the code for how I would do it, however I'm sure there is more than just one way to create a simple login system. It'll just take a couple changes to the kitty's code to implement other users.

We can copy the first part of kitty's code right into the form almost without changes. Here it is:
CODE

Dim MyName As String ' This variable contains users full name
Dim MyUName As String ' This variable contains users login name (username)
Dim MyPass As String ' This variable contains users password
Dim Response As Integer ' This variable contains users answers from message boxes
Dim Saved_Name() As String ' This variable contains saved username from file
Dim Saved_Pass() As String 'This variable contains saved password from file


The only real difference between my code and his/her's is that Saved_Name and Saved_Pass are now arrays. Arrays can hold more than one value, each value in an array is given a number.

CODE

Dim TotUser As Integer 'The total number of users
Dim TempName As String 'For the name
Dim TempPass As String 'For the pass
TotUser = 1
Open "pass.txt" For Input As #1 'we open file with data we need
Do Until EOF(1)
Line Input #1, TempName ' We read username from file
Line Input #1, TempPass ' We read password from file
TotUser = TotUser + 1 'Add one to TotUser
ReDim Preserve Saved_Name(1 To TotUser) 'Expand the array
Saved_Name(TotUser) = TempName
ReDim Preserve Saved_Pass(1 To TotUser) 'Expand the array
Saved_Pass(TotUser) = TempPass
Loop
Close #1 'we close the file


The ReDim statement resizes the array (creates more elements). The Preserve in the ReDim statement means to make sure the data originally in the array stays there. Without the preserve statement, only the last username and password would be in the array, all the others would be "" or NULL.

The next bit of code stays the same.

CODE

Login_Name:
MyName = InputBox("Please, enter Your name.", "Introduce yourself", "")
If MyName = "" Then
Response = MsgBox("To continue with the program, You need to introduce Yourself." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
If Response = vbYes Then GoTo Login_Name
If Response = vbNo Then
   MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
   End
End If
End If


So does the next bit


CODE

Login_UName:
MyUName = InputBox("Good day " & MojeIme & ", please, enter Your user name.", "Login", "")
If MyUName = "" Then
Response = MsgBox("To continue with the program, You need to enter username." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
If Response = vbYes Then GoTo Login_UName
If Response = vbNo Then
   MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
   End
End If
End If


and the next bit

CODE

Login_Pass:
MyPass = InputBox("Please, enter a password for user name " & MyUName & ".", "Login", "")
If MyPass = "" Then
Response = MsgBox("To continue with the program, You need to enter Your password." & vbCrLf & "Do You wish to proceed with the programm?", vbCritical + vbYesNo, "Error")
If Response = vbYes Then GoTo Login_Pass
If Response = vbNo Then
   MsgBox "We are sorry You do not wish to proceed." & vbCrLf & "We wish You a good day", vbInformation + vbOKOnly, "End"
   End
End If
End If


Finally something actually changes!!

CODE

Dim i As Integer 'For the For Next Loop
For i = 1 To TotUser 'Check every user.
If (Saved_Name = MyUName(i)) And (Saved_Pass = MyPass(i)) Then
MsgBox "Good day " & MyName & "." & vbCrLf & "Welcome to our program, we wish You pleasant work.", vbInformation + vbOKOnly, "Welcome"
Exit sub 'You are logged in!
Else
If i = TotUser Then
MsgBox "We are sorry, username and/or password are not correct", vbCritical + vbOKOnly, "Error"
End
End If
End If
Next i


Place all this code together and it will work fine! Feel free to PM me with any questions you may have.


[code]









Go to the top of the page
 
+Quote Post
masterio
post Sep 5 2006, 12:54 AM
Post #4


Member [Level 1]
****

Group: Members
Posts: 50
Joined: 25-August 06
Member No.: 28,897



Very very good, I will try it soon. Thanks ghost!
Go to the top of the page
 
+Quote Post
iGuest
post Feb 17 2008, 02:26 PM
Post #5


Trap Double Mocha Member
***************

Group: Members
Posts: 2,360
Joined: 21-September 07
Member No.: 50,369



internet cafe..
Simple Login In Visual Basic 6

How can I make a program with log-in log-out in my internet cafe using vb6?
Also a time code...

-question by camille
Go to the top of the page
 
+Quote Post
iGuest
post Mar 19 2008, 10:25 AM
Post #6


Trap Double Mocha Member
***************

Group: Members
Posts: 2,360
Joined: 21-September 07
Member No.: 50,369



How to prevent multiple user login using one account in VB
Simple Login In Visual Basic 6

I am writing a VB 6 program that shd run on the network. A user has to login before using the program. Now, I want to prevent multiple user login using one user account. It shouldn't allow or prevent a user to login whilst his/her account is in use. I am using MS SQL Server 2000 Database.
Please, can anyone help me with this? I would be very grateful if you could help me with this.

-question by King Acheampong
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic

Collapse

> Similar Topics

Topics Topics
  1. [tutorial] Visual Basic 6(2)
  2. Complete Login System(56)
  3. Php Simple Login Tutorial(63)
  4. Multiple Admin Login (php)(3)
  5. Complete Login And Registration System(9)
  6. Php/mysql Login/register(2)
  7. How To Put A Phpbb Login Box On Your Main Site.(18)
  8. How To: Change An Image When A User Clicks On It(11)
  9. Hiding User Account On Xp(0)
  10. How To "lock Down" A Os X User Account(1)
  11. Bit Shifting In Vb(0)
  12. Automatic Login(5)
  13. How To Make A Web Browser(48)
  14. Creating A Simple Image Viewer(3)
  15. Creating A Timer Program(8)
  1. Flatfile User Login/signup(24)
  2. Simple User System(19)
  3. Simple Php Login And Registration System(10)
  4. To Automatically Run Command When Login / Logoff(3)
  5. User Permission Function [php](3)
  6. Ftp In Visual Basic 6.0(0)


 



-