|
|
|
|
![]() ![]() |
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 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 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 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 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 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, 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 I learned this recently, and I hope I passed that knowledge to some of you.. |
|
|
|
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
|
|
|
|
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] |
|
|
|
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!
|
|
|
|
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 |
|
|
|
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 |
|
|
|
![]() ![]() |
Similar Topics
|